int16 FUNC_DYNMEMBERINDEXDIMS(qbs*_FUNC_DYNMEMBERINDEXDIMS_STRING_INDEXES){
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 "data26.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(16072);}while(r);
do{
if(!qbevent)break;evnt(16073);}while(r);
do{
if(!qbevent)break;evnt(16074);}while(r);
do{
if(!qbevent)break;evnt(16075);}while(r);
do{
if(!qbevent)break;evnt(16076);}while(r);
do{
*_FUNC_DYNMEMBERINDEXDIMS_LONG_NTOKENS=FUNC_NUMELEMENTS(_FUNC_DYNMEMBERINDEXDIMS_STRING_INDEXES);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16078);}while(r);
S_18612:;
if ((-(*_FUNC_DYNMEMBERINDEXDIMS_LONG_NTOKENS== 0 ))||is_error_pending()){
if(qbevent){evnt(16079);if(r)goto S_18612;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16079);}while(r);
}
do{
*_FUNC_DYNMEMBERINDEXDIMS_LONG_ACTUAL_DIMENSIONS= 1 ;
if(!qbevent)break;evnt(16081);}while(r);
do{
*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH= 0 ;
if(!qbevent)break;evnt(16082);}while(r);
S_18617:;
fornext_value2713= 1 ;
fornext_finalvalue2713=*_FUNC_DYNMEMBERINDEXDIMS_LONG_NTOKENS;
fornext_step2713= 1 ;
if (fornext_step2713<0) fornext_step_negative2713=1; else fornext_step_negative2713=0;
if (is_error_pending()) goto fornext_error2713;
goto fornext_entrylabel2713;
while(1){
fornext_value2713=fornext_step2713+(*_FUNC_DYNMEMBERINDEXDIMS_LONG_TOKEN_INDEX);
fornext_entrylabel2713:
*_FUNC_DYNMEMBERINDEXDIMS_LONG_TOKEN_INDEX=fornext_value2713;
if (fornext_step_negative2713){
if (fornext_value2713<fornext_finalvalue2713) break;
}else{
if (fornext_value2713>fornext_finalvalue2713) break;
}
fornext_error2713:;
if(qbevent){evnt(16083);if(r)goto S_18617;}
do{
qbs_set(_FUNC_DYNMEMBERINDEXDIMS_STRING_TOKEN,FUNC_GETELEMENT(_FUNC_DYNMEMBERINDEXDIMS_STRING_INDEXES,_FUNC_DYNMEMBERINDEXDIMS_LONG_TOKEN_INDEX));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16084);}while(r);
S_18619:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DYNMEMBERINDEXDIMS_STRING_TOKEN,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(16085);if(r)goto S_18619;}
do{
*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH=*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH+ 1 ;
if(!qbevent)break;evnt(16085);}while(r);
}
S_18622:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DYNMEMBERINDEXDIMS_STRING_TOKEN,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(16086);if(r)goto S_18622;}
do{
*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH=*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH- 1 ;
if(!qbevent)break;evnt(16086);}while(r);
}
S_18625:;
if ((-(*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH< 0 ))||is_error_pending()){
if(qbevent){evnt(16087);if(r)goto S_18625;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16087);}while(r);
}
S_18628:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH== 0 ))&(qbs_equal(_FUNC_DYNMEMBERINDEXDIMS_STRING_TOKEN,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(16088);if(r)goto S_18628;}
do{
*_FUNC_DYNMEMBERINDEXDIMS_LONG_ACTUAL_DIMENSIONS=*_FUNC_DYNMEMBERINDEXDIMS_LONG_ACTUAL_DIMENSIONS+ 1 ;
if(!qbevent)break;evnt(16088);}while(r);
}
fornext_continue_2712:;
}
fornext_exit_2712:;
S_18632:;
if ((-(*_FUNC_DYNMEMBERINDEXDIMS_LONG_BRACKET_DEPTH!= 0 ))||is_error_pending()){
if(qbevent){evnt(16090);if(r)goto S_18632;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16090);}while(r);
}
do{
*_FUNC_DYNMEMBERINDEXDIMS_INTEGER_DYNMEMBERINDEXDIMS=*_FUNC_DYNMEMBERINDEXDIMS_LONG_ACTUAL_DIMENSIONS;
if(!qbevent)break;evnt(16092);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free26.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_DYNMEMBERINDEXDIMS_INTEGER_DYNMEMBERINDEXDIMS;
}
