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 "data256.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{
*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(28172,267,"type.bas");}while(r);
S_40840:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(28172,268,"type.bas");if(r)goto S_40840;}
do{
*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(28172,268,"type.bas");}while(r);
}
do{
*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(28172,269,"type.bas");}while(r);
do{
*_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 4095ll ;
if(!qbevent)break;evnt(28172,270,"type.bas");}while(r);
S_40845:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(28172,271,"type.bas");if(r)goto S_40845;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2SHORTTYPENAME_LONG_T& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,272,"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(28172,273,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,273,"type.bas");}while(r);
}
S_40850:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(28172,275,"type.bas");if(r)goto S_40850;}
S_40851:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(28172,276,"type.bas");if(r)goto S_40851;}
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(28172,276,"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(28172,276,"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(28172,277,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,277,"type.bas");}while(r);
}
S_40859:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(28172,279,"type.bas");if(r)goto S_40859;}
S_40860:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(28172,280,"type.bas");if(r)goto S_40860;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,280,"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(28172,280,"type.bas");}while(r);
}
S_40865:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||is_error_pending()){
if(qbevent){evnt(28172,281,"type.bas");if(r)goto S_40865;}
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(28172,281,"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(28172,281,"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(28172,282,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,282,"type.bas");}while(r);
}
S_40873:;
if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(28172,284,"type.bas");if(r)goto S_40873;}
S_40874:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(28172,285,"type.bas");if(r)goto S_40874;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,285,"type.bas");}while(r);
}
S_40877:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(28172,286,"type.bas");if(r)goto S_40877;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,286,"type.bas");}while(r);
}
S_40880:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(28172,287,"type.bas");if(r)goto S_40880;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,287,"type.bas");}while(r);
}
}else{
S_40884:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(28172,289,"type.bas");if(r)goto S_40884;}
S_40885:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(28172,290,"type.bas");if(r)goto S_40885;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,290,"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(28172,290,"type.bas");}while(r);
}
}
S_40891:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(28172,292,"type.bas");if(r)goto S_40891;}
S_40892:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(28172,293,"type.bas");if(r)goto S_40892;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,293,"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(28172,293,"type.bas");}while(r);
}
}
S_40898:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(28172,295,"type.bas");if(r)goto S_40898;}
S_40899:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(28172,296,"type.bas");if(r)goto S_40899;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,296,"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(28172,296,"type.bas");}while(r);
}
}
S_40905:;
if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(28172,298,"type.bas");if(r)goto S_40905;}
S_40906:;
if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(28172,299,"type.bas");if(r)goto S_40906;}
do{
qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,299,"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(28172,299,"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(28172,302,"type.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free256.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;
}
