From 28dc80b5511764803e00ee993bb890da811b39d2 Mon Sep 17 00:00:00 2001 From: "github-actions[bot]" <41898282+github-actions[bot]@users.noreply.github.com> Date: Sat, 26 Nov 2022 09:13:26 +0000 Subject: [PATCH] Automatic update of ./internal/source --- internal/source/clear.txt | 1 + internal/source/global.txt | 1 + internal/source/main.txt | 274 +++++++++++++++++++---------------- internal/source/maindata.txt | 1 + internal/source/mainfree.txt | 1 + 5 files changed, 156 insertions(+), 122 deletions(-) diff --git a/internal/source/clear.txt b/internal/source/clear.txt index 961c0bb2b..b1f0fb678 100644 --- a/internal/source/clear.txt +++ b/internal/source/clear.txt @@ -3133,3 +3133,4 @@ _SUB_GETINPUT_STRING_ASCVALUE->len=0; *_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN=0; _FUNC_GETBYTES_STRING_PREVIOUSVALUE->len=0; *_FUNC_GETBYTES_LONG_GETBYTESPOSITION=0; +_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR->len=0; diff --git a/internal/source/global.txt b/internal/source/global.txt index 8c1d2ea25..074700d6c 100644 --- a/internal/source/global.txt +++ b/internal/source/global.txt @@ -1171,6 +1171,7 @@ int32 *_SUB_HELP_SHOWTEXT_LONG_SETUP=NULL; int32 *_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN=NULL; qbs *_FUNC_GETBYTES_STRING_PREVIOUSVALUE=NULL; int32 *_FUNC_GETBYTES_LONG_GETBYTESPOSITION=NULL; +qbs *_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR=NULL; int32 console=1; int32 screen_hide_startup=1; int32 asserts=0; diff --git a/internal/source/main.txt b/internal/source/main.txt index c1ea4a1ee..94dfdc5df 100644 --- a/internal/source/main.txt +++ b/internal/source/main.txt @@ -200246,316 +200246,346 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -LABEL_IDEOPENLOOP:; -if(qbevent){evnt(26076,20238,"ide_methods.bas");r=0;} -S_59084:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26076,20239,"ide_methods.bas");if(r)goto S_59084;} do{ -qbs_set(_FUNC_OPENFILE_STRING_F,func__guiOpenFileDialog(qbs_new_txt_len("Open Source File",16),qbs_new_txt_len("",0),qbs_new_txt_len("*.bas|*.BAS|*.Bas|*.bi|*.BI|*.Bi|*.bm|*.BM|*.Bm",47),qbs_new_txt_len("QB64-PE Source Files",20), 0 ,1)); +if(!qbevent)break;evnt(26076,20237,"ide_methods.bas");}while(r); +S_59085:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26076,20239,"ide_methods.bas");if(r)goto S_59085;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,func__startdir()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20240,"ide_methods.bas");}while(r); +S_59087:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||new_error){ +if(qbevent){evnt(26076,20241,"ide_methods.bas");if(r)goto S_59087;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_add(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26076,20241,"ide_methods.bas");}while(r); +} +} +LABEL_IDEOPENLOOP:; +if(qbevent){evnt(26076,20244,"ide_methods.bas");r=0;} +S_59091:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26076,20245,"ide_methods.bas");if(r)goto S_59091;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_F,func__guiOpenFileDialog(qbs_new_txt_len("Open Source File",16),_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_new_txt_len("*.bas|*.BAS|*.Bas|*.bi|*.BI|*.Bi|*.bm|*.BM|*.Bm",47),qbs_new_txt_len("QB64-PE Source Files",20), 0 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26076,20245,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_OPENFILE_STRING_F,_FUNC_OPENFILE_STRING_IDEOPENFILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20245,"ide_methods.bas");}while(r); } -S_59089:; +S_59096:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_F,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26076,20240,"ide_methods.bas");if(r)goto S_59089;} +if(qbevent){evnt(26076,20246,"ide_methods.bas");if(r)goto S_59096;} do{ qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20240,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20246,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(26076,20240,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20246,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_OPENFILE_STRING_PATH,FUNC_IDEZTAKEPATH(_FUNC_OPENFILE_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20241,"ide_methods.bas");}while(r); -S_59094:; +if(!qbevent)break;evnt(26076,20247,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,_FUNC_OPENFILE_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26076,20249,"ide_methods.bas");}while(r); +S_59102:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||new_error){ +if(qbevent){evnt(26076,20250,"ide_methods.bas");if(r)goto S_59102;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_add(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26076,20250,"ide_methods.bas");}while(r); +} +S_59105:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||new_error){ -if(qbevent){evnt(26076,20243,"ide_methods.bas");if(r)goto S_59094;} -S_59095:; +if(qbevent){evnt(26076,20252,"ide_methods.bas");if(r)goto S_59105;} +S_59106:; if ((qbs_cleanup(qbs_tmp_base,((qbs_notequal(qbs_lcase(qbs_right(_FUNC_OPENFILE_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))&(-(*_FUNC_OPENFILE_LONG_ALLFILES== 0 ))))||new_error){ -if(qbevent){evnt(26076,20245,"ide_methods.bas");if(r)goto S_59095;} +if(qbevent){evnt(26076,20254,"ide_methods.bas");if(r)goto S_59106;} do{ qbs_set(_FUNC_OPENFILE_STRING_F,qbs_add(_FUNC_OPENFILE_STRING_F,qbs_new_txt_len(".bas",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20254,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 2 ; -if(!qbevent)break;evnt(26076,20248,"ide_methods.bas");}while(r); -S_59099:; +if(!qbevent)break;evnt(26076,20257,"ide_methods.bas");}while(r); +S_59110:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||new_error){ -if(qbevent){evnt(26076,20249,"ide_methods.bas");if(r)goto S_59099;} +if(qbevent){evnt(26076,20258,"ide_methods.bas");if(r)goto S_59110;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(26076,20249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20258,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20251,"ide_methods.bas");}while(r); -S_59103:; +if(!qbevent)break;evnt(26076,20260,"ide_methods.bas");}while(r); +S_59114:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_OPENFILE_STRING_F)> 0 )))||new_error){ -if(qbevent){evnt(26076,20253,"ide_methods.bas");if(r)goto S_59103;} -S_59104:; +if(qbevent){evnt(26076,20262,"ide_methods.bas");if(r)goto S_59114;} +S_59115:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_OPENFILE_STRING_IDEOPENFILE->len))||new_error){ -if(qbevent){evnt(26076,20254,"ide_methods.bas");if(r)goto S_59104;} +if(qbevent){evnt(26076,20263,"ide_methods.bas");if(r)goto S_59115;} do{ qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20255,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20264,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(26076,20256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20265,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_OPENFILE_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26076,20258,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20267,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26076,20258,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20267,"ide_methods.bas");}while(r); } } } do{ *__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(26076,20264,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20273,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20274,"ide_methods.bas");}while(r); do{ *__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(26076,20265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20274,"ide_methods.bas");}while(r); do{ *__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(26076,20265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20274,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26076,20265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20274,"ide_methods.bas");}while(r); do{ *__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(26076,20265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20274,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26076,20266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20275,"ide_methods.bas");}while(r); do{ *__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26076,20267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20276,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26076,20268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20277,"ide_methods.bas");}while(r); do{ *__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26076,20269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26076,20270,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20279,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26076,20271,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20280,"ide_methods.bas");}while(r); do{ SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20272,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20281,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20273,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20282,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_I2= 1 ; -if(!qbevent)break;evnt(26076,20274,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20283,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_N= 0 ; -if(!qbevent)break;evnt(26076,20275,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20284,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHRTAB,func_chr( 9 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20276,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20285,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_SPACE1,qbs_new_txt_len(" ",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20286,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_SPACE2,qbs_new_txt_len(" ",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20286,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_SPACE3,qbs_new_txt_len(" ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20286,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_SPACE4,qbs_new_txt_len(" ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20286,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHR7,func_chr( 7 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHR11,func_chr( 11 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHR12,func_chr( 12 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHR28,func_chr( 28 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHR29,func_chr( 29 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHR30,func_chr( 30 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_OPENFILE_STRING_CHR31,func_chr( 31 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20278,"ide_methods.bas");}while(r); -S_59141:; +if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); +S_59152:; do{ -if(qbevent){evnt(26076,20279,"ide_methods.bas");if(r)goto S_59141;} +if(qbevent){evnt(26076,20288,"ide_methods.bas");if(r)goto S_59152;} do{ qbs_set(_FUNC_OPENFILE_STRING_A,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20280,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20289,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_L=_FUNC_OPENFILE_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20281,"ide_methods.bas");}while(r); -S_59144:; +if(!qbevent)break;evnt(26076,20290,"ide_methods.bas");}while(r); +S_59155:; if ((*_FUNC_OPENFILE_LONG_L)||new_error){ -if(qbevent){evnt(26076,20282,"ide_methods.bas");if(r)goto S_59144;} +if(qbevent){evnt(26076,20291,"ide_methods.bas");if(r)goto S_59155;} do{ *_FUNC_OPENFILE_LONG_ASCA=qbs_asc(_FUNC_OPENFILE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20291,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_OPENFILE_LONG_ASCA= -1 ; -if(!qbevent)break;evnt(26076,20282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20291,"ide_methods.bas");}while(r); } -S_59149:; +S_59160:; if ((-(*_FUNC_OPENFILE_LONG_ASCA!= 13 ))||new_error){ -if(qbevent){evnt(26076,20283,"ide_methods.bas");if(r)goto S_59149;} -S_59150:; +if(qbevent){evnt(26076,20292,"ide_methods.bas");if(r)goto S_59160;} +S_59161:; if ((-(*_FUNC_OPENFILE_LONG_ASCA!= -1 ))||new_error){ -if(qbevent){evnt(26076,20284,"ide_methods.bas");if(r)goto S_59150;} +if(qbevent){evnt(26076,20293,"ide_methods.bas");if(r)goto S_59161;} LABEL_IDEOPENFIXTABS:; -if(qbevent){evnt(26076,20286,"ide_methods.bas");r=0;} +if(qbevent){evnt(26076,20295,"ide_methods.bas");r=0;} do{ *_FUNC_OPENFILE_LONG_X=func_instr(NULL,_FUNC_OPENFILE_STRING_A,_FUNC_OPENFILE_STRING_CHRTAB,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20287,"ide_methods.bas");}while(r); -S_59152:; +if(!qbevent)break;evnt(26076,20296,"ide_methods.bas");}while(r); +S_59163:; if ((*_FUNC_OPENFILE_LONG_X)||new_error){ -if(qbevent){evnt(26076,20288,"ide_methods.bas");if(r)goto S_59152;} +if(qbevent){evnt(26076,20297,"ide_methods.bas");if(r)goto S_59163;} do{ *_FUNC_OPENFILE_LONG_X2=(*_FUNC_OPENFILE_LONG_X- 1 )% 4 ; -if(!qbevent)break;evnt(26076,20289,"ide_methods.bas");}while(r); -S_59154:; +if(!qbevent)break;evnt(26076,20298,"ide_methods.bas");}while(r); +S_59165:; if ((-(*_FUNC_OPENFILE_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(26076,20290,"ide_methods.bas");if(r)goto S_59154;} +if(qbevent){evnt(26076,20299,"ide_methods.bas");if(r)goto S_59165;} do{ qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE4),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20299,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 3 ; -if(!qbevent)break;evnt(26076,20290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20299,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26076,20290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20299,"ide_methods.bas");}while(r); } -S_59159:; +S_59170:; if ((-(*_FUNC_OPENFILE_LONG_X2== 1 ))||new_error){ -if(qbevent){evnt(26076,20291,"ide_methods.bas");if(r)goto S_59159;} +if(qbevent){evnt(26076,20300,"ide_methods.bas");if(r)goto S_59170;} do{ qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE3),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20300,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 2 ; -if(!qbevent)break;evnt(26076,20291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20300,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26076,20291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20300,"ide_methods.bas");}while(r); } -S_59164:; +S_59175:; if ((-(*_FUNC_OPENFILE_LONG_X2== 2 ))||new_error){ -if(qbevent){evnt(26076,20292,"ide_methods.bas");if(r)goto S_59164;} +if(qbevent){evnt(26076,20301,"ide_methods.bas");if(r)goto S_59175;} do{ qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE2),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20301,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 1 ; -if(!qbevent)break;evnt(26076,20292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20301,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26076,20292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20301,"ide_methods.bas");}while(r); } -S_59169:; +S_59180:; if ((-(*_FUNC_OPENFILE_LONG_X2== 3 ))||new_error){ -if(qbevent){evnt(26076,20293,"ide_methods.bas");if(r)goto S_59169;} +if(qbevent){evnt(26076,20302,"ide_methods.bas");if(r)goto S_59180;} do{ qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE1),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20293,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20302,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26076,20293,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20302,"ide_methods.bas");}while(r); } } } do{ sub_mid(__STRING_IDET,*_FUNC_OPENFILE_LONG_I2,*_FUNC_OPENFILE_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_OPENFILE_LONG_L),_FUNC_OPENFILE_STRING_A),l2string(*_FUNC_OPENFILE_LONG_L)),1); -if(!qbevent)break;evnt(26076,20296,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20305,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_I2=*_FUNC_OPENFILE_LONG_I2+*_FUNC_OPENFILE_LONG_L+ 8 ; -if(!qbevent)break;evnt(26076,20296,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20305,"ide_methods.bas");}while(r); do{ *_FUNC_OPENFILE_LONG_N=*_FUNC_OPENFILE_LONG_N+ 1 ; -if(!qbevent)break;evnt(26076,20296,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20305,"ide_methods.bas");}while(r); } -S_59179:; +S_59190:; dl_continue_6627:; }while((!(-(*_FUNC_OPENFILE_LONG_ASCA== 13 )))&&(!new_error)); dl_exit_6627:; -if(qbevent){evnt(26076,20298,"ide_methods.bas");if(r)goto S_59179;} +if(qbevent){evnt(26076,20307,"ide_methods.bas");if(r)goto S_59190;} do{ qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20299,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20308,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*_FUNC_OPENFILE_LONG_N; -if(!qbevent)break;evnt(26076,20300,"ide_methods.bas");}while(r); -S_59182:; +if(!qbevent)break;evnt(26076,20309,"ide_methods.bas");}while(r); +S_59193:; if ((-(*_FUNC_OPENFILE_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(26076,20300,"ide_methods.bas");if(r)goto S_59182;} +if(qbevent){evnt(26076,20309,"ide_methods.bas");if(r)goto S_59193;} do{ qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20300,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20309,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26076,20300,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20309,"ide_methods.bas");}while(r); }else{ do{ qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_OPENFILE_LONG_I2- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20300,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20309,"ide_methods.bas");}while(r); } do{ @@ -200582,7 +200612,7 @@ if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; } -if(!qbevent)break;evnt(26076,20301,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20310,"ide_methods.bas");}while(r); do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ @@ -200608,15 +200638,15 @@ if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); } __ARRAY_BYTE_IDESKIPLINES[2]|=1; } -if(!qbevent)break;evnt(26076,20302,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20311,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20303,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20312,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20313,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ @@ -200663,45 +200693,45 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} } -if(!qbevent)break;evnt(26076,20304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20313,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20305,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20314,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20306,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20315,"ide_methods.bas");}while(r); do{ *__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26076,20306,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20315,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26076,20308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20317,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPROGNAME,_FUNC_OPENFILE_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20309,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20318,"ide_methods.bas");}while(r); do{ sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20309,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20318,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20319,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPATH,_FUNC_OPENFILE_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20311,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20320,"ide_methods.bas");}while(r); do{ SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20321,"ide_methods.bas");}while(r); do{ SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26076,20313,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26076,20322,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free284.txt" diff --git a/internal/source/maindata.txt b/internal/source/maindata.txt index 00ce2a319..90ef14df8 100644 --- a/internal/source/maindata.txt +++ b/internal/source/maindata.txt @@ -7860,3 +7860,4 @@ if(_FUNC_GETBYTES_LONG_GETBYTESPOSITION==NULL){ _FUNC_GETBYTES_LONG_GETBYTESPOSITION=(int32*)mem_static_malloc(4); *_FUNC_GETBYTES_LONG_GETBYTESPOSITION=0; } +if (!_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR)_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR=qbs_new(0,0); diff --git a/internal/source/mainfree.txt b/internal/source/mainfree.txt index 69c72f281..2d57237c9 100644 --- a/internal/source/mainfree.txt +++ b/internal/source/mainfree.txt @@ -1194,3 +1194,4 @@ free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESS qbs_free(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER); qbs_free(_SUB_GETINPUT_STRING_ASCVALUE); qbs_free(_FUNC_GETBYTES_STRING_PREVIOUSVALUE); +qbs_free(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR);