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 "data59.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_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23688);}while(r);
S_31793:;
if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||is_error_pending()){
if(qbevent){evnt(23690);if(r)goto S_31793;}
S_31794:;
if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||is_error_pending()){
if(qbevent){evnt(23691);if(r)goto S_31794;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23691);}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(23693);}while(r);
S_31798:;
while((*_FUNC_VALIDNAME_LONG_I)||is_error_pending()){
if(qbevent){evnt(23694);if(r)goto S_31798;}
do{
*_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23695);}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(23696);}while(r);
dl_continue_3589:;
}
dl_exit_3589:;
S_31802:;
if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||is_error_pending()){
if(qbevent){evnt(23698);if(r)goto S_31802;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23698);}while(r);
}
do{
*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23699);}while(r);
}
S_31807:;
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(23702);if(r)goto S_31807;}
S_31808:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= -1 ))||is_error_pending()){
if(qbevent){evnt(23703);if(r)goto S_31808;}
S_31809:;
if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||is_error_pending()){
if(qbevent){evnt(23705);if(r)goto S_31809;}
S_31810:;
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(23706);if(r)goto S_31810;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23706);}while(r);
}
}
}
}else{
S_31816:;
if (((-(*__INTEGER_AUTOINCLUDINGFILE== 0 ))&(-(*__INTEGER_AUTOINCFORCEUSCORE!= 0 )))||is_error_pending()){
if(qbevent){evnt(23710);if(r)goto S_31816;}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
if(!qbevent)break;evnt(23711);}while(r);
S_31818:;
if ((-(*_FUNC_VALIDNAME_LONG_L>= 1 ))||is_error_pending()){
if(qbevent){evnt(23713);if(r)goto S_31818;}
S_31819:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )!= 95 )))||is_error_pending()){
if(qbevent){evnt(23714);if(r)goto S_31819;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23714);}while(r);
}
}
}
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
if(!qbevent)break;evnt(23718);}while(r);
S_31826:;
fornext_value3593= 1 ;
fornext_finalvalue3593=*_FUNC_VALIDNAME_LONG_L;
fornext_step3593= 1 ;
if (fornext_step3593<0) fornext_step_negative3593=1; else fornext_step_negative3593=0;
if (is_error_pending()) goto fornext_error3593;
goto fornext_entrylabel3593;
while(1){
fornext_value3593=fornext_step3593+(*_FUNC_VALIDNAME_LONG_I);
fornext_entrylabel3593:
*_FUNC_VALIDNAME_LONG_I=fornext_value3593;
if (fornext_step_negative3593){
if (fornext_value3593<fornext_finalvalue3593) break;
}else{
if (fornext_value3593>fornext_finalvalue3593) break;
}
fornext_error3593:;
if(qbevent){evnt(23720);if(r)goto S_31826;}
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(23721);}while(r);
S_31828:;
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(23722);if(r)goto S_31828;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23722);}while(r);
}
S_31831:;
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(23723);if(r)goto S_31831;}
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
if(!qbevent)break;evnt(23724);}while(r);
S_31833:;
if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||is_error_pending()){
if(qbevent){evnt(23725);if(r)goto S_31833;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23725);}while(r);
}
}else{
S_31837:;
if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(23727);if(r)goto S_31837;}
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ;
if(!qbevent)break;evnt(23728);}while(r);
}else{
do{
*_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ;
if(!qbevent)break;evnt(23730);}while(r);
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
if(!qbevent)break;evnt(23731);}while(r);
}
}
fornext_continue_3592:;
}
fornext_exit_3592:;
S_31845:;
if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||is_error_pending()){
if(qbevent){evnt(23735);if(r)goto S_31845;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23735);}while(r);
}
do{
*_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ;
if(!qbevent)break;evnt(23736);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free59.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;
}
