int32 FUNC_ISVALIDARGSET(qbs*_FUNC_ISVALIDARGSET_STRING_FORMAT,ptrszint*_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS,int32*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT){
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 "data110.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{
if(!qbevent)break;evnt(24218,323,"elements.bas");}while(r);
do{
if(!qbevent)break;evnt(24218,324,"elements.bas");}while(r);
do{

if (_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]&2){
error(10);
}else{
if (_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]&1){
if (!error_occurred) error(10);
}else{
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4]= 0 ;
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]=( 10 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4]+1;
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[6]=1;
if (_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]&4){
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]*4);
memset((void*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]),0,_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]*4);
}else{
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]=(ptrszint)calloc(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]*4,1);
if (!_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]) error(257);
}
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]|=1;
}
}
if(!qbevent)break;evnt(24218,325,"elements.bas");}while(r);
do{
if(!qbevent)break;evnt(24218,326,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED= -1 ;
if(!qbevent)break;evnt(24218,328,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED= 0 ;
if(!qbevent)break;evnt(24218,329,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED= -2 ;
if(!qbevent)break;evnt(24218,330,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT= 0 ;
if(!qbevent)break;evnt(24218,331,"elements.bas");}while(r);
do{
tmp_long=array_check(( 0 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]);
if (!is_error_pending()) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED;
if(!qbevent)break;evnt(24218,333,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT=func_ubound(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS,1,1);
if(!qbevent)break;evnt(24218,345,"elements.bas");}while(r);
S_32841:;
fornext_value3791= 1 ;
fornext_finalvalue3791=_FUNC_ISVALIDARGSET_STRING_FORMAT->len;
fornext_step3791= 1 ;
if (fornext_step3791<0) fornext_step_negative3791=1; else fornext_step_negative3791=0;
if (is_error_pending()) goto fornext_error3791;
goto fornext_entrylabel3791;
while(1){
fornext_value3791=fornext_step3791+(*_FUNC_ISVALIDARGSET_LONG_I);
fornext_entrylabel3791:
*_FUNC_ISVALIDARGSET_LONG_I=fornext_value3791;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative3791){
if (fornext_value3791<fornext_finalvalue3791) break;
}else{
if (fornext_value3791>fornext_finalvalue3791) break;
}
fornext_error3791:;
if(qbevent){evnt(24218,347,"elements.bas");if(r)goto S_32841;}
S_32842:;
sc_3793=qbs_asc(_FUNC_ISVALIDARGSET_STRING_FORMAT,*_FUNC_ISVALIDARGSET_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(24218,348,"elements.bas");if(r)goto S_32842;}
S_32843:;
if ((qbs_cleanup(qbs_tmp_base,(sc_3793==(qbs_asc(qbs_new_txt_len("[",1))))))||is_error_pending()){
if(qbevent){evnt(24218,349,"elements.bas");if(r)goto S_32843;}
do{
*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 ;
if(!qbevent)break;evnt(24218,350,"elements.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]);
if (!is_error_pending()) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED;
if(!qbevent)break;evnt(24218,351,"elements.bas");}while(r);
sc_ec_115_end:;
goto sc_3793_end;
}
S_32846:;
if ((qbs_cleanup(qbs_tmp_base,(sc_3793==(qbs_asc(qbs_new_txt_len("]",1))))))||is_error_pending()){
if(qbevent){evnt(24218,353,"elements.bas");if(r)goto S_32846;}
do{
*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL- 1 ;
if(!qbevent)break;evnt(24218,354,"elements.bas");}while(r);
S_32848:;
if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED))||is_error_pending()){
if(qbevent){evnt(24218,356,"elements.bas");if(r)goto S_32848;}
S_32849:;
if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED))||is_error_pending()){
if(qbevent){evnt(24218,360,"elements.bas");if(r)goto S_32849;}
do{
tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]);
if (!is_error_pending()) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED;
if(!qbevent)break;evnt(24218,361,"elements.bas");}while(r);
}
}else{
S_32853:;
if (((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED))&(-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED)))||is_error_pending()){
if(qbevent){evnt(24218,366,"elements.bas");if(r)goto S_32853;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(24218,367,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,368,"elements.bas");}while(r);
}
}
sc_ec_116_end:;
goto sc_3793_end;
}
S_32858:;
if ((qbs_cleanup(qbs_tmp_base,(sc_3793==(qbs_asc(qbs_new_txt_len("?",1))))))||is_error_pending()){
if(qbevent){evnt(24218,372,"elements.bas");if(r)goto S_32858;}
do{
*_FUNC_ISVALIDARGSET_LONG_CURRENTARG=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG+ 1 ;
if(!qbevent)break;evnt(24218,373,"elements.bas");}while(r);
S_32860:;
if (((-(*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL>= 1 ))&(-(*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT== 0 )))||is_error_pending()){
if(qbevent){evnt(24218,374,"elements.bas");if(r)goto S_32860;}
do{
*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG;
if(!qbevent)break;evnt(24218,374,"elements.bas");}while(r);
}
S_32863:;
if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED))||is_error_pending()){
if(qbevent){evnt(24218,376,"elements.bas");if(r)goto S_32863;}
S_32864:;
if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT>=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||is_error_pending()){
if(qbevent){evnt(24218,377,"elements.bas");if(r)goto S_32864;}
do{
tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]);
if (!is_error_pending()) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_CURRENTARG)-_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[5])];
if(!qbevent)break;evnt(24218,378,"elements.bas");}while(r);
}else{
do{
tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]);
if (!is_error_pending()) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(24218,380,"elements.bas");}while(r);
}
}else{
S_32870:;
if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT<*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||is_error_pending()){
if(qbevent){evnt(24218,383,"elements.bas");if(r)goto S_32870;}
S_32871:;
if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]!=*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED))||is_error_pending()){
if(qbevent){evnt(24218,384,"elements.bas");if(r)goto S_32871;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(24218,385,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,386,"elements.bas");}while(r);
}
S_32875:;
}else{
if (-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]!=((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_CURRENTARG)-_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[5])])){
if(qbevent){evnt(24218,388,"elements.bas");if(r)goto S_32875;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(24218,389,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,390,"elements.bas");}while(r);
}
}
}
sc_ec_117_end:;
goto sc_3793_end;
}
sc_3793_end:;
fornext_continue_3790:;
}
fornext_exit_3790:;
S_32882:;
if (((-(*_FUNC_ISVALIDARGSET_LONG_CURRENTARG<*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT))|(-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check(( 0 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED)))||is_error_pending()){
if(qbevent){evnt(24218,398,"elements.bas");if(r)goto S_32882;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(24218,399,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,400,"elements.bas");}while(r);
}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= -1 ;
if(!qbevent)break;evnt(24218,403,"elements.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free110.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;
return *_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET;
}
