qbs* FUNC_READSETTING(qbs*_FUNC_READSETTING_STRING_FILE,qbs*_FUNC_READSETTING_STRING___SECTION,qbs*_FUNC_READSETTING_STRING___KEY){
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 "data127.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{
if(!qbevent)break;evnt(24220,158,"ini.bm");}while(r);
do{
if(!qbevent)break;evnt(24220,159,"ini.bm");}while(r);
do{
if(!qbevent)break;evnt(24220,160,"ini.bm");}while(r);
do{
if(!qbevent)break;evnt(24220,161,"ini.bm");}while(r);
do{
SUB_INILOAD(_FUNC_READSETTING_STRING_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,163,"ini.bm");}while(r);
S_33648:;
if ((*__LONG_INICODE)||is_error_pending()){
if(qbevent){evnt(24220,164,"ini.bm");if(r)goto S_33648;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,164,"ini.bm");}while(r);
}
S_33651:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__ULONG_CURRENTINIFILELOF== 0 ))|(-(((int32)(qbs_ltrim(qbs_rtrim(__STRING_INIWHOLEFILE)))->len)== 0 ))))||is_error_pending()){
if(qbevent){evnt(24220,166,"ini.bm");if(r)goto S_33651;}
do{
*__LONG_INICODE= 17 ;
if(!qbevent)break;evnt(24220,166,"ini.bm");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,166,"ini.bm");}while(r);
}
do{
if(!qbevent)break;evnt(24220,168,"ini.bm");}while(r);
do{
if(!qbevent)break;evnt(24220,169,"ini.bm");}while(r);
do{
if(!qbevent)break;evnt(24220,170,"ini.bm");}while(r);
do{
qbs_set(_FUNC_READSETTING_STRING_SECTION,FUNC_INIFORMATSECTION(_FUNC_READSETTING_STRING___SECTION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,172,"ini.bm");}while(r);
S_33659:;
if ((*__LONG_INICODE)||is_error_pending()){
if(qbevent){evnt(24220,173,"ini.bm");if(r)goto S_33659;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,173,"ini.bm");}while(r);
}
do{
qbs_set(__STRING_INISECTIONDATA,FUNC_INIGETSECTION(_FUNC_READSETTING_STRING_SECTION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,176,"ini.bm");}while(r);
S_33663:;
if (((-(*__LONG_INICODE> 0 ))&(-(*__LONG_INICODE!= 17 )))||is_error_pending()){
if(qbevent){evnt(24220,177,"ini.bm");if(r)goto S_33663;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,177,"ini.bm");}while(r);
}
S_33666:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_INISECTIONDATA->len== 0 ))&(qbs_notequal(_FUNC_READSETTING_STRING_SECTION,qbs_new_txt_len("[]",2)))))||is_error_pending()){
if(qbevent){evnt(24220,179,"ini.bm");if(r)goto S_33666;}
do{
*__LONG_INICODE= 14 ;
if(!qbevent)break;evnt(24220,179,"ini.bm");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,179,"ini.bm");}while(r);
}
do{
qbs_set(__STRING_INILASTSECTION,_FUNC_READSETTING_STRING_SECTION);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,181,"ini.bm");}while(r);
do{
*__ULONG_INIPOSITION= 0 ;
if(!qbevent)break;evnt(24220,183,"ini.bm");}while(r);
do{
qbs_set(_FUNC_READSETTING_STRING_KEY,qbs_ltrim(qbs_rtrim(_FUNC_READSETTING_STRING___KEY)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,185,"ini.bm");}while(r);
do{
qbs_set(__STRING_INILASTKEY,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,186,"ini.bm");}while(r);
S_33674:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(24220,187,"ini.bm");if(r)goto S_33674;}
do{
*__LONG_INICODE= 12 ;
if(!qbevent)break;evnt(24220,187,"ini.bm");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,187,"ini.bm");}while(r);
}
S_33678:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len(";",1)))|(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len("'",1)))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("[",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("]",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("=",1),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(24220,189,"ini.bm");if(r)goto S_33678;}
do{
*__LONG_INICODE= 12 ;
if(!qbevent)break;evnt(24220,190,"ini.bm");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,191,"ini.bm");}while(r);
}
do{
qbs_set(__STRING_INILASTKEY,_FUNC_READSETTING_STRING_KEY);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,194,"ini.bm");}while(r);
S_33683:;
if ((-(*__ULONG_INIPOSITION> 0 ))||is_error_pending()){
if(qbevent){evnt(24220,196,"ini.bm");if(r)goto S_33683;}
do{
*_FUNC_READSETTING_ULONG_EQUAL=*__ULONG_INIPOSITION;
if(!qbevent)break;evnt(24220,196,"ini.bm");}while(r);
do{
goto LABEL_KEYFOUND;
if(!qbevent)break;evnt(24220,196,"ini.bm");}while(r);
}
LABEL_CHECKKEY:;
if(qbevent){evnt(24220,197,"ini.bm");r=0;}
do{
*__ULONG_INIPOSITION=func_instr(*__ULONG_INIPOSITION+ 1 ,qbs_lcase(__STRING_INISECTIONDATA),qbs_lcase(_FUNC_READSETTING_STRING_KEY),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,198,"ini.bm");}while(r);
S_33688:;
if ((-(*__ULONG_INIPOSITION> 0 ))||is_error_pending()){
if(qbevent){evnt(24220,200,"ini.bm");if(r)goto S_33688;}
S_33689:;
fornext_value3902=*__ULONG_INIPOSITION- 1 ;
fornext_finalvalue3902= 1 ;
fornext_step3902= -1 ;
if (fornext_step3902<0) fornext_step_negative3902=1; else fornext_step_negative3902=0;
if (is_error_pending()) goto fornext_error3902;
goto fornext_entrylabel3902;
while(1){
fornext_value3902=fornext_step3902+(*_FUNC_READSETTING_LONG_I);
fornext_entrylabel3902:
*_FUNC_READSETTING_LONG_I=fornext_value3902;
if (fornext_step_negative3902){
if (fornext_value3902<fornext_finalvalue3902) break;
}else{
if (fornext_value3902>fornext_finalvalue3902) break;
}
fornext_error3902:;
if(qbevent){evnt(24220,202,"ini.bm");if(r)goto S_33689;}
S_33690:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)== 10 )))||is_error_pending()){
if(qbevent){evnt(24220,203,"ini.bm");if(r)goto S_33690;}
do{
goto fornext_exit_3901;
if(!qbevent)break;evnt(24220,203,"ini.bm");}while(r);
}
S_33693:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 10 ))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||is_error_pending()){
if(qbevent){evnt(24220,204,"ini.bm");if(r)goto S_33693;}
do{
goto LABEL_CHECKKEY;
if(!qbevent)break;evnt(24220,206,"ini.bm");}while(r);
}
fornext_continue_3901:;
}
fornext_exit_3901:;
S_33697:;
fornext_value3904=*__ULONG_INIPOSITION+_FUNC_READSETTING_STRING_KEY->len;
fornext_finalvalue3904=__STRING_INISECTIONDATA->len;
fornext_step3904= 1 ;
if (fornext_step3904<0) fornext_step_negative3904=1; else fornext_step_negative3904=0;
if (is_error_pending()) goto fornext_error3904;
goto fornext_entrylabel3904;
while(1){
fornext_value3904=fornext_step3904+(*_FUNC_READSETTING_LONG_I);
fornext_entrylabel3904:
*_FUNC_READSETTING_LONG_I=fornext_value3904;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative3904){
if (fornext_value3904<fornext_finalvalue3904) break;
}else{
if (fornext_value3904>fornext_finalvalue3904) break;
}
fornext_error3904:;
if(qbevent){evnt(24220,211,"ini.bm");if(r)goto S_33697;}
S_33698:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)==qbs_asc(qbs_new_txt_len("=",1)))))||is_error_pending()){
if(qbevent){evnt(24220,212,"ini.bm");if(r)goto S_33698;}
do{
goto fornext_exit_3903;
if(!qbevent)break;evnt(24220,212,"ini.bm");}while(r);
}
S_33701:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!=qbs_asc(qbs_new_txt_len("=",1))))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||is_error_pending()){
if(qbevent){evnt(24220,213,"ini.bm");if(r)goto S_33701;}
do{
goto LABEL_CHECKKEY;
if(!qbevent)break;evnt(24220,215,"ini.bm");}while(r);
}
fornext_continue_3903:;
}
fornext_exit_3903:;
do{
*_FUNC_READSETTING_ULONG_EQUAL=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,qbs_new_txt_len("=",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,220,"ini.bm");}while(r);
LABEL_KEYFOUND:;
if(qbevent){evnt(24220,221,"ini.bm");r=0;}
do{
*_FUNC_READSETTING_ULONG_FOUNDLF=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,__STRING_INILF,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,222,"ini.bm");}while(r);
S_33707:;
if ((-(*_FUNC_READSETTING_ULONG_FOUNDLF> 0 ))||is_error_pending()){
if(qbevent){evnt(24220,224,"ini.bm");if(r)goto S_33707;}
S_33708:;
if ((-(*_FUNC_READSETTING_ULONG_EQUAL>*_FUNC_READSETTING_ULONG_FOUNDLF))||is_error_pending()){
if(qbevent){evnt(24220,225,"ini.bm");if(r)goto S_33708;}
do{
goto LABEL_CHECKKEY;
if(!qbevent)break;evnt(24220,225,"ini.bm");}while(r);
}
}else{
do{
*_FUNC_READSETTING_ULONG_FOUNDLF=__STRING_INISECTIONDATA->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,227,"ini.bm");}while(r);
S_33713:;
if ((-(*_FUNC_READSETTING_ULONG_EQUAL== 0 ))||is_error_pending()){
if(qbevent){evnt(24220,228,"ini.bm");if(r)goto S_33713;}
do{
goto LABEL_CHECKKEY;
if(!qbevent)break;evnt(24220,228,"ini.bm");}while(r);
}
}
do{
qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(func_mid(__STRING_INISECTIONDATA,*_FUNC_READSETTING_ULONG_EQUAL+ 1 ,*_FUNC_READSETTING_ULONG_FOUNDLF-*_FUNC_READSETTING_ULONG_EQUAL- 1 ,0|1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,231,"ini.bm");}while(r);
S_33718:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_READSETTING_STRING_TEMPVALUE->len> 0 )))||is_error_pending()){
if(qbevent){evnt(24220,233,"ini.bm");if(r)goto S_33718;}
S_33719:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(24220,234,"ini.bm");if(r)goto S_33719;}
do{
qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,func_mid(_FUNC_READSETTING_STRING_TEMPVALUE, 2 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,235,"ini.bm");}while(r);
do{
*_FUNC_READSETTING_ULONG_QUOTE=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,236,"ini.bm");}while(r);
S_33722:;
if ((-(*_FUNC_READSETTING_ULONG_QUOTE> 0 ))||is_error_pending()){
if(qbevent){evnt(24220,237,"ini.bm");if(r)goto S_33722;}
do{
qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_QUOTE- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,238,"ini.bm");}while(r);
}
}else{
S_33726:;
if ((*__LONG_INIALLOWBASICCOMMENTS)||is_error_pending()){
if(qbevent){evnt(24220,241,"ini.bm");if(r)goto S_33726;}
do{
*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,241,"ini.bm");}while(r);
}
S_33729:;
if ((-(*_FUNC_READSETTING_ULONG_COMMENT== 0 ))||is_error_pending()){
if(qbevent){evnt(24220,242,"ini.bm");if(r)goto S_33729;}
do{
*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len(";",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,242,"ini.bm");}while(r);
}
S_33732:;
if ((-(*_FUNC_READSETTING_ULONG_COMMENT> 0 ))||is_error_pending()){
if(qbevent){evnt(24220,243,"ini.bm");if(r)goto S_33732;}
do{
qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_COMMENT- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,244,"ini.bm");}while(r);
}
}
}else{
do{
*__LONG_INICODE= 2 ;
if(!qbevent)break;evnt(24220,248,"ini.bm");}while(r);
}
}else{
do{
*__LONG_INICODE= 3 ;
if(!qbevent)break;evnt(24220,251,"ini.bm");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24220,252,"ini.bm");}while(r);
}
do{
qbs_set(_FUNC_READSETTING_STRING_READSETTING,_FUNC_READSETTING_STRING_TEMPVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,255,"ini.bm");}while(r);
do{
qbs_set(__STRING_INILASTSECTION,FUNC_INICURRENTSECTION());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24220,256,"ini.bm");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free127.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_READSETTING_STRING_READSETTING);return _FUNC_READSETTING_STRING_READSETTING;
}
