qbs* FUNC_IDEZCHANGEPATH(qbs*_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs*_FUNC_IDEZCHANGEPATH_STRING_NEWPATH){
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 "data311.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{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_PATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14995,"ide_methods.bas");}while(r);
S_54513:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(24235,14997,"ide_methods.bas");if(r)goto S_54513;}
S_54514:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||is_error_pending()){
if(qbevent){evnt(24235,14999,"ide_methods.bas");if(r)goto S_54514;}
S_54515:;
fornext_value6207=_FUNC_IDEZCHANGEPATH_STRING_PATH->len;
fornext_finalvalue6207= 1 ;
fornext_step6207= -1 ;
if (fornext_step6207<0) fornext_step_negative6207=1; else fornext_step_negative6207=0;
if (is_error_pending()) goto fornext_error6207;
goto fornext_entrylabel6207;
while(1){
fornext_value6207=fornext_step6207+(*_FUNC_IDEZCHANGEPATH_LONG_X);
fornext_entrylabel6207:
*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value6207;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative6207){
if (fornext_value6207<fornext_finalvalue6207) break;
}else{
if (fornext_value6207>fornext_finalvalue6207) break;
}
fornext_error6207:;
if(qbevent){evnt(24235,15000,"ide_methods.bas");if(r)goto S_54515;}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15001,"ide_methods.bas");}while(r);
S_54517:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("\\",1))))||is_error_pending()){
if(qbevent){evnt(24235,15002,"ide_methods.bas");if(r)goto S_54517;}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15003,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6206;
if(!qbevent)break;evnt(24235,15004,"ide_methods.bas");}while(r);
}
fornext_continue_6206:;
}
fornext_exit_6206:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,15007,"ide_methods.bas");}while(r);
}
S_54524:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->len== 2 ))&(qbs_equal(qbs_right(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH, 1 ),qbs_new_txt_len(":",1)))))||is_error_pending()){
if(qbevent){evnt(24235,15010,"ide_methods.bas");if(r)goto S_54524;}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_NEWPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15011,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,15012,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("\\",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15014,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,15015,"ide_methods.bas");}while(r);
}
S_54531:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(24235,15018,"ide_methods.bas");if(r)goto S_54531;}
S_54532:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||is_error_pending()){
if(qbevent){evnt(24235,15021,"ide_methods.bas");if(r)goto S_54532;}
S_54533:;
fornext_value6211=_FUNC_IDEZCHANGEPATH_STRING_PATH->len;
fornext_finalvalue6211= 1 ;
fornext_step6211= -1 ;
if (fornext_step6211<0) fornext_step_negative6211=1; else fornext_step_negative6211=0;
if (is_error_pending()) goto fornext_error6211;
goto fornext_entrylabel6211;
while(1){
fornext_value6211=fornext_step6211+(*_FUNC_IDEZCHANGEPATH_LONG_X);
fornext_entrylabel6211:
*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value6211;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative6211){
if (fornext_value6211<fornext_finalvalue6211) break;
}else{
if (fornext_value6211>fornext_finalvalue6211) break;
}
fornext_error6211:;
if(qbevent){evnt(24235,15022,"ide_methods.bas");if(r)goto S_54533;}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15023,"ide_methods.bas");}while(r);
S_54535:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(24235,15024,"ide_methods.bas");if(r)goto S_54535;}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15025,"ide_methods.bas");}while(r);
S_54537:;
if ((-(*_FUNC_IDEZCHANGEPATH_LONG_X== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,15026,"ide_methods.bas");if(r)goto S_54537;}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_new_txt_len("/",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15026,"ide_methods.bas");}while(r);
}
do{
goto fornext_exit_6210;
if(!qbevent)break;evnt(24235,15027,"ide_methods.bas");}while(r);
}
fornext_continue_6210:;
}
fornext_exit_6210:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,15030,"ide_methods.bas");}while(r);
}
S_54545:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(24235,15032,"ide_methods.bas");if(r)goto S_54545;}
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_new_txt_len("/",1),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15032,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,15032,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,15033,"ide_methods.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free311.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_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH);return _FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH;
}
