int32 FUNC_SYMBOLTYPE(qbs*_FUNC_SYMBOLTYPE_STRING_S){
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 "data258.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;
S_40996:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,364,"type.bas");if(r)goto S_40996;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,364,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,366,"type.bas");}while(r);
do{
*_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,367,"type.bas");}while(r);
S_41001:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||is_error_pending()){
if(qbevent){evnt(28172,368,"type.bas");if(r)goto S_41001;}
S_41002:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(28172,369,"type.bas");if(r)goto S_41002;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ;
if(!qbevent)break;evnt(28172,369,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,369,"type.bas");}while(r);
}
S_41006:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
if(qbevent){evnt(28172,370,"type.bas");if(r)goto S_41006;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,370,"type.bas");}while(r);
}
S_41009:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||is_error_pending()){
if(qbevent){evnt(28172,371,"type.bas");if(r)goto S_41009;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ;
if(!qbevent)break;evnt(28172,371,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,371,"type.bas");}while(r);
}
S_41013:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||is_error_pending()){
if(qbevent){evnt(28172,372,"type.bas");if(r)goto S_41013;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28172,372,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,372,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,373,"type.bas");}while(r);
}
S_41019:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||is_error_pending()){
if(qbevent){evnt(28172,375,"type.bas");if(r)goto S_41019;}
S_41020:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(28172,376,"type.bas");if(r)goto S_41020;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ;
if(!qbevent)break;evnt(28172,376,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,376,"type.bas");}while(r);
}
S_41024:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
if(qbevent){evnt(28172,377,"type.bas");if(r)goto S_41024;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,377,"type.bas");}while(r);
}
S_41027:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||is_error_pending()){
if(qbevent){evnt(28172,378,"type.bas");if(r)goto S_41027;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ;
if(!qbevent)break;evnt(28172,378,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,378,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,379,"type.bas");}while(r);
}
S_41033:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||is_error_pending()){
if(qbevent){evnt(28172,381,"type.bas");if(r)goto S_41033;}
S_41034:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(28172,382,"type.bas");if(r)goto S_41034;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(28172,382,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,382,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,383,"type.bas");}while(r);
}
S_41040:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||is_error_pending()){
if(qbevent){evnt(28172,385,"type.bas");if(r)goto S_41040;}
S_41041:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(28172,386,"type.bas");if(r)goto S_41041;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(28172,386,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,386,"type.bas");}while(r);
}
S_41045:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
if(qbevent){evnt(28172,387,"type.bas");if(r)goto S_41045;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,387,"type.bas");}while(r);
}
S_41048:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||is_error_pending()){
if(qbevent){evnt(28172,388,"type.bas");if(r)goto S_41048;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(28172,388,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,388,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,389,"type.bas");}while(r);
}
S_41054:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||is_error_pending()){
if(qbevent){evnt(28172,391,"type.bas");if(r)goto S_41054;}
S_41055:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(28172,392,"type.bas");if(r)goto S_41055;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING;
if(!qbevent)break;evnt(28172,392,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,392,"type.bas");}while(r);
}
S_41059:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||is_error_pending()){
if(qbevent){evnt(28172,393,"type.bas");if(r)goto S_41059;}
S_41060:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||is_error_pending()){
if(qbevent){evnt(28172,394,"type.bas");if(r)goto S_41060;}
S_41061:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||is_error_pending()){
if(qbevent){evnt(28172,395,"type.bas");if(r)goto S_41061;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,395,"type.bas");}while(r);
}
S_41064:;
if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||is_error_pending()){
if(qbevent){evnt(28172,396,"type.bas");if(r)goto S_41064;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,396,"type.bas");}while(r);
}
}
do{
*__LONG_SYMBOLTYPE_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,398,"type.bas");}while(r);
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(28172,399,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,400,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,402,"type.bas");}while(r);
}
S_41074:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||is_error_pending()){
if(qbevent){evnt(28172,404,"type.bas");if(r)goto S_41074;}
S_41075:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(28172,405,"type.bas");if(r)goto S_41075;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(28172,405,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,405,"type.bas");}while(r);
}
S_41079:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||is_error_pending()){
if(qbevent){evnt(28172,406,"type.bas");if(r)goto S_41079;}
S_41080:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
if(qbevent){evnt(28172,407,"type.bas");if(r)goto S_41080;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,407,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_N=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,408,"type.bas");}while(r);
S_41084:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||is_error_pending()){
if(qbevent){evnt(28172,409,"type.bas");if(r)goto S_41084;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,409,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(28172,410,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,410,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,412,"type.bas");}while(r);
}
S_41092:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||is_error_pending()){
if(qbevent){evnt(28172,414,"type.bas");if(r)goto S_41092;}
S_41093:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(28172,415,"type.bas");if(r)goto S_41093;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,415,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,416,"type.bas");}while(r);
S_41097:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||is_error_pending()){
if(qbevent){evnt(28172,417,"type.bas");if(r)goto S_41097;}
S_41098:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
if(qbevent){evnt(28172,418,"type.bas");if(r)goto S_41098;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,418,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,418,"type.bas");}while(r);
}
S_41102:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
if(qbevent){evnt(28172,419,"type.bas");if(r)goto S_41102;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,419,"type.bas");}while(r);
}
S_41105:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||is_error_pending()){
if(qbevent){evnt(28172,420,"type.bas");if(r)goto S_41105;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,420,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,420,"type.bas");}while(r);
}
S_41109:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||is_error_pending()){
if(qbevent){evnt(28172,421,"type.bas");if(r)goto S_41109;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28172,421,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,421,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,422,"type.bas");}while(r);
}
S_41115:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||is_error_pending()){
if(qbevent){evnt(28172,424,"type.bas");if(r)goto S_41115;}
S_41116:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
if(qbevent){evnt(28172,425,"type.bas");if(r)goto S_41116;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,425,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,425,"type.bas");}while(r);
}
S_41120:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
if(qbevent){evnt(28172,426,"type.bas");if(r)goto S_41120;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,426,"type.bas");}while(r);
}
S_41123:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||is_error_pending()){
if(qbevent){evnt(28172,427,"type.bas");if(r)goto S_41123;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,427,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,427,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,428,"type.bas");}while(r);
}
S_41129:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||is_error_pending()){
if(qbevent){evnt(28172,430,"type.bas");if(r)goto S_41129;}
S_41130:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
if(qbevent){evnt(28172,431,"type.bas");if(r)goto S_41130;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,431,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,431,"type.bas");}while(r);
}
S_41134:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||is_error_pending()){
if(qbevent){evnt(28172,432,"type.bas");if(r)goto S_41134;}
S_41135:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||is_error_pending()){
if(qbevent){evnt(28172,433,"type.bas");if(r)goto S_41135;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,433,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_N=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,434,"type.bas");}while(r);
S_41139:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||is_error_pending()){
if(qbevent){evnt(28172,435,"type.bas");if(r)goto S_41139;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,435,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(28172,436,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,436,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,438,"type.bas");}while(r);
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free258.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_SYMBOLTYPE_LONG_SYMBOLTYPE;
}
