int16 FUNC_HASINDEXEDFINALMEMBERARRAY(qbs*_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR){
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 "data25.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{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16648);}while(r);
S_19541:;
if ((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(16649);if(r)goto S_19541;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16649);}while(r);
}
S_19544:;
while((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(16651);if(r)goto S_19544;}
S_19545:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,&(pass2816= 1 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N),qbs_new_txt_len(")",1)))))||is_error_pending()){
if(qbevent){evnt(16652);if(r)goto S_19545;}
do{
goto dl_exit_2815;
if(!qbevent)break;evnt(16652);}while(r);
}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B= 0 ;
if(!qbevent)break;evnt(16654);}while(r);
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_WRAPPED= -1 ;
if(!qbevent)break;evnt(16655);}while(r);
S_19550:;
fornext_value2818= 1 ;
fornext_finalvalue2818=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N;
fornext_step2818= 1 ;
if (fornext_step2818<0) fornext_step_negative2818=1; else fornext_step_negative2818=0;
if (is_error_pending()) goto fornext_error2818;
goto fornext_entrylabel2818;
while(1){
fornext_value2818=fornext_step2818+(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I);
fornext_entrylabel2818:
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I=fornext_value2818;
if (fornext_step_negative2818){
if (fornext_value2818<fornext_finalvalue2818) break;
}else{
if (fornext_value2818>fornext_finalvalue2818) break;
}
fornext_error2818:;
if(qbevent){evnt(16656);if(r)goto S_19550;}
do{
qbs_set(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_T,FUNC_GETELEMENT(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16657);}while(r);
S_19552:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_T,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(16658);if(r)goto S_19552;}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B+ 1 ;
if(!qbevent)break;evnt(16658);}while(r);
}
S_19555:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_T,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(16659);if(r)goto S_19555;}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B- 1 ;
if(!qbevent)break;evnt(16660);}while(r);
S_19557:;
if (((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B== 0 ))&(-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I!=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N)))||is_error_pending()){
if(qbevent){evnt(16661);if(r)goto S_19557;}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_WRAPPED= 0 ;
if(!qbevent)break;evnt(16661);}while(r);
do{
goto fornext_exit_2817;
if(!qbevent)break;evnt(16661);}while(r);
}
}
fornext_continue_2817:;
}
fornext_exit_2817:;
S_19563:;
if (((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_WRAPPED== 0 ))|(-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B!= 0 )))||is_error_pending()){
if(qbevent){evnt(16664);if(r)goto S_19563;}
do{
goto dl_exit_2815;
if(!qbevent)break;evnt(16664);}while(r);
}
do{
qbs_set(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,FUNC_GETELEMENTS(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,&(pass2819= 2 ),&(pass2820=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16666);}while(r);
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16667);}while(r);
S_19568:;
if ((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(16668);if(r)goto S_19568;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16668);}while(r);
}
dl_continue_2815:;
}
dl_exit_2815:;
S_19572:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N),qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(16671);if(r)goto S_19572;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16671);}while(r);
}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B= 1 ;
if(!qbevent)break;evnt(16673);}while(r);
S_19576:;
fornext_value2822=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N- 1 ;
fornext_finalvalue2822= 1 ;
fornext_step2822= -1 ;
if (fornext_step2822<0) fornext_step_negative2822=1; else fornext_step_negative2822=0;
if (is_error_pending()) goto fornext_error2822;
goto fornext_entrylabel2822;
while(1){
fornext_value2822=fornext_step2822+(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I);
fornext_entrylabel2822:
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I=fornext_value2822;
if (fornext_step_negative2822){
if (fornext_value2822<fornext_finalvalue2822) break;
}else{
if (fornext_value2822>fornext_finalvalue2822) break;
}
fornext_error2822:;
if(qbevent){evnt(16674);if(r)goto S_19576;}
do{
qbs_set(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_T,FUNC_GETELEMENT(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16675);}while(r);
S_19578:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_T,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(16676);if(r)goto S_19578;}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B+ 1 ;
if(!qbevent)break;evnt(16676);}while(r);
}
S_19581:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_T,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(16677);if(r)goto S_19581;}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B- 1 ;
if(!qbevent)break;evnt(16678);}while(r);
S_19583:;
if ((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(16679);if(r)goto S_19583;}
S_19584:;
if ((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I>= 3 ))||is_error_pending()){
if(qbevent){evnt(16680);if(r)goto S_19584;}
S_19585:;
if ((-(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I<(*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(16683);if(r)goto S_19585;}
S_19586:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_HASINDEXEDFINALMEMBERARRAY_STRING_EXPR,&(pass2823=*_FUNC_HASINDEXEDFINALMEMBERARRAY_LONG_I- 2 )),qbs_new_txt_len(".",1))))||is_error_pending()){
if(qbevent){evnt(16684);if(r)goto S_19586;}
do{
*_FUNC_HASINDEXEDFINALMEMBERARRAY_INTEGER_HASINDEXEDFINALMEMBERARRAY= -1 ;
if(!qbevent)break;evnt(16684);}while(r);
}
}
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16688);}while(r);
}
}
fornext_continue_2821:;
}
fornext_exit_2821:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free25.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_HASINDEXEDFINALMEMBERARRAY_INTEGER_HASINDEXEDFINALMEMBERARRAY;
}
