qbs* FUNC_EXPANDARRAY(qbs*_FUNC_EXPANDARRAY_STRING___INDEXES,qbs*_FUNC_EXPANDARRAY_STRING___PATH){
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 "data281.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(25769,10375,"ide_methods.bas");}while(r);
S_51229:;
if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,10377,"ide_methods.bas");if(r)goto S_51229;}
do{
qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10378,"ide_methods.bas");}while(r);
}
do{
*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL+ 1 ;
if(!qbevent)break;evnt(25769,10381,"ide_methods.bas");}while(r);
do{
*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=string2l(qbs_left(_FUNC_EXPANDARRAY_STRING___INDEXES, 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10383,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_EXPANDARRAY_STRING_INDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 ,*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10384,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10385,"ide_methods.bas");}while(r);
do{
*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES/  4 ;
if(!qbevent)break;evnt(25769,10386,"ide_methods.bas");}while(r);
S_51237:;
fornext_value5919= 1 ;
fornext_finalvalue5919=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES;
fornext_step5919= 1 ;
if (fornext_step5919<0) fornext_step_negative5919=1; else fornext_step_negative5919=0;
if (is_error_pending()) goto fornext_error5919;
goto fornext_entrylabel5919;
while(1){
fornext_value5919=fornext_step5919+(*_FUNC_EXPANDARRAY_LONG_I);
fornext_entrylabel5919:
*_FUNC_EXPANDARRAY_LONG_I=fornext_value5919;
if (fornext_step_negative5919){
if (fornext_value5919<fornext_finalvalue5919) break;
}else{
if (fornext_value5919>fornext_finalvalue5919) break;
}
fornext_error5919:;
if(qbevent){evnt(25769,10388,"ide_methods.bas");if(r)goto S_51237;}
do{
qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,qbs_add(_FUNC_EXPANDARRAY_STRING___PATH,func_mid(_FUNC_EXPANDARRAY_STRING_INDEXES,(*_FUNC_EXPANDARRAY_LONG_I* 4 )-( 3 ), 4 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10389,"ide_methods.bas");}while(r);
S_51239:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES->len))||is_error_pending()){
if(qbevent){evnt(25769,10390,"ide_methods.bas");if(r)goto S_51239;}
do{
qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,FUNC_EXPANDARRAY(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,_FUNC_EXPANDARRAY_STRING_TEMP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10391,"ide_methods.bas");}while(r);
}
S_51242:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_TEMP->len))||is_error_pending()){
if(qbevent){evnt(25769,10393,"ide_methods.bas");if(r)goto S_51242;}
do{
qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_add(qbs_add(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,l2string(_FUNC_EXPANDARRAY_STRING_TEMP->len)),_FUNC_EXPANDARRAY_STRING_TEMP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10394,"ide_methods.bas");}while(r);
}
fornext_continue_5918:;
}
fornext_exit_5918:;
do{
*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL- 1 ;
if(!qbevent)break;evnt(25769,10398,"ide_methods.bas");}while(r);
S_51247:;
if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,10400,"ide_methods.bas");if(r)goto S_51247;}
do{
qbs_set(_FUNC_EXPANDARRAY_STRING_EXPANDARRAY,_FUNC_EXPANDARRAY_STRING_RETURNVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,10401,"ide_methods.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free281.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_EXPANDARRAY_STRING_EXPANDARRAY);return _FUNC_EXPANDARRAY_STRING_EXPANDARRAY;
}
