mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
Resolved the issue of user mods not working for $console:only programs
This commit is contained in:
parent
1330f8fa14
commit
bdc3250b89
35 changed files with 608 additions and 768 deletions
|
@ -8460,6 +8460,49 @@ qbs *qbs_rtrim(qbs *str){
|
||||||
return tqbs;
|
return tqbs;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
int32 func__str_nc_compare(qbs *s1, qbs *s2) {
|
||||||
|
int32 limit, l1, l2;
|
||||||
|
int32 v1, v2;
|
||||||
|
unsigned char *c1=s1->chr, *c2=s2->chr;
|
||||||
|
|
||||||
|
l1 = s1->len; l2 = s2->len; //no need to get the length of these strings multiple times.
|
||||||
|
if (!l1) {
|
||||||
|
if (l2) return -1; else return 0; //if one is a null string we known the answer already.
|
||||||
|
}
|
||||||
|
if (!l2) return 1;
|
||||||
|
if (l1<=l2) limit = l1; else limit = l2; //our limit is going to be the length of the smallest string.
|
||||||
|
|
||||||
|
for (int32 i=0;i<limit; i++) { //check the length of our string
|
||||||
|
v1=*c1;v2=*c2;
|
||||||
|
if ((v1>64)&&(v1<91)) v1=v1|32;
|
||||||
|
if ((v2>64)&&(v2<91)) v2=v2|32;
|
||||||
|
if (v1<v2) return -1;
|
||||||
|
if (v1>v2) return 1;
|
||||||
|
c1++;
|
||||||
|
c2++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (l1<l2) return -1;
|
||||||
|
if (l2>l1) return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
int32 func__str_compare(qbs *s1, qbs *s2) {
|
||||||
|
int32 i, limit, l1, l2;
|
||||||
|
l1 = s1->len; l2 = s2->len; //no need to get the length of these strings multiple times.
|
||||||
|
if (!l1) {
|
||||||
|
if (l2) return -1; else return 0; //if one is a null string we known the answer already.
|
||||||
|
}
|
||||||
|
if (!l2) return 1;
|
||||||
|
if (l1<=l2) limit = l1; else limit = l2;
|
||||||
|
i=memcmp(s1->chr,s2->chr,limit);
|
||||||
|
if (i<0) return -1;
|
||||||
|
if (i>0) return 1;
|
||||||
|
if (l1<l2) return -1;
|
||||||
|
if (l1>l2) return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
qbs *qbs_inkey(){
|
qbs *qbs_inkey(){
|
||||||
if (new_error) return qbs_new(0,1);
|
if (new_error) return qbs_new(0,1);
|
||||||
qbs *tqbs;
|
qbs *tqbs;
|
||||||
|
@ -8485,6 +8528,26 @@ qbs *qbs_inkey(){
|
||||||
return tqbs;
|
return tqbs;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void sub__keyclear(int32 buf, int32 passed) {
|
||||||
|
if (new_error) return;
|
||||||
|
if (passed && (buf > 3 || buf < 1)) error(5);
|
||||||
|
// Sleep(10);
|
||||||
|
if ((buf == 1 && passed) || !passed) {
|
||||||
|
//INKEY$ buffer
|
||||||
|
cmem[0x41a]=30; cmem[0x41b]=0; //head
|
||||||
|
cmem[0x41c]=30; cmem[0x41d]=0; //tail
|
||||||
|
}
|
||||||
|
if ((buf == 2 && passed) || !passed) {
|
||||||
|
//_KEYHIT buffer
|
||||||
|
keyhit_nextfree = 0;
|
||||||
|
keyhit_next = 0;
|
||||||
|
}
|
||||||
|
if ((buf == 3 && passed) || !passed) {
|
||||||
|
//INP(&H60) buffer
|
||||||
|
port60h_events = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
//STR() functions
|
//STR() functions
|
||||||
//singed integers
|
//singed integers
|
||||||
qbs *qbs_str(int64 value){
|
qbs *qbs_str(int64 value){
|
||||||
|
@ -12285,6 +12348,10 @@ void sub__controlchr(int32 onoff){
|
||||||
if (onoff==2) no_control_characters2=1; else no_control_characters2=0;
|
if (onoff==2) no_control_characters2=1; else no_control_characters2=0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
int32 func__controlchr () {
|
||||||
|
return -no_control_characters2;
|
||||||
|
}
|
||||||
|
|
||||||
void qbs_print(qbs* str,int32 finish_on_new_line){
|
void qbs_print(qbs* str,int32 finish_on_new_line){
|
||||||
if (new_error) return;
|
if (new_error) return;
|
||||||
int32 i,i2,entered_new_line,x,x2,y,y2,z,z2,w;
|
int32 i,i2,entered_new_line,x,x2,y,y2,z,z2,w;
|
||||||
|
@ -22519,6 +22586,85 @@ int32 func__loadfont(qbs *f,int32 size,qbs *requirements,int32 passed){
|
||||||
}//sub__icon
|
}//sub__icon
|
||||||
#endif //DEPENDENCY_ICON
|
#endif //DEPENDENCY_ICON
|
||||||
|
|
||||||
|
int32 func_screenwidth () {
|
||||||
|
#ifdef QB64_GLUT
|
||||||
|
while (!window_exists){Sleep(100);}
|
||||||
|
#ifdef QB64_WINDOWS
|
||||||
|
while (!window_handle){Sleep(100);}
|
||||||
|
#endif
|
||||||
|
return glutGet(GLUT_SCREEN_WIDTH);
|
||||||
|
#else
|
||||||
|
return 0;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int32 func_screenheight () {
|
||||||
|
#ifdef QB64_GLUT
|
||||||
|
while (!window_exists){Sleep(100);}
|
||||||
|
#ifdef QB64_WINDOWS
|
||||||
|
while (!window_handle){Sleep(100);}
|
||||||
|
#endif
|
||||||
|
return glutGet(GLUT_SCREEN_HEIGHT);
|
||||||
|
#else
|
||||||
|
return 0;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
void sub_screenicon () {
|
||||||
|
#ifdef QB64_GLUT
|
||||||
|
while (!window_exists){Sleep(100);}
|
||||||
|
#ifdef QB64_WINDOWS
|
||||||
|
while (!window_handle){Sleep(100);}
|
||||||
|
#endif
|
||||||
|
glutIconifyWindow();
|
||||||
|
return;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int32 func_windowexists () {
|
||||||
|
#ifdef QB64_GLUT
|
||||||
|
#ifdef QB64_WINDOWS
|
||||||
|
if (!window_handle){return 0;}
|
||||||
|
#endif
|
||||||
|
return -window_exists;
|
||||||
|
#else
|
||||||
|
return -1;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int32 func_screenicon () {
|
||||||
|
#ifdef QB64_GLUT
|
||||||
|
while (!window_exists){Sleep(100);}
|
||||||
|
#ifdef QB64_WINDOWS
|
||||||
|
while (!window_handle){Sleep(100);}
|
||||||
|
#endif
|
||||||
|
extern int32 screen_hide;
|
||||||
|
if (screen_hide) {error(5); return 0;}
|
||||||
|
#ifdef QB64_WINDOWS
|
||||||
|
return -IsIconic(window_handle);
|
||||||
|
#else
|
||||||
|
/*
|
||||||
|
Linux code not compiling for now
|
||||||
|
#include <X11/X.h>
|
||||||
|
#include <X11/Xlib.h>
|
||||||
|
extern Display *X11_display;
|
||||||
|
extern Window X11_window;
|
||||||
|
extern int32 screen_hide;
|
||||||
|
XWindowAttributes attribs;
|
||||||
|
while (!(X11_display && X11_window));
|
||||||
|
XGetWindowAttributes(X11_display, X11_window, &attribs);
|
||||||
|
if (attribs.map_state == IsUnmapped) return -1;
|
||||||
|
return 0;
|
||||||
|
#endif */
|
||||||
|
return 0; //if we get here and haven't exited already, we failed somewhere along the way.
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int32 func__autodisplay () {
|
||||||
|
if (autodisplay) {return -1;}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
void sub__autodisplay(){
|
void sub__autodisplay(){
|
||||||
autodisplay=1;
|
autodisplay=1;
|
||||||
}
|
}
|
||||||
|
@ -29376,7 +29522,82 @@ void sub__maptriangle(int32 cull_options,float sx1,float sy1,float sx2,float sy2
|
||||||
return b;
|
return b;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Extra maths functions - we do what we must because we can */
|
||||||
|
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);
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_pi (double multiplier,int32 passed) {
|
||||||
|
if (passed) {return 3.14159265358979323846264338327950288419716939937510582 * multiplier;}
|
||||||
|
return (3.14159265358979323846264338327950288419716939937510582);
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_arcsec (double num) {
|
||||||
|
int sign = (num > 0) - (num < 0);
|
||||||
|
if (num<-1||num>1) {error(5);return 0;}
|
||||||
|
return atan(num / sqrt(1 - num * num)) + (sign - 1) * (2 * atan(1));
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_arccsc (double num) {
|
||||||
|
int sign = (num > 0) - (num < 0);
|
||||||
|
if (num<-1||num>1) {error(5);return 0;}
|
||||||
|
return atan(num / sqrt(1 - num * num)) + (sign - 1) * (2 * atan(1));
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_arccot (double num) {return 2 * atan(1) - atan(num);}
|
||||||
|
|
||||||
|
double func_sech (double num) {
|
||||||
|
if (num>88.02969) {error(5);return 0;}
|
||||||
|
if (exp(num) + exp(-num)==0) {error(5);return 0;}
|
||||||
|
return 2/ (exp(num) + exp(-num));
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_csch (double num) {
|
||||||
|
if (num>88.02969) {error(5);return 0;}
|
||||||
|
if (exp(num) - exp(-num)==0) {error(5);return 0;}
|
||||||
|
return 2/ (exp(num) - exp(-num));
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_coth (double num) {
|
||||||
|
if (num>44.014845) {error(5);return 0;}
|
||||||
|
if (2 * exp(num) - 1==0) {error(5);return 0;}
|
||||||
|
return 2 * exp(num) - 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_sec (double num) {
|
||||||
|
if (cos(num)==0) {error(5);return 0;}
|
||||||
|
return 1/cos(num);
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_csc (double num) {
|
||||||
|
if (sin(num)==0) {error(5);return 0;}
|
||||||
|
return 1/sin(num);
|
||||||
|
}
|
||||||
|
|
||||||
|
double func_cot (double num) {
|
||||||
|
if (tan(num)==0) {error(5);return 0;}
|
||||||
|
return 1/tan(num);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
void GLUT_key_ascii(int32 key,int32 down){
|
void GLUT_key_ascii(int32 key,int32 down){
|
||||||
|
|
|
@ -1,5 +0,0 @@
|
||||||
/* Routines by Luke
|
|
||||||
* The actual code is in luke_mods.cpp
|
|
||||||
* Write me at <flukiluke@gmail.com> if I broke something
|
|
||||||
*/
|
|
||||||
void sub__keyclear(int32 buf, int32 passed);
|
|
|
@ -1,40 +0,0 @@
|
||||||
|
|
||||||
//***************************************************************
|
|
||||||
//**
|
|
||||||
//** Declarations for routines proved by Steve McNeill
|
|
||||||
//** Email: smcneill@swva.net
|
|
||||||
//**
|
|
||||||
//****************************************************************
|
|
||||||
|
|
||||||
//Angle Conversion Formulas
|
|
||||||
double func_deg2rad(double degree);
|
|
||||||
double func_deg2grad(double degree);
|
|
||||||
double func_rad2deg(double degree);
|
|
||||||
double func_rad2grad(double degree);
|
|
||||||
double func_grad2deg(double degree);
|
|
||||||
double func_grad2rad(double degree);
|
|
||||||
|
|
||||||
double func_pi(double multiplier,int32 passed);
|
|
||||||
int32 func_screenwidth();
|
|
||||||
int32 func_screenheight();
|
|
||||||
void sub_screenicon();
|
|
||||||
int32 func_windowexists ();
|
|
||||||
int32 func__controlchr();
|
|
||||||
int32 func__str_nc_compare(qbs *s1, qbs *s2);
|
|
||||||
int32 func__str_compare(qbs *s1, qbs *s2);
|
|
||||||
double func_arcsec (double num);
|
|
||||||
double func_arccsc (double num);
|
|
||||||
double func_arccot (double num);
|
|
||||||
double func_sech (double num);
|
|
||||||
double func_csch (double num);
|
|
||||||
double func_coth (double num);
|
|
||||||
double func_sec (double num);
|
|
||||||
double func_csc (double num);
|
|
||||||
double func_cot (double num);
|
|
||||||
int32 func_screenicon ();
|
|
||||||
|
|
||||||
#ifdef QB64_WINDOWS
|
|
||||||
extern HWND window_handle;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
int32 func__autodisplay ();
|
|
|
@ -1,13 +0,0 @@
|
||||||
//************************************************************
|
|
||||||
//**
|
|
||||||
//** 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 "luke_mods.h"
|
|
||||||
#include "steve_mods.h"
|
|
|
@ -1,14 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
gcc -I../../../../ -DFREEGLUT_STATIC -I../../include -c ../../src/luke_mods.cpp -o temp/luke_mods.o
|
|
||||||
gcc -I../../../../ -DFREEGLUT_STATIC -I../../include -c ../../src/steve_mods.cpp -o temp/steve_mods.o
|
|
||||||
ar rcs src.a temp/steve_mods.o temp/luke_mods.o
|
|
||||||
echo "Press any key to continue..."
|
|
||||||
Pause()
|
|
||||||
{
|
|
||||||
OLDCONFIG=`stty -g`
|
|
||||||
stty -icanon -echo min 1 time 0
|
|
||||||
dd count=1 2>/dev/null
|
|
||||||
stty $OLDCONFIG
|
|
||||||
}
|
|
||||||
Pause
|
|
||||||
|
|
|
@ -1,4 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
gcc -I../../../../ -DFREEGLUT_STATIC -I../../include -c ../../src/luke_mods.cpp -o temp/luke_mods.o
|
|
||||||
gcc -I../../../../ -DFREEGLUT_STATIC -I../../include -c ../../src/steve_mods.cpp -o temp/steve_mods.o
|
|
||||||
ar rcs src.a temp/steve_mods.o temp/luke_mods.o
|
|
|
@ -1,15 +0,0 @@
|
||||||
cd "$(dirname "$0")"
|
|
||||||
|
|
||||||
gcc -I../../../../ -I../../include -c ../../src/luke_mods.cpp -o temp/luke_mods.o
|
|
||||||
gcc -I../../../../ -I../../include -c ../../src/steve_mods.cpp -o temp/steve_mods.o
|
|
||||||
ar rcs src.a temp/steve_mods.o temp/luke_mods.o
|
|
||||||
|
|
||||||
echo "Press any key to continue..."
|
|
||||||
Pause()
|
|
||||||
{
|
|
||||||
OLDCONFIG=`stty -g`
|
|
||||||
stty -icanon -echo min 1 time 0
|
|
||||||
dd count=1 2>/dev/null
|
|
||||||
stty $OLDCONFIG
|
|
||||||
}
|
|
||||||
Pause
|
|
|
@ -1,5 +0,0 @@
|
||||||
cd "$(dirname "$0")"
|
|
||||||
|
|
||||||
gcc -I../../../../ -I../../include -c ../../src/luke_mods.cpp -o temp/luke_mods.o
|
|
||||||
gcc -I../../../../ -I../../include -c ../../src/steve_mods.cpp -o temp/steve_mods.o
|
|
||||||
ar rcs src.a temp/steve_mods.o temp/luke_mods.o
|
|
|
@ -1,4 +0,0 @@
|
||||||
..\..\..\..\c_compiler\bin\gcc -DFREEGLUT_STATIC -I..\..\..\..\ -I..\..\include -c ..\..\src\luke_mods.cpp -o temp\luke_mods.o
|
|
||||||
..\..\..\..\c_compiler\bin\gcc -DFREEGLUT_STATIC -I..\..\..\..\ -I..\..\include -c ..\..\src\steve_mods.cpp -o temp\steve_mods.o
|
|
||||||
..\..\..\..\c_compiler\bin\ar rcs src.a temp\steve_mods.o temp\luke_mods.o
|
|
||||||
pause
|
|
|
@ -1,3 +0,0 @@
|
||||||
..\..\..\..\c_compiler\bin\gcc -DFREEGLUT_STATIC -I..\..\..\..\ -I..\..\include -c ..\..\src\luke_mods.cpp -o temp\luke_mods.o
|
|
||||||
..\..\..\..\c_compiler\bin\gcc -DFREEGLUT_STATIC -I..\..\..\..\ -I..\..\include -c ..\..\src\steve_mods.cpp -o temp\steve_mods.o
|
|
||||||
..\..\..\..\c_compiler\bin\ar rcs src.a temp\steve_mods.o temp\luke_mods.o
|
|
|
@ -1,5 +0,0 @@
|
||||||
#ifndef DEPENDENCY_USER_MODS
|
|
||||||
//No stubs required
|
|
||||||
#else
|
|
||||||
#include "include/user_mods.h"
|
|
||||||
#endif
|
|
|
@ -1,28 +0,0 @@
|
||||||
// ******************************************************************************************************
|
|
||||||
// ** 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);
|
|
||||||
}
|
|
||||||
|
|
|
@ -1,51 +0,0 @@
|
||||||
double func_pi (double multiplier,int32 passed) {
|
|
||||||
if (passed) {return 3.14159265358979323846264338327950288419716939937510582 * multiplier;}
|
|
||||||
return (3.14159265358979323846264338327950288419716939937510582);
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_arcsec (double num) {
|
|
||||||
int sign = (num > 0) - (num < 0);
|
|
||||||
if (num<-1||num>1) {error(5);return 0;}
|
|
||||||
return atan(num / sqrt(1 - num * num)) + (sign - 1) * (2 * atan(1));
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_arccsc (double num) {
|
|
||||||
int sign = (num > 0) - (num < 0);
|
|
||||||
if (num<-1||num>1) {error(5);return 0;}
|
|
||||||
return atan(num / sqrt(1 - num * num)) + (sign - 1) * (2 * atan(1));
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_arccot (double num) {return 2 * atan(1) - atan(num);}
|
|
||||||
|
|
||||||
double func_sech (double num) {
|
|
||||||
if (num>88.02969) {error(5);return 0;}
|
|
||||||
if (exp(num) + exp(-num)==0) {error(5);return 0;}
|
|
||||||
return 2/ (exp(num) + exp(-num));
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_csch (double num) {
|
|
||||||
if (num>88.02969) {error(5);return 0;}
|
|
||||||
if (exp(num) - exp(-num)==0) {error(5);return 0;}
|
|
||||||
return 2/ (exp(num) - exp(-num));
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_coth (double num) {
|
|
||||||
if (num>44.014845) {error(5);return 0;}
|
|
||||||
if (2 * exp(num) - 1==0) {error(5);return 0;}
|
|
||||||
return 2 * exp(num) - 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_sec (double num) {
|
|
||||||
if (cos(num)==0) {error(5);return 0;}
|
|
||||||
return 1/cos(num);
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_csc (double num) {
|
|
||||||
if (sin(num)==0) {error(5);return 0;}
|
|
||||||
return 1/sin(num);
|
|
||||||
}
|
|
||||||
|
|
||||||
double func_cot (double num) {
|
|
||||||
if (tan(num)==0) {error(5);return 0;}
|
|
||||||
return 1/tan(num);
|
|
||||||
}
|
|
|
@ -1,68 +0,0 @@
|
||||||
int32 func_screenwidth () {
|
|
||||||
while (!window_exists){Sleep(100);}
|
|
||||||
#ifdef QB64_WINDOWS
|
|
||||||
while (!window_handle){Sleep(100);}
|
|
||||||
#endif
|
|
||||||
return glutGet(GLUT_SCREEN_WIDTH);
|
|
||||||
}
|
|
||||||
|
|
||||||
int32 func_screenheight () {
|
|
||||||
while (!window_exists){Sleep(100);}
|
|
||||||
#ifdef QB64_WINDOWS
|
|
||||||
while (!window_handle){Sleep(100);}
|
|
||||||
#endif
|
|
||||||
return glutGet(GLUT_SCREEN_HEIGHT);
|
|
||||||
}
|
|
||||||
|
|
||||||
void sub_screenicon () {
|
|
||||||
while (!window_exists){Sleep(100);}
|
|
||||||
#ifdef QB64_WINDOWS
|
|
||||||
while (!window_handle){Sleep(100);}
|
|
||||||
#endif
|
|
||||||
glutIconifyWindow();
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
int32 func_windowexists () {
|
|
||||||
#ifdef QB64_WINDOWS
|
|
||||||
if (!window_handle){return 0;}
|
|
||||||
#endif
|
|
||||||
return -window_exists;
|
|
||||||
}
|
|
||||||
|
|
||||||
int32 func__controlchr () {
|
|
||||||
return -no_control_characters2;
|
|
||||||
}
|
|
||||||
|
|
||||||
int32 func_screenicon () {
|
|
||||||
while (!window_exists){Sleep(100);}
|
|
||||||
#ifdef QB64_WINDOWS
|
|
||||||
while (!window_handle){Sleep(100);}
|
|
||||||
#endif
|
|
||||||
extern int32 screen_hide;
|
|
||||||
if (screen_hide) {error(5); return 0;}
|
|
||||||
#ifdef QB64_WINDOWS
|
|
||||||
#include <windows.h>
|
|
||||||
return -IsIconic(window_handle);
|
|
||||||
#else
|
|
||||||
/*
|
|
||||||
Linux code not compiling for now
|
|
||||||
#include <X11/X.h>
|
|
||||||
#include <X11/Xlib.h>
|
|
||||||
extern Display *X11_display;
|
|
||||||
extern Window X11_window;
|
|
||||||
extern int32 screen_hide;
|
|
||||||
XWindowAttributes attribs;
|
|
||||||
while (!(X11_display && X11_window));
|
|
||||||
XGetWindowAttributes(X11_display, X11_window, &attribs);
|
|
||||||
if (attribs.map_state == IsUnmapped) return -1;
|
|
||||||
return 0;
|
|
||||||
#endif */
|
|
||||||
return 0; //if we get here and haven't exited already, we failed somewhere along the way.
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
|
|
||||||
int32 func__autodisplay () {
|
|
||||||
if (autodisplay) {return -1;}
|
|
||||||
return 0;
|
|
||||||
}
|
|
|
@ -1,45 +0,0 @@
|
||||||
#include <stdlib.h>
|
|
||||||
|
|
||||||
int32 func__str_nc_compare(qbs *s1, qbs *s2) {
|
|
||||||
int32 limit, l1, l2;
|
|
||||||
int32 v1, v2;
|
|
||||||
unsigned char *c1=s1->chr, *c2=s2->chr;
|
|
||||||
|
|
||||||
l1 = s1->len; l2 = s2->len; //no need to get the length of these strings multiple times.
|
|
||||||
if (!l1) {
|
|
||||||
if (l2) return -1; else return 0; //if one is a null string we known the answer already.
|
|
||||||
}
|
|
||||||
if (!l2) return 1;
|
|
||||||
if (l1<=l2) limit = l1; else limit = l2; //our limit is going to be the length of the smallest string.
|
|
||||||
|
|
||||||
for (int32 i=0;i<limit; i++) { //check the length of our string
|
|
||||||
v1=*c1;v2=*c2;
|
|
||||||
if ((v1>64)&&(v1<91)) v1=v1|32;
|
|
||||||
if ((v2>64)&&(v2<91)) v2=v2|32;
|
|
||||||
if (v1<v2) return -1;
|
|
||||||
if (v1>v2) return 1;
|
|
||||||
c1++;
|
|
||||||
c2++;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (l1<l2) return -1;
|
|
||||||
if (l2>l1) return 1;
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
int32 func__str_compare(qbs *s1, qbs *s2) {
|
|
||||||
int32 i, limit, l1, l2;
|
|
||||||
l1 = s1->len; l2 = s2->len; //no need to get the length of these strings multiple times.
|
|
||||||
if (!l1) {
|
|
||||||
if (l2) return -1; else return 0; //if one is a null string we known the answer already.
|
|
||||||
}
|
|
||||||
if (!l2) return 1;
|
|
||||||
if (l1<=l2) limit = l1; else limit = l2;
|
|
||||||
i=memcmp(s1->chr,s2->chr,limit);
|
|
||||||
if (i<0) return -1;
|
|
||||||
if (i>0) return 1;
|
|
||||||
if (l1<l2) return -1;
|
|
||||||
if (l1>l2) return 1;
|
|
||||||
return 0;
|
|
||||||
}
|
|
|
@ -1,25 +0,0 @@
|
||||||
#include <stdlib.h>
|
|
||||||
#include <string.h>
|
|
||||||
#include <errno.h>
|
|
||||||
#include "libqb.h"
|
|
||||||
#include "luke_mods.h"
|
|
||||||
|
|
||||||
void sub__keyclear(int32 buf, int32 passed) {
|
|
||||||
if (new_error) return;
|
|
||||||
if (passed && (buf > 3 || buf < 1)) error(5);
|
|
||||||
// Sleep(10);
|
|
||||||
if ((buf == 1 && passed) || !passed) {
|
|
||||||
//INKEY$ buffer
|
|
||||||
cmem[0x41a]=30; cmem[0x41b]=0; //head
|
|
||||||
cmem[0x41c]=30; cmem[0x41d]=0; //tail
|
|
||||||
}
|
|
||||||
if ((buf == 2 && passed) || !passed) {
|
|
||||||
//_KEYHIT buffer
|
|
||||||
keyhit_nextfree = 0;
|
|
||||||
keyhit_next = 0;
|
|
||||||
}
|
|
||||||
if ((buf == 3 && passed) || !passed) {
|
|
||||||
//INP(&H60) buffer
|
|
||||||
port60h_events = 0;
|
|
||||||
}
|
|
||||||
}
|
|
|
@ -1,8 +0,0 @@
|
||||||
#include "libqb.h"
|
|
||||||
#include "steve_mods.h"
|
|
||||||
|
|
||||||
#include "Steve Stuff/convert_angle.cpp"
|
|
||||||
#include "Steve Stuff/extramath.cpp"
|
|
||||||
#include "Steve Stuff/stringcomp.cpp"
|
|
||||||
#include "Steve Stuff/screeninfo.cpp"
|
|
||||||
|
|
|
@ -27,9 +27,4 @@ del parts\audio\out\os\win\temp\*.o
|
||||||
del parts\audio\out\os\lnx\temp\*.o
|
del parts\audio\out\os\lnx\temp\*.o
|
||||||
|
|
||||||
del parts\video\font\ttf\os\win\src.o
|
del parts\video\font\ttf\os\win\src.o
|
||||||
del parts\video\font\ttf\os\lnx\src.o
|
del parts\video\font\ttf\os\lnx\src.o
|
||||||
|
|
||||||
del parts\user_mods\os\win\src.a
|
|
||||||
del parts\user_mods\os\lnx\src.a
|
|
||||||
del parts\user_mods\os\win\temp\*.o
|
|
||||||
del parts\user_mods\os\lnx\temp\*.o
|
|
|
@ -29,9 +29,4 @@ rm parts/audio/out/os/win/temp/*.o
|
||||||
rm parts/audio/out/os/lnx/temp/*.o
|
rm parts/audio/out/os/lnx/temp/*.o
|
||||||
|
|
||||||
rm parts/video/font/ttf/os/win/src.o
|
rm parts/video/font/ttf/os/win/src.o
|
||||||
rm parts/video/font/ttf/os/lnx/src.o
|
rm parts/video/font/ttf/os/lnx/src.o
|
||||||
|
|
||||||
rm parts/user_mods/os/win/src.a
|
|
||||||
rm parts/user_mods/os/lnx/src.a
|
|
||||||
rm parts/user_mods/os/win/temp/*.o
|
|
||||||
rm parts/user_mods/os/lnx/temp/*.o
|
|
|
@ -29,9 +29,4 @@ rm parts/audio/out/os/win/temp/*.o
|
||||||
rm parts/audio/out/os/lnx/temp/*.o
|
rm parts/audio/out/os/lnx/temp/*.o
|
||||||
|
|
||||||
rm parts/video/font/ttf/os/win/src.o
|
rm parts/video/font/ttf/os/win/src.o
|
||||||
rm parts/video/font/ttf/os/lnx/src.o
|
rm parts/video/font/ttf/os/lnx/src.o
|
||||||
|
|
||||||
rm parts/user_mods/os/win/src.a
|
|
||||||
rm parts/user_mods/os/lnx/src.a
|
|
||||||
rm parts/user_mods/os/win/temp/*.o
|
|
||||||
rm parts/user_mods/os/lnx/temp/*.o
|
|
|
@ -29,10 +29,4 @@ rm parts/audio/out/os/win/temp/*.o
|
||||||
rm parts/audio/out/os/lnx/temp/*.o
|
rm parts/audio/out/os/lnx/temp/*.o
|
||||||
|
|
||||||
rm parts/video/font/ttf/os/win/src.o
|
rm parts/video/font/ttf/os/win/src.o
|
||||||
rm parts/video/font/ttf/os/lnx/src.o
|
rm parts/video/font/ttf/os/lnx/src.o
|
||||||
|
|
||||||
rm parts/user_mods/os/win/src.a
|
|
||||||
rm parts/user_mods/os/lnx/src.a
|
|
||||||
rm parts/user_mods/os/win/temp/*.o
|
|
||||||
rm parts/user_mods/os/lnx/temp/*.o
|
|
||||||
|
|
|
@ -29,10 +29,4 @@ rm parts/audio/out/os/win/temp/*.o
|
||||||
rm parts/audio/out/os/lnx/temp/*.o
|
rm parts/audio/out/os/lnx/temp/*.o
|
||||||
|
|
||||||
rm parts/video/font/ttf/os/win/src.o
|
rm parts/video/font/ttf/os/win/src.o
|
||||||
rm parts/video/font/ttf/os/lnx/src.o
|
rm parts/video/font/ttf/os/lnx/src.o
|
||||||
|
|
||||||
rm parts/user_mods/os/win/src.a
|
|
||||||
rm parts/user_mods/os/lnx/src.a
|
|
||||||
rm parts/user_mods/os/win/temp/*.o
|
|
||||||
rm parts/user_mods/os/lnx/temp/*.o
|
|
||||||
|
|
|
@ -27,9 +27,4 @@ del parts\audio\out\os\win\temp\*.o
|
||||||
del parts\audio\out\os\lnx\temp\*.o
|
del parts\audio\out\os\lnx\temp\*.o
|
||||||
|
|
||||||
del parts\video\font\ttf\os\win\src.o
|
del parts\video\font\ttf\os\win\src.o
|
||||||
del parts\video\font\ttf\os\lnx\src.o
|
del parts\video\font\ttf\os\lnx\src.o
|
||||||
|
|
||||||
del parts\user_mods\os\win\src.a
|
|
||||||
del parts\user_mods\os\lnx\src.a
|
|
||||||
del parts\user_mods\os\win\temp\*.o
|
|
||||||
del parts\user_mods\os\lnx\temp\*.o
|
|
|
@ -9,8 +9,6 @@
|
||||||
#include <cmath>
|
#include <cmath>
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include "parts/user_mods/src.cpp"
|
|
||||||
|
|
||||||
/* testing only
|
/* testing only
|
||||||
#ifdef QB64_WINDOWS
|
#ifdef QB64_WINDOWS
|
||||||
|
|
||||||
|
@ -196,9 +194,15 @@ extern void sub__consoletitle(qbs*);
|
||||||
extern void sub__screenshow();
|
extern void sub__screenshow();
|
||||||
extern void sub__screenhide();
|
extern void sub__screenhide();
|
||||||
extern int32 func__screenhide();
|
extern int32 func__screenhide();
|
||||||
|
extern int32 func_windowexists();
|
||||||
|
extern int32 func_screenicon();
|
||||||
|
extern int32 func_screenwidth();
|
||||||
|
extern int32 func_screenheight();
|
||||||
|
extern void sub_screenicon();
|
||||||
extern void sub__console(int32);
|
extern void sub__console(int32);
|
||||||
extern int32 func__console();
|
extern int32 func__console();
|
||||||
extern void sub__controlchr(int32);
|
extern void sub__controlchr(int32);
|
||||||
|
extern int32 func__controlchr();
|
||||||
extern void sub__blink(int32);
|
extern void sub__blink(int32);
|
||||||
extern int32 func__blink();
|
extern int32 func__blink();
|
||||||
extern int32 func__hasfocus();
|
extern int32 func__hasfocus();
|
||||||
|
@ -346,6 +350,8 @@ extern void sub_mid(qbs *dest,int32 start,int32 l,qbs* src,int32 passed);
|
||||||
extern qbs *func_mid(qbs *str,int32 start,int32 l,int32 passed);
|
extern qbs *func_mid(qbs *str,int32 start,int32 l,int32 passed);
|
||||||
extern qbs *qbs_ltrim(qbs *str);
|
extern qbs *qbs_ltrim(qbs *str);
|
||||||
extern qbs *qbs_rtrim(qbs *str);
|
extern qbs *qbs_rtrim(qbs *str);
|
||||||
|
extern int32 func__str_nc_compare(qbs *s1, qbs *s2);
|
||||||
|
extern int32 func__str_compare(qbs *s1, qbs *s2);
|
||||||
extern qbs *qbs_inkey();
|
extern qbs *qbs_inkey();
|
||||||
extern qbs *qbs_str(int64 value);
|
extern qbs *qbs_str(int64 value);
|
||||||
extern qbs *qbs_str(int32 value);
|
extern qbs *qbs_str(int32 value);
|
||||||
|
@ -364,6 +370,22 @@ extern int32 qbs_greaterthan(qbs *str1,qbs *str2);
|
||||||
extern int32 qbs_lessthan(qbs *str1,qbs *str2);
|
extern int32 qbs_lessthan(qbs *str1,qbs *str2);
|
||||||
extern int32 qbs_lessorequal(qbs *str1,qbs *str2);
|
extern int32 qbs_lessorequal(qbs *str1,qbs *str2);
|
||||||
extern int32 qbs_greaterorequal(qbs *str1,qbs *str2);
|
extern int32 qbs_greaterorequal(qbs *str1,qbs *str2);
|
||||||
|
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_arcsec (double num);
|
||||||
|
extern double func_arccsc (double num);
|
||||||
|
extern double func_arccot (double num);
|
||||||
|
extern double func_sech (double num);
|
||||||
|
extern double func_csch (double num);
|
||||||
|
extern double func_coth (double num);
|
||||||
|
extern double func_sec (double num);
|
||||||
|
extern double func_csc (double num);
|
||||||
|
extern double func_cot (double num);
|
||||||
|
extern double func_pi(double multiplier,int32 passed);
|
||||||
extern int32 qbs_asc(qbs*);
|
extern int32 qbs_asc(qbs*);
|
||||||
extern int32 qbs_asc(qbs*,uint32);
|
extern int32 qbs_asc(qbs*,uint32);
|
||||||
extern int32 qbs_len(qbs *str);
|
extern int32 qbs_len(qbs *str);
|
||||||
|
@ -1058,6 +1080,7 @@ void sub__icon(int32 i, int32 i2, int32 passed);
|
||||||
|
|
||||||
void sub__display();
|
void sub__display();
|
||||||
void sub__autodisplay();
|
void sub__autodisplay();
|
||||||
|
int32 func__autodisplay();
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -183,12 +183,6 @@ else
|
||||||
./setup_build.sh
|
./setup_build.sh
|
||||||
cd ../../../../../../../..
|
cd ../../../../../../../..
|
||||||
|
|
||||||
echo "Building User Additions"
|
|
||||||
cd internal/c/parts/user_mods/os/lnx
|
|
||||||
rm -f src.a
|
|
||||||
./setup_build.sh
|
|
||||||
cd ../../../../../..
|
|
||||||
|
|
||||||
echo "Building library 'Core:FreeGLUT'"
|
echo "Building library 'Core:FreeGLUT'"
|
||||||
cd internal/c/parts/core/os/lnx
|
cd internal/c/parts/core/os/lnx
|
||||||
rm -f src.a
|
rm -f src.a
|
||||||
|
@ -198,7 +192,7 @@ else
|
||||||
echo "Building 'QB64'"
|
echo "Building 'QB64'"
|
||||||
cp -r ./internal/source/* ./internal/temp/
|
cp -r ./internal/source/* ./internal/temp/
|
||||||
cd internal/c
|
cd internal/c
|
||||||
g++ -w qbx.cpp parts/user_mods/os/lnx/src.a libqb/os/lnx/libqb_setup.o parts/video/font/ttf/os/lnx/src.o parts/core/os/lnx/src.a -lGL -lGLU -lX11 -lpthread -ldl -lrt -D FREEGLUT_STATIC -DDEPENDENCY_USER_MODS -o ../../qb64
|
g++ -w qbx.cpp libqb/os/lnx/libqb_setup.o parts/video/font/ttf/os/lnx/src.o parts/core/os/lnx/src.a -lGL -lGLU -lX11 -lpthread -ldl -lrt -D FREEGLUT_STATIC -o ../../qb64
|
||||||
cd ../..
|
cd ../..
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
|
|
@ -44,17 +44,6 @@ if [ ! -f ./src.o ]; then
|
||||||
fi
|
fi
|
||||||
cd ../../../../../../../..
|
cd ../../../../../../../..
|
||||||
|
|
||||||
echo "Building User Additions"
|
|
||||||
cd internal/c/parts/user_mods/os/osx
|
|
||||||
rm -f src.a
|
|
||||||
./setup_build.command
|
|
||||||
if [ ! -f ./src.a ]; then
|
|
||||||
echo "Compilation of ./internal/c/parts/user_mods/os/osx/src.a failed!"
|
|
||||||
Pause
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
cd ../../../../../..
|
|
||||||
|
|
||||||
echo "Building 'QB64' (~3 min)"
|
echo "Building 'QB64' (~3 min)"
|
||||||
cp ./internal/source/* ./internal/temp/
|
cp ./internal/source/* ./internal/temp/
|
||||||
cd internal/c
|
cd internal/c
|
||||||
|
|
|
@ -27,12 +27,6 @@ if exist src.o del src.o
|
||||||
call setup_build.bat
|
call setup_build.bat
|
||||||
cd ../../../../../../../..
|
cd ../../../../../../../..
|
||||||
|
|
||||||
echo Building User Additions
|
|
||||||
cd internal/c/parts/user_mods/os/win
|
|
||||||
if exist src.a del src.a
|
|
||||||
call setup_build.bat
|
|
||||||
cd ../../../../../..
|
|
||||||
|
|
||||||
echo Building library 'Core:FreeGLUT'
|
echo Building library 'Core:FreeGLUT'
|
||||||
cd internal/c/parts/core/os/win
|
cd internal/c/parts/core/os/win
|
||||||
if exist src.a del src.a
|
if exist src.a del src.a
|
||||||
|
@ -45,7 +39,7 @@ copy source\qb64.ico internal\temp\ >nul
|
||||||
copy source\icon.rc internal\temp\ >nul
|
copy source\icon.rc internal\temp\ >nul
|
||||||
cd internal\c
|
cd internal\c
|
||||||
c_compiler\bin\windres.exe -i ..\temp\icon.rc -o ..\temp\icon.o
|
c_compiler\bin\windres.exe -i ..\temp\icon.rc -o ..\temp\icon.o
|
||||||
c_compiler\bin\g++ -mconsole -s -Wfatal-errors -w -Wall qbx.cpp libqb\os\win\libqb_setup.o ..\temp\icon.o parts\user_mods\os\win\src.a -D DEPENDENCY_USER_MODS -D DEPENDENCY_LOADFONT parts\video\font\ttf\os\win\src.o -D DEPENDENCY_SOCKETS -D DEPENDENCY_NO_PRINTER -D DEPENDENCY_ICON -D DEPENDENCY_NO_SCREENIMAGE parts\core\os\win\src.a -lopengl32 -lglu32 -mwindows -static-libgcc -static-libstdc++ -D GLEW_STATIC -D FREEGLUT_STATIC -lws2_32 -lwinmm -lgdi32 -o "..\..\qb64.exe"
|
c_compiler\bin\g++ -mconsole -s -Wfatal-errors -w -Wall qbx.cpp libqb\os\win\libqb_setup.o ..\temp\icon.o -D DEPENDENCY_LOADFONT parts\video\font\ttf\os\win\src.o -D DEPENDENCY_SOCKETS -D DEPENDENCY_NO_PRINTER -D DEPENDENCY_ICON -D DEPENDENCY_NO_SCREENIMAGE parts\core\os\win\src.a -lopengl32 -lglu32 -mwindows -static-libgcc -static-libstdc++ -D GLEW_STATIC -D FREEGLUT_STATIC -lws2_32 -lwinmm -lgdi32 -o "..\..\qb64.exe"
|
||||||
cd ..\..
|
cd ..\..
|
||||||
|
|
||||||
echo.
|
echo.
|
||||||
|
|
|
@ -88,13 +88,12 @@ CONST DEPENDENCY_AUDIO_DECODE = 3: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_AUDIO_OUT = 4: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_AUDIO_OUT = 4: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_GL = 5: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_GL = 5: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_IMAGE_CODEC = 6: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_IMAGE_CODEC = 6: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_USER_MODS = 7: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_CONSOLE_ONLY = 7: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 '=2 if via -g switch, =1 if via metacommand $CONSOLE:ONLY
|
||||||
CONST DEPENDENCY_CONSOLE_ONLY = 8: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 '=2 if via -g switch, =1 if via metacommand $CONSOLE:ONLY
|
CONST DEPENDENCY_SOCKETS = 8: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_SOCKETS = 9: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_PRINTER = 9: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_PRINTER = 10: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_ICON = 10: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_ICON = 11: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_SCREENIMAGE = 11: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
||||||
CONST DEPENDENCY_SCREENIMAGE = 12: DEPENDENCY_LAST = DEPENDENCY_LAST + 1
|
CONST DEPENDENCY_DEVICEINPUT = 12: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 'removes support for gamepad input if not present
|
||||||
CONST DEPENDENCY_DEVICEINPUT = 13: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 'removes support for gamepad input if not present
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -11856,17 +11855,6 @@ IF DEPENDENCY(DEPENDENCY_AUDIO_OUT) THEN
|
||||||
libs$ = libs$ + " " + d2$ + "\src.a"
|
libs$ = libs$ + " " + d2$ + "\src.a"
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF DEPENDENCY(DEPENDENCY_USER_MODS) THEN
|
|
||||||
defines$ = defines$ + defines_header$ + "DEPENDENCY_USER_MODS"
|
|
||||||
d1$ = "parts\user_mods"
|
|
||||||
d2$ = d1$ + "\os\" + o$
|
|
||||||
d3$ = "internal\c\" + d2$
|
|
||||||
IF _FILEEXISTS(d3$ + "\src.a") = 0 THEN
|
|
||||||
Build d3$
|
|
||||||
END IF
|
|
||||||
libs$ = libs$ + " " + d2$ + "\src.a"
|
|
||||||
END IF
|
|
||||||
|
|
||||||
'finalize libs$ and defines$ strings
|
'finalize libs$ and defines$ strings
|
||||||
IF LEN(libs$) THEN libs$ = libs$ + " "
|
IF LEN(libs$) THEN libs$ = libs$ + " "
|
||||||
PATH_SLASH_CORRECT libs$
|
PATH_SLASH_CORRECT libs$
|
||||||
|
@ -20397,7 +20385,6 @@ END SUB
|
||||||
SUB reginternal
|
SUB reginternal
|
||||||
reginternalsubfunc = 1
|
reginternalsubfunc = 1
|
||||||
'$INCLUDE:'subs_functions\subs_functions.bas'
|
'$INCLUDE:'subs_functions\subs_functions.bas'
|
||||||
'$INCLUDE:'subs_functions\extensions\extension_list.bas'
|
|
||||||
reginternalsubfunc = 0
|
reginternalsubfunc = 0
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
|
|
@ -1,9 +0,0 @@
|
||||||
clearid
|
|
||||||
id.n = "_KEYCLEAR"
|
|
||||||
id.subfunc = 2
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
|
||||||
id.specialformat = "[?]"
|
|
||||||
id.callname = "sub__keyclear"
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
|
@ -1,340 +0,0 @@
|
||||||
clearid
|
|
||||||
id.n = "_D2R"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_deg2rad"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_D2G"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_deg2grad"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_R2D"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_rad2deg"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_R2G"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_rad2grad"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_G2D"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_grad2deg"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_G2R"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_grad2rad"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
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 = 1
|
|
||||||
id.arg = MKL$(DOUBLETYPE - ISPOINTER)
|
|
||||||
id.ret = DOUBLETYPE - ISPOINTER
|
|
||||||
id.specialformat = "[?]"
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_DESKTOPHEIGHT"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_screenheight"
|
|
||||||
id.args = 0
|
|
||||||
id.ret = LONGTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_DESKTOPWIDTH"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_screenwidth"
|
|
||||||
id.args = 0
|
|
||||||
id.ret = LONGTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_SCREENICON" 'name change to from _ICONIFYWINDOW to _SCREENICON to match the screenshow and screenhide
|
|
||||||
id.subfunc = 2
|
|
||||||
id.callname = "sub_screenicon"
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_SCREENEXISTS"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_windowexists"
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_CONTROLCHR"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func__controlchr"
|
|
||||||
id.args = 0
|
|
||||||
id.ret = LONGTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_STRICMP"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func__str_nc_compare"
|
|
||||||
id.args = 2
|
|
||||||
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER)
|
|
||||||
id.ret = LONGTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_STRCMP"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func__str_compare"
|
|
||||||
id.args = 2
|
|
||||||
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER)
|
|
||||||
id.ret = LONGTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_ARCSEC"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_arcsec"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_ARCCSC"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_arccsc"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_ARCCOT"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_arccot"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_SECH"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_sech"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_CSCH"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_csch"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_COTH"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_coth"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_SEC"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_sec"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_CSC"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_csc"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_COT"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_cot"
|
|
||||||
id.args = 1
|
|
||||||
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
|
||||||
id.ret = FLOATTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_SCREENICON"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func_screenicon"
|
|
||||||
id.args = 0
|
|
||||||
id.ret = LONGTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
clearid
|
|
||||||
id.n = "_AUTODISPLAY"
|
|
||||||
id.subfunc = 1
|
|
||||||
id.callname = "func__autodisplay"
|
|
||||||
id.args = 0
|
|
||||||
id.ret = LONGTYPE - ISPOINTER
|
|
||||||
id.Dependency = DEPENDENCY_USER_MODS
|
|
||||||
regid
|
|
||||||
|
|
||||||
|
|
|
@ -1,2 +0,0 @@
|
||||||
'$INCLUDE:'Luke Stuff-ID_Includes.bas'
|
|
||||||
'$INCLUDE:'Steve Stuff-ID_Includes.bas'
|
|
|
@ -2928,3 +2928,351 @@ id.callname = "func__inclerrorfile"
|
||||||
id.ret = STRINGTYPE - ISPOINTER
|
id.ret = STRINGTYPE - ISPOINTER
|
||||||
regid
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_KEYCLEAR"
|
||||||
|
id.subfunc = 2
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||||
|
id.specialformat = "[?]"
|
||||||
|
id.callname = "sub__keyclear"
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_D2R"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_deg2rad"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_D2G"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_deg2grad"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_R2D"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_rad2deg"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_R2G"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_rad2grad"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_G2D"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_grad2deg"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_G2R"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_grad2rad"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
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 = 1
|
||||||
|
id.arg = MKL$(DOUBLETYPE - ISPOINTER)
|
||||||
|
id.ret = DOUBLETYPE - ISPOINTER
|
||||||
|
id.specialformat = "[?]"
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_DESKTOPHEIGHT"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_screenheight"
|
||||||
|
id.args = 0
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_DESKTOPWIDTH"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_screenwidth"
|
||||||
|
id.args = 0
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_SCREENICON" 'name change to from _ICONIFYWINDOW to _SCREENICON to match the screenshow and screenhide
|
||||||
|
id.subfunc = 2
|
||||||
|
id.callname = "sub_screenicon"
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_SCREENEXISTS"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_windowexists"
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_CONTROLCHR"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func__controlchr"
|
||||||
|
id.args = 0
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_STRICMP"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func__str_nc_compare"
|
||||||
|
id.args = 2
|
||||||
|
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER)
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_STRCMP"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func__str_compare"
|
||||||
|
id.args = 2
|
||||||
|
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER)
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_ARCSEC"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_arcsec"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_ARCCSC"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_arccsc"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_ARCCOT"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_arccot"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_SECH"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_sech"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_CSCH"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_csch"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_COTH"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_coth"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_SEC"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_sec"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_CSC"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_csc"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_COT"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_cot"
|
||||||
|
id.args = 1
|
||||||
|
id.arg = MKL$(FLOATTYPE - ISPOINTER)
|
||||||
|
id.ret = FLOATTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_SCREENICON"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func_screenicon"
|
||||||
|
id.args = 0
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_AUTODISPLAY"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func__autodisplay"
|
||||||
|
id.args = 0
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.Dependency = DEPENDENCY_USER_MODS
|
||||||
|
regid
|
Loading…
Reference in a new issue