qbs* FUNC_IDESUBS(){
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 "data380.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{
sub_pcopy( 0 , 2 );
if(!qbevent)break;evnt(28182,13704,"ide_methods.bas");}while(r);
do{
sub_pcopy( 0 , 1 );
if(!qbevent)break;evnt(28182,13705,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,13706,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,13707,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,13708,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(101);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&4){
_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_UDT_O[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_UDT_O[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_UDT_O[0]) error(257);
}
_FUNC_IDESUBS_ARRAY_UDT_O[2]|=1;
_FUNC_IDESUBS_ARRAY_UDT_O[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_UDT_O[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_UDT_O[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_UDT_O[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(28182,13709,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,13710,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING1_SEP,func_chr( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13711,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR()));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13715,"ide_methods.bas");}while(r);
S_58890:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len> 1 )))||is_error_pending()){
if(qbevent){evnt(28182,13716,"ide_methods.bas");if(r)goto S_58890;}
S_58891:;
while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||is_error_pending()){
if(qbevent){evnt(28182,13717,"ide_methods.bas");if(r)goto S_58891;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_left(_FUNC_IDESUBS_STRING_A2,_FUNC_IDESUBS_STRING_A2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13718,"ide_methods.bas");}while(r);
S_58893:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,13719,"ide_methods.bas");if(r)goto S_58893;}
do{
goto dl_exit_6968;
if(!qbevent)break;evnt(28182,13719,"ide_methods.bas");}while(r);
}
dl_continue_6968:;
}
dl_exit_6968:;
}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13725,"ide_methods.bas");}while(r);
S_58899:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,13726,"ide_methods.bas");if(r)goto S_58899;}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13726,"ide_methods.bas");}while(r);
}
S_58902:;
if ((-(*__LONG_IDEWX< 100 ))||is_error_pending()){
if(qbevent){evnt(28182,13728,"ide_methods.bas");if(r)goto S_58902;}
do{
*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 20 ;
if(!qbevent)break;evnt(28182,13729,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 42 ;
if(!qbevent)break;evnt(28182,13731,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_L->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13734,"ide_methods.bas");}while(r);
S_58908:;
if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>(*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT+ 2 )))||is_error_pending()){
if(qbevent){evnt(28182,13735,"ide_methods.bas");if(r)goto S_58908;}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_L,*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT- 1 ),func_string( 3 , 250 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13736,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT;
if(!qbevent)break;evnt(28182,13737,"ide_methods.bas");}while(r);
S_58911:;
}else{
if (-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN< 10 )){
if(qbevent){evnt(28182,13738,"ide_methods.bas");if(r)goto S_58911;}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN= 10 ;
if(!qbevent)break;evnt(28182,13739,"ide_methods.bas");}while(r);
}
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LY,l2string( 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13742,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,_FUNC_IDESUBS_STRING_LY);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13743,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC= 1 ;
if(!qbevent)break;evnt(28182,13744,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC= 0 ;
if(!qbevent)break;evnt(28182,13745,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(28182,13746,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(28182,13747,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNT= 0 ;
if(!qbevent)break;evnt(28182,13748,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13750,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13751,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13752,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13753,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13754,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_ARGS[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_ARGS[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13755,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SF[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SF[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SF[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SF[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SF[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SF[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SF[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SF[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13756,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_TOTALSUBS= 0 ;
if(!qbevent)break;evnt(28182,13758,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
if(!qbevent)break;evnt(28182,13759,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS;
if(!qbevent)break;evnt(28182,13760,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SUBCLOSED= 0ll ;
if(!qbevent)break;evnt(28182,13761,"ide_methods.bas");}while(r);
S_58932:;
fornext_value6973= 1 ;
fornext_finalvalue6973=*__LONG_IDEN;
fornext_step6973= 1 ;
if (fornext_step6973<0) fornext_step_negative6973=1; else fornext_step_negative6973=0;
if (is_error_pending()) goto fornext_error6973;
goto fornext_entrylabel6973;
while(1){
fornext_value6973=fornext_step6973+(*_FUNC_IDESUBS_LONG_Y);
fornext_entrylabel6973:
*_FUNC_IDESUBS_LONG_Y=fornext_value6973;
if (fornext_step_negative6973){
if (fornext_value6973<fornext_finalvalue6973) break;
}else{
if (fornext_value6973>fornext_finalvalue6973) break;
}
fornext_error6973:;
if(qbevent){evnt(28182,13763,"ide_methods.bas");if(r)goto S_58932;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(_FUNC_IDESUBS_LONG_Y));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13764,"ide_methods.bas");}while(r);
S_58934:;
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
if(qbevent){evnt(28182,13765,"ide_methods.bas");if(r)goto S_58934;}
do{
*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ;
if(!qbevent)break;evnt(28182,13765,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13766,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SF= 0 ;
if(!qbevent)break;evnt(28182,13767,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_ucase(_FUNC_IDESUBS_STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13768,"ide_methods.bas");}while(r);
S_58940:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(28182,13769,"ide_methods.bas");if(r)goto S_58940;}
do{
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= -1 ;
if(!qbevent)break;evnt(28182,13769,"ide_methods.bas");}while(r);
}
S_58943:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 11 ),qbs_new_txt_len("END DECLARE",11))))||is_error_pending()){
if(qbevent){evnt(28182,13770,"ide_methods.bas");if(r)goto S_58943;}
do{
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(28182,13770,"ide_methods.bas");}while(r);
}
S_58946:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||is_error_pending()){
if(qbevent){evnt(28182,13771,"ide_methods.bas");if(r)goto S_58946;}
do{
*_FUNC_IDESUBS_LONG_SF= 1 ;
if(!qbevent)break;evnt(28182,13771,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("SUB   ",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13771,"ide_methods.bas");}while(r);
}
S_58950:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||is_error_pending()){
if(qbevent){evnt(28182,13772,"ide_methods.bas");if(r)goto S_58950;}
do{
*_FUNC_IDESUBS_LONG_SF= 2 ;
if(!qbevent)break;evnt(28182,13772,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("FUNC  ",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13772,"ide_methods.bas");}while(r);
}
S_58954:;
if ((*_FUNC_IDESUBS_LONG_SF)||is_error_pending()){
if(qbevent){evnt(28182,13773,"ide_methods.bas");if(r)goto S_58954;}
do{
*_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ;
if(!qbevent)break;evnt(28182,13775,"ide_methods.bas");}while(r);
S_58956:;
if ((~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE))||is_error_pending()){
if(qbevent){evnt(28182,13776,"ide_methods.bas");if(r)goto S_58956;}
do{
*_FUNC_IDESUBS_LONG_LASTOPENSUB=*_FUNC_IDESUBS_LONG_TOTALSUBS;
if(!qbevent)break;evnt(28182,13776,"ide_methods.bas");}while(r);
}
S_58959:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_TOTALSUBS>func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1))))||is_error_pending()){
if(qbevent){evnt(28182,13777,"ide_methods.bas");if(r)goto S_58959;}
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13778,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13779,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13780,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13781,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13782,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_ARGS[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_ARGS[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13783,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SF[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SF[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SF[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SF[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SF[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SF[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SF[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SF[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13784,"ide_methods.bas");}while(r);
}
S_58968:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDESUBS_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||is_error_pending()){
if(qbevent){evnt(28182,13787,"ide_methods.bas");if(r)goto S_58968;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 7 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13788,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LY,qbs_add(_FUNC_IDESUBS_STRING_LY,l2string(*_FUNC_IDESUBS_LONG_Y)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13792,"ide_methods.bas");}while(r);
S_58972:;
if (((-(*__LONG_IDECY>=*_FUNC_IDESUBS_LONG_Y))&(~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE)))||is_error_pending()){
if(qbevent){evnt(28182,13796,"ide_methods.bas");if(r)goto S_58972;}
do{
*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13797,"ide_methods.bas");}while(r);
}
S_58975:;
if ((-(*_FUNC_IDESUBS_LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,13801,"ide_methods.bas");if(r)goto S_58975;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13802,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13804,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13806,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_X=func_instr(NULL,_FUNC_IDESUBS_STRING_A,qbs_new_txt_len("(",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13807,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,13808,"ide_methods.bas");}while(r);
S_58983:;
if ((*_FUNC_IDESUBS_LONG_X)||is_error_pending()){
if(qbevent){evnt(28182,13809,"ide_methods.bas");if(r)goto S_58983;}
do{
SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_LONG_X,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13809,"ide_methods.bas");}while(r);
}
S_58986:;
if (((-(*_FUNC_IDESUBS_LONG_X> 0 ))&(-(*_FUNC_IDESUBS_BYTE_COMMENT== 0 ))&(-(*_FUNC_IDESUBS_BYTE_QUOTE== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,13810,"ide_methods.bas");if(r)goto S_58986;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13811,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len-*_FUNC_IDESUBS_LONG_X+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13812,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_X= 1 ;
if(!qbevent)break;evnt(28182,13813,"ide_methods.bas");}while(r);
S_58990:;
fornext_value6980= 2 ;
fornext_finalvalue6980=_FUNC_IDESUBS_STRING_ARGS->len;
fornext_step6980= 1 ;
if (fornext_step6980<0) fornext_step_negative6980=1; else fornext_step_negative6980=0;
if (is_error_pending()) goto fornext_error6980;
goto fornext_entrylabel6980;
while(1){
fornext_value6980=fornext_step6980+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel6980:
*_FUNC_IDESUBS_LONG_I=fornext_value6980;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative6980){
if (fornext_value6980<fornext_finalvalue6980) break;
}else{
if (fornext_value6980>fornext_finalvalue6980) break;
}
fornext_error6980:;
if(qbevent){evnt(28182,13814,"ide_methods.bas");if(r)goto S_58990;}
S_58991:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 40 )))||is_error_pending()){
if(qbevent){evnt(28182,13815,"ide_methods.bas");if(r)goto S_58991;}
do{
*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X+ 1 ;
if(!qbevent)break;evnt(28182,13815,"ide_methods.bas");}while(r);
}
S_58994:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 41 )))||is_error_pending()){
if(qbevent){evnt(28182,13816,"ide_methods.bas");if(r)goto S_58994;}
do{
*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X- 1 ;
if(!qbevent)break;evnt(28182,13816,"ide_methods.bas");}while(r);
}
S_58997:;
if ((-(*_FUNC_IDESUBS_LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,13817,"ide_methods.bas");if(r)goto S_58997;}
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_left(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13817,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6979;
if(!qbevent)break;evnt(28182,13817,"ide_methods.bas");}while(r);
}
fornext_continue_6979:;
}
fornext_exit_6979:;
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13820,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("()",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13821,"ide_methods.bas");}while(r);
}
do{
SUB_CLEANSUBNAME(_FUNC_IDESUBS_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13823,"ide_methods.bas");}while(r);
S_59007:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||is_error_pending()){
if(qbevent){evnt(28182,13824,"ide_methods.bas");if(r)goto S_59007;}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_N->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13824,"ide_methods.bas");}while(r);
}
S_59010:;
if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT))||is_error_pending()){
if(qbevent){evnt(28182,13825,"ide_methods.bas");if(r)goto S_59010;}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT;
if(!qbevent)break;evnt(28182,13825,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_N2,_FUNC_IDESUBS_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13829,"ide_methods.bas");}while(r);
S_59014:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N2->len> 1 )))||is_error_pending()){
if(qbevent){evnt(28182,13830,"ide_methods.bas");if(r)goto S_59014;}
S_59015:;
while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||is_error_pending()){
if(qbevent){evnt(28182,13831,"ide_methods.bas");if(r)goto S_59015;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N2,qbs_left(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_N2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13832,"ide_methods.bas");}while(r);
dl_continue_6985:;
}
dl_exit_6985:;
}
S_59019:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_N2))))||is_error_pending()){
if(qbevent){evnt(28182,13835,"ide_methods.bas");if(r)goto S_59019;}
do{
*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13835,"ide_methods.bas");}while(r);
}
S_59022:;
if ((-(*_FUNC_IDESUBS_LONG_INSIDEDECLARE== -1 ))||is_error_pending()){
if(qbevent){evnt(28182,13837,"ide_methods.bas");if(r)goto S_59022;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_new_txt_len("*",1),_FUNC_IDESUBS_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13838,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= -1 ;
if(!qbevent)break;evnt(28182,13839,"ide_methods.bas");}while(r);
}else{
S_59026:;
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
if(qbevent){evnt(28182,13841,"ide_methods.bas");if(r)goto S_59026;}
do{
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
if(!qbevent)break;evnt(28182,13841,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=174;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDLINECOUNT;
RETURN_174:;
if(!qbevent)break;evnt(28182,13841,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_SUBCLOSED= 0ll ;
if(!qbevent)break;evnt(28182,13842,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
if(!qbevent)break;evnt(28182,13843,"ide_methods.bas");}while(r);
}
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long])),_FUNC_IDESUBS_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13847,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]);
if (!is_error_pending()) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_Y;
if(!qbevent)break;evnt(28182,13848,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long])),_FUNC_IDESUBS_STRING_ARGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13849,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long])),_FUNC_IDESUBS_STRING_SF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13850,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_I=func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("  ",2),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13853,"ide_methods.bas");}while(r);
S_59039:;
while((-(*_FUNC_IDESUBS_LONG_I> 0 ))||is_error_pending()){
if(qbevent){evnt(28182,13854,"ide_methods.bas");if(r)goto S_59039;}
do{
qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I),func_mid(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I+ 2 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13855,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=func_instr(*_FUNC_IDESUBS_LONG_I,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("  ",2),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13856,"ide_methods.bas");}while(r);
dl_continue_6988:;
}
dl_exit_6988:;
do{
*_FUNC_IDESUBS_LONG_CURSOR= 0 ;
if(!qbevent)break;evnt(28182,13859,"ide_methods.bas");}while(r);
LABEL_LOOKFORENDSUB:;
if(qbevent){evnt(28182,13860,"ide_methods.bas");r=0;}
do{
*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END SUB",7),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13861,"ide_methods.bas");}while(r);
S_59045:;
if ((-(*_FUNC_IDESUBS_LONG_SF== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,13862,"ide_methods.bas");if(r)goto S_59045;}
do{
*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END FUNCTION",12),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13862,"ide_methods.bas");}while(r);
}
S_59048:;
if ((*_FUNC_IDESUBS_LONG_SF)||is_error_pending()){
if(qbevent){evnt(28182,13864,"ide_methods.bas");if(r)goto S_59048;}
do{
SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_NCA,_FUNC_IDESUBS_LONG_SF,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13865,"ide_methods.bas");}while(r);
S_59050:;
if ((*_FUNC_IDESUBS_BYTE_COMMENT|*_FUNC_IDESUBS_BYTE_QUOTE)||is_error_pending()){
if(qbevent){evnt(28182,13866,"ide_methods.bas");if(r)goto S_59050;}
do{
*_FUNC_IDESUBS_LONG_CURSOR=*_FUNC_IDESUBS_LONG_SF;
if(!qbevent)break;evnt(28182,13866,"ide_methods.bas");}while(r);
do{
goto LABEL_LOOKFORENDSUB;
if(!qbevent)break;evnt(28182,13866,"ide_methods.bas");}while(r);
}
do{
return_point[next_return_point++]=175;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDLINECOUNT;
RETURN_175:;
if(!qbevent)break;evnt(28182,13867,"ide_methods.bas");}while(r);
}
}
fornext_continue_6972:;
}
fornext_exit_6972:;
S_59058:;
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
if(qbevent){evnt(28182,13872,"ide_methods.bas");if(r)goto S_59058;}
do{
return_point[next_return_point++]=176;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDLINECOUNT;
RETURN_176:;
if(!qbevent)break;evnt(28182,13872,"ide_methods.bas");}while(r);
}
S_59061:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))&(-(*_FUNC_IDESUBS_LONG_TOTALSUBS<func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1)))))||is_error_pending()){
if(qbevent){evnt(28182,13875,"ide_methods.bas");if(r)goto S_59061;}
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13876,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13877,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13878,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13879,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13880,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_ARGS[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_ARGS[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13881,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SF[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SF[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SF[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SF[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SF[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SF[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SF[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SF[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,13882,"ide_methods.bas");}while(r);
}
S_59070:;
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))||is_error_pending()){
if(qbevent){evnt(28182,13886,"ide_methods.bas");if(r)goto S_59070;}
S_59071:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__tostr((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT),NULL,0))->len)<= 10 )))||is_error_pending()){
if(qbevent){evnt(28182,13887,"ide_methods.bas");if(r)goto S_59071;}
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 10 ;
if(!qbevent)break;evnt(28182,13888,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Line count",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13889,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,qbs_new_txt_len("external",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13890,"ide_methods.bas");}while(r);
}
S_59076:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__tostr((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT),NULL,0))->len)<= 5 )))||is_error_pending()){
if(qbevent){evnt(28182,13892,"ide_methods.bas");if(r)goto S_59076;}
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 5 ;
if(!qbevent)break;evnt(28182,13893,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Lines",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13894,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,func_chr( 196 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13895,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,func_space((*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+ 2 )-_FUNC_IDESUBS_STRING_L->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13898,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13899,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13900,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("  Type  Arguments",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13901,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13902,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13903,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,qbs_new_txt_len("  ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len("  Type  Arguments",17)),_FUNC_IDESUBS_STRING1_SEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13904,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_new_txt_len("  ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len("  Type  Arguments",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13905,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13907,"ide_methods.bas");}while(r);
S_59091:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,13908,"ide_methods.bas");if(r)goto S_59091;}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13908,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13909,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_DIALOGWIDTH= 50 ;
if(!qbevent)break;evnt(28182,13913,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_ARGSLENGTH= 2 ;
if(!qbevent)break;evnt(28182,13914,"ide_methods.bas");}while(r);
S_59098:;
fornext_value6991= 1 ;
fornext_finalvalue6991=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6991= 1 ;
if (fornext_step6991<0) fornext_step_negative6991=1; else fornext_step_negative6991=0;
if (is_error_pending()) goto fornext_error6991;
goto fornext_entrylabel6991;
while(1){
fornext_value6991=fornext_step6991+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel6991:
*_FUNC_IDESUBS_LONG_X=fornext_value6991;
if (fornext_step_negative6991){
if (fornext_value6991<fornext_finalvalue6991) break;
}else{
if (fornext_value6991>fornext_finalvalue6991) break;
}
fornext_error6991:;
if(qbevent){evnt(28182,13915,"ide_methods.bas");if(r)goto S_59098;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13916,"ide_methods.bas");}while(r);
S_59100:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||is_error_pending()){
if(qbevent){evnt(28182,13917,"ide_methods.bas");if(r)goto S_59100;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN- 3 ),func_string( 3 , 250 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13918,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN-_FUNC_IDESUBS_STRING_N->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13920,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13923,"ide_methods.bas");}while(r);
S_59106:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len>*_FUNC_IDESUBS_LONG_ARGSLENGTH)))||is_error_pending()){
if(qbevent){evnt(28182,13924,"ide_methods.bas");if(r)goto S_59106;}
do{
*_FUNC_IDESUBS_LONG_ARGSLENGTH=_FUNC_IDESUBS_STRING_ARGS->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13924,"ide_methods.bas");}while(r);
}
S_59109:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||is_error_pending()){
if(qbevent){evnt(28182,13925,"ide_methods.bas");if(r)goto S_59109;}
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(_FUNC_IDESUBS_STRING_ARGS,func_space((*__LONG_IDEWX- 41 )-_FUNC_IDESUBS_STRING_ARGS->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13926,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_ARGS,(*__LONG_IDEWX- 44 )),func_string( 3 , 250 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13928,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_SF,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13931,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_L,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len("  ",2)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13934,"ide_methods.bas");}while(r);
S_59116:;
if ((-(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,13936,"ide_methods.bas");if(r)goto S_59116;}
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13936,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs__tostr((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13936,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len("  ",2)),func_chr( 16 )),func_chr( 2 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len("  ",2)),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS),_FUNC_IDESUBS_STRING1_SEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13939,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LISTITEM,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_N,qbs_new_txt_len("  ",2)),func_chr( 1 )),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13941,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=_FUNC_IDESUBS_STRING_LISTITEM->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13942,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[tmp_long*998],998,1),qbs_ucase(_FUNC_IDESUBS_STRING_LISTITEM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13943,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[tmp_long*998],998,1),_FUNC_IDESUBS_STRING_LISTITEM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13944,"ide_methods.bas");}while(r);
do{
sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1);
if(!qbevent)break;evnt(28182,13945,"ide_methods.bas");}while(r);
do{
sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1);
if(!qbevent)break;evnt(28182,13946,"ide_methods.bas");}while(r);
fornext_continue_6990:;
}
fornext_exit_6990:;
do{
sub_mid(_FUNC_IDESUBS_STRING_L,func__instrrev(NULL,_FUNC_IDESUBS_STRING_L,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(28182,13949,"ide_methods.bas");}while(r);
do{
sub_mid(_FUNC_IDESUBS_STRING_LSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(28182,13950,"ide_methods.bas");}while(r);
S_59131:;
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||is_error_pending()){
if(qbevent){evnt(28182,13952,"ide_methods.bas");if(r)goto S_59131;}
do{
SUB_SORT(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13953,"ide_methods.bas");}while(r);
S_59133:;
fornext_value7001= 1 ;
fornext_finalvalue7001=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step7001= 1 ;
if (fornext_step7001<0) fornext_step_negative7001=1; else fornext_step_negative7001=0;
if (is_error_pending()) goto fornext_error7001;
goto fornext_entrylabel7001;
while(1){
fornext_value7001=fornext_step7001+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel7001:
*_FUNC_IDESUBS_LONG_X=fornext_value7001;
if (fornext_step_negative7001){
if (fornext_value7001<fornext_finalvalue7001) break;
}else{
if (fornext_value7001>fornext_finalvalue7001) break;
}
fornext_error7001:;
if(qbevent){evnt(28182,13955,"ide_methods.bas");if(r)goto S_59133;}
do{
*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=string2i(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 2 , 2 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13956,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,qbs_add(_FUNC_IDESUBS_STRING_LYSORTED,func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13957,"ide_methods.bas");}while(r);
S_59136:;
fornext_value7005= 1 ;
fornext_finalvalue7005=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step7005= 1 ;
if (fornext_step7005<0) fornext_step_negative7005=1; else fornext_step_negative7005=0;
if (is_error_pending()) goto fornext_error7005;
goto fornext_entrylabel7005;
while(1){
fornext_value7005=fornext_step7005+(*_FUNC_IDESUBS_LONG_RESTORECASEBKP);
fornext_entrylabel7005:
*_FUNC_IDESUBS_LONG_RESTORECASEBKP=fornext_value7005;
if (fornext_step_negative7005){
if (fornext_value7005<fornext_finalvalue7005) break;
}else{
if (fornext_value7005>fornext_finalvalue7005) break;
}
fornext_error7005:;
if(qbevent){evnt(28182,13958,"ide_methods.bas");if(r)goto S_59136;}
S_59137:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||is_error_pending()){
if(qbevent){evnt(28182,13959,"ide_methods.bas");if(r)goto S_59137;}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13960,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_TEMP,qbs_left(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),*_FUNC_IDESUBS_LONG_LISTITEMLENGTH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13961,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13963,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs__tostr((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13965,"ide_methods.bas");}while(r);
S_59142:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_TEMP, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
if(qbevent){evnt(28182,13966,"ide_methods.bas");if(r)goto S_59142;}
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13966,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13967,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len("  ",2)),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13970,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7004;
if(!qbevent)break;evnt(28182,13971,"ide_methods.bas");}while(r);
}
fornext_continue_7004:;
}
fornext_exit_7004:;
fornext_continue_7000:;
}
fornext_exit_7000:;
do{
sub_mid(_FUNC_IDESUBS_STRING_LSORTED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(28182,13976,"ide_methods.bas");}while(r);
do{
sub_mid(_FUNC_IDESUBS_STRING_LSORTEDSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTEDSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(28182,13977,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS;
if(!qbevent)break;evnt(28182,13978,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG= 0 ;
if(!qbevent)break;evnt(28182,13980,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_I= 0 ;
if(!qbevent)break;evnt(28182,13984,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 4 ;
if(!qbevent)break;evnt(28182,13985,"ide_methods.bas");}while(r);
S_59159:;
if ((-(*_FUNC_IDESUBS_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||is_error_pending()){
if(qbevent){evnt(28182,13986,"ide_methods.bas");if(r)goto S_59159;}
do{
*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ;
if(!qbevent)break;evnt(28182,13987,"ide_methods.bas");}while(r);
}
S_59162:;
if ((-((*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 )>*_FUNC_IDESUBS_LONG_DIALOGWIDTH))||is_error_pending()){
if(qbevent){evnt(28182,13990,"ide_methods.bas");if(r)goto S_59162;}
do{
*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 ;
if(!qbevent)break;evnt(28182,13990,"ide_methods.bas");}while(r);
}
S_59165:;
if ((-(*_FUNC_IDESUBS_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||is_error_pending()){
if(qbevent){evnt(28182,13991,"ide_methods.bas");if(r)goto S_59165;}
do{
*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ;
if(!qbevent)break;evnt(28182,13991,"ide_methods.bas");}while(r);
}
do{
SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + ((0+0)) ),_FUNC_IDESUBS_LONG_DIALOGWIDTH,_FUNC_IDESUBS_LONG_DIALOGHEIGHT,qbs_new_txt_len("SUBs",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,13993,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,13995,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 2 ;
if(!qbevent)break;evnt(28182,13996,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))= 1 ;
if(!qbevent)break;evnt(28182,13997,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+28)))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 4 ;
if(!qbevent)break;evnt(28182,13999,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+32)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT- 3 ;
if(!qbevent)break;evnt(28182,13999,"ide_methods.bas");}while(r);
S_59174:;
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14000,"ide_methods.bas");if(r)goto S_59174;}
S_59175:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(28182,14001,"ide_methods.bas");if(r)goto S_59175;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSIZED);
if(!qbevent)break;evnt(28182,14002,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_L);
if(!qbevent)break;evnt(28182,14004,"ide_methods.bas");}while(r);
}
S_59180:;
if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14007,"ide_methods.bas");if(r)goto S_59180;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC;
if(!qbevent)break;evnt(28182,14008,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC;
if(!qbevent)break;evnt(28182,14010,"ide_methods.bas");}while(r);
}
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14013,"ide_methods.bas");}while(r);
S_59187:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(28182,14014,"ide_methods.bas");if(r)goto S_59187;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTEDSIZED);
if(!qbevent)break;evnt(28182,14015,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTED);
if(!qbevent)break;evnt(28182,14017,"ide_methods.bas");}while(r);
}
S_59192:;
if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14019,"ide_methods.bas");if(r)goto S_59192;}
S_59193:;
fornext_value7010= 1 ;
fornext_finalvalue7010=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step7010= 1 ;
if (fornext_step7010<0) fornext_step_negative7010=1; else fornext_step_negative7010=0;
if (is_error_pending()) goto fornext_error7010;
goto fornext_entrylabel7010;
while(1){
fornext_value7010=fornext_step7010+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel7010:
*_FUNC_IDESUBS_LONG_X=fornext_value7010;
if (fornext_step_negative7010){
if (fornext_value7010<fornext_finalvalue7010) break;
}else{
if (fornext_value7010>fornext_finalvalue7010) break;
}
fornext_error7010:;
if(qbevent){evnt(28182,14020,"ide_methods.bas");if(r)goto S_59193;}
S_59194:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||is_error_pending()){
if(qbevent){evnt(28182,14021,"ide_methods.bas");if(r)goto S_59194;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_X+ 1 ;
if(!qbevent)break;evnt(28182,14022,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7009;
if(!qbevent)break;evnt(28182,14023,"ide_methods.bas");}while(r);
}
fornext_continue_7009:;
}
fornext_exit_7009:;
}else{
S_59200:;
fornext_value7013= 1 ;
fornext_finalvalue7013=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step7013= 1 ;
if (fornext_step7013<0) fornext_step_negative7013=1; else fornext_step_negative7013=0;
if (is_error_pending()) goto fornext_error7013;
goto fornext_entrylabel7013;
while(1){
fornext_value7013=fornext_step7013+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel7013:
*_FUNC_IDESUBS_LONG_X=fornext_value7013;
if (fornext_step_negative7013){
if (fornext_value7013<fornext_finalvalue7013) break;
}else{
if (fornext_value7013>fornext_finalvalue7013) break;
}
fornext_error7013:;
if(qbevent){evnt(28182,14027,"ide_methods.bas");if(r)goto S_59200;}
S_59201:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||is_error_pending()){
if(qbevent){evnt(28182,14028,"ide_methods.bas");if(r)goto S_59201;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_X+ 1 ;
if(!qbevent)break;evnt(28182,14029,"ide_methods.bas");}while(r);
do{
goto fornext_exit_7012;
if(!qbevent)break;evnt(28182,14030,"ide_methods.bas");}while(r);
}
fornext_continue_7012:;
}
fornext_exit_7012:;
}
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("Program Items",13));
if(!qbevent)break;evnt(28182,14035,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,14037,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 4 ;
if(!qbevent)break;evnt(28182,14038,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+20)))= 2 ;
if(!qbevent)break;evnt(28182,14039,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT;
if(!qbevent)break;evnt(28182,14040,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("#Line Count",11));
if(!qbevent)break;evnt(28182,14041,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*__BYTE_IDESUBSLENGTH;
if(!qbevent)break;evnt(28182,14042,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,14044,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 4 ;
if(!qbevent)break;evnt(28182,14045,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+20)))= 18 ;
if(!qbevent)break;evnt(28182,14046,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT;
if(!qbevent)break;evnt(28182,14047,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("#Sort",5));
if(!qbevent)break;evnt(28182,14048,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG;
if(!qbevent)break;evnt(28182,14049,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,14051,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 3 ;
if(!qbevent)break;evnt(28182,14052,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+28)))= 26 ;
if(!qbevent)break;evnt(28182,14053,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+20)))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 22 ;
if(!qbevent)break;evnt(28182,14054,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT;
if(!qbevent)break;evnt(28182,14055,"ide_methods.bas");}while(r);
S_59226:;
if ((-(*__LONG_IDEDEBUGMODE== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14056,"ide_methods.bas");if(r)goto S_59226;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Edit",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7)));
if(!qbevent)break;evnt(28182,14057,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#View",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7)));
if(!qbevent)break;evnt(28182,14059,"ide_methods.bas");}while(r);
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+60)))= 1 ;
if(!qbevent)break;evnt(28182,14061,"ide_methods.bas");}while(r);
S_59232:;
fornext_value7016= 1 ;
fornext_finalvalue7016= 100 ;
fornext_step7016= 1 ;
if (fornext_step7016<0) fornext_step_negative7016=1; else fornext_step_negative7016=0;
if (is_error_pending()) goto fornext_error7016;
goto fornext_entrylabel7016;
while(1){
fornext_value7016=fornext_step7016+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel7016:
*_FUNC_IDESUBS_LONG_I=fornext_value7016;
if (fornext_step_negative7016){
if (fornext_value7016<fornext_finalvalue7016) break;
}else{
if (fornext_value7016>fornext_finalvalue7016) break;
}
fornext_error7016:;
if(qbevent){evnt(28182,14067,"ide_methods.bas");if(r)goto S_59232;}
do{
memcpy(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+0))+ 0,((char*)_FUNC_IDESUBS_UDT_P)+((0+0))+ 0, 20);
if(!qbevent)break;evnt(28182,14067,"ide_methods.bas");}while(r);
fornext_continue_7015:;
}
fornext_exit_7015:;
S_59235:;
do{
if(qbevent){evnt(28182,14070,"ide_methods.bas");if(r)goto S_59235;}
do{
SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + ((0+0)) ));
if(!qbevent)break;evnt(28182,14073,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_F= 1 ;
if(!qbevent)break;evnt(28182,14074,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CX= 0 ;
if(!qbevent)break;evnt(28182,14074,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CY= 0 ;
if(!qbevent)break;evnt(28182,14074,"ide_methods.bas");}while(r);
S_59240:;
fornext_value7019= 1 ;
fornext_finalvalue7019= 100 ;
fornext_step7019= 1 ;
if (fornext_step7019<0) fornext_step_negative7019=1; else fornext_step_negative7019=0;
if (is_error_pending()) goto fornext_error7019;
goto fornext_entrylabel7019;
while(1){
fornext_value7019=fornext_step7019+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel7019:
*_FUNC_IDESUBS_LONG_I=fornext_value7019;
if (fornext_step_negative7019){
if (fornext_value7019<fornext_finalvalue7019) break;
}else{
if (fornext_value7019>fornext_finalvalue7019) break;
}
fornext_error7019:;
if(qbevent){evnt(28182,14075,"ide_methods.bas");if(r)goto S_59240;}
S_59241:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36))))||is_error_pending()){
if(qbevent){evnt(28182,14076,"ide_methods.bas");if(r)goto S_59241;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+72)))=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F;
if(!qbevent)break;evnt(28182,14079,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+64)))= 0 ;
if(!qbevent)break;evnt(28182,14080,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+68)))= 0 ;
if(!qbevent)break;evnt(28182,14080,"ide_methods.bas");}while(r);
do{
SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDESUBS_LONG_F);
if(!qbevent)break;evnt(28182,14081,"ide_methods.bas");}while(r);
S_59246:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+64))))||is_error_pending()){
if(qbevent){evnt(28182,14082,"ide_methods.bas");if(r)goto S_59246;}
do{
*_FUNC_IDESUBS_LONG_CX=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+64)));
if(!qbevent)break;evnt(28182,14082,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CY=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+68)));
if(!qbevent)break;evnt(28182,14082,"ide_methods.bas");}while(r);
}
}
fornext_continue_7018:;
}
fornext_exit_7018:;
do{
*_FUNC_IDESUBS_LONG_LASTFOCUS=*_FUNC_IDESUBS_LONG_F- 1 ;
if(!qbevent)break;evnt(28182,14085,"ide_methods.bas");}while(r);
S_59253:;
if ((*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC)||is_error_pending()){
if(qbevent){evnt(28182,14089,"ide_methods.bas");if(r)goto S_59253;}
do{
qbg_sub_color( 2 , 7 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,14090,"ide_methods.bas");}while(r);
do{
sub__printstring(*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+0)))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+8)))- 32 ,*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+4)))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+12))),qbs_new_txt_len("* external",10),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14091,"ide_methods.bas");}while(r);
}
do{
sub_pcopy( 1 , 0 );
if(!qbevent)break;evnt(28182,14096,"ide_methods.bas");}while(r);
S_59258:;
if ((*_FUNC_IDESUBS_LONG_CX)||is_error_pending()){
if(qbevent){evnt(28182,14097,"ide_methods.bas");if(r)goto S_59258;}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,14097,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(*_FUNC_IDESUBS_LONG_CY,*_FUNC_IDESUBS_LONG_CX, 1 ,NULL,NULL,7);
if(!qbevent)break;evnt(28182,14097,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,14097,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 0 ;
if(!qbevent)break;evnt(28182,14100,"ide_methods.bas");}while(r);
S_59264:;
do{
if(qbevent){evnt(28182,14101,"ide_methods.bas");if(r)goto S_59264;}
do{
SUB_GETINPUT();
if(!qbevent)break;evnt(28182,14102,"ide_methods.bas");}while(r);
S_59266:;
if ((*__LONG_MWHEEL)||is_error_pending()){
if(qbevent){evnt(28182,14103,"ide_methods.bas");if(r)goto S_59266;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,14103,"ide_methods.bas");}while(r);
}
S_59269:;
if ((*__LONG_KB)||is_error_pending()){
if(qbevent){evnt(28182,14104,"ide_methods.bas");if(r)goto S_59269;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,14104,"ide_methods.bas");}while(r);
}
S_59272:;
if ((*__LONG_MCLICK)||is_error_pending()){
if(qbevent){evnt(28182,14105,"ide_methods.bas");if(r)goto S_59272;}
do{
*_FUNC_IDESUBS_LONG_MOUSEDOWN= 1 ;
if(!qbevent)break;evnt(28182,14105,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,14105,"ide_methods.bas");}while(r);
}
S_59276:;
if ((*__LONG_MRELEASE)||is_error_pending()){
if(qbevent){evnt(28182,14106,"ide_methods.bas");if(r)goto S_59276;}
do{
*_FUNC_IDESUBS_LONG_MOUSEUP= 1 ;
if(!qbevent)break;evnt(28182,14106,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,14106,"ide_methods.bas");}while(r);
}
S_59280:;
if ((*__LONG_MB)||is_error_pending()){
if(qbevent){evnt(28182,14107,"ide_methods.bas");if(r)goto S_59280;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,14107,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_ALT=*__LONG_KALT;
if(!qbevent)break;evnt(28182,14108,"ide_methods.bas");}while(r);
S_59284:;
if ((-(*_FUNC_IDESUBS_LONG_ALT!=*_FUNC_IDESUBS_LONG_OLDALT))||is_error_pending()){
if(qbevent){evnt(28182,14108,"ide_methods.bas");if(r)goto S_59284;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,14108,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_OLDALT=*_FUNC_IDESUBS_LONG_ALT;
if(!qbevent)break;evnt(28182,14109,"ide_methods.bas");}while(r);
do{
sub__limit( 100 );
if(!qbevent)break;evnt(28182,14110,"ide_methods.bas");}while(r);
S_59289:;
dl_continue_7020:;
}while((!(*_FUNC_IDESUBS_LONG_CHANGE))&&(!is_error_pending()));
dl_exit_7020:;
if(qbevent){evnt(28182,14111,"ide_methods.bas");if(r)goto S_59289;}
S_59290:;
if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(28182,14112,"ide_methods.bas");if(r)goto S_59290;}
do{
*__LONG_IDEHL= 1 ;
if(!qbevent)break;evnt(28182,14112,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_IDEHL= 0 ;
if(!qbevent)break;evnt(28182,14112,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14114,"ide_methods.bas");}while(r);
S_59296:;
if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(28182,14115,"ide_methods.bas");if(r)goto S_59296;}
S_59297:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||is_error_pending()){
if(qbevent){evnt(28182,14116,"ide_methods.bas");if(r)goto S_59297;}
do{
*_FUNC_IDESUBS_LONG_K=qbs_asc(qbs_ucase(__STRING_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14117,"ide_methods.bas");}while(r);
S_59299:;
if (((-(*_FUNC_IDESUBS_LONG_K>= 65 ))&(-(*_FUNC_IDESUBS_LONG_K<= 90 )))||is_error_pending()){
if(qbevent){evnt(28182,14118,"ide_methods.bas");if(r)goto S_59299;}
do{
qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,func_chr(*_FUNC_IDESUBS_LONG_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14118,"ide_methods.bas");}while(r);
}
}
}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,14121,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4);
if(!qbevent)break;evnt(28182,14121,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,14121,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_INFO= 0 ;
if(!qbevent)break;evnt(28182,14125,"ide_methods.bas");}while(r);
S_59308:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,14126,"ide_methods.bas");if(r)goto S_59308;}
do{
qbs_set(__STRING_K,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14126,"ide_methods.bas");}while(r);
}
S_59311:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||is_error_pending()){
if(qbevent){evnt(28182,14127,"ide_methods.bas");if(r)goto S_59311;}
do{
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS+ 1 ;
if(!qbevent)break;evnt(28182,14127,"ide_methods.bas");}while(r);
}
S_59314:;
if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||is_error_pending()){
if(qbevent){evnt(28182,14128,"ide_methods.bas");if(r)goto S_59314;}
do{
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS- 1 ;
if(!qbevent)break;evnt(28182,14128,"ide_methods.bas");}while(r);
do{
qbs_set(__STRING_K,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14128,"ide_methods.bas");}while(r);
}
S_59318:;
if ((-(*_FUNC_IDESUBS_LONG_FOCUS< 1 ))||is_error_pending()){
if(qbevent){evnt(28182,14129,"ide_methods.bas");if(r)goto S_59318;}
do{
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_LASTFOCUS;
if(!qbevent)break;evnt(28182,14129,"ide_methods.bas");}while(r);
}
S_59321:;
if ((-(*_FUNC_IDESUBS_LONG_FOCUS>*_FUNC_IDESUBS_LONG_LASTFOCUS))||is_error_pending()){
if(qbevent){evnt(28182,14130,"ide_methods.bas");if(r)goto S_59321;}
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,14130,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_F= 1 ;
if(!qbevent)break;evnt(28182,14131,"ide_methods.bas");}while(r);
S_59325:;
fornext_value7023= 1 ;
fornext_finalvalue7023= 100 ;
fornext_step7023= 1 ;
if (fornext_step7023<0) fornext_step_negative7023=1; else fornext_step_negative7023=0;
if (is_error_pending()) goto fornext_error7023;
goto fornext_entrylabel7023;
while(1){
fornext_value7023=fornext_step7023+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel7023:
*_FUNC_IDESUBS_LONG_I=fornext_value7023;
if (fornext_step_negative7023){
if (fornext_value7023<fornext_finalvalue7023) break;
}else{
if (fornext_value7023>fornext_finalvalue7023) break;
}
fornext_error7023:;
if(qbevent){evnt(28182,14132,"ide_methods.bas");if(r)goto S_59325;}
do{
*_FUNC_IDESUBS_LONG_T=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)));
if(!qbevent)break;evnt(28182,14133,"ide_methods.bas");}while(r);
S_59327:;
if ((*_FUNC_IDESUBS_LONG_T)||is_error_pending()){
if(qbevent){evnt(28182,14134,"ide_methods.bas");if(r)goto S_59327;}
do{
*_FUNC_IDESUBS_LONG_FOCUSOFFSET=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F;
if(!qbevent)break;evnt(28182,14135,"ide_methods.bas");}while(r);
do{
SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDESUBS_LONG_FOCUS,_FUNC_IDESUBS_LONG_F,_FUNC_IDESUBS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESUBS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESUBS_LONG_MOUSEDOWN,_FUNC_IDESUBS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESUBS_LONG_INFO,__LONG_MWHEEL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14136,"ide_methods.bas");}while(r);
}
fornext_continue_7022:;
}
fornext_exit_7022:;
S_59332:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 5 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))))||is_error_pending()){
if(qbevent){evnt(28182,14141,"ide_methods.bas");if(r)goto S_59332;}
do{
qbs_set(_FUNC_IDESUBS_STRING_IDESUBS,qbs_new_txt_len("C",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14142,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=177;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SAVESORTSETTINGS;
RETURN_177:;
if(!qbevent)break;evnt(28182,14143,"ide_methods.bas");}while(r);
do{
SUB_CLEARMOUSE();
if(!qbevent)break;evnt(28182,14144,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,14145,"ide_methods.bas");}while(r);
}
S_59338:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 4 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDESUBS_LONG_INFO== 1 ))&(-(*_FUNC_IDESUBS_LONG_FOCUS== 1 ))))))||is_error_pending()){
if(qbevent){evnt(28182,14148,"ide_methods.bas");if(r)goto S_59338;}
do{
*_FUNC_IDESUBS_LONG_Y=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)));
if(!qbevent)break;evnt(28182,14149,"ide_methods.bas");}while(r);
S_59340:;
if ((-(*_FUNC_IDESUBS_LONG_Y< 1 ))||is_error_pending()){
if(qbevent){evnt(28182,14150,"ide_methods.bas");if(r)goto S_59340;}
do{
*_FUNC_IDESUBS_LONG_Y=-(*_FUNC_IDESUBS_LONG_Y);
if(!qbevent)break;evnt(28182,14150,"ide_methods.bas");}while(r);
}
do{
SUB_ADDQUICKNAVHISTORY();
if(!qbevent)break;evnt(28182,14151,"ide_methods.bas");}while(r);
S_59344:;
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14152,"ide_methods.bas");if(r)goto S_59344;}
do{
*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14153,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14155,"ide_methods.bas");}while(r);
}
do{
*__LONG_IDESY=*__LONG_IDECY;
if(!qbevent)break;evnt(28182,14157,"ide_methods.bas");}while(r);
do{
*__LONG_IDECX= 1 ;
if(!qbevent)break;evnt(28182,14158,"ide_methods.bas");}while(r);
do{
*__LONG_IDESX= 1 ;
if(!qbevent)break;evnt(28182,14159,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=178;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SAVESORTSETTINGS;
RETURN_178:;
if(!qbevent)break;evnt(28182,14161,"ide_methods.bas");}while(r);
do{
SUB_CLEARMOUSE();
if(!qbevent)break;evnt(28182,14162,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,14163,"ide_methods.bas");}while(r);
}
S_59356:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))!=*__BYTE_IDESUBSLENGTH))||is_error_pending()){
if(qbevent){evnt(28182,14166,"ide_methods.bas");if(r)goto S_59356;}
do{
*__BYTE_IDESUBSLENGTH=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)));
if(!qbevent)break;evnt(28182,14167,"ide_methods.bas");}while(r);
S_59358:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(28182,14168,"ide_methods.bas");if(r)goto S_59358;}
S_59359:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76))))||is_error_pending()){
if(qbevent){evnt(28182,14169,"ide_methods.bas");if(r)goto S_59359;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14170,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14172,"ide_methods.bas");}while(r);
}
}else{
S_59365:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76))))||is_error_pending()){
if(qbevent){evnt(28182,14175,"ide_methods.bas");if(r)goto S_59365;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14176,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14178,"ide_methods.bas");}while(r);
}
}
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,14181,"ide_methods.bas");}while(r);
}
S_59373:;
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||is_error_pending()){
if(qbevent){evnt(28182,14184,"ide_methods.bas");if(r)goto S_59373;}
S_59374:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG))||is_error_pending()){
if(qbevent){evnt(28182,14185,"ide_methods.bas");if(r)goto S_59374;}
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)));
if(!qbevent)break;evnt(28182,14186,"ide_methods.bas");}while(r);
S_59376:;
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14188,"ide_methods.bas");if(r)goto S_59376;}
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ;
if(!qbevent)break;evnt(28182,14190,"ide_methods.bas");}while(r);
S_59378:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))> 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14191,"ide_methods.bas");if(r)goto S_59378;}
do{
qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14192,"ide_methods.bas");}while(r);
S_59380:;
fornext_value7025= 1 ;
fornext_finalvalue7025=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step7025= 1 ;
if (fornext_step7025<0) fornext_step_negative7025=1; else fornext_step_negative7025=0;
if (is_error_pending()) goto fornext_error7025;
goto fornext_entrylabel7025;
while(1){
fornext_value7025=fornext_step7025+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel7025:
*_FUNC_IDESUBS_LONG_X=fornext_value7025;
if (fornext_step_negative7025){
if (fornext_value7025<fornext_finalvalue7025) break;
}else{
if (fornext_value7025>fornext_finalvalue7025) break;
}
fornext_error7025:;
if(qbevent){evnt(28182,14193,"ide_methods.bas");if(r)goto S_59380;}
S_59381:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||is_error_pending()){
if(qbevent){evnt(28182,14194,"ide_methods.bas");if(r)goto S_59381;}
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X;
if(!qbevent)break;evnt(28182,14195,"ide_methods.bas");}while(r);
}
fornext_continue_7024:;
}
fornext_exit_7024:;
}
S_59386:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(28182,14200,"ide_methods.bas");if(r)goto S_59386;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14201,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14203,"ide_methods.bas");}while(r);
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION;
if(!qbevent)break;evnt(28182,14205,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,14206,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ;
if(!qbevent)break;evnt(28182,14209,"ide_methods.bas");}while(r);
S_59395:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))> 0 ))||is_error_pending()){
if(qbevent){evnt(28182,14210,"ide_methods.bas");if(r)goto S_59395;}
do{
qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LY,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14211,"ide_methods.bas");}while(r);
S_59397:;
fornext_value7027= 1 ;
fornext_finalvalue7027=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step7027= 1 ;
if (fornext_step7027<0) fornext_step_negative7027=1; else fornext_step_negative7027=0;
if (is_error_pending()) goto fornext_error7027;
goto fornext_entrylabel7027;
while(1){
fornext_value7027=fornext_step7027+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel7027:
*_FUNC_IDESUBS_LONG_X=fornext_value7027;
if (fornext_step_negative7027){
if (fornext_value7027<fornext_finalvalue7027) break;
}else{
if (fornext_value7027>fornext_finalvalue7027) break;
}
fornext_error7027:;
if(qbevent){evnt(28182,14212,"ide_methods.bas");if(r)goto S_59397;}
S_59398:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||is_error_pending()){
if(qbevent){evnt(28182,14213,"ide_methods.bas");if(r)goto S_59398;}
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X;
if(!qbevent)break;evnt(28182,14214,"ide_methods.bas");}while(r);
}
fornext_continue_7026:;
}
fornext_exit_7026:;
}
S_59403:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(28182,14219,"ide_methods.bas");if(r)goto S_59403;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14220,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14222,"ide_methods.bas");}while(r);
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION;
if(!qbevent)break;evnt(28182,14224,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,14225,"ide_methods.bas");}while(r);
}
}
}
do{
*_FUNC_IDESUBS_LONG_MOUSEDOWN= 0 ;
if(!qbevent)break;evnt(28182,14231,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MOUSEUP= 0 ;
if(!qbevent)break;evnt(28182,14232,"ide_methods.bas");}while(r);
dl_continue_7017:;
}while(1);
dl_exit_7017:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,14235,"ide_methods.bas");}while(r);
LABEL_SAVESORTSETTINGS:;
if(qbevent){evnt(28182,14236,"ide_methods.bas");r=0;}
do{
*__BYTE_IDESORTSUBS=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG;
if(!qbevent)break;evnt(28182,14237,"ide_methods.bas");}while(r);
S_59418:;
if ((*__BYTE_IDESORTSUBS)||is_error_pending()){
if(qbevent){evnt(28182,14238,"ide_methods.bas");if(r)goto S_59418;}
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("True",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14239,"ide_methods.bas");}while(r);
}else{
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14241,"ide_methods.bas");}while(r);
}
S_59423:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(28182,14244,"ide_methods.bas");if(r)goto S_59423;}
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14245,"ide_methods.bas");}while(r);
}else{
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,14247,"ide_methods.bas");}while(r);
}
do{
#include "ret380.txt"
if(!qbevent)break;evnt(28182,14249,"ide_methods.bas");}while(r);
LABEL_ADDLINECOUNT:;
if(qbevent){evnt(28182,14251,"ide_methods.bas");r=0;}
do{
*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ;
if(!qbevent)break;evnt(28182,14252,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_LASTOPENSUB)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]);
if (!is_error_pending()) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_MODULESIZE;
if(!qbevent)break;evnt(28182,14253,"ide_methods.bas");}while(r);
S_59431:;
if ((-(*_FUNC_IDESUBS_LONG_MODULESIZE>*_FUNC_IDESUBS_LONG_MAXLINECOUNT))||is_error_pending()){
if(qbevent){evnt(28182,14254,"ide_methods.bas");if(r)goto S_59431;}
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNT=*_FUNC_IDESUBS_LONG_MODULESIZE;
if(!qbevent)break;evnt(28182,14254,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_SUBCLOSED= -1ll ;
if(!qbevent)break;evnt(28182,14255,"ide_methods.bas");}while(r);
do{
#include "ret380.txt"
if(!qbevent)break;evnt(28182,14256,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free380.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_IDESUBS_STRING_IDESUBS);return _FUNC_IDESUBS_STRING_IDESUBS;
}
