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 "data271.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_49585:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__trim(_FUNC_PARSERANGE_STRING___TEXT))->len)== 0 )))||is_error_pending()){
if(qbevent){evnt(24235,10410,"ide_methods.bas");if(r)goto S_49585;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,10410,"ide_methods.bas");}while(r);
}
do{
if(!qbevent)break;evnt(24235,10412,"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(24235,10414,"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(24235,10415,"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(24235,10416,"ide_methods.bas");}while(r);
S_49592:;
if ((-(*_FUNC_PARSERANGE_LONG_J== 0 ))||is_error_pending()){
if(qbevent){evnt(24235,10418,"ide_methods.bas");if(r)goto S_49592;}
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(24235,10419,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,10420,"ide_methods.bas");}while(r);
}
do{
*_FUNC_PARSERANGE_LONG_READING= 1 ;
if(!qbevent)break;evnt(24235,10423,"ide_methods.bas");}while(r);
S_49597:;
fornext_value5657= 1 ;
fornext_finalvalue5657=_FUNC_PARSERANGE_STRING_FILTER->len;
fornext_step5657= 1 ;
if (fornext_step5657<0) fornext_step_negative5657=1; else fornext_step_negative5657=0;
if (is_error_pending()) goto fornext_error5657;
goto fornext_entrylabel5657;
while(1){
fornext_value5657=fornext_step5657+(*_FUNC_PARSERANGE_LONG_J);
fornext_entrylabel5657:
*_FUNC_PARSERANGE_LONG_J=fornext_value5657;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative5657){
if (fornext_value5657<fornext_finalvalue5657) break;
}else{
if (fornext_value5657>fornext_finalvalue5657) break;
}
fornext_error5657:;
if(qbevent){evnt(24235,10424,"ide_methods.bas");if(r)goto S_49597;}
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(24235,10425,"ide_methods.bas");}while(r);
S_49599:;
if(qbevent){evnt(24235,10426,"ide_methods.bas");if(r)goto S_49599;}
S_49600:;
if (((*_FUNC_PARSERANGE_LONG_V==( 59 )))||is_error_pending()){
if(qbevent){evnt(24235,10427,"ide_methods.bas");if(r)goto S_49600;}
do{
*_FUNC_PARSERANGE_LONG_READING= 1 ;
if(!qbevent)break;evnt(24235,10428,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=162;
if (next_return_point>=return_points) more_return_points();
goto LABEL_PARSEIT;
RETURN_162:;
if(!qbevent)break;evnt(24235,10429,"ide_methods.bas");}while(r);
sc_ec_368_end:;
goto sc_5659_end;
}
S_49603:;
if (((*_FUNC_PARSERANGE_LONG_V==( 45 )))||is_error_pending()){
if(qbevent){evnt(24235,10430,"ide_methods.bas");if(r)goto S_49603;}
S_49604:;
if ((-(*_FUNC_PARSERANGE_LONG_PREVCHAR!= 45 ))||is_error_pending()){
if(qbevent){evnt(24235,10431,"ide_methods.bas");if(r)goto S_49604;}
do{
*_FUNC_PARSERANGE_LONG_READING=*_FUNC_PARSERANGE_LONG_READING+ 1 ;
if(!qbevent)break;evnt(24235,10432,"ide_methods.bas");}while(r);
S_49606:;
if ((-(*_FUNC_PARSERANGE_LONG_READING== 2 ))||is_error_pending()){
if(qbevent){evnt(24235,10433,"ide_methods.bas");if(r)goto S_49606;}
S_49607:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||is_error_pending()){
if(qbevent){evnt(24235,10434,"ide_methods.bas");if(r)goto S_49607;}
do{
return_point[next_return_point++]=163;
if (next_return_point>=return_points) more_return_points();
goto LABEL_PARSEIT;
RETURN_163:;
if(!qbevent)break;evnt(24235,10434,"ide_methods.bas");}while(r);
}
}
}
sc_ec_369_end:;
goto sc_5659_end;
}
S_49612:;
if ((((*_FUNC_PARSERANGE_LONG_V>=( 48 ))&&(*_FUNC_PARSERANGE_LONG_V<=( 57 ))))||is_error_pending()){
if(qbevent){evnt(24235,10437,"ide_methods.bas");if(r)goto S_49612;}
S_49613:;
if ((-(*_FUNC_PARSERANGE_LONG_READING== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,10438,"ide_methods.bas");if(r)goto S_49613;}
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(24235,10439,"ide_methods.bas");}while(r);
S_49615:;
}else{
if (-(*_FUNC_PARSERANGE_LONG_READING== 2 )){
if(qbevent){evnt(24235,10440,"ide_methods.bas");if(r)goto S_49615;}
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(24235,10441,"ide_methods.bas");}while(r);
}
}
S_49618:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||is_error_pending()){
if(qbevent){evnt(24235,10443,"ide_methods.bas");if(r)goto S_49618;}
do{
return_point[next_return_point++]=164;
if (next_return_point>=return_points) more_return_points();
goto LABEL_PARSEIT;
RETURN_164:;
if(!qbevent)break;evnt(24235,10443,"ide_methods.bas");}while(r);
}
sc_ec_370_end:;
goto sc_5659_end;
}
sc_5659_end:;
do{
*_FUNC_PARSERANGE_LONG_PREVCHAR=*_FUNC_PARSERANGE_LONG_V;
if(!qbevent)break;evnt(24235,10445,"ide_methods.bas");}while(r);
fornext_continue_5656:;
}
fornext_exit_5656:;
do{
qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10448,"ide_methods.bas");}while(r);
S_49625:;
if ((*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED)||is_error_pending()){
if(qbevent){evnt(24235,10449,"ide_methods.bas");if(r)goto S_49625;}
do{
qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10449,"ide_methods.bas");}while(r);
}
S_49628:;
fornext_value5663= 1 ;
fornext_finalvalue5663=_FUNC_PARSERANGE_STRING_TEMP->len;
fornext_step5663= 1 ;
if (fornext_step5663<0) fornext_step_negative5663=1; else fornext_step_negative5663=0;
if (is_error_pending()) goto fornext_error5663;
goto fornext_entrylabel5663;
while(1){
fornext_value5663=fornext_step5663+(*_FUNC_PARSERANGE_LONG_I);
fornext_entrylabel5663:
*_FUNC_PARSERANGE_LONG_I=fornext_value5663;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative5663){
if (fornext_value5663<fornext_finalvalue5663) break;
}else{
if (fornext_value5663>fornext_finalvalue5663) break;
}
fornext_error5663:;
if(qbevent){evnt(24235,10450,"ide_methods.bas");if(r)goto S_49628;}
S_49629:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_PARSERANGE_STRING_TEMP,*_FUNC_PARSERANGE_LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(24235,10451,"ide_methods.bas");if(r)goto S_49629;}
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(24235,10451,"ide_methods.bas");}while(r);
}
fornext_continue_5662:;
}
fornext_exit_5662:;
do{
qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,_FUNC_PARSERANGE_STRING_RETURNVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10453,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,10455,"ide_methods.bas");}while(r);
LABEL_PARSEIT:;
if(qbevent){evnt(24235,10456,"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(24235,10457,"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(24235,10458,"ide_methods.bas");}while(r);
S_49637:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V2->len> 0 )))||is_error_pending()){
if(qbevent){evnt(24235,10459,"ide_methods.bas");if(r)goto S_49637;}
S_49638:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V1->len> 0 )))||is_error_pending()){
if(qbevent){evnt(24235,10460,"ide_methods.bas");if(r)goto S_49638;}
S_49639:;
if ((-(*_FUNC_PARSERANGE_LONG_V1>*_FUNC_PARSERANGE_LONG_V2))||is_error_pending()){
if(qbevent){evnt(24235,10461,"ide_methods.bas");if(r)goto S_49639;}
do{
swap_32(&*_FUNC_PARSERANGE_LONG_V1,&*_FUNC_PARSERANGE_LONG_V2);
if(!qbevent)break;evnt(24235,10461,"ide_methods.bas");}while(r);
}
S_49642:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V2>_FUNC_PARSERANGE_STRING_TEMP->len)))||is_error_pending()){
if(qbevent){evnt(24235,10462,"ide_methods.bas");if(r)goto S_49642;}
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(24235,10462,"ide_methods.bas");}while(r);
}
S_49645:;
if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||is_error_pending()){
if(qbevent){evnt(24235,10463,"ide_methods.bas");if(r)goto S_49645;}
do{
*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ;
if(!qbevent)break;evnt(24235,10463,"ide_methods.bas");}while(r);
do{
*_FUNC_PARSERANGE_LONG_V1= 1 ;
if(!qbevent)break;evnt(24235,10463,"ide_methods.bas");}while(r);
}
S_49649:;
fornext_value5670=*_FUNC_PARSERANGE_LONG_V1;
fornext_finalvalue5670=*_FUNC_PARSERANGE_LONG_V2;
fornext_step5670= 1 ;
if (fornext_step5670<0) fornext_step_negative5670=1; else fornext_step_negative5670=0;
if (is_error_pending()) goto fornext_error5670;
goto fornext_entrylabel5670;
while(1){
fornext_value5670=fornext_step5670+(*_FUNC_PARSERANGE_LONG_I);
fornext_entrylabel5670:
*_FUNC_PARSERANGE_LONG_I=fornext_value5670;
if (fornext_step_negative5670){
if (fornext_value5670<fornext_finalvalue5670) break;
}else{
if (fornext_value5670>fornext_finalvalue5670) break;
}
fornext_error5670:;
if(qbevent){evnt(24235,10464,"ide_methods.bas");if(r)goto S_49649;}
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(24235,10465,"ide_methods.bas");}while(r);
fornext_continue_5669:;
}
fornext_exit_5669:;
}
}else{
S_49654:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V1>_FUNC_PARSERANGE_STRING_TEMP->len)))||is_error_pending()){
if(qbevent){evnt(24235,10469,"ide_methods.bas");if(r)goto S_49654;}
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(24235,10469,"ide_methods.bas");}while(r);
}
S_49657:;
if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||is_error_pending()){
if(qbevent){evnt(24235,10470,"ide_methods.bas");if(r)goto S_49657;}
do{
*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ;
if(!qbevent)break;evnt(24235,10471,"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(24235,10473,"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(24235,10476,"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(24235,10477,"ide_methods.bas");}while(r);
do{
#include "ret271.txt"
if(!qbevent)break;evnt(24235,10478,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free271.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;
}
