QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 04:50:22 +00:00
Code Issues Releases Wiki Activity

Change to make adding user functions modular without having to go in and change the main source directly everytime.

Browse source 
Added in new math functions for converting between Degrees, Radians, and Gradians.
This commit is contained in:
SMcNeill 2014-06-19 14:43:38 -04:00
parent 88592b4588
commit 12fdb2c77a
14 changed files with 976 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
internal/c/User Mods/Steve Stuff/convert_angle.cpp Normal file
View file

@ -0,0 +1,28 @@
// ******************************************************************************************************
// ** Angle Conversion Formulas
// ******************************************************************************************************
double func_deg2rad (double value) {
return (value * 0.01745329251994329576923690768489);
}
double func_rad2deg (double value) {
return (value * 57.29577951308232);
}
double func_deg2grad (double value) {
return (value * 1.111111111111111);
}
double func_grad2deg (double value) {
return (value * 0.9);
}
double func_rad2grad (double value) {
return (value * 63.66197723675816);
}
double func_grad2rad (double value) {
return (value * .01570796326794896);
}

3
internal/c/User Mods/Steve Stuff/pi.cpp Normal file
View file

@ -0,0 +1,3 @@
double func_pi () {
return (3.14159265358979323846264338327950288419716939937510582);
}

2
internal/c/User Mods/Steves_Main-List.cpp Normal file
View file

@ -0,0 +1,2 @@
#include "Steve Stuff/convert_angle.cpp"
#include "Steve Stuff/pi.cpp"

7
internal/c/User Mods/Users Routines-List.cpp Normal file
View file

@ -0,0 +1,7 @@
//***********************************************
//**
//** A main include area so that users can organize their code into folders and such individually
//**
//***********************************************
#include "Steves_Main-List.cpp"

16
internal/c/User Mods/steve_mods.h Normal file
View file

@ -0,0 +1,16 @@
//***************************************************************
//**
//** Declarations for routines proved by Steve McNeill
//** Email: smcneill@swva.net
//**
//****************************************************************
//Angle Conversion Formulas
extern double func_deg2rad(double degree);
extern double func_deg2grad(double degree);
extern double func_rad2deg(double degree);
extern double func_rad2grad(double degree);
extern double func_grad2deg(double degree);
extern double func_grad2rad(double degree);
extern double func_pi();

12
internal/c/User Mods/user_list.h Normal file
View file

@ -0,0 +1,12 @@
//************************************************************
//**
//** A listing of all the Users who have added routines for us
//** This makes for easy tracking of original authors in case of problems with their code
//** or if alterations need to be made in the future
//**
//** I just put these in alphabitical order. It has nothing to do with user rankings or anything silly like that.
//** Alpha lists are easy to look through and expand nicely for future reference. ;)
//**
//*************************************************************
#include "steve_mods.h"

1
internal/c/libqb.cpp
View file

@ -33888,3 +33888,4 @@ glutDisplayFunc(GLUT_DISPLAY_REQUEST);
#endif
}
#include "User Mods/Users Routines-List.cpp"

6
internal/c/qbx.cpp
View file

@ -94,7 +94,13 @@ struct stat statbuf;
//*******************************************************
//
// Change to make user-defined additions easier to track inside their own headers
//
//********************************************************
#include "User Mods\user_list.h"

722
internal/source/Steve Mods.txt Normal file
View file

