qbs* FUNC_FINDCURRENTSF(int32*_FUNC_FINDCURRENTSF_LONG_WHICHLINE){
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 "data363.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_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20163,"ide_methods.bas");}while(r);
S_62143:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_WHICHLINE> 0 ))||is_error_pending()){
if(qbevent){evnt(25769,20164,"ide_methods.bas");if(r)goto S_62143;}
S_62144:;
fornext_value7013=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE;
fornext_finalvalue7013= 1 ;
fornext_step7013= -1 ;
if (fornext_step7013<0) fornext_step_negative7013=1; else fornext_step_negative7013=0;
if (is_error_pending()) goto fornext_error7013;
goto fornext_entrylabel7013;
while(1){
fornext_value7013=fornext_step7013+(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK);
fornext_entrylabel7013:
*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK=fornext_value7013;
if (fornext_step_negative7013){
if (fornext_value7013<fornext_finalvalue7013) break;
}else{
if (fornext_value7013>fornext_finalvalue7013) break;
}
fornext_error7013:;
if(qbevent){evnt(25769,20165,"ide_methods.bas");if(r)goto S_62144;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20166,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20167,"ide_methods.bas");}while(r);
do{
*_FUNC_FINDCURRENTSF_LONG_ISSF= 0 ;
if(!qbevent)break;evnt(25769,20168,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20169,"ide_methods.bas");}while(r);
S_62149:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4))))||is_error_pending()){
if(qbevent){evnt(25769,20170,"ide_methods.bas");if(r)goto S_62149;}
do{
*_FUNC_FINDCURRENTSF_LONG_ISSF= 1 ;
if(!qbevent)break;evnt(25769,20170,"ide_methods.bas");}while(r);
}
S_62152:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9))))||is_error_pending()){
if(qbevent){evnt(25769,20171,"ide_methods.bas");if(r)goto S_62152;}
do{
*_FUNC_FINDCURRENTSF_LONG_ISSF= 2 ;
if(!qbevent)break;evnt(25769,20171,"ide_methods.bas");}while(r);
}
S_62155:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||is_error_pending()){
if(qbevent){evnt(25769,20172,"ide_methods.bas");if(r)goto S_62155;}
do{
goto fornext_exit_7012;
if(!qbevent)break;evnt(25769,20172,"ide_methods.bas");}while(r);
}
S_62158:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||is_error_pending()){
if(qbevent){evnt(25769,20173,"ide_methods.bas");if(r)goto S_62158;}
do{
goto fornext_exit_7012;
if(!qbevent)break;evnt(25769,20173,"ide_methods.bas");}while(r);
}
S_62161:;
if ((*_FUNC_FINDCURRENTSF_LONG_ISSF)||is_error_pending()){
if(qbevent){evnt(25769,20174,"ide_methods.bas");if(r)goto S_62161;}
S_62162:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len(" STATIC",7))))||is_error_pending()){
if(qbevent){evnt(25769,20175,"ide_methods.bas");if(r)goto S_62162;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 7 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20176,"ide_methods.bas");}while(r);
}
S_62165:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_ISSF== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,20179,"ide_methods.bas");if(r)goto S_62165;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20180,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20182,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20184,"ide_methods.bas");}while(r);
do{
*_FUNC_FINDCURRENTSF_LONG_CHECKARGS=func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_new_txt_len("(",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20185,"ide_methods.bas");}while(r);
S_62172:;
if ((*_FUNC_FINDCURRENTSF_LONG_CHECKARGS)||is_error_pending()){
if(qbevent){evnt(25769,20186,"ide_methods.bas");if(r)goto S_62172;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,*_FUNC_FINDCURRENTSF_LONG_CHECKARGS- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20187,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,_FUNC_FINDCURRENTSF_STRING_THISLINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20189,"ide_methods.bas");}while(r);
}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(25769,20194,"ide_methods.bas");}while(r);
S_62178:;
fornext_value7018=*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK;
fornext_finalvalue7018= 1 ;
fornext_step7018= -1 ;
if (fornext_step7018<0) fornext_step_negative7018=1; else fornext_step_negative7018=0;
if (is_error_pending()) goto fornext_error7018;
goto fornext_entrylabel7018;
while(1){
fornext_value7018=fornext_step7018+(*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK);
fornext_entrylabel7018:
*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK=fornext_value7018;
if (fornext_step_negative7018){
if (fornext_value7018<fornext_finalvalue7018) break;
}else{
if (fornext_value7018>fornext_finalvalue7018) break;
}
fornext_error7018:;
if(qbevent){evnt(25769,20195,"ide_methods.bas");if(r)goto S_62178;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20196,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20197,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20198,"ide_methods.bas");}while(r);
S_62182:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,20199,"ide_methods.bas");if(r)goto S_62182;}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ;
if(!qbevent)break;evnt(25769,20199,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7017;
if(!qbevent)break;evnt(25769,20199,"ide_methods.bas");}while(r);
}
S_62186:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||is_error_pending()){
if(qbevent){evnt(25769,20200,"ide_methods.bas");if(r)goto S_62186;}
do{
goto fornext_exit_7017;
if(!qbevent)break;evnt(25769,20200,"ide_methods.bas");}while(r);
}
fornext_continue_7017:;
}
fornext_exit_7017:;
S_62190:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== -1 ))||is_error_pending()){
if(qbevent){evnt(25769,20203,"ide_methods.bas");if(r)goto S_62190;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20204,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 0 ;
if(!qbevent)break;evnt(25769,20210,"ide_methods.bas");}while(r);
S_62194:;
fornext_value7020=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE;
fornext_finalvalue7020=*__LONG_IDEN;
fornext_step7020= 1 ;
if (fornext_step7020<0) fornext_step_negative7020=1; else fornext_step_negative7020=0;
if (is_error_pending()) goto fornext_error7020;
goto fornext_entrylabel7020;
while(1){
fornext_value7020=fornext_step7020+(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK);
fornext_entrylabel7020:
*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK=fornext_value7020;
if (fornext_step_negative7020){
if (fornext_value7020<fornext_finalvalue7020) break;
}else{
if (fornext_value7020>fornext_finalvalue7020) break;
}
fornext_error7020:;
if(qbevent){evnt(25769,20211,"ide_methods.bas");if(r)goto S_62194;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20212,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20213,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20214,"ide_methods.bas");}while(r);
S_62198:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7))))||is_error_pending()){
if(qbevent){evnt(25769,20215,"ide_methods.bas");if(r)goto S_62198;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ;
if(!qbevent)break;evnt(25769,20215,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7019;
if(!qbevent)break;evnt(25769,20215,"ide_methods.bas");}while(r);
}
S_62202:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12))))||is_error_pending()){
if(qbevent){evnt(25769,20216,"ide_methods.bas");if(r)goto S_62202;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ;
if(!qbevent)break;evnt(25769,20216,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7019;
if(!qbevent)break;evnt(25769,20216,"ide_methods.bas");}while(r);
}
S_62206:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||is_error_pending()){
if(qbevent){evnt(25769,20217,"ide_methods.bas");if(r)goto S_62206;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ;
if(!qbevent)break;evnt(25769,20217,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7019;
if(!qbevent)break;evnt(25769,20217,"ide_methods.bas");}while(r);
}
S_62210:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||is_error_pending()){
if(qbevent){evnt(25769,20218,"ide_methods.bas");if(r)goto S_62210;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ;
if(!qbevent)break;evnt(25769,20218,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7019;
if(!qbevent)break;evnt(25769,20218,"ide_methods.bas");}while(r);
}
S_62214:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,20219,"ide_methods.bas");if(r)goto S_62214;}
do{
goto fornext_exit_7019;
if(!qbevent)break;evnt(25769,20219,"ide_methods.bas");}while(r);
}
S_62217:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,20220,"ide_methods.bas");if(r)goto S_62217;}
do{
goto fornext_exit_7019;
if(!qbevent)break;evnt(25769,20220,"ide_methods.bas");}while(r);
}
S_62220:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,20221,"ide_methods.bas");if(r)goto S_62220;}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ;
if(!qbevent)break;evnt(25769,20221,"ide_methods.bas");}while(r);
}
S_62223:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||is_error_pending()){
if(qbevent){evnt(25769,20222,"ide_methods.bas");if(r)goto S_62223;}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(25769,20222,"ide_methods.bas");}while(r);
}
fornext_continue_7019:;
}
fornext_exit_7019:;
S_62227:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_ENDEDSF== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,20224,"ide_methods.bas");if(r)goto S_62227;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20224,"ide_methods.bas");}while(r);
}else{
do{
goto fornext_exit_7012;
if(!qbevent)break;evnt(25769,20224,"ide_methods.bas");}while(r);
}
}
}
fornext_continue_7012:;
}
fornext_exit_7012:;
}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF,_FUNC_FINDCURRENTSF_STRING_SFNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20230,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free363.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_FINDCURRENTSF_STRING_FINDCURRENTSF);return _FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF;
}
