qbs* FUNC_PARSERANGE(qbs*_FUNC_PARSERANGE_STRING___TEXT){
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 "data282.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;
S_51250:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__trim(_FUNC_PARSERANGE_STRING___TEXT))->len)== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,10411,"ide_methods.bas");if(r)goto S_51250;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,10411,"ide_methods.bas");}while(r);
}
do{
if(!qbevent)break;evnt(25769,10413,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_PARSERANGE_STRING_FILTER,qbs__trim(_FUNC_PARSERANGE_STRING___TEXT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10415,"ide_methods.bas");}while(r);
do{
*_FUNC_PARSERANGE_LONG_J=func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len("-",1),0)+func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len(";",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10416,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_PARSERANGE_STRING_TEMP,func_space( 1000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10417,"ide_methods.bas");}while(r);
S_51257:;
if ((-(*_FUNC_PARSERANGE_LONG_J== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,10419,"ide_methods.bas");if(r)goto S_51257;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,l2string(qbr(qbs_val<long double>(_FUNC_PARSERANGE_STRING_FILTER))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10420,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,10421,"ide_methods.bas");}while(r);
}
do{
*_FUNC_PARSERANGE_LONG_READING= 1 ;
if(!qbevent)break;evnt(25769,10424,"ide_methods.bas");}while(r);
S_51262:;
fornext_value5925= 1 ;
fornext_finalvalue5925=_FUNC_PARSERANGE_STRING_FILTER->len;
fornext_step5925= 1 ;
if (fornext_step5925<0) fornext_step_negative5925=1; else fornext_step_negative5925=0;
if (is_error_pending()) goto fornext_error5925;
goto fornext_entrylabel5925;
while(1){
fornext_value5925=fornext_step5925+(*_FUNC_PARSERANGE_LONG_J);
fornext_entrylabel5925:
*_FUNC_PARSERANGE_LONG_J=fornext_value5925;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative5925){
if (fornext_value5925<fornext_finalvalue5925) break;
}else{
if (fornext_value5925>fornext_finalvalue5925) break;
}
fornext_error5925:;
if(qbevent){evnt(25769,10425,"ide_methods.bas");if(r)goto S_51262;}
do{
*_FUNC_PARSERANGE_LONG_V=qbs_asc(_FUNC_PARSERANGE_STRING_FILTER,*_FUNC_PARSERANGE_LONG_J);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10426,"ide_methods.bas");}while(r);
S_51264:;
if(qbevent){evnt(25769,10427,"ide_methods.bas");if(r)goto S_51264;}
S_51265:;
if (((*_FUNC_PARSERANGE_LONG_V==( 59 )))||is_error_pending()){
if(qbevent){evnt(25769,10428,"ide_methods.bas");if(r)goto S_51265;}
do{
*_FUNC_PARSERANGE_LONG_READING= 1 ;
if(!qbevent)break;evnt(25769,10429,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=166;
if (next_return_point>=return_points) more_return_points();
goto LABEL_PARSEIT;
RETURN_166:;
if(!qbevent)break;evnt(25769,10430,"ide_methods.bas");}while(r);
sc_ec_368_end:;
goto sc_5927_end;
}
S_51268:;
if (((*_FUNC_PARSERANGE_LONG_V==( 45 )))||is_error_pending()){
if(qbevent){evnt(25769,10431,"ide_methods.bas");if(r)goto S_51268;}
S_51269:;
if ((-(*_FUNC_PARSERANGE_LONG_PREVCHAR!= 45 ))||is_error_pending()){
if(qbevent){evnt(25769,10432,"ide_methods.bas");if(r)goto S_51269;}
do{
*_FUNC_PARSERANGE_LONG_READING=*_FUNC_PARSERANGE_LONG_READING+ 1 ;
if(!qbevent)break;evnt(25769,10433,"ide_methods.bas");}while(r);
S_51271:;
if ((-(*_FUNC_PARSERANGE_LONG_READING== 2 ))||is_error_pending()){
if(qbevent){evnt(25769,10434,"ide_methods.bas");if(r)goto S_51271;}
S_51272:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||is_error_pending()){
if(qbevent){evnt(25769,10435,"ide_methods.bas");if(r)goto S_51272;}
do{
return_point[next_return_point++]=167;
if (next_return_point>=return_points) more_return_points();
goto LABEL_PARSEIT;
RETURN_167:;
if(!qbevent)break;evnt(25769,10435,"ide_methods.bas");}while(r);
}
}
}
sc_ec_369_end:;
goto sc_5927_end;
}
S_51277:;
if ((((*_FUNC_PARSERANGE_LONG_V>=( 48 ))&&(*_FUNC_PARSERANGE_LONG_V<=( 57 ))))||is_error_pending()){
if(qbevent){evnt(25769,10438,"ide_methods.bas");if(r)goto S_51277;}
S_51278:;
if ((-(*_FUNC_PARSERANGE_LONG_READING== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,10439,"ide_methods.bas");if(r)goto S_51278;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_add(_FUNC_PARSERANGE_STRING_V1,func_chr(*_FUNC_PARSERANGE_LONG_V)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10440,"ide_methods.bas");}while(r);
S_51280:;
}else{
if (-(*_FUNC_PARSERANGE_LONG_READING== 2 )){
if(qbevent){evnt(25769,10441,"ide_methods.bas");if(r)goto S_51280;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_add(_FUNC_PARSERANGE_STRING_V2,func_chr(*_FUNC_PARSERANGE_LONG_V)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10442,"ide_methods.bas");}while(r);
}
}
S_51283:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||is_error_pending()){
if(qbevent){evnt(25769,10444,"ide_methods.bas");if(r)goto S_51283;}
do{
return_point[next_return_point++]=168;
if (next_return_point>=return_points) more_return_points();
goto LABEL_PARSEIT;
RETURN_168:;
if(!qbevent)break;evnt(25769,10444,"ide_methods.bas");}while(r);
}
sc_ec_370_end:;
goto sc_5927_end;
}
sc_5927_end:;
do{
*_FUNC_PARSERANGE_LONG_PREVCHAR=*_FUNC_PARSERANGE_LONG_V;
if(!qbevent)break;evnt(25769,10446,"ide_methods.bas");}while(r);
fornext_continue_5924:;
}
fornext_exit_5924:;
do{
qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10449,"ide_methods.bas");}while(r);
S_51290:;
if ((*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED)||is_error_pending()){
if(qbevent){evnt(25769,10450,"ide_methods.bas");if(r)goto S_51290;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10450,"ide_methods.bas");}while(r);
}
S_51293:;
fornext_value5931= 1 ;
fornext_finalvalue5931=_FUNC_PARSERANGE_STRING_TEMP->len;
fornext_step5931= 1 ;
if (fornext_step5931<0) fornext_step_negative5931=1; else fornext_step_negative5931=0;
if (is_error_pending()) goto fornext_error5931;
goto fornext_entrylabel5931;
while(1){
fornext_value5931=fornext_step5931+(*_FUNC_PARSERANGE_LONG_I);
fornext_entrylabel5931:
*_FUNC_PARSERANGE_LONG_I=fornext_value5931;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative5931){
if (fornext_value5931<fornext_finalvalue5931) break;
}else{
if (fornext_value5931>fornext_finalvalue5931) break;
}
fornext_error5931:;
if(qbevent){evnt(25769,10451,"ide_methods.bas");if(r)goto S_51293;}
S_51294:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_PARSERANGE_STRING_TEMP,*_FUNC_PARSERANGE_LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(25769,10452,"ide_methods.bas");if(r)goto S_51294;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_add(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string(*_FUNC_PARSERANGE_LONG_I)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10452,"ide_methods.bas");}while(r);
}
fornext_continue_5930:;
}
fornext_exit_5930:;
do{
qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,_FUNC_PARSERANGE_STRING_RETURNVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10454,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,10456,"ide_methods.bas");}while(r);
LABEL_PARSEIT:;
if(qbevent){evnt(25769,10457,"ide_methods.bas");r=0;}
do{
*_FUNC_PARSERANGE_LONG_V1=qbr(qbs_val<long double>(_FUNC_PARSERANGE_STRING_V1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10458,"ide_methods.bas");}while(r);
do{
*_FUNC_PARSERANGE_LONG_V2=qbr(qbs_val<long double>(_FUNC_PARSERANGE_STRING_V2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10459,"ide_methods.bas");}while(r);
S_51302:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V2->len> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,10460,"ide_methods.bas");if(r)goto S_51302;}
S_51303:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V1->len> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,10461,"ide_methods.bas");if(r)goto S_51303;}
S_51304:;
if ((-(*_FUNC_PARSERANGE_LONG_V1>*_FUNC_PARSERANGE_LONG_V2))||is_error_pending()){
if(qbevent){evnt(25769,10462,"ide_methods.bas");if(r)goto S_51304;}
do{
swap_32(&*_FUNC_PARSERANGE_LONG_V1,&*_FUNC_PARSERANGE_LONG_V2);
if(!qbevent)break;evnt(25769,10462,"ide_methods.bas");}while(r);
}
S_51307:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V2>_FUNC_PARSERANGE_STRING_TEMP->len)))||is_error_pending()){
if(qbevent){evnt(25769,10463,"ide_methods.bas");if(r)goto S_51307;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V2-_FUNC_PARSERANGE_STRING_TEMP->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10463,"ide_methods.bas");}while(r);
}
S_51310:;
if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,10464,"ide_methods.bas");if(r)goto S_51310;}
do{
*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ;
if(!qbevent)break;evnt(25769,10464,"ide_methods.bas");}while(r);
do{
*_FUNC_PARSERANGE_LONG_V1= 1 ;
if(!qbevent)break;evnt(25769,10464,"ide_methods.bas");}while(r);
}
S_51314:;
fornext_value5938=*_FUNC_PARSERANGE_LONG_V1;
fornext_finalvalue5938=*_FUNC_PARSERANGE_LONG_V2;
fornext_step5938= 1 ;
if (fornext_step5938<0) fornext_step_negative5938=1; else fornext_step_negative5938=0;
if (is_error_pending()) goto fornext_error5938;
goto fornext_entrylabel5938;
while(1){
fornext_value5938=fornext_step5938+(*_FUNC_PARSERANGE_LONG_I);
fornext_entrylabel5938:
*_FUNC_PARSERANGE_LONG_I=fornext_value5938;
if (fornext_step_negative5938){
if (fornext_value5938<fornext_finalvalue5938) break;
}else{
if (fornext_value5938>fornext_finalvalue5938) break;
}
fornext_error5938:;
if(qbevent){evnt(25769,10465,"ide_methods.bas");if(r)goto S_51314;}
do{
tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!is_error_pending()){
tmp_fileno=*_FUNC_PARSERANGE_LONG_I; if (!is_error_pending()){
tmp_long= 1 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25769,10466,"ide_methods.bas");}while(r);
fornext_continue_5937:;
}
fornext_exit_5937:;
}
}else{
S_51319:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V1>_FUNC_PARSERANGE_STRING_TEMP->len)))||is_error_pending()){
if(qbevent){evnt(25769,10470,"ide_methods.bas");if(r)goto S_51319;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V1-_FUNC_PARSERANGE_STRING_TEMP->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10470,"ide_methods.bas");}while(r);
}
S_51322:;
if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,10471,"ide_methods.bas");if(r)goto S_51322;}
do{
*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ;
if(!qbevent)break;evnt(25769,10472,"ide_methods.bas");}while(r);
}else{
do{
tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!is_error_pending()){
tmp_fileno=*_FUNC_PARSERANGE_LONG_V1; if (!is_error_pending()){
tmp_long= 1 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25769,10474,"ide_methods.bas");}while(r);
}
}
do{
qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10477,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10478,"ide_methods.bas");}while(r);
do{
#include "ret282.txt"
if(!qbevent)break;evnt(25769,10479,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free282.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_PARSERANGE_STRING_PARSERANGE);return _FUNC_PARSERANGE_STRING_PARSERANGE;
}
