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 "data427.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{
qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20684,"ide_methods.bas");}while(r);
S_66826:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_WHICHLINE> 0 ))||is_error_pending()){
if(qbevent){evnt(28182,20685,"ide_methods.bas");if(r)goto S_66826;}
S_66827:;
fornext_value7687=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE;
fornext_finalvalue7687= 1 ;
fornext_step7687= -1 ;
if (fornext_step7687<0) fornext_step_negative7687=1; else fornext_step_negative7687=0;
if (is_error_pending()) goto fornext_error7687;
goto fornext_entrylabel7687;
while(1){
fornext_value7687=fornext_step7687+(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK);
fornext_entrylabel7687:
*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK=fornext_value7687;
if (fornext_step_negative7687){
if (fornext_value7687<fornext_finalvalue7687) break;
}else{
if (fornext_value7687>fornext_finalvalue7687) break;
}
fornext_error7687:;
if(qbevent){evnt(28182,20686,"ide_methods.bas");if(r)goto S_66827;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20687,"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(28182,20688,"ide_methods.bas");}while(r);
do{
*_FUNC_FINDCURRENTSF_LONG_ISSF= 0 ;
if(!qbevent)break;evnt(28182,20689,"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(28182,20690,"ide_methods.bas");}while(r);
S_66832:;
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(28182,20691,"ide_methods.bas");if(r)goto S_66832;}
do{
*_FUNC_FINDCURRENTSF_LONG_ISSF= 1 ;
if(!qbevent)break;evnt(28182,20691,"ide_methods.bas");}while(r);
}
S_66835:;
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(28182,20692,"ide_methods.bas");if(r)goto S_66835;}
do{
*_FUNC_FINDCURRENTSF_LONG_ISSF= 2 ;
if(!qbevent)break;evnt(28182,20692,"ide_methods.bas");}while(r);
}
S_66838:;
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(28182,20693,"ide_methods.bas");if(r)goto S_66838;}
do{
goto fornext_exit_7686;
if(!qbevent)break;evnt(28182,20693,"ide_methods.bas");}while(r);
}
S_66841:;
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(28182,20694,"ide_methods.bas");if(r)goto S_66841;}
do{
goto fornext_exit_7686;
if(!qbevent)break;evnt(28182,20694,"ide_methods.bas");}while(r);
}
S_66844:;
if ((*_FUNC_FINDCURRENTSF_LONG_ISSF)||is_error_pending()){
if(qbevent){evnt(28182,20695,"ide_methods.bas");if(r)goto S_66844;}
S_66845:;
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(28182,20696,"ide_methods.bas");if(r)goto S_66845;}
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(28182,20697,"ide_methods.bas");}while(r);
}
S_66848:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_ISSF== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,20700,"ide_methods.bas");if(r)goto S_66848;}
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(28182,20701,"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(28182,20703,"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(28182,20705,"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(28182,20706,"ide_methods.bas");}while(r);
S_66855:;
if ((*_FUNC_FINDCURRENTSF_LONG_CHECKARGS)||is_error_pending()){
if(qbevent){evnt(28182,20707,"ide_methods.bas");if(r)goto S_66855;}
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(28182,20708,"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(28182,20710,"ide_methods.bas");}while(r);
}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(28182,20715,"ide_methods.bas");}while(r);
S_66861:;
fornext_value7692=*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK;
fornext_finalvalue7692= 1 ;
fornext_step7692= -1 ;
if (fornext_step7692<0) fornext_step_negative7692=1; else fornext_step_negative7692=0;
if (is_error_pending()) goto fornext_error7692;
goto fornext_entrylabel7692;
while(1){
fornext_value7692=fornext_step7692+(*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK);
fornext_entrylabel7692:
*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK=fornext_value7692;
if (fornext_step_negative7692){
if (fornext_value7692<fornext_finalvalue7692) break;
}else{
if (fornext_value7692>fornext_finalvalue7692) break;
}
fornext_error7692:;
if(qbevent){evnt(28182,20716,"ide_methods.bas");if(r)goto S_66861;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20717,"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(28182,20718,"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(28182,20719,"ide_methods.bas");}while(r);
S_66865:;
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(28182,20720,"ide_methods.bas");if(r)goto S_66865;}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ;
if(!qbevent)break;evnt(28182,20720,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7691;
if(!qbevent)break;evnt(28182,20720,"ide_methods.bas");}while(r);
}
S_66869:;
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(28182,20721,"ide_methods.bas");if(r)goto S_66869;}
do{
goto fornext_exit_7691;
if(!qbevent)break;evnt(28182,20721,"ide_methods.bas");}while(r);
}
fornext_continue_7691:;
}
fornext_exit_7691:;
S_66873:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== -1 ))||is_error_pending()){
if(qbevent){evnt(28182,20724,"ide_methods.bas");if(r)goto S_66873;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20725,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 0 ;
if(!qbevent)break;evnt(28182,20731,"ide_methods.bas");}while(r);
S_66877:;
fornext_value7694=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE;
fornext_finalvalue7694=*__LONG_IDEN;
fornext_step7694= 1 ;
if (fornext_step7694<0) fornext_step_negative7694=1; else fornext_step_negative7694=0;
if (is_error_pending()) goto fornext_error7694;
goto fornext_entrylabel7694;
while(1){
fornext_value7694=fornext_step7694+(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK);
fornext_entrylabel7694:
*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK=fornext_value7694;
if (fornext_step_negative7694){
if (fornext_value7694<fornext_finalvalue7694) break;
}else{
if (fornext_value7694>fornext_finalvalue7694) break;
}
fornext_error7694:;
if(qbevent){evnt(28182,20732,"ide_methods.bas");if(r)goto S_66877;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20733,"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(28182,20734,"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(28182,20735,"ide_methods.bas");}while(r);
S_66881:;
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(28182,20736,"ide_methods.bas");if(r)goto S_66881;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ;
if(!qbevent)break;evnt(28182,20736,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7693;
if(!qbevent)break;evnt(28182,20736,"ide_methods.bas");}while(r);
}
S_66885:;
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(28182,20737,"ide_methods.bas");if(r)goto S_66885;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ;
if(!qbevent)break;evnt(28182,20737,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7693;
if(!qbevent)break;evnt(28182,20737,"ide_methods.bas");}while(r);
}
S_66889:;
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(28182,20738,"ide_methods.bas");if(r)goto S_66889;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ;
if(!qbevent)break;evnt(28182,20738,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7693;
if(!qbevent)break;evnt(28182,20738,"ide_methods.bas");}while(r);
}
S_66893:;
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(28182,20739,"ide_methods.bas");if(r)goto S_66893;}
do{
*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ;
if(!qbevent)break;evnt(28182,20739,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7693;
if(!qbevent)break;evnt(28182,20739,"ide_methods.bas");}while(r);
}
S_66897:;
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(28182,20740,"ide_methods.bas");if(r)goto S_66897;}
do{
goto fornext_exit_7693;
if(!qbevent)break;evnt(28182,20740,"ide_methods.bas");}while(r);
}
S_66900:;
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(28182,20741,"ide_methods.bas");if(r)goto S_66900;}
do{
goto fornext_exit_7693;
if(!qbevent)break;evnt(28182,20741,"ide_methods.bas");}while(r);
}
S_66903:;
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(28182,20742,"ide_methods.bas");if(r)goto S_66903;}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ;
if(!qbevent)break;evnt(28182,20742,"ide_methods.bas");}while(r);
}
S_66906:;
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(28182,20743,"ide_methods.bas");if(r)goto S_66906;}
do{
*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(28182,20743,"ide_methods.bas");}while(r);
}
fornext_continue_7693:;
}
fornext_exit_7693:;
S_66910:;
if ((-(*_FUNC_FINDCURRENTSF_LONG_ENDEDSF== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,20745,"ide_methods.bas");if(r)goto S_66910;}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20745,"ide_methods.bas");}while(r);
}else{
do{
goto fornext_exit_7686;
if(!qbevent)break;evnt(28182,20745,"ide_methods.bas");}while(r);
}
}
}
fornext_continue_7686:;
}
fornext_exit_7686:;
}
do{
qbs_set(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF,_FUNC_FINDCURRENTSF_STRING_SFNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20751,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free427.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;
}
