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 "data223.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(24225,386,"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(24225,388,"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(24225,391,"type.bas");}while(r);
S_36994:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(24225,392,"type.bas");if(r)goto S_36994;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(24225,392,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,392,"type.bas");}while(r);
}
S_36998:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(24225,393,"type.bas");if(r)goto S_36998;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(24225,393,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,393,"type.bas");}while(r);
}
S_37002:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(24225,394,"type.bas");if(r)goto S_37002;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(24225,394,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,394,"type.bas");}while(r);
}
S_37006:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(24225,395,"type.bas");if(r)goto S_37006;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(24225,395,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,395,"type.bas");}while(r);
}
S_37010:;
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(24225,398,"type.bas");if(r)goto S_37010;}
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(24225,399,"type.bas");}while(r);
S_37012:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(24225,400,"type.bas");if(r)goto S_37012;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,400,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,400,"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(24225,401,"type.bas");}while(r);
S_37017:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(24225,402,"type.bas");if(r)goto S_37017;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,402,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,402,"type.bas");}while(r);
}
do{
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(24225,403,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(24225,404,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,405,"type.bas");}while(r);
}
S_37025:;
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(24225,409,"type.bas");if(r)goto S_37025;}
do{
*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ;
if(!qbevent)break;evnt(24225,409,"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(24225,409,"type.bas");}while(r);
}
S_37029:;
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(24225,412,"type.bas");if(r)goto S_37029;}
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(24225,413,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_B= 1 ;
if(!qbevent)break;evnt(24225,414,"type.bas");}while(r);
S_37032:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(24225,415,"type.bas");if(r)goto S_37032;}
S_37033:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(24225,416,"type.bas");if(r)goto S_37033;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,416,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,416,"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(24225,417,"type.bas");}while(r);
S_37038:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 64 ))||is_error_pending()){
if(qbevent){evnt(24225,418,"type.bas");if(r)goto S_37038;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,418,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,418,"type.bas");}while(r);
}
}
S_37043:;
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(24225,420,"type.bas");if(r)goto S_37043;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
if(!qbevent)break;evnt(24225,420,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 );
if(!qbevent)break;evnt(24225,420,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,421,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
if(!qbevent)break;evnt(24225,424,"type.bas");}while(r);
S_37051:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(24225,425,"type.bas");if(r)goto S_37051;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(24225,425,"type.bas");}while(r);
}
S_37054:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(24225,426,"type.bas");if(r)goto S_37054;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(24225,426,"type.bas");}while(r);
}
S_37057:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(24225,427,"type.bas");if(r)goto S_37057;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(24225,427,"type.bas");}while(r);
}
S_37060:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(24225,428,"type.bas");if(r)goto S_37060;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(24225,428,"type.bas");}while(r);
}
S_37063:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(24225,429,"type.bas");if(r)goto S_37063;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(24225,429,"type.bas");}while(r);
}
S_37066:;
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
if(qbevent){evnt(24225,431,"type.bas");if(r)goto S_37066;}
S_37067:;
if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(24225,432,"type.bas");if(r)goto S_37067;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,432,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(24225,433,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,433,"type.bas");}while(r);
}
S_37073:;
fornext_value4276= 1 ;
fornext_finalvalue4276=_FUNC_TYPNAME2TYP_STRING_T->len;
fornext_step4276= 1 ;
if (fornext_step4276<0) fornext_step_negative4276=1; else fornext_step_negative4276=0;
if (is_error_pending()) goto fornext_error4276;
goto fornext_entrylabel4276;
while(1){
fornext_value4276=fornext_step4276+(*_FUNC_TYPNAME2TYP_LONG_I);
fornext_entrylabel4276:
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4276;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4276){
if (fornext_value4276<fornext_finalvalue4276) break;
}else{
if (fornext_value4276>fornext_finalvalue4276) break;
}
fornext_error4276:;
if(qbevent){evnt(24225,438,"type.bas");if(r)goto S_37073;}
S_37074:;
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(24225,439,"type.bas");if(r)goto S_37074;}
do{
sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(24225,439,"type.bas");}while(r);
}
fornext_continue_4275:;
}
fornext_exit_4275:;
S_37078:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||is_error_pending()){
if(qbevent){evnt(24225,441,"type.bas");if(r)goto S_37078;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(24225,441,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,441,"type.bas");}while(r);
}
S_37082:;
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(24225,443,"type.bas");if(r)goto S_37082;}
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(24225,445,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ;
if(!qbevent)break;evnt(24225,448,"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(24225,449,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(24225,450,"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(24225,451,"type.bas");}while(r);
S_37088:;
while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(24225,452,"type.bas");if(r)goto S_37088;}
S_37089:;
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(24225,453,"type.bas");if(r)goto S_37089;}
S_37090:;
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(24225,454,"type.bas");if(r)goto S_37090;}
do{
*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ;
if(!qbevent)break;evnt(24225,455,"type.bas");}while(r);
do{
goto dl_exit_4279;
if(!qbevent)break;evnt(24225,456,"type.bas");}while(r);
}
}
S_37095:;
if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(24225,459,"type.bas");if(r)goto S_37095;}
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF);
if(!qbevent)break;evnt(24225,459,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(24225,459,"type.bas");}while(r);
}
dl_continue_4279:;
}
dl_exit_4279:;
S_37101:;
if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||is_error_pending()){
if(qbevent){evnt(24225,461,"type.bas");if(r)goto S_37101;}
do{
*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF;
if(!qbevent)break;evnt(24225,462,"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(24225,463,"type.bas");}while(r);
S_37104:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(24225,464,"type.bas");if(r)goto S_37104;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,464,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,464,"type.bas");}while(r);
}
S_37108:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(24225,466,"type.bas");if(r)goto S_37108;}
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(24225,467,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V);
if(!qbevent)break;evnt(24225,468,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(24225,469,"type.bas");}while(r);
}else{
S_37113:;
if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(24225,471,"type.bas");if(r)goto S_37113;}
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(24225,472,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V;
if(!qbevent)break;evnt(24225,473,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(24225,474,"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(24225,476,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(24225,477,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(24225,478,"type.bas");}while(r);
}
}
S_37123:;
if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||is_error_pending()){
if(qbevent){evnt(24225,481,"type.bas");if(r)goto S_37123;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,481,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,481,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V;
if(!qbevent)break;evnt(24225,482,"type.bas");}while(r);
do{
goto LABEL_CONSTANTLENSTR;
if(!qbevent)break;evnt(24225,483,"type.bas");}while(r);
}
S_37130:;
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(24225,486,"type.bas");if(r)goto S_37130;}
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(24225,486,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,486,"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(24225,487,"type.bas");}while(r);
S_37135:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||is_error_pending()){
if(qbevent){evnt(24225,488,"type.bas");if(r)goto S_37135;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,488,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,488,"type.bas");}while(r);
}
LABEL_CONSTANTLENSTR:;
if(qbevent){evnt(24225,489,"type.bas");r=0;}
do{
*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(24225,490,"type.bas");}while(r);
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(24225,491,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,492,"type.bas");}while(r);
}
S_37143:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
if(qbevent){evnt(24225,495,"type.bas");if(r)goto S_37143;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(24225,495,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,495,"type.bas");}while(r);
}
S_37147:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
if(qbevent){evnt(24225,496,"type.bas");if(r)goto S_37147;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(24225,496,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,496,"type.bas");}while(r);
}
S_37151:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
if(qbevent){evnt(24225,497,"type.bas");if(r)goto S_37151;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(24225,497,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,497,"type.bas");}while(r);
}
S_37155:;
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(24225,498,"type.bas");if(r)goto S_37155;}
do{
*_FUNC_TYPNAME2TYP_LONG_U= 1 ;
if(!qbevent)break;evnt(24225,499,"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(24225,500,"type.bas");}while(r);
}
S_37159:;
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(24225,502,"type.bas");if(r)goto S_37159;}
S_37160:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(24225,503,"type.bas");if(r)goto S_37160;}
S_37161:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(24225,504,"type.bas");if(r)goto S_37161;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE;
if(!qbevent)break;evnt(24225,504,"type.bas");}while(r);
}else{
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE;
if(!qbevent)break;evnt(24225,504,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,505,"type.bas");}while(r);
}
S_37168:;
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(24225,508,"type.bas");if(r)goto S_37168;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,508,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,508,"type.bas");}while(r);
}
S_37172:;
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(24225,510,"type.bas");if(r)goto S_37172;}
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(24225,511,"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(24225,513,"type.bas");}while(r);
}
S_37177:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(24225,516,"type.bas");if(r)goto S_37177;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,516,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,516,"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(24225,517,"type.bas");}while(r);
S_37182:;
if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 64 )))||is_error_pending()){
if(qbevent){evnt(24225,518,"type.bas");if(r)goto S_37182;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,518,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,518,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B;
if(!qbevent)break;evnt(24225,519,"type.bas");}while(r);
S_37187:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(24225,519,"type.bas");if(r)goto S_37187;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,519,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(24225,520,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,521,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_T= 0 ;
if(!qbevent)break;evnt(24225,524,"type.bas");}while(r);
S_37194:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
if(qbevent){evnt(24225,525,"type.bas");if(r)goto S_37194;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(24225,525,"type.bas");}while(r);
}
S_37197:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
if(qbevent){evnt(24225,526,"type.bas");if(r)goto S_37197;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(24225,526,"type.bas");}while(r);
}
S_37200:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||is_error_pending()){
if(qbevent){evnt(24225,527,"type.bas");if(r)goto S_37200;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(24225,527,"type.bas");}while(r);
}
S_37203:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
if(qbevent){evnt(24225,528,"type.bas");if(r)goto S_37203;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(24225,528,"type.bas");}while(r);
}
S_37206:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(24225,529,"type.bas");if(r)goto S_37206;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(24225,529,"type.bas");}while(r);
}
S_37209:;
if ((*_FUNC_TYPNAME2TYP_LONG_T)||is_error_pending()){
if(qbevent){evnt(24225,530,"type.bas");if(r)goto S_37209;}
S_37210:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(24225,531,"type.bas");if(r)goto S_37210;}
do{
*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,531,"type.bas");}while(r);
}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T;
if(!qbevent)break;evnt(24225,532,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,533,"type.bas");}while(r);
}
S_37216:;
if ((*_FUNC_TYPNAME2TYP_LONG_U)||is_error_pending()){
if(qbevent){evnt(24225,535,"type.bas");if(r)goto S_37216;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,535,"type.bas");}while(r);
}
S_37219:;
fornext_value4285= 1 ;
fornext_finalvalue4285=*__LONG_LASTTYPE;
fornext_step4285= 1 ;
if (fornext_step4285<0) fornext_step_negative4285=1; else fornext_step_negative4285=0;
if (is_error_pending()) goto fornext_error4285;
goto fornext_entrylabel4285;
while(1){
fornext_value4285=fornext_step4285+(*_FUNC_TYPNAME2TYP_LONG_I);
fornext_entrylabel4285:
*_FUNC_TYPNAME2TYP_LONG_I=fornext_value4285;
if (fornext_step_negative4285){
if (fornext_value4285<fornext_finalvalue4285) break;
}else{
if (fornext_value4285>fornext_finalvalue4285) break;
}
fornext_error4285:;
if(qbevent){evnt(24225,538,"type.bas");if(r)goto S_37219;}
S_37220:;
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(24225,539,"type.bas");if(r)goto S_37220;}
do{
*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I;
if(!qbevent)break;evnt(24225,540,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,541,"type.bas");}while(r);
}
fornext_continue_4284:;
}
fornext_exit_4284:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free223.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;
}
