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

Merge branch 'main' into main

Browse source
This commit is contained in:
Steve McNeill 2022-11-26 13:05:51 -05:00 committed by GitHub
parent 7576dc46fe 28dc80b551
commit 660fa711c9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
5 changed files with 156 additions and 122 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
internal/source/clear.txt
View file

@ -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;

1
internal/source/global.txt
View file

@ -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;

274
internal/source/main.txt
View file

@ -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"

1
internal/source/maindata.txt
View file

@ -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);

1
internal/source/mainfree.txt
View file

@ -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);