qbs* FUNC_OPENFILE(qbs*_FUNC_OPENFILE_STRING_IDEOPENFILE){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data383.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(25769,20804,"ide_methods.bas");}while(r);
S_62895:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEFAULT_STARTDIR,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,20806,"ide_methods.bas");if(r)goto S_62895;}
do{
qbs_set(__STRING_DEFAULT_STARTDIR,func__startdir());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20807,"ide_methods.bas");}while(r);
S_62897:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||is_error_pending()){
if(qbevent){evnt(25769,20808,"ide_methods.bas");if(r)goto S_62897;}
do{
qbs_set(__STRING_DEFAULT_STARTDIR,qbs_add(__STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20808,"ide_methods.bas");}while(r);
}
}
LABEL_IDEOPENLOOP:;
if(qbevent){evnt(25769,20811,"ide_methods.bas");r=0;}
S_62901:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,20812,"ide_methods.bas");if(r)goto S_62901;}
do{
qbs_set(_FUNC_OPENFILE_STRING_F,func__guiOpenFileDialog(qbs_new_txt_len("Open Source File",16),__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",21), 0 ,0|1|2|4|8|16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20812,"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(25769,20812,"ide_methods.bas");}while(r);
}
S_62906:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_F,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,20813,"ide_methods.bas");if(r)goto S_62906;}
do{
qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20813,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20813,"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(25769,20814,"ide_methods.bas");}while(r);
do{
qbs_set(__STRING_DEFAULT_STARTDIR,_FUNC_OPENFILE_STRING_PATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20816,"ide_methods.bas");}while(r);
S_62912:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||is_error_pending()){
if(qbevent){evnt(25769,20817,"ide_methods.bas");if(r)goto S_62912;}
do{
qbs_set(__STRING_DEFAULT_STARTDIR,qbs_add(__STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20817,"ide_methods.bas");}while(r);
}
S_62915:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20819,"ide_methods.bas");if(r)goto S_62915;}
S_62916:;
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 ))))||is_error_pending()){
if(qbevent){evnt(25769,20821,"ide_methods.bas");if(r)goto S_62916;}
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(25769,20821,"ide_methods.bas");}while(r);
}
do{
*__LONG_IDEERROR= 2 ;
if(!qbevent)break;evnt(25769,20824,"ide_methods.bas");}while(r);
S_62920:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20825,"ide_methods.bas");if(r)goto S_62920;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20825,"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(25769,20828,"ide_methods.bas");}while(r);
S_62925:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_OPENFILE_STRING_F)> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20830,"ide_methods.bas");if(r)goto S_62925;}
S_62926:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_OPENFILE_STRING_IDEOPENFILE->len))||is_error_pending()){
if(qbevent){evnt(25769,20831,"ide_methods.bas");if(r)goto S_62926;}
do{
qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20832,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20833,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_OPENFILE_LONG_INFO= 0 ;
if(!qbevent)break;evnt(25769,20835,"ide_methods.bas");}while(r);
do{
goto LABEL_IDEOPENLOOP;
if(!qbevent)break;evnt(25769,20835,"ide_methods.bas");}while(r);
}
}
do{
*__LONG_IDEERROR= 3 ;
if(!qbevent)break;evnt(25769,20840,"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(25769,20841,"ide_methods.bas");}while(r);
do{
*__LONG_IDEL= 1 ;
if(!qbevent)break;evnt(25769,20841,"ide_methods.bas");}while(r);
do{
*__LONG_IDELI= 1 ;
if(!qbevent)break;evnt(25769,20841,"ide_methods.bas");}while(r);
do{
*__LONG_IDEN= 1 ;
if(!qbevent)break;evnt(25769,20841,"ide_methods.bas");}while(r);
do{
*__LONG_IDEBMKN= 0 ;
if(!qbevent)break;evnt(25769,20841,"ide_methods.bas");}while(r);
do{
*__LONG_IDESX= 1 ;
if(!qbevent)break;evnt(25769,20842,"ide_methods.bas");}while(r);
do{
*__LONG_IDESY= 1 ;
if(!qbevent)break;evnt(25769,20843,"ide_methods.bas");}while(r);
do{
*__LONG_IDECX= 1 ;
if(!qbevent)break;evnt(25769,20844,"ide_methods.bas");}while(r);
do{
*__LONG_IDECY= 1 ;
if(!qbevent)break;evnt(25769,20845,"ide_methods.bas");}while(r);
do{
*__LONG_IDESELECT= 0 ;
if(!qbevent)break;evnt(25769,20846,"ide_methods.bas");}while(r);
do{
*__LONG_IDEFOCUSLINE= 0 ;
if(!qbevent)break;evnt(25769,20847,"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(25769,20848,"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(25769,20849,"ide_methods.bas");}while(r);
do{
*_FUNC_OPENFILE_LONG_I2= 1 ;
if(!qbevent)break;evnt(25769,20850,"ide_methods.bas");}while(r);
do{
*_FUNC_OPENFILE_LONG_N= 0 ;
if(!qbevent)break;evnt(25769,20851,"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(25769,20852,"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(25769,20853,"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(25769,20853,"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(25769,20853,"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(25769,20853,"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(25769,20854,"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(25769,20854,"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(25769,20854,"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(25769,20854,"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(25769,20854,"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(25769,20854,"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(25769,20854,"ide_methods.bas");}while(r);
S_62962:;
do{
if(qbevent){evnt(25769,20855,"ide_methods.bas");if(r)goto S_62962;}
do{
qbs_set(_FUNC_OPENFILE_STRING_A,FUNC_LINEINPUT3());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20856,"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(25769,20857,"ide_methods.bas");}while(r);
S_62965:;
if ((*_FUNC_OPENFILE_LONG_L)||is_error_pending()){
if(qbevent){evnt(25769,20858,"ide_methods.bas");if(r)goto S_62965;}
do{
*_FUNC_OPENFILE_LONG_ASCA=qbs_asc(_FUNC_OPENFILE_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20858,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_OPENFILE_LONG_ASCA= -1 ;
if(!qbevent)break;evnt(25769,20858,"ide_methods.bas");}while(r);
}
S_62970:;
if ((-(*_FUNC_OPENFILE_LONG_ASCA!= 13 ))||is_error_pending()){
if(qbevent){evnt(25769,20859,"ide_methods.bas");if(r)goto S_62970;}
S_62971:;
if ((-(*_FUNC_OPENFILE_LONG_ASCA!= -1 ))||is_error_pending()){
if(qbevent){evnt(25769,20860,"ide_methods.bas");if(r)goto S_62971;}
LABEL_IDEOPENFIXTABS:;
if(qbevent){evnt(25769,20862,"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(25769,20863,"ide_methods.bas");}while(r);
S_62973:;
if ((*_FUNC_OPENFILE_LONG_X)||is_error_pending()){
if(qbevent){evnt(25769,20864,"ide_methods.bas");if(r)goto S_62973;}
do{
*_FUNC_OPENFILE_LONG_X2=(*_FUNC_OPENFILE_LONG_X- 1 )% 4 ;
if(!qbevent)break;evnt(25769,20865,"ide_methods.bas");}while(r);
S_62975:;
if ((-(*_FUNC_OPENFILE_LONG_X2== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,20866,"ide_methods.bas");if(r)goto S_62975;}
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(25769,20866,"ide_methods.bas");}while(r);
do{
*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 3 ;
if(!qbevent)break;evnt(25769,20866,"ide_methods.bas");}while(r);
do{
goto LABEL_IDEOPENFIXTABS;
if(!qbevent)break;evnt(25769,20866,"ide_methods.bas");}while(r);
}
S_62980:;
if ((-(*_FUNC_OPENFILE_LONG_X2== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,20867,"ide_methods.bas");if(r)goto S_62980;}
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(25769,20867,"ide_methods.bas");}while(r);
do{
*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 2 ;
if(!qbevent)break;evnt(25769,20867,"ide_methods.bas");}while(r);
do{
goto LABEL_IDEOPENFIXTABS;
if(!qbevent)break;evnt(25769,20867,"ide_methods.bas");}while(r);
}
S_62985:;
if ((-(*_FUNC_OPENFILE_LONG_X2== 2 ))||is_error_pending()){
if(qbevent){evnt(25769,20868,"ide_methods.bas");if(r)goto S_62985;}
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(25769,20868,"ide_methods.bas");}while(r);
do{
*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 1 ;
if(!qbevent)break;evnt(25769,20868,"ide_methods.bas");}while(r);
do{
goto LABEL_IDEOPENFIXTABS;
if(!qbevent)break;evnt(25769,20868,"ide_methods.bas");}while(r);
}
S_62990:;
if ((-(*_FUNC_OPENFILE_LONG_X2== 3 ))||is_error_pending()){
if(qbevent){evnt(25769,20869,"ide_methods.bas");if(r)goto S_62990;}
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(25769,20869,"ide_methods.bas");}while(r);
do{
goto LABEL_IDEOPENFIXTABS;
if(!qbevent)break;evnt(25769,20869,"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(25769,20872,"ide_methods.bas");}while(r);
do{
*_FUNC_OPENFILE_LONG_I2=*_FUNC_OPENFILE_LONG_I2+*_FUNC_OPENFILE_LONG_L+ 8 ;
if(!qbevent)break;evnt(25769,20872,"ide_methods.bas");}while(r);
do{
*_FUNC_OPENFILE_LONG_N=*_FUNC_OPENFILE_LONG_N+ 1 ;
if(!qbevent)break;evnt(25769,20872,"ide_methods.bas");}while(r);
}
S_63000:;
dl_continue_7084:;
}while((!(-(*_FUNC_OPENFILE_LONG_ASCA== 13 )))&&(!is_error_pending()));
dl_exit_7084:;
if(qbevent){evnt(25769,20874,"ide_methods.bas");if(r)goto S_63000;}
do{
qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20875,"ide_methods.bas");}while(r);
do{
*__LONG_IDEN=*_FUNC_OPENFILE_LONG_N;
if(!qbevent)break;evnt(25769,20876,"ide_methods.bas");}while(r);
S_63003:;
if ((-(*_FUNC_OPENFILE_LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,20876,"ide_methods.bas");if(r)goto S_63003;}
do{
qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20876,"ide_methods.bas");}while(r);
do{
*__LONG_IDEN= 1 ;
if(!qbevent)break;evnt(25769,20876,"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(25769,20876,"ide_methods.bas");}while(r);
}
do{
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDEBREAKPOINTS[0];
preserve_old_flags=__ARRAY_BYTE_IDEBREAKPOINTS[2];
preserve_old_total=__ARRAY_BYTE_IDEBREAKPOINTS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_IDEN)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
}
}
__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1;
__ARRAY_BYTE_IDEBREAKPOINTS[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDEBREAKPOINTS[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDEBREAKPOINTS[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDEBREAKPOINTS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,20877,"ide_methods.bas");}while(r);
do{
if (__ARRAY_BYTE_IDESKIPLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_IDESKIPLINES[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDESKIPLINES[0];
preserve_old_flags=__ARRAY_BYTE_IDESKIPLINES[2];
preserve_old_total=__ARRAY_BYTE_IDESKIPLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_IDEN)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_IDESKIPLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
}
}
__ARRAY_BYTE_IDESKIPLINES[2]|=1;
__ARRAY_BYTE_IDESKIPLINES[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDESKIPLINES[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDESKIPLINES[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDESKIPLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,20878,"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(25769,20879,"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(25769,20880,"ide_methods.bas");}while(r);
do{
if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){
preserve_old_ptr=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0];
preserve_old_flags=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2];
preserve_old_total=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(120);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=preserve_new_ptr;
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112));}
free((void*)(preserve_old_ptr));
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257);
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
}
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]=alloc_new_desc[4];
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=alloc_new_desc[5];
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=alloc_new_desc[6];
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,20880,"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(25769,20881,"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(25769,20882,"ide_methods.bas");}while(r);
do{
*__LONG_CALLSTACKLENGTH= 0 ;
if(!qbevent)break;evnt(25769,20882,"ide_methods.bas");}while(r);
do{
*__LONG_IDEERROR= 1 ;
if(!qbevent)break;evnt(25769,20884,"ide_methods.bas");}while(r);
do{
qbs_set(__STRING_IDEPROGNAME,_FUNC_OPENFILE_STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20885,"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(25769,20885,"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(25769,20886,"ide_methods.bas");}while(r);
do{
qbs_set(__STRING_IDEPATH,_FUNC_OPENFILE_STRING_PATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20887,"ide_methods.bas");}while(r);
do{
SUB_ADDTOHISTORY(qbs_new_txt_len("RECENT",6),qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20888,"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(25769,20889,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free383.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
qbs_maketmp(_FUNC_OPENFILE_STRING_OPENFILE);return _FUNC_OPENFILE_STRING_OPENFILE;
}
