qbs* FUNC_IDEZFILELIST(qbs*_FUNC_IDEZFILELIST_STRING_PATH,int32*_FUNC_IDEZFILELIST_LONG_METHOD,qbs*_FUNC_IDEZFILELIST_STRING_MASK){
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 "data387.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(28182,15563,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDEZFILELIST_STRING1_SEP,func_chr( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15564,"ide_methods.bas");}while(r);
S_60908:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(28182,15566,"ide_methods.bas");if(r)goto S_60908;}
do{
sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15567,"ide_methods.bas");}while(r);
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(28182,15567,"ide_methods.bas");}while(r);
S_60911:;
if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,15568,"ide_methods.bas");if(r)goto S_60911;}
do{
sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.bas >.\\internal\\temp\\files.txt",33)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15568,"ide_methods.bas");}while(r);
}
S_60914:;
if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,15569,"ide_methods.bas");if(r)goto S_60914;}
do{
sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.* >.\\internal\\temp\\files.txt",31)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15569,"ide_methods.bas");}while(r);
}
S_60917:;
if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 ))||is_error_pending()){
if(qbevent){evnt(28182,15570,"ide_methods.bas");if(r)goto S_60917;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\",1)),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_MASK)),qbs_new_txt_len(" >.\\internal\\temp\\files.txt",27)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15570,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15571,"ide_methods.bas");}while(r);
do{
sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15572,"ide_methods.bas");}while(r);
S_60922:;
while((!(func_eof( 150 )))||is_error_pending()){
if(qbevent){evnt(28182,15573,"ide_methods.bas");if(r)goto S_60922;}
do{
tmp_fileno= 150 ;
if (is_error_pending()) goto skip7158;
sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A);
if (is_error_pending()) goto skip7158;
skip7158:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15574,"ide_methods.bas");}while(r);
S_60924:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZFILELIST_STRING_A->len))||is_error_pending()){
if(qbevent){evnt(28182,15575,"ide_methods.bas");if(r)goto S_60924;}
S_60925:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_PATH,qbs_new_txt_len("internal/help",13))))||is_error_pending()){
if(qbevent){evnt(28182,15576,"ide_methods.bas");if(r)goto S_60925;}
S_60926:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_FUNC_IDEZFILELIST_STRING_A, 3 )),qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(28182,15577,"ide_methods.bas");if(r)goto S_60926;}
do{
goto dl_continue_7157;
if(!qbevent)break;evnt(28182,15577,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_add(qbs_left(_FUNC_IDEZFILELIST_STRING_A,qb_safe_idiv((_FUNC_IDEZFILELIST_STRING_A->len- 5 ), 2 )),qbs_right(_FUNC_IDEZFILELIST_STRING_A, 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15578,"ide_methods.bas");}while(r);
}
S_60931:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,15580,"ide_methods.bas");if(r)goto S_60931;}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15580,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15580,"ide_methods.bas");}while(r);
}
}
dl_continue_7157:;
}
dl_exit_7157:;
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(28182,15583,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15584,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,15585,"ide_methods.bas");}while(r);
}
S_60942:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(28182,15588,"ide_methods.bas");if(r)goto S_60942;}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15589,"ide_methods.bas");}while(r);
S_60944:;
if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,15590,"ide_methods.bas");if(r)goto S_60944;}
S_60945:;
fornext_value7162= 1 ;
fornext_finalvalue7162= 2 ;
fornext_step7162= 1 ;
if (fornext_step7162<0) fornext_step_negative7162=1; else fornext_step_negative7162=0;
if (is_error_pending()) goto fornext_error7162;
goto fornext_entrylabel7162;
while(1){
fornext_value7162=fornext_step7162+(*_FUNC_IDEZFILELIST_LONG_I);
fornext_entrylabel7162:
*_FUNC_IDEZFILELIST_LONG_I=fornext_value7162;
if (fornext_step_negative7162){
if (fornext_value7162<fornext_finalvalue7162) break;
}else{
if (fornext_value7162>fornext_finalvalue7162) break;
}
fornext_error7162:;
if(qbevent){evnt(28182,15591,"ide_methods.bas");if(r)goto S_60945;}
do{
sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15592,"ide_methods.bas");}while(r);
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(28182,15592,"ide_methods.bas");}while(r);
S_60948:;
if ((-(*_FUNC_IDEZFILELIST_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,15593,"ide_methods.bas");if(r)goto S_60948;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.bas",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15593,"ide_methods.bas");}while(r);
}
S_60951:;
if ((-(*_FUNC_IDEZFILELIST_LONG_I== 2 ))||is_error_pending()){
if(qbevent){evnt(28182,15594,"ide_methods.bas");if(r)goto S_60951;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.BAS",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15594,"ide_methods.bas");}while(r);
}
do{
return_point[next_return_point++]=188;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDTOLIST;
RETURN_188:;
if(!qbevent)break;evnt(28182,15595,"ide_methods.bas");}while(r);
fornext_continue_7161:;
}
fornext_exit_7161:;
S_60956:;
}else{
if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 )){
if(qbevent){evnt(28182,15597,"ide_methods.bas");if(r)goto S_60956;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*",1)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15598,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=189;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDTOLIST;
RETURN_189:;
if(!qbevent)break;evnt(28182,15599,"ide_methods.bas");}while(r);
S_60959:;
}else{
if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 )){
if(qbevent){evnt(28182,15600,"ide_methods.bas");if(r)goto S_60959;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),_FUNC_IDEZFILELIST_STRING_MASK),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15601,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=190;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDTOLIST;
RETURN_190:;
if(!qbevent)break;evnt(28182,15602,"ide_methods.bas");}while(r);
}
}
}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15604,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,15605,"ide_methods.bas");}while(r);
LABEL_ADDTOLIST:;
if(qbevent){evnt(28182,15607,"ide_methods.bas");r=0;}
do{
sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15608,"ide_methods.bas");}while(r);
S_60966:;
while((!(func_eof( 150 )))||is_error_pending()){
if(qbevent){evnt(28182,15609,"ide_methods.bas");if(r)goto S_60966;}
do{
tmp_fileno= 150 ;
if (is_error_pending()) goto skip7164;
sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A);
if (is_error_pending()) goto skip7164;
skip7164:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15610,"ide_methods.bas");}while(r);
S_60968:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZFILELIST_STRING_A->len== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,15611,"ide_methods.bas");if(r)goto S_60968;}
do{
goto dl_exit_7163;
if(!qbevent)break;evnt(28182,15611,"ide_methods.bas");}while(r);
}
S_60971:;
fornext_value7167=_FUNC_IDEZFILELIST_STRING_A->len;
fornext_finalvalue7167= 1 ;
fornext_step7167= -1 ;
if (fornext_step7167<0) fornext_step_negative7167=1; else fornext_step_negative7167=0;
if (is_error_pending()) goto fornext_error7167;
goto fornext_entrylabel7167;
while(1){
fornext_value7167=fornext_step7167+(*_FUNC_IDEZFILELIST_LONG_X);
fornext_entrylabel7167:
*_FUNC_IDEZFILELIST_LONG_X=fornext_value7167;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative7167){
if (fornext_value7167<fornext_finalvalue7167) break;
}else{
if (fornext_value7167>fornext_finalvalue7167) break;
}
fornext_error7167:;
if(qbevent){evnt(28182,15612,"ide_methods.bas");if(r)goto S_60971;}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_A2,func_mid(_FUNC_IDEZFILELIST_STRING_A,*_FUNC_IDEZFILELIST_LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15613,"ide_methods.bas");}while(r);
S_60973:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_A2,qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(28182,15614,"ide_methods.bas");if(r)goto S_60973;}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_right(_FUNC_IDEZFILELIST_STRING_A,_FUNC_IDEZFILELIST_STRING_A->len-*_FUNC_IDEZFILELIST_LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15615,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7166;
if(!qbevent)break;evnt(28182,15616,"ide_methods.bas");}while(r);
}
fornext_continue_7166:;
}
fornext_exit_7166:;
S_60978:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_PATH,qbs_new_txt_len("internal/help",13))))||is_error_pending()){
if(qbevent){evnt(28182,15619,"ide_methods.bas");if(r)goto S_60978;}
S_60979:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_FUNC_IDEZFILELIST_STRING_A, 3 )),qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(28182,15620,"ide_methods.bas");if(r)goto S_60979;}
do{
goto dl_continue_7163;
if(!qbevent)break;evnt(28182,15620,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_add(qbs_left(_FUNC_IDEZFILELIST_STRING_A,qb_safe_idiv((_FUNC_IDEZFILELIST_STRING_A->len- 5 ), 2 )),qbs_right(_FUNC_IDEZFILELIST_STRING_A, 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15621,"ide_methods.bas");}while(r);
}
S_60984:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,15623,"ide_methods.bas");if(r)goto S_60984;}
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15623,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15623,"ide_methods.bas");}while(r);
}
dl_continue_7163:;
}
dl_exit_7163:;
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(28182,15625,"ide_methods.bas");}while(r);
do{
#include "ret387.txt"
if(!qbevent)break;evnt(28182,15626,"ide_methods.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free387.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_IDEZFILELIST_STRING_IDEZFILELIST);return _FUNC_IDEZFILELIST_STRING_IDEZFILELIST;
}
