mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 11:11:20 +00:00
Removes dead Qloud references.
This commit is contained in:
FellippeHeitor
parent
4c39729ece
commit
3918db63cc
|
|
@ -278,8 +278,6 @@ int32 environment_2d__letterbox=0;//1=vertical black stripes required, 2=horizon
|
|||
|
||||
|
||||
|
||||
int32 qloud_next_input_index=1;
|
||||
|
||||
int32 window_exists=0;
|
||||
int32 create_window=0;
|
||||
int32 window_focused=0; //Not used on Windows
|
||||
|
|
@ -1216,10 +1214,6 @@ typedef enum {
|
|||
|
||||
|
||||
|
||||
extern int32 cloud_app;
|
||||
int32 cloud_chdir_complete=0;
|
||||
int32 cloud_port[8];
|
||||
|
||||
/* Restricted Functionality: (Security focused approach, does not include restricting sound etc)
|
||||
|
||||
Block while compiling: (ONLY things that cannot be caught at runtime)
|
||||
|
|
@ -2358,18 +2352,6 @@ int32 exit_ok=0;
|
|||
|
||||
int MessageBox2(int ignore,char* message,char* title,int type){
|
||||
|
||||
if (cloud_app){
|
||||
FILE *f = fopen("..\\final.txt", "w");
|
||||
if (f != NULL)
|
||||
{
|
||||
fprintf(f, "%s", title);
|
||||
fprintf(f, "\n");
|
||||
fprintf(f, "%s", message);
|
||||
fclose(f);
|
||||
}
|
||||
exit(0);//should log error
|
||||
}
|
||||
|
||||
#ifdef QB64_WINDOWS
|
||||
return MessageBox(window_handle,message,title,type);
|
||||
#else
|
||||
|
|
@ -2749,24 +2731,7 @@ char *fixdir(qbs *filename){
|
|||
//note: changes the slashes in a filename to make it compatible with the OS
|
||||
//applied to QB commands: open, bload/bsave, loadfont, loadimage, sndopen/sndplayfile
|
||||
static int32 i;
|
||||
|
||||
if (cloud_app){
|
||||
for (i=0;i<filename->len;i++){
|
||||
if ((filename->chr[i]>=48)&&(filename->chr[i]<=57)) goto ok;
|
||||
if ((filename->chr[i]>=65)&&(filename->chr[i]<=90)){filename->chr[i]+=32; goto ok;}//force lowercase
|
||||
if ((filename->chr[i]>=97)&&(filename->chr[i]<=122)) goto ok;
|
||||
if (filename->chr[i]==95) goto ok;//underscore
|
||||
if (filename->chr[i]==46){
|
||||
if (i!=0) goto ok;//period cannot be the first character
|
||||
}
|
||||
if (filename->chr[i]==0){
|
||||
if (i==(filename->len-1)) goto ok;//NULL terminator
|
||||
}
|
||||
error(263);//"Paths/Filename illegal in QLOUD"
|
||||
ok:;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
for (i=0;i<filename->len;i++){
|
||||
#ifdef QB64_WINDOWS
|
||||
if (filename->chr[i]==47) filename->chr[i]=92;
|
||||
|
|
@ -5602,8 +5567,6 @@ void error(int32 error_number){
|
|||
if (error_number==259){MessageBox2(NULL,"Cannot find dynamic library file","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);}
|
||||
if (error_number==260){MessageBox2(NULL,"Sub/Function does not exist in dynamic library","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);}
|
||||
if (error_number==261){MessageBox2(NULL,"Sub/Function does not exist in dynamic library","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);}
|
||||
if (error_number==262){MessageBox2(NULL,"Function unavailable in QLOUD","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);}
|
||||
if (error_number==263){MessageBox2(NULL,"Paths/Filename illegal in QLOUD","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);}
|
||||
|
||||
if (error_number==270){MessageBox2(NULL,"_GL command called outside of SUB _GL's scope","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);}
|
||||
if (error_number==271){MessageBox2(NULL,"END/SYSTEM called within SUB _GL's scope","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);}
|
||||
|
|
@ -6781,11 +6744,7 @@ int32 func__str_compare(qbs *s1, qbs *s2) {
|
|||
qbs *qbs_inkey(){
|
||||
if (new_error) return qbs_new(0,1);
|
||||
qbs *tqbs;
|
||||
if (cloud_app){
|
||||
Sleep(20);
|
||||
}else{
|
||||
Sleep(0);
|
||||
}
|
||||
Sleep(0);
|
||||
tqbs=qbs_new(2,1);
|
||||
if (cmem[0x41a]!=cmem[0x41c]){
|
||||
tqbs->chr[0]=cmem[0x400+cmem[0x41a]];
|
||||
|
|
@ -12938,7 +12897,6 @@ void sub_open(qbs *name,int32 type,int32 access,int32 sharing,int32 i,int64 reco
|
|||
if (sharing==2) g_restrictions=3;
|
||||
if (sharing==3) g_restrictions=1;
|
||||
if (sharing==4) g_restrictions=2;
|
||||
if (cloud_app) g_restrictions=0;//applying restrictions on server not possible
|
||||
//note: In QB, opening a file already open for OUTPUT/APPEND created the 'file already open' error.
|
||||
|
||||
// However, from a new cmd window (or a SHELLed QB program) it can be opened!
|
||||
|
|
@ -16334,7 +16292,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
int64 func_shell(qbs *str){
|
||||
if (new_error) return 1;
|
||||
if (cloud_app){error(262); return 1;}
|
||||
|
||||
int64 return_code;
|
||||
|
||||
|
|
@ -16609,7 +16566,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
int64 func__shellhide(qbs *str){ //func _SHELLHIDE(...
|
||||
if (new_error) return 1;
|
||||
if (cloud_app){error(262); return 1;}
|
||||
|
||||
static int64 return_code;
|
||||
return_code=0;
|
||||
|
|
@ -16836,7 +16792,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
void sub_shell(qbs *str,int32 passed){
|
||||
if (new_error) return;
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
//exit full screen mode if necessary
|
||||
static int32 full_screen_mode;
|
||||
|
|
@ -17114,7 +17069,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
void sub_shell2(qbs *str,int32 passed){ //HIDE
|
||||
if (new_error) return;
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
if (passed&1){sub_shell4(str,passed&2); return;}
|
||||
if (!(passed&2)){error(5); return;}//should not hide a shell waiting for input
|
||||
|
|
@ -17316,7 +17270,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
void sub_shell3(qbs *str,int32 passed){//_DONTWAIT
|
||||
//shell3 launches 'str' but does not wait for it to complete
|
||||
if (new_error) return;
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
if (passed&1){sub_shell4(str,passed&2); return;}
|
||||
|
||||
|
|
@ -17509,7 +17462,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
void sub_shell4(qbs *str,int32 passed){//_DONTWAIT & _HIDE
|
||||
//if passed&2 set a string was given
|
||||
if (!(passed&2)){error(5); return;}//should not hide a shell waiting for input
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
static qbs *strz=NULL;
|
||||
static int32 i;
|
||||
|
|
@ -17771,25 +17723,11 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
static int32 tmp_long;
|
||||
static int32 got_ports=0;
|
||||
if (cloud_app){
|
||||
cloud_chdir_complete=1;
|
||||
|
||||
if (!got_ports){
|
||||
got_ports=1;
|
||||
static FILE* file = fopen ("..\\ports.txt\0", "r");
|
||||
fscanf (file, "%d", &tmp_long);
|
||||
cloud_port[1]=tmp_long;
|
||||
fscanf (file, "%d", &tmp_long);
|
||||
cloud_port[2]=tmp_long;
|
||||
fclose (file);
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
void sub_mkdir(qbs *str){
|
||||
if (new_error) return;
|
||||
if (cloud_app){error(262); return;}
|
||||
static qbs *strz=NULL;
|
||||
if (!strz) strz=qbs_new(0,0);
|
||||
qbs_set(strz,qbs_add(str,qbs_new_txt_len("\0",1)));
|
||||
|
|
@ -17941,15 +17879,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
if (queue==NULL){error(258); return 0;}
|
||||
x=queue->queue[queue->current].x;
|
||||
|
||||
/*
|
||||
if (cloud_app){
|
||||
x2=display_page->width; if (display_page->text) x2*=fontwidth[display_page->font];
|
||||
x_limit=x2-1;
|
||||
x_scale=1;
|
||||
x_offset=0;
|
||||
}
|
||||
*/
|
||||
|
||||
//calculate pixel offset of mouse within SCREEN using environment variables
|
||||
x-=environment_2d__screen_x1;
|
||||
x=qbr_float_to_long((((float)x+0.5f)/environment_2d__screen_x_scale)-0.5f);
|
||||
|
|
@ -17985,15 +17914,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
if (queue==NULL){error(258); return 0;}
|
||||
y=queue->queue[queue->current].y;
|
||||
|
||||
/*
|
||||
if (cloud_app){
|
||||
y2=display_page->height; if (display_page->text) y2*=fontheight[display_page->font];
|
||||
y_limit=y2-1;
|
||||
y_scale=1;
|
||||
y_offset=0;
|
||||
}
|
||||
*/
|
||||
|
||||
//calculate pixel offset of mouse within SCREEN using environment variables
|
||||
y-=environment_2d__screen_y1;
|
||||
y=qbr_float_to_long((((float)y+0.5f)/environment_2d__screen_y_scale)-0.5f);
|
||||
|
|
@ -19597,40 +19517,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
sub_close(NULL,0);
|
||||
exit_blocked=0;//allow exit via X-box or CTRL+BREAK
|
||||
|
||||
if (cloud_app){
|
||||
//1. set the display page as the destination page
|
||||
sub__dest(func__display());
|
||||
//2. VIEW PRINT bottomline,bottomline
|
||||
static int32 y;
|
||||
if (write_page->text){
|
||||
y=write_page->height;
|
||||
}else{
|
||||
y=write_page->height/fontheight[write_page->font];
|
||||
}
|
||||
qbg_sub_view_print(y,y,1|2);
|
||||
//3. PRINT 'clears the line without having to worry about its contents/size
|
||||
qbs_print(nothingstring,1);
|
||||
//4. PRINT "Press any key to continue"
|
||||
qbs_print(qbs_new_txt("Program ended. Closing (10 seconds)..."),0);
|
||||
//6. Enable autodisplay
|
||||
autodisplay=1;
|
||||
int sec=7;
|
||||
while(sec--){
|
||||
evnt(1);
|
||||
Sleep(1000);
|
||||
qbs_print(qbs_new_txt("."),0);
|
||||
}
|
||||
sec=3;
|
||||
while(sec--){
|
||||
Sleep(1000);
|
||||
evnt(1);
|
||||
}
|
||||
|
||||
close_program=1;
|
||||
end();
|
||||
exit(0);//<-- should never happen
|
||||
}
|
||||
|
||||
|
||||
#ifdef DEPENDENCY_CONSOLE_ONLY
|
||||
screen_hide=1;
|
||||
|
|
@ -20387,7 +20274,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
void sub_run(qbs* f){
|
||||
if (new_error) return;
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
//run program
|
||||
static qbs *str=NULL;
|
||||
|
|
@ -20642,9 +20528,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
void sub__display(){
|
||||
|
||||
if (cloud_app==0){
|
||||
if (screen_hide) return;
|
||||
}
|
||||
if (screen_hide) return;
|
||||
|
||||
//disable autodisplay (if enabled)
|
||||
if (autodisplay){
|
||||
|
|
@ -21113,7 +20997,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
static qbs *tqbs;
|
||||
static int32 bytes;
|
||||
cp=getenv((char*)name->chr);
|
||||
if (cp&&(cloud_app==0)){
|
||||
if (cp){
|
||||
bytes=strlen(cp);
|
||||
tqbs=qbs_new(bytes,1);
|
||||
memcpy(tqbs->chr,cp,bytes);
|
||||
|
|
@ -21128,7 +21012,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
static qbs *tqbs;
|
||||
static char *cp;
|
||||
static int32 bytes;
|
||||
if (cloud_app){tqbs=qbs_new(0,1); error(5); return tqbs;}
|
||||
if (number<=0){tqbs=qbs_new(0,1); error(5); return tqbs;}
|
||||
if (number>=environ_count){tqbs=qbs_new(0,1); return tqbs;}
|
||||
cp=*(envp+number-1);
|
||||
|
|
@ -21140,7 +21023,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
void sub_environ(qbs *str)
|
||||
{
|
||||
if (cloud_app){error(262); return;}
|
||||
static char *cp;
|
||||
cp=(char*)malloc(str->len+1);
|
||||
cp[str->len]=0;//add NULL terminator
|
||||
|
|
@ -21469,7 +21351,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
#endif
|
||||
}
|
||||
|
||||
int32 cloud_port_redirect=-1;
|
||||
struct connection_struct{
|
||||
int8 in_use;//0=not being used, 1=in use
|
||||
int8 protocol;//1=TCP/IP
|
||||
|
|
@ -21627,10 +21508,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
if (method==0){//_OPENCLIENT
|
||||
if (parts!=3) return -1;
|
||||
|
||||
if (cloud_app){
|
||||
if (port==cloud_port_redirect) port=cloud_port[1];
|
||||
}
|
||||
|
||||
static void *connection;
|
||||
qbs_set(str,qbs_add(info_part[3],strz));
|
||||
connection=tcp_client_open(str->chr,port);
|
||||
|
|
@ -21660,16 +21537,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
if (method==1){//_OPENHOST
|
||||
if (parts!=2) return -1;
|
||||
|
||||
if (cloud_app){
|
||||
if (port==cloud_port[1]) goto gotcloudport;
|
||||
if (port==cloud_port[2]) goto gotcloudport;
|
||||
if ((port>=1)&&(port<=2)){port=cloud_port[port]; goto gotcloudport;}
|
||||
cloud_port_redirect=port;
|
||||
port=cloud_port[1];//unknown values default to primary hosting port
|
||||
}
|
||||
gotcloudport:
|
||||
|
||||
|
||||
static void *connection;
|
||||
connection=tcp_host_open(port);
|
||||
if (!connection) return 0;
|
||||
|
|
@ -23523,9 +23391,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
#endif //DEPENDENCY_SCREENIMAGE
|
||||
|
||||
void sub__screenclick(int32 x,int32 y, int32 button, int32 passed){
|
||||
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
|
||||
#ifdef QB64_WINDOWS
|
||||
|
||||
static INPUT input;
|
||||
|
|
@ -23984,8 +23850,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
void sub__screenprint(qbs *txt){
|
||||
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
static int32 i,s,x,vk,c;
|
||||
|
||||
#ifdef QB64_MACOSX
|
||||
|
|
@ -24411,7 +24275,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
|
|||
|
||||
void sub_files(qbs *str,int32 passed){
|
||||
if (new_error) return;
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
static int32 i,i2,i3;
|
||||
static qbs *strz=NULL; if (!strz) strz=qbs_new(0,0);
|
||||
|
|
@ -26912,9 +26775,7 @@ int main( int argc, char* argv[] ){
|
|||
this_mouse_message_queue->lastIndex=65535;
|
||||
this_mouse_message_queue->queue=(mouse_message*)calloc(1,sizeof(mouse_message)*(this_mouse_message_queue->lastIndex+1));
|
||||
|
||||
if (!cloud_app){
|
||||
snd_init();
|
||||
}
|
||||
snd_init();
|
||||
|
||||
|
||||
|
||||
|
|
@ -27651,123 +27512,9 @@ void MAIN_LOOP(){
|
|||
goto end_program;
|
||||
}
|
||||
|
||||
if (!cloud_app){
|
||||
snd_mainloop();
|
||||
}
|
||||
snd_mainloop();
|
||||
|
||||
|
||||
|
||||
//check for input event (qloud_next_input_index)
|
||||
if (cloud_app){
|
||||
|
||||
//***should be replaced with a timer based check (or removed)***
|
||||
//static int qloud_input_frame_count=0;
|
||||
//qloud_input_frame_count++;
|
||||
//if (qloud_input_frame_count>8) qloud_input_frame_count=1;
|
||||
//if (qloud_input_frame_count==1){//~8 checks per second (would be ~64 without this check)
|
||||
|
||||
qloud_input_recheck:
|
||||
|
||||
FILE * pFile;
|
||||
long lSize;
|
||||
char * buffer;
|
||||
size_t result;
|
||||
pFile = NULL;
|
||||
|
||||
static char filename[] = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX";
|
||||
sprintf(filename, "input_%d.txt\0", qloud_next_input_index);
|
||||
pFile = fopen ( filename , "rb" );
|
||||
if (pFile!=NULL) {
|
||||
// obtain file size:
|
||||
fseek (pFile , 0 , SEEK_END);
|
||||
lSize = ftell (pFile);
|
||||
rewind (pFile);
|
||||
if (lSize>0){
|
||||
// allocate memory to contain the whole file:
|
||||
buffer = (char*) calloc (1,sizeof(char)*lSize+1);
|
||||
if (buffer != NULL) {
|
||||
// copy the file into the buffer:
|
||||
result = fread (buffer,1,lSize,pFile);
|
||||
if (result == lSize) {
|
||||
|
||||
if (buffer[lSize-1]==42){ //"*" terminator
|
||||
|
||||
int start,stop;
|
||||
start=0;
|
||||
|
||||
int bi;
|
||||
|
||||
nextcommand:
|
||||
|
||||
for (bi=start;bi<lSize;bi++){
|
||||
if (buffer[bi]==0) goto doneall;
|
||||
if (buffer[bi]==58) goto gotcolon;
|
||||
}
|
||||
goto doneall;
|
||||
gotcolon:
|
||||
|
||||
int code;
|
||||
int v1,v2;
|
||||
|
||||
|
||||
code=buffer[start];
|
||||
start++;
|
||||
|
||||
#ifdef QB64_GUI
|
||||
|
||||
if (code==77){//M (mousemove)
|
||||
sscanf (buffer+start,"%d,%d",&v1,&v2);
|
||||
GLUT_MOTION_FUNC(v1,v2);
|
||||
}//M
|
||||
|
||||
if (code==76){//L (left mouse button)
|
||||
sscanf (buffer+start,"%d,%d",&v1,&v2);
|
||||
GLUT_MouseButton_Down(GLUT_LEFT_BUTTON,v1,v2);
|
||||
}
|
||||
if (code==108){//l (left mouse button up)
|
||||
sscanf (buffer+start,"%d,%d",&v1,&v2);
|
||||
GLUT_MouseButton_Up(GLUT_LEFT_BUTTON,v1,v2);
|
||||
}
|
||||
|
||||
|
||||
if (code==68){//D (key down)
|
||||
sscanf (buffer+start,"%d",&v1);
|
||||
keydown_vk(v1);
|
||||
}//D
|
||||
if (code==85){//U (key up)
|
||||
sscanf (buffer+start,"%d",&v1);
|
||||
keyup_vk(v1);
|
||||
}//U
|
||||
|
||||
#endif
|
||||
|
||||
start=bi+1;
|
||||
goto nextcommand;
|
||||
|
||||
doneall:
|
||||
|
||||
qloud_next_input_index++;
|
||||
|
||||
free (buffer);
|
||||
fclose (pFile);
|
||||
|
||||
goto qloud_input_recheck;
|
||||
|
||||
}//* terminator
|
||||
|
||||
}//read correct number of bytes
|
||||
|
||||
free (buffer);
|
||||
}//could allocate buffer
|
||||
}//file has content
|
||||
fclose (pFile);
|
||||
}//not null
|
||||
|
||||
//}//qloud_input_frame_count
|
||||
|
||||
|
||||
}//qloud app
|
||||
|
||||
|
||||
|
||||
update^=1;//toggle update
|
||||
|
|
@ -27862,18 +27609,7 @@ sub_close(NULL,0);
|
|||
QB64_GAMEPAD_SHUTDOWN();
|
||||
#endif
|
||||
|
||||
if (!cloud_app){
|
||||
snd_un_init();
|
||||
}
|
||||
|
||||
if (cloud_app){
|
||||
FILE *f = fopen("..\\final.txt", "w");
|
||||
if (f != NULL){
|
||||
fprintf(f, "Program exited normally");
|
||||
fclose(f);
|
||||
}
|
||||
exit(0);//should log error
|
||||
}
|
||||
snd_un_init();
|
||||
|
||||
exit(exit_code);
|
||||
}
|
||||
|
|
@ -27920,19 +27656,13 @@ void display(){
|
|||
uint32 *pixel;
|
||||
|
||||
static uint8 BGRA_to_RGBA;//set to 1 to invert the output to RGBA
|
||||
BGRA_to_RGBA=0;//default is 0 but 1 is fun
|
||||
if (cloud_app){ //more converters handle the RGBA data format than BGRA which is dumped
|
||||
BGRA_to_RGBA=1;
|
||||
}
|
||||
|
||||
BGRA_to_RGBA=0;//default is 0 but 1 is fun
|
||||
|
||||
|
||||
|
||||
if (lock_display==1){lock_display=2; Sleep(0);}
|
||||
|
||||
if (cloud_app==0){
|
||||
if (screen_hide) {display_called=1; return;}
|
||||
}
|
||||
if (screen_hide) {display_called=1; return;}
|
||||
|
||||
if (lock_display==0){
|
||||
|
||||
|
|
@ -27966,17 +27696,6 @@ void display(){
|
|||
|
||||
|
||||
|
||||
if (cloud_app){
|
||||
static double cloud_timer_value=0;
|
||||
static double cloud_timer_now=0;
|
||||
cloud_timer_now=func_timer(0.001,1);
|
||||
if (fabs(cloud_timer_value-cloud_timer_now)<0.25){
|
||||
goto cloud_skip_frame;
|
||||
}
|
||||
cloud_timer_value=cloud_timer_now;
|
||||
}
|
||||
|
||||
|
||||
//validate display_page
|
||||
if (!display_page) goto display_page_invalid;
|
||||
|
||||
|
|
@ -28073,19 +27792,6 @@ void display(){
|
|||
//Note: frame is a global variable incremented ~32 times per second [2013]
|
||||
if (frame&8) show_cursor=1; else show_cursor=0;//[2013]halved cursor blink rate from 8 changes p/sec -> 4 changes p/sec
|
||||
if (frame&8) show_flashing=1; else show_flashing=0;
|
||||
if (cloud_app){
|
||||
static double cloud_timer_flash;
|
||||
cloud_timer_flash=func_timer(0.001,1)/2.0;
|
||||
static int64 cloud_timer_flash_int;
|
||||
cloud_timer_flash_int=cloud_timer_flash;
|
||||
if (cloud_timer_flash_int&1) show_cursor=1; else show_cursor=0;
|
||||
if (cloud_timer_flash_int&1) show_flashing=1; else show_flashing=0;
|
||||
//static int qloud_show_cursor=0;
|
||||
//qloud_show_cursor++; if (qloud_show_cursor&1) show_cursor=1; else show_cursor=0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
//calculate cursor position (base 0)
|
||||
cx=display_page->cursor_x-1; cy=display_page->cursor_y-1;
|
||||
|
|
@ -28592,60 +28298,10 @@ void display(){
|
|||
//if (!display_frame_begin) display_frame_begin=frame_i;
|
||||
|
||||
display_frame[frame_i].state=DISPLAY_FRAME_STATE__READY; last_hardware_display_frame_order=display_frame[frame_i].order;
|
||||
|
||||
|
||||
if (cloud_app){
|
||||
if (cloud_chdir_complete){
|
||||
|
||||
#ifdef QB64_WINDOWS
|
||||
/*
|
||||
static FILE *cloud_screenshot_file_handle=NULL;
|
||||
if (cloud_screenshot_file_handle==NULL) cloud_screenshot_file_handle=fopen("output_image.raw","w+b");
|
||||
fseek ( cloud_screenshot_file_handle , 0 , SEEK_SET );//reset file pointer to beginning of file
|
||||
static int32 w,h;
|
||||
w=display_frame[frame_i].w;
|
||||
h=display_frame[frame_i].h;
|
||||
static int32 wh[2];
|
||||
wh[0]=w;
|
||||
wh[1]=h;
|
||||
fwrite (&wh[0] , 8, 1, cloud_screenshot_file_handle);
|
||||
fwrite (display_frame[frame_i].bgra , w*h*4, 1, cloud_screenshot_file_handle);
|
||||
fflush(cloud_screenshot_file_handle);
|
||||
*/
|
||||
|
||||
static HANDLE cloud_screenshot_file_handle=NULL;
|
||||
if (cloud_screenshot_file_handle==NULL) cloud_screenshot_file_handle=CreateFile("output_image.raw", GENERIC_WRITE, FILE_SHARE_READ, NULL, CREATE_ALWAYS,
|
||||
/*FILE_ATTRIBUTE_NORMAL*/FILE_FLAG_WRITE_THROUGH, NULL);
|
||||
|
||||
|
||||
//fseek ( cloud_screenshot_file_handle , 0 , SEEK_SET );//reset file pointer to beginning of file
|
||||
|
||||
|
||||
static int32 w,h,index=0;
|
||||
w=display_frame[frame_i].w;
|
||||
h=display_frame[frame_i].h;
|
||||
index++;
|
||||
static int32 header[3];
|
||||
header[0]=index;
|
||||
header[1]=w;
|
||||
header[2]=h;
|
||||
|
||||
SetFilePointer(cloud_screenshot_file_handle,12,0,FILE_BEGIN);
|
||||
WriteFile(cloud_screenshot_file_handle, display_frame[frame_i].bgra, w*h*4, NULL, NULL);
|
||||
FlushFileBuffers(cloud_screenshot_file_handle);
|
||||
SetFilePointer(cloud_screenshot_file_handle,0,0,FILE_BEGIN);
|
||||
WriteFile(cloud_screenshot_file_handle, &header[0], 12, NULL, NULL);
|
||||
|
||||
|
||||
//CloseHandle(cloud_screenshot_file_handle);
|
||||
|
||||
#endif
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
no_new_frame:;
|
||||
display_page_invalid:;
|
||||
cloud_skip_frame:
|
||||
|
||||
|
||||
//cancel frame if not built
|
||||
|
|
|
|||
|
|
@ -1166,7 +1166,6 @@ void chain_input(){
|
|||
|
||||
void sub_chain(qbs* f){
|
||||
if (new_error) return;
|
||||
if (cloud_app){error(262); return;}
|
||||
|
||||
#ifdef QB64_WINDOWS
|
||||
|
||||
|
|
|
|||
169
source/qb64.bas
169
source/qb64.bas
|
|
@ -108,7 +108,7 @@ OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32
|
|||
|
||||
IF OS_BITS = 32 THEN _TITLE "QB64 x32" ELSE _TITLE "QB64 x64"
|
||||
|
||||
DIM SHARED ConsoleMode, No_C_Compile_Mode, Cloud, NoIDEMode
|
||||
DIM SHARED ConsoleMode, No_C_Compile_Mode, NoIDEMode
|
||||
DIM SHARED VerboseMode AS _BYTE, CMDLineFile AS STRING
|
||||
|
||||
DIM SHARED totalUnusedVariables AS LONG, usedVariableList$, bypassNextVariable AS _BYTE
|
||||
|
|
@ -687,8 +687,6 @@ TYPE idstruct
|
|||
'For variables which are arguments passed to a sub/function
|
||||
sfid AS LONG 'id number of variable's parent sub/function
|
||||
sfarg AS INTEGER 'argument/parameter # within call (1=first)
|
||||
|
||||
NoCloud AS INTEGER
|
||||
END TYPE
|
||||
|
||||
DIM SHARED id AS idstruct
|
||||
|
|
@ -1464,72 +1462,68 @@ uniquenumbern = 0
|
|||
'import _MEM type
|
||||
ptrsz = OS_BITS \ 8
|
||||
|
||||
IF Cloud = 0 THEN
|
||||
lasttype = lasttype + 1: i = lasttype
|
||||
udtxname(i) = "_MEM"
|
||||
udtxcname(i) = "_MEM"
|
||||
udtxsize(i) = ((ptrsz) * 5 + (4) * 1 + (8) * 1) * 8
|
||||
udtxbytealign(i) = 1
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "OFFSET"
|
||||
udtecname(i2) = "OFFSET"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtxnext(i) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "SIZE"
|
||||
udtecname(i2) = "SIZE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "$_LOCK_ID"
|
||||
udtecname(i2) = "$_LOCK_ID"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = INTEGER64TYPE: udtesize(i2) = 64
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "$_LOCK_OFFSET"
|
||||
udtecname(i2) = "$_LOCK_OFFSET"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "TYPE"
|
||||
udtecname(i2) = "TYPE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "ELEMENTSIZE"
|
||||
udtecname(i2) = "ELEMENTSIZE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
udtenext(i2) = 0
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "IMAGE"
|
||||
udtecname(i2) = "IMAGE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = LONGTYPE: udtesize(i2) = 32
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
udtenext(i2) = 0
|
||||
|
||||
|
||||
END IF 'cloud = 0
|
||||
lasttype = lasttype + 1: i = lasttype
|
||||
udtxname(i) = "_MEM"
|
||||
udtxcname(i) = "_MEM"
|
||||
udtxsize(i) = ((ptrsz) * 5 + (4) * 1 + (8) * 1) * 8
|
||||
udtxbytealign(i) = 1
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "OFFSET"
|
||||
udtecname(i2) = "OFFSET"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtxnext(i) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "SIZE"
|
||||
udtecname(i2) = "SIZE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "$_LOCK_ID"
|
||||
udtecname(i2) = "$_LOCK_ID"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = INTEGER64TYPE: udtesize(i2) = 64
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "$_LOCK_OFFSET"
|
||||
udtecname(i2) = "$_LOCK_OFFSET"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "TYPE"
|
||||
udtecname(i2) = "TYPE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "ELEMENTSIZE"
|
||||
udtecname(i2) = "ELEMENTSIZE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
udtenext(i2) = 0
|
||||
i3 = i2
|
||||
lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement
|
||||
udtename(i2) = "IMAGE"
|
||||
udtecname(i2) = "IMAGE"
|
||||
udtebytealign(i2) = 1
|
||||
udtetype(i2) = LONGTYPE: udtesize(i2) = 32
|
||||
udtetypesize(i2) = 0 'tsize
|
||||
udtenext(i3) = i2
|
||||
udtenext(i2) = 0
|
||||
|
||||
|
||||
|
||||
|
|
@ -1567,7 +1561,6 @@ reginternal
|
|||
|
||||
|
||||
OPEN tmpdir$ + "global.txt" FOR OUTPUT AS #18
|
||||
IF Cloud THEN PRINT #18, "int32 cloud_app=1;" ELSE PRINT #18, "int32 cloud_app=0;"
|
||||
|
||||
IF iderecompile THEN
|
||||
iderecompile = 0
|
||||
|
|
@ -2460,7 +2453,6 @@ DO
|
|||
'declare library
|
||||
IF firstelement$ = "DECLARE" THEN
|
||||
IF secondelement$ = "LIBRARY" OR secondelement$ = "DYNAMIC" OR secondelement$ = "CUSTOMTYPE" OR secondelement$ = "STATIC" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
declaringlibrary = 1
|
||||
indirectlibrary = 0
|
||||
IF secondelement$ = "CUSTOMTYPE" OR secondelement$ = "DYNAMIC" THEN indirectlibrary = 1
|
||||
|
|
@ -3221,18 +3213,10 @@ DO
|
|||
AryAddStr installFolderIn(), destLocation$
|
||||
END IF
|
||||
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = l$
|
||||
GOTO finishednonexec
|
||||
END IF
|
||||
|
||||
'IF a3u$ = "$RESIZE:SMOOTH" THEN
|
||||
' IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
' layout$ = "$RESIZE:SMOOTH"
|
||||
' Resize = 1: Resize_Scale = 2
|
||||
' GOTO finishednonexec
|
||||
'END IF
|
||||
|
||||
IF a3u$ = "$VIRTUALKEYBOARD:ON" THEN
|
||||
layout$ = "$VIRTUALKEYBOARD:ON"
|
||||
GOTO finishednonexec
|
||||
|
|
@ -3244,7 +3228,6 @@ DO
|
|||
END IF
|
||||
|
||||
IF a3u$ = "$CHECKING:OFF" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = "$CHECKING:OFF"
|
||||
NoChecks = 1
|
||||
GOTO finishednonexec
|
||||
|
|
@ -3257,7 +3240,6 @@ DO
|
|||
END IF
|
||||
|
||||
IF a3u$ = "$CONSOLE" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = "$CONSOLE"
|
||||
Console = 1
|
||||
GOTO finishednonexec
|
||||
|
|
@ -3276,33 +3258,28 @@ DO
|
|||
GOTO finishednonexec
|
||||
END IF
|
||||
IF a3u$ = "$SCREENSHOW" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = "$SCREENSHOW"
|
||||
ScreenHide = 0
|
||||
GOTO finishednonexec
|
||||
END IF
|
||||
|
||||
IF a3u$ = "$RESIZE:OFF" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = "$RESIZE:OFF"
|
||||
Resize = 0: Resize_Scale = 0
|
||||
GOTO finishednonexec
|
||||
END IF
|
||||
IF a3u$ = "$RESIZE:ON" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = "$RESIZE:ON"
|
||||
Resize = 1: Resize_Scale = 0
|
||||
GOTO finishednonexec
|
||||
END IF
|
||||
|
||||
IF a3u$ = "$RESIZE:STRETCH" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = "$RESIZE:STRETCH"
|
||||
Resize = 1: Resize_Scale = 1
|
||||
GOTO finishednonexec
|
||||
END IF
|
||||
IF a3u$ = "$RESIZE:SMOOTH" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
layout$ = "$RESIZE:SMOOTH"
|
||||
Resize = 1: Resize_Scale = 2
|
||||
GOTO finishednonexec
|
||||
|
|
@ -8412,7 +8389,6 @@ DO
|
|||
END IF
|
||||
ELSE
|
||||
'assume it's a string containing a filename to execute
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
e$ = evaluatetotyp(e$, ISSTRING)
|
||||
IF Error_Happened THEN GOTO errmes
|
||||
PRINT #12, "sub_run(" + e$ + ");"
|
||||
|
|
@ -8717,7 +8693,6 @@ DO
|
|||
'(_MEM) _MEMPUT _MEMGET
|
||||
IF n >= 1 THEN
|
||||
IF firstelement$ = "_MEMGET" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
'get expressions
|
||||
e$ = ""
|
||||
B = 0
|
||||
|
|
@ -8817,7 +8792,6 @@ DO
|
|||
|
||||
IF n >= 1 THEN
|
||||
IF firstelement$ = "_MEMPUT" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
'get expressions
|
||||
typ$ = ""
|
||||
e$ = ""
|
||||
|
|
@ -8954,7 +8928,6 @@ DO
|
|||
|
||||
IF n >= 1 THEN
|
||||
IF firstelement$ = "_MEMFILL" THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
'get expressions
|
||||
typ$ = ""
|
||||
e$ = ""
|
||||
|
|
@ -9315,10 +9288,6 @@ DO
|
|||
END IF
|
||||
|
||||
|
||||
IF id.NoCloud THEN
|
||||
IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
END IF
|
||||
|
||||
'generate error on driect _GL call
|
||||
IF firstelement$ = "_GL" THEN a$ = "Cannot call SUB _GL directly": GOTO errmes
|
||||
|
||||
|
|
@ -11848,7 +11817,6 @@ x = INSTR(ver$, "."): IF x THEN ASC(ver$, x) = 95 'change "." to "_"
|
|||
libs$ = ""
|
||||
|
||||
IF DEPENDENCY(DEPENDENCY_GL) THEN
|
||||
IF Cloud THEN a$ = "GL not supported on QLOUD": GOTO errmes '***NOCLOUD***
|
||||
defines$ = defines$ + defines_header$ + "DEPENDENCY_GL"
|
||||
END IF
|
||||
|
||||
|
|
@ -15847,10 +15815,6 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG)
|
|||
|
||||
skipargnumchk:
|
||||
|
||||
IF id2.NoCloud THEN
|
||||
IF Cloud THEN Give_Error "Feature not supported on QLOUD" '***NOCLOUD***
|
||||
END IF
|
||||
|
||||
r$ = RTRIM$(id2.callname) + "("
|
||||
|
||||
|
||||
|
|
@ -20021,7 +19985,6 @@ FUNCTION lineformat$ (a$)
|
|||
END IF
|
||||
|
||||
IF MID$(c$, x, 8) = "$INCLUDE" THEN
|
||||
IF Cloud THEN Give_Error "Feature not supported on QLOUD": EXIT FUNCTION
|
||||
'note: INCLUDE adds the file AFTER the line it is on has been processed
|
||||
'note: No other metacommands can follow the INCLUDE metacommand!
|
||||
'skip spaces until :
|
||||
|
|
@ -21407,10 +21370,8 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
|
|||
i = INSTR(a$, sp3): o$ = RIGHT$(a$, LEN(a$) - i)
|
||||
n$ = "UDT_" + RTRIM$(id.n): IF id.t = 0 THEN n$ = "ARRAY_" + n$ + "[0]"
|
||||
|
||||
IF Cloud = 0 THEN
|
||||
IF E <> 0 AND u = 1 THEN 'Setting _MEM type elements is not allowed!
|
||||
Give_Error "Cannot set read-only element of _MEM TYPE": EXIT SUB
|
||||
END IF
|
||||
IF E <> 0 AND u = 1 THEN 'Setting _MEM type elements is not allowed!
|
||||
Give_Error "Cannot set read-only element of _MEM TYPE": EXIT SUB
|
||||
END IF
|
||||
|
||||
IF E = 0 THEN
|
||||
|
|
|
|||
|
|
@ -134,7 +134,6 @@ id.callname = "sub__glrender"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "{_BEHIND|_ONTOP|_ONLY}"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -144,7 +143,6 @@ id.callname = "sub__displayorder"
|
|||
id.args = 4
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}]]]]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -154,7 +152,6 @@ id.callname = "func__memget"
|
|||
id.args = 3
|
||||
id.arg = MKL$(UDTTYPE + (1)) + MKL$(OFFSETTYPE - ISPOINTER) + MKL$(-1) 'x = _MEMGET(block, offset, type)
|
||||
id.ret = -1
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -167,7 +164,6 @@ id.args = 2
|
|||
id.arg = MKL$(OFFSETTYPE - ISPOINTER) + MKL$(OFFSETTYPE - ISPOINTER)
|
||||
id.specialformat = "?[,?]"
|
||||
id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
'---special case---
|
||||
|
||||
|
|
@ -178,7 +174,6 @@ id.callname = "func__mem"
|
|||
id.args = 1
|
||||
id.arg = MKL$(-8)
|
||||
id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
'---special case---
|
||||
|
||||
|
|
@ -190,7 +185,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__memfree"
|
||||
id.args = 1
|
||||
id.arg = MKL$(UDTTYPE + (1))
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -200,7 +194,6 @@ id.callname = "func__memexists"
|
|||
id.args = 1
|
||||
id.arg = MKL$(UDTTYPE + (1))
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -210,7 +203,6 @@ id.callname = "func__memnew"
|
|||
id.args = 1
|
||||
id.arg = MKL$(OFFSETTYPE - ISPOINTER)
|
||||
id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -221,7 +213,6 @@ id.args = 1
|
|||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?]" 'dest is default
|
||||
id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid '_MEMCOPY a, aoffset, bytes TO b, boffset
|
||||
|
|
@ -231,7 +222,6 @@ id.callname = "sub__memcopy"
|
|||
id.args = 5
|
||||
id.arg = MKL$(UDTTYPE + (1)) + MKL$(OFFSETTYPE - ISPOINTER) + MKL$(OFFSETTYPE - ISPOINTER) + MKL$(UDTTYPE + (1)) + MKL$(OFFSETTYPE - ISPOINTER)
|
||||
id.specialformat = "?,?,?{TO}?,?" 'dest is default
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -240,21 +230,18 @@ id.subfunc = 2
|
|||
id.callname = "sub__consoletitle"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
id.n = "_SCREENSHOW"
|
||||
id.subfunc = 2
|
||||
id.callname = "sub__screenshow"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
id.n = "_SCREENHIDE"
|
||||
id.subfunc = 2
|
||||
id.callname = "sub__screenhide"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -262,7 +249,6 @@ id.n = "_SCREENHIDE"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__screenhide"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
|
||||
|
|
@ -271,7 +257,6 @@ id.n = "_CONSOLE"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__console"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -281,7 +266,6 @@ id.callname = "sub__console"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "{ON|OFF}"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -523,7 +507,6 @@ id.musthave = "$"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__title"
|
||||
id.ret = STRINGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -565,7 +548,6 @@ id.n = "_WINDOWHANDLE"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__handle"
|
||||
id.ret = INTEGER64TYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -575,7 +557,6 @@ id.callname = "sub_files"
|
|||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -586,7 +567,6 @@ id.args = 1
|
|||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
''proposed version:
|
||||
''id.specialformat = "[_SQUAREPIXELS][?][,(?,?)-(?,?)]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
'remote desktop
|
||||
|
|
@ -598,7 +578,6 @@ id.callname = "sub__screenclick"
|
|||
id.args = 3
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "?,?[,?]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -607,7 +586,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__screenprint"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -618,7 +596,6 @@ id.args = 4
|
|||
id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?,?,?,?]"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
|
||||
|
|
@ -632,7 +609,6 @@ id.callname = "sub_lock"
|
|||
id.args = 3
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER)
|
||||
id.specialformat = "[#]?[,[?][{TO}?]]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -642,7 +618,6 @@ id.callname = "sub_unlock"
|
|||
id.args = 3
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER)
|
||||
id.specialformat = "[#]?[,[?][{TO}?]]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -668,7 +643,6 @@ id.callname = "sub__fullscreen"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[{_OFF|_STRETCH|_SQUAREPIXELS|OFF}][,{_SMOOTH}]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -678,7 +652,6 @@ id.callname = "sub__allowfullscreen"
|
|||
id.args = 2
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[{_STRETCH|_SQUAREPIXELS|_OFF|_ALL|OFF}][,{_SMOOTH|_OFF|_ALL|OFF}]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -686,7 +659,6 @@ id.n = "_FULLSCREEN"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__fullscreen"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -694,7 +666,6 @@ id.n = "_SMOOTH"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__fullscreensmooth"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -702,7 +673,6 @@ id.n = "_WINDOWHASFOCUS"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__hasfocus"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -713,7 +683,6 @@ id.callname = "sub__clipboard"
|
|||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.specialformat = "=?"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -722,7 +691,6 @@ id.musthave = "$"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__clipboard"
|
||||
id.ret = STRINGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -730,7 +698,6 @@ id.n = "_CLIPBOARDIMAGE": id.Dependency = DEPENDENCY_SCREENIMAGE
|
|||
id.subfunc = 1
|
||||
id.callname = "func__clipboardimage"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -740,7 +707,6 @@ id.callname = "sub__clipboardimage"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "=?"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -794,7 +760,6 @@ id.callname = "func__openclient"
|
|||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
|
||||
|
|
@ -806,7 +771,6 @@ id.callname = "func_environ"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.ret = STRINGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -815,7 +779,6 @@ id.subfunc = 2
|
|||
id.callname = "sub_environ"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -877,7 +840,6 @@ id.callname = "sub__icon"
|
|||
id.args = 2
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?[,?]]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -886,7 +848,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__title"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -895,7 +856,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__echo"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -905,7 +865,6 @@ id.callname = "sub__filedrop"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[{ON|OFF}]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -913,14 +872,12 @@ id.n = "_ACCEPTFILEDROP"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__filedrop"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
id.n = "_FINISHDROP"
|
||||
id.subfunc = 2
|
||||
id.callname = "sub__finishdrop"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -936,7 +893,6 @@ id.mayhave = "$"
|
|||
id.subfunc = 1
|
||||
id.callname = "func__droppedfile"
|
||||
id.ret = STRINGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?]"
|
||||
|
|
@ -1433,7 +1389,6 @@ id.subfunc = 2
|
|||
id.callname = "sub_play"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
'id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1443,7 +1398,6 @@ id.callname = "func_play"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
'QB64 MOUSE
|
||||
|
|
@ -1586,7 +1540,6 @@ id.subfunc = 2
|
|||
id.callname = "sub_chdir"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 0 'allowed so initial subfolder can be entered
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1595,7 +1548,6 @@ id.subfunc = 2
|
|||
id.callname = "sub_mkdir"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1604,7 +1556,6 @@ id.subfunc = 2
|
|||
id.callname = "sub_rmdir"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1613,7 +1564,6 @@ id.subfunc = 2
|
|||
id.callname = "sub_chain"
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1624,7 +1574,6 @@ id.args = 1
|
|||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?]"
|
||||
'id.secondargcantbe = "_HIDE"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1635,7 +1584,6 @@ id.args = 1
|
|||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.specialformat = "{_HIDE}[{_DONTWAIT}][?]"
|
||||
id.secondargmustbe = "_HIDE"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1646,7 +1594,6 @@ id.args = 1
|
|||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.specialformat = "{_DONTWAIT}[{_HIDE}][?]"
|
||||
id.secondargmustbe = "_DONTWAIT"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1656,7 +1603,6 @@ id.callname = "func_shell"
|
|||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.ret = INTEGER64TYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1666,7 +1612,6 @@ id.callname = "func__shellhide"
|
|||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.ret = INTEGER64TYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1678,7 +1623,6 @@ id.args = 1
|
|||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.ret = STRINGTYPE - ISPOINTER
|
||||
id.specialformat = "[?]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1696,7 +1640,6 @@ id.n = "_SNDRATE": id.Dependency = DEPENDENCY_AUDIO_OUT
|
|||
id.subfunc = 1
|
||||
id.callname = "func__sndrate"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1706,7 +1649,6 @@ id.callname = "sub__sndraw"
|
|||
id.args = 3
|
||||
id.arg = MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "?[,[?][,?]]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1716,7 +1658,6 @@ id.callname = "sub__sndrawdone"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1724,7 +1665,6 @@ id.n = "_SNDOPENRAW": id.Dependency = DEPENDENCY_AUDIO_OUT
|
|||
id.subfunc = 1
|
||||
id.callname = "func__sndopenraw"
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1735,7 +1675,6 @@ id.args = 1
|
|||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.specialformat = "[?]"
|
||||
id.ret = DOUBLETYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1745,7 +1684,6 @@ id.callname = "func__sndlen"
|
|||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.ret = SINGLETYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1755,7 +1693,6 @@ id.callname = "func__sndpaused"
|
|||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1765,7 +1702,6 @@ id.callname = "sub__sndplayfile"
|
|||
id.args = 3
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER)
|
||||
id.specialformat = "?[,[?][,?]]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1775,7 +1711,6 @@ id.callname = "sub__sndplaycopy"
|
|||
id.args = 2
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER)
|
||||
id.specialformat = "?[,?]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1784,7 +1719,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndstop"
|
||||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1793,7 +1727,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndloop"
|
||||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1802,7 +1735,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndlimit"
|
||||
id.args = 2
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1813,7 +1745,6 @@ id.args = 2
|
|||
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.specialformat = "?[,?]"
|
||||
id.ret = ULONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1822,7 +1753,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndsetpos"
|
||||
id.args = 2
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1832,7 +1762,6 @@ id.callname = "func__sndgetpos"
|
|||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.ret = SINGLETYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1842,7 +1771,6 @@ id.callname = "func__sndplaying"
|
|||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1851,7 +1779,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndpause"
|
||||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1861,7 +1788,6 @@ id.callname = "sub__sndbal"
|
|||
id.args = 5
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.specialformat = "?,[?][,[?][,[?][,[?]]]]"
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
|
||||
|
|
@ -1871,7 +1797,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndvol"
|
||||
id.args = 2
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1880,7 +1805,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndplay"
|
||||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1890,7 +1814,6 @@ id.callname = "func__sndcopy"
|
|||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.ret = ULONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -1899,7 +1822,6 @@ id.subfunc = 2
|
|||
id.callname = "sub__sndclose"
|
||||
id.args = 1
|
||||
id.arg = MKL$(ULONGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -2698,7 +2620,6 @@ id.subfunc = 2
|
|||
id.callname = "sub_sound"
|
||||
id.args = 2
|
||||
id.arg = MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER)
|
||||
'id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -2706,7 +2627,6 @@ id.n = "BEEP": id.Dependency = DEPENDENCY_AUDIO_OUT
|
|||
id.subfunc = 2
|
||||
id.callname = "sub_beep"
|
||||
id.args = 0
|
||||
'id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -2970,7 +2890,6 @@ id.subfunc = 2
|
|||
id.callname = "qbs_lprint" 'not called directly
|
||||
id.args = 1
|
||||
id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
clearid
|
||||
|
|
@ -2980,7 +2899,6 @@ id.callname = "func_lpos"
|
|||
id.args = 1
|
||||
id.arg = MKL$(LONGTYPE - ISPOINTER)
|
||||
id.ret = LONGTYPE - ISPOINTER
|
||||
id.NoCloud = 1
|
||||
regid
|
||||
|
||||
'Get Current Working Directory
|
||||
|
|
|
|||
Loading…
Reference in a new issue