int32 FUNC_TYPNAME2TYP(qbs*_FUNC_TYPNAME2TYP_STRING_T2){
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 "data232.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{
*__LONG_TYPNAME2TYPSIZE= 0 ;
if(!qbevent)break;evnt(25759,385,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,387,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,390,"type.bas");}while(r);
S_38523:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(25759,391,"type.bas");if(r)goto S_38523;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(25759,391,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,391,"type.bas");}while(r);
}
S_38527:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(25759,392,"type.bas");if(r)goto S_38527;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(25759,392,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,392,"type.bas");}while(r);
}
S_38531:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(25759,393,"type.bas");if(r)goto S_38531;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(25759,393,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,393,"type.bas");}while(r);
}
S_38535:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(25759,394,"type.bas");if(r)goto S_38535;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(25759,394,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,394,"type.bas");}while(r);
}
S_38539:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(25759,397,"type.bas");if(r)goto S_38539;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,398,"type.bas");}while(r);
S_38541:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(25759,399,"type.bas");if(r)goto S_38541;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,399,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,399,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,400,"type.bas");}while(r);
S_38546:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(25759,401,"type.bas");if(r)goto S_38546;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,401,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,401,"type.bas");}while(r);
}
do{
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(25759,402,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(25759,403,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,404,"type.bas");}while(r);
}
S_38554:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||is_error_pending()){
if(qbevent){evnt(25759,408,"type.bas");if(r)goto S_38554;}
do{
*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ;
if(!qbevent)break;evnt(25759,408,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,408,"type.bas");}while(r);
}
S_38558:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(25759,411,"type.bas");if(r)goto S_38558;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,412,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_B= 1 ;
if(!qbevent)break;evnt(25759,413,"type.bas");}while(r);
S_38561:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25759,414,"type.bas");if(r)goto S_38561;}
S_38562:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(25759,415,"type.bas");if(r)goto S_38562;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,415,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,415,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,416,"type.bas");}while(r);
S_38567:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 64 ))||is_error_pending()){
if(qbevent){evnt(25759,417,"type.bas");if(r)goto S_38567;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,417,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,417,"type.bas");}while(r);
}
}
S_38572:;
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(25759,419,"type.bas");if(r)goto S_38572;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
if(!qbevent)break;evnt(25759,419,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
if(!qbevent)break;evnt(25759,419,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,420,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
if(!qbevent)break;evnt(25759,423,"type.bas");}while(r);
S_38580:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(25759,424,"type.bas");if(r)goto S_38580;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(25759,424,"type.bas");}while(r);
}
S_38583:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(25759,425,"type.bas");if(r)goto S_38583;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(25759,425,"type.bas");}while(r);
}
S_38586:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(25759,426,"type.bas");if(r)goto S_38586;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(25759,426,"type.bas");}while(r);
}
S_38589:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(25759,427,"type.bas");if(r)goto S_38589;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(25759,427,"type.bas");}while(r);
}
S_38592:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(25759,428,"type.bas");if(r)goto S_38592;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(25759,428,"type.bas");}while(r);
}
S_38595:;
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
if(qbevent){evnt(25759,430,"type.bas");if(r)goto S_38595;}
S_38596:;
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(25759,431,"type.bas");if(r)goto S_38596;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(25759,431,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(25759,432,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,432,"type.bas");}while(r);
}
S_38602:;
fornext_value4507= 1 ;
fornext_finalvalue4507=_FUNC_TYPNAME2TYP_STRING_T->len;
fornext_step4507= 1 ;
if (fornext_step4507<0) fornext_step_negative4507=1; else fornext_step_negative4507=0;
if (is_error_pending()) goto fornext_error4507;
goto fornext_entrylabel4507;
while(1){
fornext_value4507=fornext_step4507+(*_FUNC_TYPNAME2TYP_LONG_I);
fornext_entrylabel4507:
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4507;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4507){
if (fornext_value4507<fornext_finalvalue4507) break;
}else{
if (fornext_value4507>fornext_finalvalue4507) break;
}
fornext_error4507:;
if(qbevent){evnt(25759,437,"type.bas");if(r)goto S_38602;}
S_38603:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(25759,438,"type.bas");if(r)goto S_38603;}
do{
sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(25759,438,"type.bas");}while(r);
}
fornext_continue_4506:;
}
fornext_exit_4506:;
S_38607:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||is_error_pending()){
if(qbevent){evnt(25759,440,"type.bas");if(r)goto S_38607;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(25759,440,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,440,"type.bas");}while(r);
}
S_38611:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("STRING * ",9))))||is_error_pending()){
if(qbevent){evnt(25759,442,"type.bas");if(r)goto S_38611;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,444,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ;
if(!qbevent)break;evnt(25759,447,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,448,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(25759,449,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,450,"type.bas");}while(r);
S_38617:;
while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(25759,451,"type.bas");if(r)goto S_38617;}
S_38618:;
if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(25759,452,"type.bas");if(r)goto S_38618;}
S_38619:;
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
if(qbevent){evnt(25759,453,"type.bas");if(r)goto S_38619;}
do{
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ;
if(!qbevent)break;evnt(25759,454,"type.bas");}while(r);
do{
goto dl_exit_4510;
if(!qbevent)break;evnt(25759,455,"type.bas");}while(r);
}
}
S_38624:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(25759,458,"type.bas");if(r)goto S_38624;}
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF);
if(!qbevent)break;evnt(25759,458,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(25759,458,"type.bas");}while(r);
}
dl_continue_4510:;
}
dl_exit_4510:;
S_38630:;
if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||is_error_pending()){
if(qbevent){evnt(25759,460,"type.bas");if(r)goto S_38630;}
do{
*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF;
if(!qbevent)break;evnt(25759,461,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])];
if(!qbevent)break;evnt(25759,462,"type.bas");}while(r);
S_38633:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(25759,463,"type.bas");if(r)goto S_38633;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,463,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,463,"type.bas");}while(r);
}
S_38637:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(25759,465,"type.bas");if(r)goto S_38637;}
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])];
if(!qbevent)break;evnt(25759,466,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V);
if(!qbevent)break;evnt(25759,467,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(25759,468,"type.bas");}while(r);
}else{
S_38642:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(25759,470,"type.bas");if(r)goto S_38642;}
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])];
if(!qbevent)break;evnt(25759,471,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V;
if(!qbevent)break;evnt(25759,472,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(25759,473,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])];
if(!qbevent)break;evnt(25759,475,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(25759,476,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(25759,477,"type.bas");}while(r);
}
}
S_38652:;
if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||is_error_pending()){
if(qbevent){evnt(25759,480,"type.bas");if(r)goto S_38652;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,480,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,480,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(25759,481,"type.bas");}while(r);
do{
goto LABEL_CONSTANTLENSTR;
if(!qbevent)break;evnt(25759,482,"type.bas");}while(r);
}
S_38659:;
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||is_error_pending()){
if(qbevent){evnt(25759,485,"type.bas");if(r)goto S_38659;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number/constant after STRING * type",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,485,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,485,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,486,"type.bas");}while(r);
S_38664:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||is_error_pending()){
if(qbevent){evnt(25759,487,"type.bas");if(r)goto S_38664;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,487,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,487,"type.bas");}while(r);
}
LABEL_CONSTANTLENSTR:;
if(qbevent){evnt(25759,488,"type.bas");r=0;}
do{
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(25759,489,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(25759,490,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,491,"type.bas");}while(r);
}
S_38672:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
if(qbevent){evnt(25759,494,"type.bas");if(r)goto S_38672;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(25759,494,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,494,"type.bas");}while(r);
}
S_38676:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
if(qbevent){evnt(25759,495,"type.bas");if(r)goto S_38676;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(25759,495,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,495,"type.bas");}while(r);
}
S_38680:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
if(qbevent){evnt(25759,496,"type.bas");if(r)goto S_38680;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(25759,496,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,496,"type.bas");}while(r);
}
S_38684:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 10 ),qbs_new_txt_len("_UNSIGNED ",10))))||is_error_pending()){
if(qbevent){evnt(25759,497,"type.bas");if(r)goto S_38684;}
do{
*_FUNC_TYPNAME2TYP_LONG_U= 1 ;
if(!qbevent)break;evnt(25759,498,"type.bas");}while(r);
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_T,func_mid(_FUNC_TYPNAME2TYP_STRING_T,func_instr(NULL,_FUNC_TYPNAME2TYP_STRING_T,func_chr( 32 ),0)+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,499,"type.bas");}while(r);
}
S_38688:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(25759,501,"type.bas");if(r)goto S_38688;}
S_38689:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(25759,502,"type.bas");if(r)goto S_38689;}
S_38690:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(25759,503,"type.bas");if(r)goto S_38690;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE;
if(!qbevent)break;evnt(25759,503,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE;
if(!qbevent)break;evnt(25759,503,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,504,"type.bas");}while(r);
}
S_38697:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7))))||is_error_pending()){
if(qbevent){evnt(25759,507,"type.bas");if(r)goto S_38697;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,507,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,507,"type.bas");}while(r);
}
S_38701:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(25759,509,"type.bas");if(r)goto S_38701;}
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,510,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,512,"type.bas");}while(r);
}
S_38706:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(25759,515,"type.bas");if(r)goto S_38706;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,515,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,515,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=qbr(qbs_val<long double>(_FUNC_TYPNAME2TYP_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,516,"type.bas");}while(r);
S_38711:;
if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 64 )))||is_error_pending()){
if(qbevent){evnt(25759,517,"type.bas");if(r)goto S_38711;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,517,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,517,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(25759,518,"type.bas");}while(r);
S_38716:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(25759,518,"type.bas");if(r)goto S_38716;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(25759,518,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(25759,519,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,520,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
if(!qbevent)break;evnt(25759,523,"type.bas");}while(r);
S_38723:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
if(qbevent){evnt(25759,524,"type.bas");if(r)goto S_38723;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(25759,524,"type.bas");}while(r);
}
S_38726:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
if(qbevent){evnt(25759,525,"type.bas");if(r)goto S_38726;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(25759,525,"type.bas");}while(r);
}
S_38729:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||is_error_pending()){
if(qbevent){evnt(25759,526,"type.bas");if(r)goto S_38729;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(25759,526,"type.bas");}while(r);
}
S_38732:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
if(qbevent){evnt(25759,527,"type.bas");if(r)goto S_38732;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(25759,527,"type.bas");}while(r);
}
S_38735:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(25759,528,"type.bas");if(r)goto S_38735;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(25759,528,"type.bas");}while(r);
}
S_38738:;
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
if(qbevent){evnt(25759,529,"type.bas");if(r)goto S_38738;}
S_38739:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(25759,530,"type.bas");if(r)goto S_38739;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(25759,530,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(25759,531,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,532,"type.bas");}while(r);
}
S_38745:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(25759,534,"type.bas");if(r)goto S_38745;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,534,"type.bas");}while(r);
}
S_38748:;
fornext_value4516= 1 ;
fornext_finalvalue4516=*__LONG_LASTTYPE;
fornext_step4516= 1 ;
if (fornext_step4516<0) fornext_step_negative4516=1; else fornext_step_negative4516=0;
if (is_error_pending()) goto fornext_error4516;
goto fornext_entrylabel4516;
while(1){
fornext_value4516=fornext_step4516+(*_FUNC_TYPNAME2TYP_LONG_I);
fornext_entrylabel4516:
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4516;
if (fornext_step_negative4516){
if (fornext_value4516<fornext_finalvalue4516) break;
}else{
if (fornext_value4516>fornext_finalvalue4516) break;
}
fornext_error4516:;
if(qbevent){evnt(25759,537,"type.bas");if(r)goto S_38748;}
S_38749:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(25759,538,"type.bas");if(r)goto S_38749;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I;
if(!qbevent)break;evnt(25759,539,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,540,"type.bas");}while(r);
}
fornext_continue_4515:;
}
fornext_exit_4515:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free232.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_TYPNAME2TYP_LONG_TYPNAME2TYP;
}
