qbs* FUNC_ID2SHORTTYPENAME(){
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 "data226.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_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+536)));
if(!qbevent)break;evnt(25759,74,"type.bas");}while(r);
S_37940:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(25759,75,"type.bas");if(r)goto S_37940;}
do{
*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(25759,75,"type.bas");}while(r);
}
do{
*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(25759,76,"type.bas");}while(r);
do{
*_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 ;
if(!qbevent)break;evnt(25759,77,"type.bas");}while(r);
S_37945:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(25759,78,"type.bas");if(r)goto S_37945;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,79,"type.bas");}while(r);
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,80,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,80,"type.bas");}while(r);
}
S_37950:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(25759,82,"type.bas");if(r)goto S_37950;}
S_37951:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(25759,83,"type.bas");if(r)goto S_37951;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING",6),qbs__tostr((int32)(*_FUNC_ID2SHORTTYPENAME_LONG_SIZE),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,83,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("STRING",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,83,"type.bas");}while(r);
}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,84,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,84,"type.bas");}while(r);
}
S_37959:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(25759,86,"type.bas");if(r)goto S_37959;}
S_37960:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(25759,87,"type.bas");if(r)goto S_37960;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,87,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,87,"type.bas");}while(r);
}
S_37965:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||is_error_pending()){
if(qbevent){evnt(25759,88,"type.bas");if(r)goto S_37965;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT",3)),qbs__tostr((int32)(*_FUNC_ID2SHORTTYPENAME_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,88,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT1",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,88,"type.bas");}while(r);
}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,89,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25759,89,"type.bas");}while(r);
}
S_37973:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(25759,91,"type.bas");if(r)goto S_37973;}
S_37974:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(25759,92,"type.bas");if(r)goto S_37974;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,92,"type.bas");}while(r);
}
S_37977:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(25759,93,"type.bas");if(r)goto S_37977;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,93,"type.bas");}while(r);
}
S_37980:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(25759,94,"type.bas");if(r)goto S_37980;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,94,"type.bas");}while(r);
}
}else{
S_37984:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(25759,96,"type.bas");if(r)goto S_37984;}
S_37985:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(25759,97,"type.bas");if(r)goto S_37985;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,97,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_BYTE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,97,"type.bas");}while(r);
}
}
S_37991:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(25759,99,"type.bas");if(r)goto S_37991;}
S_37992:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(25759,100,"type.bas");if(r)goto S_37992;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,100,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,100,"type.bas");}while(r);
}
}
S_37998:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(25759,102,"type.bas");if(r)goto S_37998;}
S_37999:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(25759,103,"type.bas");if(r)goto S_37999;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,103,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("LONG",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,103,"type.bas");}while(r);
}
}
S_38005:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(25759,105,"type.bas");if(r)goto S_38005;}
S_38006:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(25759,106,"type.bas");if(r)goto S_38006;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,106,"type.bas");}while(r);
}else{
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_INTEGER64",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,106,"type.bas");}while(r);
}
}
}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,109,"type.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free226.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;
qbs_maketmp(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME);return _FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME;
}