@ -0,0 +1,722 @@
// ################################################################################################
// # #
// # Steve Functions and Edits #
// # #
// ################################################################################################
//************************************
// Convert Degrees to Radians _D2R
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39503);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_D2R",4));
if(!qbevent)break;evnt(39504);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39505);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2rad",12));
if(!qbevent)break;evnt(39506);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39507);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39508);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39509);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39510);}while(r);
// ************************************************************************************************
//************************************
// Convert Degrees to Gradians _D2G
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39511);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_D2G",4));
if(!qbevent)break;evnt(39512);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39513);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2grad",13));
if(!qbevent)break;evnt(39514);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39515);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39516);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39517);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39518);}while(r);
// ************************************************************************************************
//************************************
// Convert Radians to Degrees _R2D
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39519);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_R2D",4));
if(!qbevent)break;evnt(39520);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39521);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2deg",12));
if(!qbevent)break;evnt(39522);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39523);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39524);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39525);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39526);}while(r);
// ************************************************************************************************
//************************************
// Convert Radians to Gradians _R2G
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39527);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_R2G",4));
if(!qbevent)break;evnt(39528);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39529);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2grad",13));
if(!qbevent)break;evnt(39530);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39531);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39532);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39533);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39534);}while(r);
// ************************************************************************************************
//************************************
// Convert Gradians to Degrees _G2D
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39535);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_G2D",4));
if(!qbevent)break;evnt(39536);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39537);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2deg",13));
if(!qbevent)break;evnt(39538);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39539);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39540);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39541);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39542);}while(r);
// ************************************************************************************************
//************************************
// Convert Gradians to Radians _G2R
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39543);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_G2R",4));
if(!qbevent)break;evnt(39544);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39545);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2rad",13));
if(!qbevent)break;evnt(39546);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39547);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39548);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39549);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39550);}while(r);
// ################################################################################################
// # #
// # End of Angle Conversion Functions #
// # #
// ################################################################################################
// ################################################################################################
// # #
// # Adding some C functions not already in QB64 #
// # #
// ################################################################################################
//************************************
// ATAN2 _ATAN2
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39559);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ATAN2",6));
if(!qbevent)break;evnt(39560);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39561);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan2",5));
if(!qbevent)break;evnt(39562);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 2 ;
if(!qbevent)break;evnt(39563);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)));
if(!qbevent)break;evnt(39564);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39565);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39566);}while(r);
//************************************
// HYPOT _HYPOT
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39567);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_HYPOT",6));
if(!qbevent)break;evnt(39568);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39569);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("hypot",5));
if(!qbevent)break;evnt(39570);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 2 ;
if(!qbevent)break;evnt(39571);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)));
if(!qbevent)break;evnt(39572);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39573);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39574);}while(r);
//************************************
// ASIN _ASIN
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39575);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ASIN",5));
if(!qbevent)break;evnt(39576);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39577);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asin",4));
if(!qbevent)break;evnt(39578);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39579);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39580);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39581);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39582);}while(r);
//************************************
// ACOS _ACOS
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39583);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ACOS",5));
if(!qbevent)break;evnt(39584);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39585);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acos",4));
if(!qbevent)break;evnt(39586);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39587);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39588);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39589);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39590);}while(r);
//************************************
// SIN _SINH
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39591);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SINH",5));
if(!qbevent)break;evnt(39592);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39593);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sinh",4));
if(!qbevent)break;evnt(39594);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39595);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39596);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39597);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39598);}while(r);
//************************************
// COSH _COSH
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39599);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_COSH",5));
if(!qbevent)break;evnt(39600);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39601);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cosh",4));
if(!qbevent)break;evnt(39602);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39603);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39604);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39605);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39606);}while(r);
//************************************
// TANH _TANH
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39607);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_TANH",5));
if(!qbevent)break;evnt(39608);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39609);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tanh",4));
if(!qbevent)break;evnt(39610);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39611);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39612);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39613);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39614);}while(r);
//************************************
// ASIN _ASINH
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39615);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ASINH",6));
if(!qbevent)break;evnt(39616);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39617);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asinh",5));
if(!qbevent)break;evnt(39618);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39619);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39620);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39621);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39622);}while(r);
//************************************
// ACOSH _ACOSH
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39623);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ACOSH",6));
if(!qbevent)break;evnt(39624);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39625);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acosh",5));
if(!qbevent)break;evnt(39626);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39627);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39628);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39629);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39630);}while(r);
//************************************
// ATANH _ATANH
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39631);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ATANH",6));
if(!qbevent)break;evnt(39632);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39633);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atanh",5));
if(!qbevent)break;evnt(39634);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39635);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39636);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39637);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39638);}while(r);
//************************************
// CEIL _CEIL
//************************************
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39639);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CEIL",5));
if(!qbevent)break;evnt(39640);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39641);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("ceil",4));
if(!qbevent)break;evnt(39642);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 1 ;
if(!qbevent)break;evnt(39643);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(810)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER));
if(!qbevent)break;evnt(39644);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39645);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39646);}while(r);
// ################################################################################################? _pi
// # #
// # End of Expanded C Function Support #
// # #
// ################################################################################################
do{
SUB_CLEARID();
if(!qbevent)break;evnt(39647);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PI",3));
if(!qbevent)break;evnt(39648);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(39549);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pi",7));
if(!qbevent)break;evnt(39650);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(808))= 0 ;
if(!qbevent)break;evnt(39651);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2378))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(39652);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(39653);}while(r);

