int32 FUNC_VALIDNAME(qbs*_FUNC_VALIDNAME_STRING_A){
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 "data94.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_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27633);}while(r);
S_36018:;
if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||is_error_pending()){
if(qbevent){evnt(27635);if(r)goto S_36018;}
S_36019:;
if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||is_error_pending()){
if(qbevent){evnt(27636);if(r)goto S_36019;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27636);}while(r);
}
do{
*_FUNC_VALIDNAME_LONG_I=func_instr(NULL,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27638);}while(r);
S_36023:;
while((*_FUNC_VALIDNAME_LONG_I)||is_error_pending()){
if(qbevent){evnt(27639);if(r)goto S_36023;}
do{
*_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27640);}while(r);
do{
*_FUNC_VALIDNAME_LONG_I=func_instr(*_FUNC_VALIDNAME_LONG_I+ 1 ,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27641);}while(r);
dl_continue_4250:;
}
dl_exit_4250:;
S_36027:;
if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||is_error_pending()){
if(qbevent){evnt(27643);if(r)goto S_36027;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27643);}while(r);
}
do{
*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27644);}while(r);
}
S_36032:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("beforefirstline.bi",18)))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("afterlastline.bm",16)))))||is_error_pending()){
if(qbevent){evnt(27647);if(r)goto S_36032;}
S_36033:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= -1 ))||is_error_pending()){
if(qbevent){evnt(27648);if(r)goto S_36033;}
S_36034:;
if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||is_error_pending()){
if(qbevent){evnt(27650);if(r)goto S_36034;}
S_36035:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )== 95 ))&(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 2 )!= 95 ))))||is_error_pending()){
if(qbevent){evnt(27651);if(r)goto S_36035;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27651);}while(r);
}
}
}
}else{
S_36041:;
if (((-(*__INTEGER_AUTOINCLUDINGFILE== 0 ))&(-(*__INTEGER_AUTOINCFORCEUSCORE!= 0 )))||is_error_pending()){
if(qbevent){evnt(27655);if(r)goto S_36041;}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
if(!qbevent)break;evnt(27656);}while(r);
S_36043:;
if ((-(*_FUNC_VALIDNAME_LONG_L>= 1 ))||is_error_pending()){
if(qbevent){evnt(27658);if(r)goto S_36043;}
S_36044:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )!= 95 )))||is_error_pending()){
if(qbevent){evnt(27659);if(r)goto S_36044;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27659);}while(r);
}
}
}
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
if(!qbevent)break;evnt(27663);}while(r);
S_36051:;
fornext_value4254= 1 ;
fornext_finalvalue4254=*_FUNC_VALIDNAME_LONG_L;
fornext_step4254= 1 ;
if (fornext_step4254<0) fornext_step_negative4254=1; else fornext_step_negative4254=0;
if (is_error_pending()) goto fornext_error4254;
goto fornext_entrylabel4254;
while(1){
fornext_value4254=fornext_step4254+(*_FUNC_VALIDNAME_LONG_I);
fornext_entrylabel4254:
*_FUNC_VALIDNAME_LONG_I=fornext_value4254;
if (fornext_step_negative4254){
if (fornext_value4254<fornext_finalvalue4254) break;
}else{
if (fornext_value4254>fornext_finalvalue4254) break;
}
fornext_error4254:;
if(qbevent){evnt(27665);if(r)goto S_36051;}
do{
*_FUNC_VALIDNAME_LONG_A=qbs_asc(_FUNC_VALIDNAME_STRING_A,*_FUNC_VALIDNAME_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27666);}while(r);
S_36053:;
if ((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(27667);if(r)goto S_36053;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27667);}while(r);
}
S_36056:;
if ((((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5])])||is_error_pending()){
if(qbevent){evnt(27668);if(r)goto S_36056;}
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
if(!qbevent)break;evnt(27669);}while(r);
S_36058:;
if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||is_error_pending()){
if(qbevent){evnt(27670);if(r)goto S_36058;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27670);}while(r);
}
}else{
S_36062:;
if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(27672);if(r)goto S_36062;}
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ;
if(!qbevent)break;evnt(27673);}while(r);
}else{
do{
*_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ;
if(!qbevent)break;evnt(27675);}while(r);
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
if(!qbevent)break;evnt(27676);}while(r);
}
}
fornext_continue_4253:;
}
fornext_exit_4253:;
S_36070:;
if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||is_error_pending()){
if(qbevent){evnt(27680);if(r)goto S_36070;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27680);}while(r);
}
do{
*_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ;
if(!qbevent)break;evnt(27681);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free94.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_VALIDNAME_LONG_VALIDNAME;
}
