mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 15:20:18 +00:00
Merge branch 'main' into main
This commit is contained in:
commit
660fa711c9
5 changed files with 156 additions and 122 deletions
|
@ -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;
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in a new issue