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 "data67.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(25222);}while(r);
S_33303:;
if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||is_error_pending()){
if(qbevent){evnt(25224);if(r)goto S_33303;}
S_33304:;
if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||is_error_pending()){
if(qbevent){evnt(25225);if(r)goto S_33304;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25225);}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(25227);}while(r);
S_33308:;
while((*_FUNC_VALIDNAME_LONG_I)||is_error_pending()){
if(qbevent){evnt(25228);if(r)goto S_33308;}
do{
*_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25229);}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(25230);}while(r);
dl_continue_3820:;
}
dl_exit_3820:;
S_33312:;
if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||is_error_pending()){
if(qbevent){evnt(25232);if(r)goto S_33312;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25232);}while(r);
}
do{
*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25233);}while(r);
}
S_33317:;
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(25236);if(r)goto S_33317;}
S_33318:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= -1 ))||is_error_pending()){
if(qbevent){evnt(25237);if(r)goto S_33318;}
S_33319:;
if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||is_error_pending()){
if(qbevent){evnt(25239);if(r)goto S_33319;}
S_33320:;
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(25240);if(r)goto S_33320;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25240);}while(r);
}
}
}
}else{
S_33326:;
if (((-(*__INTEGER_AUTOINCLUDINGFILE== 0 ))&(-(*__INTEGER_AUTOINCFORCEUSCORE!= 0 )))||is_error_pending()){
if(qbevent){evnt(25244);if(r)goto S_33326;}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
if(!qbevent)break;evnt(25245);}while(r);
S_33328:;
if ((-(*_FUNC_VALIDNAME_LONG_L>= 1 ))||is_error_pending()){
if(qbevent){evnt(25247);if(r)goto S_33328;}
S_33329:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )!= 95 )))||is_error_pending()){
if(qbevent){evnt(25248);if(r)goto S_33329;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25248);}while(r);
}
}
}
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
if(!qbevent)break;evnt(25252);}while(r);
S_33336:;
fornext_value3824= 1 ;
fornext_finalvalue3824=*_FUNC_VALIDNAME_LONG_L;
fornext_step3824= 1 ;
if (fornext_step3824<0) fornext_step_negative3824=1; else fornext_step_negative3824=0;
if (is_error_pending()) goto fornext_error3824;
goto fornext_entrylabel3824;
while(1){
fornext_value3824=fornext_step3824+(*_FUNC_VALIDNAME_LONG_I);
fornext_entrylabel3824:
*_FUNC_VALIDNAME_LONG_I=fornext_value3824;
if (fornext_step_negative3824){
if (fornext_value3824<fornext_finalvalue3824) break;
}else{
if (fornext_value3824>fornext_finalvalue3824) break;
}
fornext_error3824:;
if(qbevent){evnt(25254);if(r)goto S_33336;}
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(25255);}while(r);
S_33338:;
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(25256);if(r)goto S_33338;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25256);}while(r);
}
S_33341:;
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(25257);if(r)goto S_33341;}
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
if(!qbevent)break;evnt(25258);}while(r);
S_33343:;
if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||is_error_pending()){
if(qbevent){evnt(25259);if(r)goto S_33343;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25259);}while(r);
}
}else{
S_33347:;
if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(25261);if(r)goto S_33347;}
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ;
if(!qbevent)break;evnt(25262);}while(r);
}else{
do{
*_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ;
if(!qbevent)break;evnt(25264);}while(r);
do{
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
if(!qbevent)break;evnt(25265);}while(r);
}
}
fornext_continue_3823:;
}
fornext_exit_3823:;
S_33355:;
if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||is_error_pending()){
if(qbevent){evnt(25269);if(r)goto S_33355;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25269);}while(r);
}
do{
*_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ;
if(!qbevent)break;evnt(25270);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free67.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;
}
