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 "data118.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(25752,323,"elements.bas");}while(r);
do{
if(!qbevent)break;evnt(25752,324,"elements.bas");}while(r);
do{
if (_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]&4){
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]) error(257);
memset((void*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]) error(257);
}
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]|=1;
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4]=alloc_new_desc[4];
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]=alloc_new_desc[5];
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[6]=alloc_new_desc[6];
_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(25752,325,"elements.bas");}while(r);
do{
if(!qbevent)break;evnt(25752,326,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED= -1 ;
if(!qbevent)break;evnt(25752,328,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED= 0 ;
if(!qbevent)break;evnt(25752,329,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED= -2 ;
if(!qbevent)break;evnt(25752,330,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT= 0 ;
if(!qbevent)break;evnt(25752,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(25752,333,"elements.bas");}while(r);
do{
*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT=func_ubound(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS,1,1);
if(!qbevent)break;evnt(25752,345,"elements.bas");}while(r);
S_34351:;
fornext_value4022= 1 ;
fornext_finalvalue4022=_FUNC_ISVALIDARGSET_STRING_FORMAT->len;
fornext_step4022= 1 ;
if (fornext_step4022<0) fornext_step_negative4022=1; else fornext_step_negative4022=0;
if (is_error_pending()) goto fornext_error4022;
goto fornext_entrylabel4022;
while(1){
fornext_value4022=fornext_step4022+(*_FUNC_ISVALIDARGSET_LONG_I);
fornext_entrylabel4022:
*_FUNC_ISVALIDARGSET_LONG_I=fornext_value4022;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4022){
if (fornext_value4022<fornext_finalvalue4022) break;
}else{
if (fornext_value4022>fornext_finalvalue4022) break;
}
fornext_error4022:;
if(qbevent){evnt(25752,347,"elements.bas");if(r)goto S_34351;}
S_34352:;
sc_4024=qbs_asc(_FUNC_ISVALIDARGSET_STRING_FORMAT,*_FUNC_ISVALIDARGSET_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25752,348,"elements.bas");if(r)goto S_34352;}
S_34353:;
if ((qbs_cleanup(qbs_tmp_base,(sc_4024==(qbs_asc(qbs_new_txt_len("[",1))))))||is_error_pending()){
if(qbevent){evnt(25752,349,"elements.bas");if(r)goto S_34353;}
do{
*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 ;
if(!qbevent)break;evnt(25752,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(25752,351,"elements.bas");}while(r);
sc_ec_115_end:;
goto sc_4024_end;
}
S_34356:;
if ((qbs_cleanup(qbs_tmp_base,(sc_4024==(qbs_asc(qbs_new_txt_len("]",1))))))||is_error_pending()){
if(qbevent){evnt(25752,353,"elements.bas");if(r)goto S_34356;}
do{
*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL- 1 ;
if(!qbevent)break;evnt(25752,354,"elements.bas");}while(r);
S_34358:;
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(25752,356,"elements.bas");if(r)goto S_34358;}
S_34359:;
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(25752,360,"elements.bas");if(r)goto S_34359;}
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(25752,361,"elements.bas");}while(r);
}
}else{
S_34363:;
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(25752,366,"elements.bas");if(r)goto S_34363;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(25752,367,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,368,"elements.bas");}while(r);
}
}
sc_ec_116_end:;
goto sc_4024_end;
}
S_34368:;
if ((qbs_cleanup(qbs_tmp_base,(sc_4024==(qbs_asc(qbs_new_txt_len("?",1))))))||is_error_pending()){
if(qbevent){evnt(25752,372,"elements.bas");if(r)goto S_34368;}
do{
*_FUNC_ISVALIDARGSET_LONG_CURRENTARG=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG+ 1 ;
if(!qbevent)break;evnt(25752,373,"elements.bas");}while(r);
S_34370:;
if (((-(*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL>= 1 ))&(-(*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT== 0 )))||is_error_pending()){
if(qbevent){evnt(25752,374,"elements.bas");if(r)goto S_34370;}
do{
*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG;
if(!qbevent)break;evnt(25752,374,"elements.bas");}while(r);
}
S_34373:;
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(25752,376,"elements.bas");if(r)goto S_34373;}
S_34374:;
if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT>=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||is_error_pending()){
if(qbevent){evnt(25752,377,"elements.bas");if(r)goto S_34374;}
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(25752,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(25752,380,"elements.bas");}while(r);
}
}else{
S_34380:;
if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT<*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||is_error_pending()){
if(qbevent){evnt(25752,383,"elements.bas");if(r)goto S_34380;}
S_34381:;
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(25752,384,"elements.bas");if(r)goto S_34381;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(25752,385,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,386,"elements.bas");}while(r);
}
S_34385:;
}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(25752,388,"elements.bas");if(r)goto S_34385;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(25752,389,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,390,"elements.bas");}while(r);
}
}
}
sc_ec_117_end:;
goto sc_4024_end;
}
sc_4024_end:;
fornext_continue_4021:;
}
fornext_exit_4021:;
S_34392:;
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(25752,398,"elements.bas");if(r)goto S_34392;}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ;
if(!qbevent)break;evnt(25752,399,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,400,"elements.bas");}while(r);
}
do{
*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= -1 ;
if(!qbevent)break;evnt(25752,403,"elements.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free118.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;
}