1
internal/source/User List.txt Normal file
View file

@ -0,0 +1 @@
#include "Steve Mods.txt"

161
internal/source/User Mods/Steve Stuff-ID_Includes.bi Normal file
View file

@ -0,0 +1,161 @@
clearid
id.n = "_D2R"
id.subfunc = 1
id.callname = "func_deg2rad"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_D2G"
id.subfunc = 1
id.callname = "func_deg2grad"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_R2D"
id.subfunc = 1
id.callname = "func_rad2deg"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_R2G"
id.subfunc = 1
id.callname = "func_rad2grad"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_G2D"
id.subfunc = 1
id.callname = "func_grad2deg"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_G2R"
id.subfunc = 1
id.callname = "func_grad2rad"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid 'Clear the old id info so we set the slate for a new one
id.n = "_ATAN2" 'The name of our new one
id.subfunc = 1 'And this is a function
id.callname = "atan2" 'The C name of the function
id.args = 2 'It takes 2 parameters to work
id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell
id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value
regid 'and we're finished with ID registration
clearid 'Clear the old id info so we set the slate for a new one
id.n = "_HYPOT" 'The name of our new one
id.subfunc = 1 'And this is a function
id.callname = "hypot" 'The C name of the function
id.args = 2 'It takes 2 parameters to work
id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell
id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value
regid 'and we're finished with ID registration
clearid
id.n = "_ASIN"
id.subfunc = 1
id.callname = "asin"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_ACOS"
id.subfunc = 1
id.callname = "acos"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_SINH"
id.subfunc = 1
id.callname = "sinh"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_COSH"
id.subfunc = 1
id.callname = "cosh"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_TANH"
id.subfunc = 1
id.callname = "tanh"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_ASINH"
id.subfunc = 1
id.callname = "asinh"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_ACOSH"
id.subfunc = 1
id.callname = "acosh"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_ATANH"
id.subfunc = 1
id.callname = "atanh"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_CEIL"
id.subfunc = 1
id.callname = "ceil"
id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER
regid
clearid
id.n = "_PI"
id.subfunc = 1
id.callname = "func_pi"
id.args = 0
id.ret = DOUBLETYPE - ISPOINTER
regid

1
internal/source/User Mods/User Mod List.bi Normal file
View file

@ -0,0 +1 @@
'$INCLUDE:'Steve Stuff-ID_Includes.bi'

11
internal/source/main.txt
View file

@ -86053,6 +86053,17 @@ if(!qbevent)break;evnt(23619);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(23620);}while(r);
// ***********************************************************************************************
// **
// ** User Mods
// **
// ***********************************************************************************************
#include "User List.txt"
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(23622);}while(r);

5
qb64.bas
View file

@ -23620,6 +23620,11 @@ id.NoCloud = 1
regid
reginternalsubfunc = 0
'Change on 06/19/2014 by Steve to allow for easier additions to the Code Id without
'people having to come into the QB64.bas source directly and make changes.
'$INCLUDE:'internal\source\User Mods\User Mod List.bi'
END SUB
'this sub is faulty atm!