qbs* FUNC_IDEZPATHLIST(qbs*_FUNC_IDEZPATHLIST_STRING_PATH){
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 "data314.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(24235,15129,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING1_SEP,func_chr( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15130,"ide_methods.bas");}while(r);
S_54656:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(24235,15132,"ide_methods.bas");if(r)goto S_54656;}
do{
sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15133,"ide_methods.bas");}while(r);
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(24235,15133,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15134,"ide_methods.bas");}while(r);
S_54660:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATH, 1 ),qbs_new_txt_len(":",1))))||is_error_pending()){
if(qbevent){evnt(24235,15134,"ide_methods.bas");if(r)goto S_54660;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("\\",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15134,"ide_methods.bas");}while(r);
}
do{
sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /AD ",15),FUNC_QUOTEDFILENAME(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATH,_FUNC_IDEZPATHLIST_STRING_A))),qbs_new_txt_len(" >.\\internal\\temp\\paths.txt",27)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15135,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15136,"ide_methods.bas");}while(r);
do{
sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15137,"ide_methods.bas");}while(r);
S_54666:;
while((!(func_eof( 150 )))||is_error_pending()){
if(qbevent){evnt(24235,15138,"ide_methods.bas");if(r)goto S_54666;}
do{
tmp_fileno= 150 ;
if (is_error_pending()) goto skip6233;
sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A);
if (is_error_pending()) goto skip6233;
skip6233:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15139,"ide_methods.bas");}while(r);
S_54668:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(24235,15140,"ide_methods.bas");if(r)goto S_54668;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15140,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15140,"ide_methods.bas");}while(r);
}
dl_continue_6232:;
}
dl_exit_6232:;
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(24235,15142,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEZPATHLIST_LONG_C= 0 ;
if(!qbevent)break;evnt(24235,15144,"ide_methods.bas");}while(r);
S_54676:;
fornext_value6235= 1 ;
fornext_finalvalue6235=_FUNC_IDEZPATHLIST_STRING_PATH->len;
fornext_step6235= 1 ;
if (fornext_step6235<0) fornext_step_negative6235=1; else fornext_step_negative6235=0;
if (is_error_pending()) goto fornext_error6235;
goto fornext_entrylabel6235;
while(1){
fornext_value6235=fornext_step6235+(*_FUNC_IDEZPATHLIST_LONG_X);
fornext_entrylabel6235:
*_FUNC_IDEZPATHLIST_LONG_X=fornext_value6235;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative6235){
if (fornext_value6235<fornext_finalvalue6235) break;
}else{
if (fornext_value6235>fornext_finalvalue6235) break;
}
fornext_error6235:;
if(qbevent){evnt(24235,15145,"ide_methods.bas");if(r)goto S_54676;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_B,func_mid(_FUNC_IDEZPATHLIST_STRING_PATH,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15146,"ide_methods.bas");}while(r);
S_54678:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_B,__STRING1_IDEPATHSEP)))||is_error_pending()){
if(qbevent){evnt(24235,15147,"ide_methods.bas");if(r)goto S_54678;}
do{
*_FUNC_IDEZPATHLIST_LONG_C=*_FUNC_IDEZPATHLIST_LONG_C+ 1 ;
if(!qbevent)break;evnt(24235,15147,"ide_methods.bas");}while(r);
}
fornext_continue_6234:;
}
fornext_exit_6234:;
S_54682:;
if ((-(*_FUNC_IDEZPATHLIST_LONG_C>= 1 ))||is_error_pending()){
if(qbevent){evnt(24235,15149,"ide_methods.bas");if(r)goto S_54682;}
S_54683:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZPATHLIST_STRING_PATHLIST->len))||is_error_pending()){
if(qbevent){evnt(24235,15150,"ide_methods.bas");if(r)goto S_54683;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(qbs_new_txt_len("..",2),_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15150,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("..",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15150,"ide_methods.bas");}while(r);
}
}
do{
*_FUNC_IDEZPATHLIST_LONG_D=(  int32  )logical_drives();
if(!qbevent)break;evnt(24235,15158,"ide_methods.bas");}while(r);
S_54690:;
fornext_value6239= 0 ;
fornext_finalvalue6239= 25 ;
fornext_step6239= 1 ;
if (fornext_step6239<0) fornext_step_negative6239=1; else fornext_step_negative6239=0;
if (is_error_pending()) goto fornext_error6239;
goto fornext_entrylabel6239;
while(1){
fornext_value6239=fornext_step6239+(*_FUNC_IDEZPATHLIST_LONG_I);
fornext_entrylabel6239:
*_FUNC_IDEZPATHLIST_LONG_I=fornext_value6239;
if (fornext_step_negative6239){
if (fornext_value6239<fornext_finalvalue6239) break;
}else{
if (fornext_value6239>fornext_finalvalue6239) break;
}
fornext_error6239:;
if(qbevent){evnt(24235,15159,"ide_methods.bas");if(r)goto S_54690;}
S_54691:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATHLIST, 1 ),_FUNC_IDEZPATHLIST_STRING1_SEP))&(-(_FUNC_IDEZPATHLIST_STRING_PATHLIST->len> 0 ))))||is_error_pending()){
if(qbevent){evnt(24235,15160,"ide_methods.bas");if(r)goto S_54691;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15160,"ide_methods.bas");}while(r);
}
S_54694:;
if ((func__readbit(*_FUNC_IDEZPATHLIST_LONG_D,*_FUNC_IDEZPATHLIST_LONG_I))||is_error_pending()){
if(qbevent){evnt(24235,15161,"ide_methods.bas");if(r)goto S_54694;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,func_chr( 65 +*_FUNC_IDEZPATHLIST_LONG_I)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15162,"ide_methods.bas");}while(r);
}
fornext_continue_6238:;
}
fornext_exit_6238:;
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15166,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,15167,"ide_methods.bas");}while(r);
}
S_54701:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(24235,15170,"ide_methods.bas");if(r)goto S_54701;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15171,"ide_methods.bas");}while(r);
do{
sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15172,"ide_methods.bas");}while(r);
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(24235,15172,"ide_methods.bas");}while(r);
do{
sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZPATHLIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -mindepth 1 -type d >./internal/temp/paths.txt",59)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15173,"ide_methods.bas");}while(r);
do{
sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15174,"ide_methods.bas");}while(r);
S_54707:;
while((!(func_eof( 150 )))||is_error_pending()){
if(qbevent){evnt(24235,15175,"ide_methods.bas");if(r)goto S_54707;}
do{
tmp_fileno= 150 ;
if (is_error_pending()) goto skip6242;
sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A);
if (is_error_pending()) goto skip6242;
skip6242:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15176,"ide_methods.bas");}while(r);
S_54709:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZPATHLIST_STRING_A->len== 0 )))||is_error_pending()){
if(qbevent){evnt(24235,15177,"ide_methods.bas");if(r)goto S_54709;}
do{
goto dl_exit_6241;
if(!qbevent)break;evnt(24235,15177,"ide_methods.bas");}while(r);
}
S_54712:;
fornext_value6245=_FUNC_IDEZPATHLIST_STRING_A->len;
fornext_finalvalue6245= 1 ;
fornext_step6245= -1 ;
if (fornext_step6245<0) fornext_step_negative6245=1; else fornext_step_negative6245=0;
if (is_error_pending()) goto fornext_error6245;
goto fornext_entrylabel6245;
while(1){
fornext_value6245=fornext_step6245+(*_FUNC_IDEZPATHLIST_LONG_X);
fornext_entrylabel6245:
*_FUNC_IDEZPATHLIST_LONG_X=fornext_value6245;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative6245){
if (fornext_value6245<fornext_finalvalue6245) break;
}else{
if (fornext_value6245>fornext_finalvalue6245) break;
}
fornext_error6245:;
if(qbevent){evnt(24235,15178,"ide_methods.bas");if(r)goto S_54712;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_A2,func_mid(_FUNC_IDEZPATHLIST_STRING_A,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15179,"ide_methods.bas");}while(r);
S_54714:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_A2,qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(24235,15180,"ide_methods.bas");if(r)goto S_54714;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_right(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING_A->len-*_FUNC_IDEZPATHLIST_LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15181,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6244;
if(!qbevent)break;evnt(24235,15182,"ide_methods.bas");}while(r);
}
fornext_continue_6244:;
}
fornext_exit_6244:;
S_54719:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(24235,15185,"ide_methods.bas");if(r)goto S_54719;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15185,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15185,"ide_methods.bas");}while(r);
}
dl_continue_6241:;
}
dl_exit_6241:;
do{
sub_close( 150 ,1);
if(!qbevent)break;evnt(24235,15187,"ide_methods.bas");}while(r);
S_54726:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEZPATHLIST_STRING_PATH,qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(24235,15189,"ide_methods.bas");if(r)goto S_54726;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("..",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15190,"ide_methods.bas");}while(r);
S_54728:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(24235,15192,"ide_methods.bas");if(r)goto S_54728;}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15192,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15192,"ide_methods.bas");}while(r);
}
}
do{
qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15195,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,15196,"ide_methods.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free314.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_IDEZPATHLIST_STRING_IDEZPATHLIST);return _FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST;
}
