From 3918db63cca0f013b2480ae91eee9a2be89eb2ee Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Sun, 14 Apr 2019 14:42:49 -0300 Subject: [PATCH] Removes dead Qloud references. --- internal/c/libqb.cpp | 370 +---------------------- internal/c/qbx.cpp | 1 - source/qb64.bas | 169 ++++------- source/subs_functions/subs_functions.bas | 82 ----- 4 files changed, 78 insertions(+), 544 deletions(-) diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp index a6ec82ce1..0d4162964 100644 --- a/internal/c/libqb.cpp +++ b/internal/c/libqb.cpp @@ -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;ilen;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;ilen;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 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 diff --git a/internal/c/qbx.cpp b/internal/c/qbx.cpp index bbf4a9256..1ce217347 100644 --- a/internal/c/qbx.cpp +++ b/internal/c/qbx.cpp @@ -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 diff --git a/source/qb64.bas b/source/qb64.bas index db2d0a9ee..906316eb6 100644 --- a/source/qb64.bas +++ b/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 diff --git a/source/subs_functions/subs_functions.bas b/source/subs_functions/subs_functions.bas index d057ca504..0af698b72 100644 --- a/source/subs_functions/subs_functions.bas +++ b/source/subs_functions/subs_functions.bas @@ -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