int32 FUNC_ELEMENTGETNUMERICVALUE(qbs*_FUNC_ELEMENTGETNUMERICVALUE_STRING_ELE,long double*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING,int64*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL,uint64*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL){
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 "data147.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{
if(!qbevent)break;evnt(28165,441,"elements.bas");}while(r);
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_ELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,442,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_TYP= 0 ;
if(!qbevent)break;evnt(28165,443,"elements.bas");}while(r);
S_37153:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len(",",1),0)))||is_error_pending()){
if(qbevent){evnt(28165,446,"elements.bas");if(r)goto S_37153;}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,func_mid(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len(",",1),0)- 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,446,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,449,"elements.bas");}while(r);
S_37157:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(28165,450,"elements.bas");if(r)goto S_37157;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,450,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,450,"elements.bas");}while(r);
}
S_37161:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(28165,451,"elements.bas");if(r)goto S_37161;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,451,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,451,"elements.bas");}while(r);
}
S_37165:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(28165,452,"elements.bas");if(r)goto S_37165;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,452,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,452,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,453,"elements.bas");}while(r);
S_37170:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(28165,454,"elements.bas");if(r)goto S_37170;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,454,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,454,"elements.bas");}while(r);
}
S_37174:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(28165,455,"elements.bas");if(r)goto S_37174;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,455,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,455,"elements.bas");}while(r);
}
S_37178:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(28165,456,"elements.bas");if(r)goto S_37178;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,456,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,456,"elements.bas");}while(r);
}
S_37182:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(28165,457,"elements.bas");if(r)goto S_37182;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,457,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,457,"elements.bas");}while(r);
}
S_37186:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(28165,458,"elements.bas");if(r)goto S_37186;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,458,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,458,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,459,"elements.bas");}while(r);
S_37191:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(28165,460,"elements.bas");if(r)goto S_37191;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,460,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,460,"elements.bas");}while(r);
}
S_37195:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(28165,461,"elements.bas");if(r)goto S_37195;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,461,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(28165,461,"elements.bas");}while(r);
}
S_37199:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("~`",2),0)))||is_error_pending()){
if(qbevent){evnt(28165,464,"elements.bas");if(r)goto S_37199;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X=func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("~`",2),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,465,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=qbr(*__LONG_UBITTYPE-*__LONG_ISPOINTER- 1 +qbs_val<long double>(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM->len-*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,466,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(qbs_val<long double>(qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,467,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(28165,468,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(28165,469,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28165,470,"elements.bas");}while(r);
}
S_37207:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("`",1),0)))||is_error_pending()){
if(qbevent){evnt(28165,474,"elements.bas");if(r)goto S_37207;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X=func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("`",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,475,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=qbr(*__LONG_BITTYPE-*__LONG_ISPOINTER- 1 +qbs_val<long double>(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM->len-*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,476,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(qbs_val<long double>(qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,477,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(28165,478,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(28165,479,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28165,480,"elements.bas");}while(r);
}
S_37215:;
if ((qbs_cleanup(qbs_tmp_base,(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("F",1),0))|(qbs_equal(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 2 ),qbs_new_txt_len("##",2)))))||is_error_pending()){
if(qbevent){evnt(28165,484,"elements.bas");if(r)goto S_37215;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,485,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(28165,486,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(28165,487,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,489,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28165,490,"elements.bas");}while(r);
}
S_37222:;
if ((qbs_cleanup(qbs_tmp_base,(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("E",1),0))|(qbs_equal(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ),qbs_new_txt_len("!",1)))))||is_error_pending()){
if(qbevent){evnt(28165,492,"elements.bas");if(r)goto S_37222;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,493,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(28165,494,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(28165,495,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,497,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28165,498,"elements.bas");}while(r);
}
S_37229:;
if ((qbs_cleanup(qbs_tmp_base,(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("D",1),0))|(qbs_equal(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ),qbs_new_txt_len("#",1)))|(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len(".",1),0))))||is_error_pending()){
if(qbevent){evnt(28165,500,"elements.bas");if(r)goto S_37229;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,501,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(28165,502,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(28165,503,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,505,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28165,506,"elements.bas");}while(r);
}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(28165,510,"elements.bas");}while(r);
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,511,"elements.bas");}while(r);
LABEL_HANDLEINTEGER:;
if(qbevent){evnt(28165,513,"elements.bas");r=0;}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM->len-_FUNC_ELEMENTGETNUMERICVALUE_STRING_E->len));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,514,"elements.bas");}while(r);
S_37239:;
if ((*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(28165,516,"elements.bas");if(r)goto S_37239;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbs_val<uint64_t>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,517,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL;
if(!qbevent)break;evnt(28165,518,"elements.bas");}while(r);
}else{
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbs_val<int64_t>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,520,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(28165,521,"elements.bas");}while(r);
}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(28165,524,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE;
if(!qbevent)break;evnt(28165,526,"elements.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free147.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_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE;
}
