#line 13701 "ide/ide_methods.bas"
qbs* FUNC_IDESUBS(){
#line 13701 "ide/ide_methods.bas"
qbs *tqbs;
#line 13701 "ide/ide_methods.bas"
ptrszint tmp_long;
#line 13701 "ide/ide_methods.bas"
int32 tmp_fileno;
#line 13701 "ide/ide_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 13701 "ide/ide_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 13701 "ide/ide_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 13701 "ide/ide_methods.bas"
#include "data421.txt"
#line 13701 "ide/ide_methods.bas"
mem_lock *sf_mem_lock;
#line 13701 "ide/ide_methods.bas"
new_mem_lock();
#line 13701 "ide/ide_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 13701 "ide/ide_methods.bas"
sf_mem_lock->type=3;
#line 13701 "ide/ide_methods.bas"
libqb_check_stack();
#line 13701 "ide/ide_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 13704 "ide/ide_methods.bas"
do{
#line 13704 "ide/ide_methods.bas"
sub_pcopy( 0 , 2 );
#line 13704 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13704,"ide_methods.bas");}while(r);
#line 13705 "ide/ide_methods.bas"
do{
#line 13705 "ide/ide_methods.bas"
sub_pcopy( 0 , 1 );
#line 13705 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13705,"ide_methods.bas");}while(r);
#line 13706 "ide/ide_methods.bas"
do{
#line 13706 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
#line 13706 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13706,"ide_methods.bas");}while(r);
#line 13707 "ide/ide_methods.bas"
do{
#line 13707 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
#line 13707 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13707,"ide_methods.bas");}while(r);
#line 13708 "ide/ide_methods.bas"
do{
#line 13708 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13708,"ide_methods.bas");}while(r);
#line 13709 "ide/ide_methods.bas"
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];
}
}
#line 13709 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13709,"ide_methods.bas");}while(r);
#line 13710 "ide/ide_methods.bas"
do{
#line 13710 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13710,"ide_methods.bas");}while(r);
#line 13711 "ide/ide_methods.bas"
do{
#line 13711 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING1_SEP,func_chr( 0 ));
#line 13711 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13711 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13711,"ide_methods.bas");}while(r);
#line 13715 "ide/ide_methods.bas"
do{
#line 13715 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR()));
#line 13715 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13715 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13715,"ide_methods.bas");}while(r);
#line 13716 "ide/ide_methods.bas"
S_60002:;
#line 13716 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len> 1 )))||is_error_pending()){
#line 13716 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13716,"ide_methods.bas");if(r)goto S_60002;}
#line 13717 "ide/ide_methods.bas"
S_60003:;
#line 13717 "ide/ide_methods.bas"
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()){
#line 13717 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13717,"ide_methods.bas");if(r)goto S_60003;}
#line 13718 "ide/ide_methods.bas"
do{
#line 13718 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_left(_FUNC_IDESUBS_STRING_A2,_FUNC_IDESUBS_STRING_A2->len- 1 ));
#line 13718 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13718 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13718,"ide_methods.bas");}while(r);
#line 13719 "ide/ide_methods.bas"
S_60005:;
#line 13719 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len== 0 )))||is_error_pending()){
#line 13719 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13719,"ide_methods.bas");if(r)goto S_60005;}
#line 13719 "ide/ide_methods.bas"
do{
#line 13719 "ide/ide_methods.bas"
goto dl_exit_6258;
#line 13719 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13719,"ide_methods.bas");}while(r);
#line 13719 "ide/ide_methods.bas"
}
#line 13720 "ide/ide_methods.bas"
dl_continue_6258:;
#line 13720 "ide/ide_methods.bas"
}
#line 13720 "ide/ide_methods.bas"
dl_exit_6258:;
#line 13721 "ide/ide_methods.bas"
}
#line 13725 "ide/ide_methods.bas"
do{
#line 13725 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME);
#line 13725 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13725 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13725,"ide_methods.bas");}while(r);
#line 13726 "ide/ide_methods.bas"
S_60011:;
#line 13726 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||is_error_pending()){
#line 13726 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13726,"ide_methods.bas");if(r)goto S_60011;}
#line 13726 "ide/ide_methods.bas"
do{
#line 13726 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR));
#line 13726 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13726 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13726,"ide_methods.bas");}while(r);
#line 13726 "ide/ide_methods.bas"
}
#line 13728 "ide/ide_methods.bas"
S_60014:;
#line 13728 "ide/ide_methods.bas"
if ((-(*__LONG_IDEWX< 100 ))||is_error_pending()){
#line 13728 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13728,"ide_methods.bas");if(r)goto S_60014;}
#line 13729 "ide/ide_methods.bas"
do{
#line 13729 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 20 ;
#line 13729 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13729,"ide_methods.bas");}while(r);
#line 13730 "ide/ide_methods.bas"
}else{
#line 13731 "ide/ide_methods.bas"
do{
#line 13731 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 42 ;
#line 13731 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13731,"ide_methods.bas");}while(r);
#line 13732 "ide/ide_methods.bas"
}
#line 13734 "ide/ide_methods.bas"
do{
#line 13734 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_L->len;
#line 13734 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13734 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13734,"ide_methods.bas");}while(r);
#line 13735 "ide/ide_methods.bas"
S_60020:;
#line 13735 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>(*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT+ 2 )))||is_error_pending()){
#line 13735 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13735,"ide_methods.bas");if(r)goto S_60020;}
#line 13736 "ide/ide_methods.bas"
do{
#line 13736 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_L,*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT- 1 ),func_string( 3 , 250 )));
#line 13736 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13736 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13736,"ide_methods.bas");}while(r);
#line 13737 "ide/ide_methods.bas"
do{
#line 13737 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT;
#line 13737 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13737,"ide_methods.bas");}while(r);
#line 13738 "ide/ide_methods.bas"
S_60023:;
#line 13738 "ide/ide_methods.bas"
}else{
#line 13738 "ide/ide_methods.bas"
if (-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN< 10 )){
#line 13738 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13738,"ide_methods.bas");if(r)goto S_60023;}
#line 13739 "ide/ide_methods.bas"
do{
#line 13739 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN= 10 ;
#line 13739 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13739,"ide_methods.bas");}while(r);
#line 13740 "ide/ide_methods.bas"
}
#line 13740 "ide/ide_methods.bas"
}
#line 13742 "ide/ide_methods.bas"
do{
#line 13742 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LY,l2string( 1 ));
#line 13742 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13742 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13742,"ide_methods.bas");}while(r);
#line 13743 "ide/ide_methods.bas"
do{
#line 13743 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,_FUNC_IDESUBS_STRING_LY);
#line 13743 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13743 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13743,"ide_methods.bas");}while(r);
#line 13744 "ide/ide_methods.bas"
do{
#line 13744 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC= 1 ;
#line 13744 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13744,"ide_methods.bas");}while(r);
#line 13745 "ide/ide_methods.bas"
do{
#line 13745 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC= 0 ;
#line 13745 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13745,"ide_methods.bas");}while(r);
#line 13746 "ide/ide_methods.bas"
do{
#line 13746 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ;
#line 13746 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13746,"ide_methods.bas");}while(r);
#line 13747 "ide/ide_methods.bas"
do{
#line 13747 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= 0 ;
#line 13747 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13747,"ide_methods.bas");}while(r);
#line 13748 "ide/ide_methods.bas"
do{
#line 13748 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXLINECOUNT= 0 ;
#line 13748 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13748,"ide_methods.bas");}while(r);
#line 13750 "ide/ide_methods.bas"
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];
}
#line 13750 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13750,"ide_methods.bas");}while(r);
#line 13751 "ide/ide_methods.bas"
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];
}
#line 13751 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13751,"ide_methods.bas");}while(r);
#line 13752 "ide/ide_methods.bas"
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];
}
#line 13752 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13752,"ide_methods.bas");}while(r);
#line 13753 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=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];
}
#line 13753 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13753,"ide_methods.bas");}while(r);
#line 13754 "ide/ide_methods.bas"
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];
}
#line 13754 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13754,"ide_methods.bas");}while(r);
#line 13755 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=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];
}
#line 13755 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13755,"ide_methods.bas");}while(r);
#line 13756 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=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];
}
#line 13756 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13756,"ide_methods.bas");}while(r);
#line 13758 "ide/ide_methods.bas"
do{
#line 13758 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_TOTALSUBS= 0 ;
#line 13758 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13758,"ide_methods.bas");}while(r);
#line 13759 "ide/ide_methods.bas"
do{
#line 13759 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
#line 13759 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13759,"ide_methods.bas");}while(r);
#line 13760 "ide/ide_methods.bas"
do{
#line 13760 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS;
#line 13760 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13760,"ide_methods.bas");}while(r);
#line 13761 "ide/ide_methods.bas"
do{
#line 13761 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SUBCLOSED= 0ll ;
#line 13761 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13761,"ide_methods.bas");}while(r);
#line 13763 "ide/ide_methods.bas"
S_60044:;
#line 13763 "ide/ide_methods.bas"
fornext_value6263= 1 ;
#line 13763 "ide/ide_methods.bas"
fornext_finalvalue6263=*__LONG_IDEN;
#line 13763 "ide/ide_methods.bas"
fornext_step6263= 1 ;
#line 13763 "ide/ide_methods.bas"
if (fornext_step6263<0) fornext_step_negative6263=1; else fornext_step_negative6263=0;
#line 13763 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6263;
#line 13763 "ide/ide_methods.bas"
goto fornext_entrylabel6263;
#line 13763 "ide/ide_methods.bas"
while(1){
#line 13763 "ide/ide_methods.bas"
fornext_value6263=fornext_step6263+(*_FUNC_IDESUBS_LONG_Y);
#line 13763 "ide/ide_methods.bas"
fornext_entrylabel6263:
#line 13763 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_Y=fornext_value6263;
#line 13763 "ide/ide_methods.bas"
if (fornext_step_negative6263){
#line 13763 "ide/ide_methods.bas"
if (fornext_value6263<fornext_finalvalue6263) break;
#line 13763 "ide/ide_methods.bas"
}else{
#line 13763 "ide/ide_methods.bas"
if (fornext_value6263>fornext_finalvalue6263) break;
#line 13763 "ide/ide_methods.bas"
}
#line 13763 "ide/ide_methods.bas"
fornext_error6263:;
#line 13763 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13763,"ide_methods.bas");if(r)goto S_60044;}
#line 13764 "ide/ide_methods.bas"
do{
#line 13764 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(_FUNC_IDESUBS_LONG_Y));
#line 13764 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13764 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13764,"ide_methods.bas");}while(r);
#line 13765 "ide/ide_methods.bas"
S_60046:;
#line 13765 "ide/ide_methods.bas"
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
#line 13765 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13765,"ide_methods.bas");if(r)goto S_60046;}
#line 13765 "ide/ide_methods.bas"
do{
#line 13765 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ;
#line 13765 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13765,"ide_methods.bas");}while(r);
#line 13765 "ide/ide_methods.bas"
}
#line 13766 "ide/ide_methods.bas"
do{
#line 13766 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A)));
#line 13766 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13766 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13766,"ide_methods.bas");}while(r);
#line 13767 "ide/ide_methods.bas"
do{
#line 13767 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SF= 0 ;
#line 13767 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13767,"ide_methods.bas");}while(r);
#line 13768 "ide/ide_methods.bas"
do{
#line 13768 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_ucase(_FUNC_IDESUBS_STRING_A));
#line 13768 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13768 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13768,"ide_methods.bas");}while(r);
#line 13769 "ide/ide_methods.bas"
S_60052:;
#line 13769 "ide/ide_methods.bas"
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()){
#line 13769 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13769,"ide_methods.bas");if(r)goto S_60052;}
#line 13769 "ide/ide_methods.bas"
do{
#line 13769 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= -1 ;
#line 13769 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13769,"ide_methods.bas");}while(r);
#line 13769 "ide/ide_methods.bas"
}
#line 13770 "ide/ide_methods.bas"
S_60055:;
#line 13770 "ide/ide_methods.bas"
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()){
#line 13770 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13770,"ide_methods.bas");if(r)goto S_60055;}
#line 13770 "ide/ide_methods.bas"
do{
#line 13770 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ;
#line 13770 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13770,"ide_methods.bas");}while(r);
#line 13770 "ide/ide_methods.bas"
}
#line 13771 "ide/ide_methods.bas"
S_60058:;
#line 13771 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||is_error_pending()){
#line 13771 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13771,"ide_methods.bas");if(r)goto S_60058;}
#line 13771 "ide/ide_methods.bas"
do{
#line 13771 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SF= 1 ;
#line 13771 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13771,"ide_methods.bas");}while(r);
#line 13771 "ide/ide_methods.bas"
do{
#line 13771 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("SUB   ",6));
#line 13771 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13771 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13771,"ide_methods.bas");}while(r);
#line 13771 "ide/ide_methods.bas"
}
#line 13772 "ide/ide_methods.bas"
S_60062:;
#line 13772 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||is_error_pending()){
#line 13772 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13772,"ide_methods.bas");if(r)goto S_60062;}
#line 13772 "ide/ide_methods.bas"
do{
#line 13772 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SF= 2 ;
#line 13772 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13772,"ide_methods.bas");}while(r);
#line 13772 "ide/ide_methods.bas"
do{
#line 13772 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("FUNC  ",6));
#line 13772 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13772 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13772,"ide_methods.bas");}while(r);
#line 13772 "ide/ide_methods.bas"
}
#line 13773 "ide/ide_methods.bas"
S_60066:;
#line 13773 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_SF)||is_error_pending()){
#line 13773 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13773,"ide_methods.bas");if(r)goto S_60066;}
#line 13775 "ide/ide_methods.bas"
do{
#line 13775 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ;
#line 13775 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13775,"ide_methods.bas");}while(r);
#line 13776 "ide/ide_methods.bas"
S_60068:;
#line 13776 "ide/ide_methods.bas"
if ((~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE))||is_error_pending()){
#line 13776 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13776,"ide_methods.bas");if(r)goto S_60068;}
#line 13776 "ide/ide_methods.bas"
do{
#line 13776 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_LASTOPENSUB=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 13776 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13776,"ide_methods.bas");}while(r);
#line 13776 "ide/ide_methods.bas"
}
#line 13777 "ide/ide_methods.bas"
S_60071:;
#line 13777 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_TOTALSUBS>func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1))))||is_error_pending()){
#line 13777 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13777,"ide_methods.bas");if(r)goto S_60071;}
#line 13778 "ide/ide_methods.bas"
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];
}
#line 13778 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13778,"ide_methods.bas");}while(r);
#line 13779 "ide/ide_methods.bas"
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];
}
#line 13779 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13779,"ide_methods.bas");}while(r);
#line 13780 "ide/ide_methods.bas"
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];
}
#line 13780 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13780,"ide_methods.bas");}while(r);
#line 13781 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=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];
}
#line 13781 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13781,"ide_methods.bas");}while(r);
#line 13782 "ide/ide_methods.bas"
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];
}
#line 13782 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13782,"ide_methods.bas");}while(r);
#line 13783 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=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];
}
#line 13783 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13783,"ide_methods.bas");}while(r);
#line 13784 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=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];
}
#line 13784 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13784,"ide_methods.bas");}while(r);
#line 13785 "ide/ide_methods.bas"
}
#line 13787 "ide/ide_methods.bas"
S_60080:;
#line 13787 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDESUBS_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||is_error_pending()){
#line 13787 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13787,"ide_methods.bas");if(r)goto S_60080;}
#line 13788 "ide/ide_methods.bas"
do{
#line 13788 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 7 )));
#line 13788 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13788 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13788,"ide_methods.bas");}while(r);
#line 13789 "ide/ide_methods.bas"
}
#line 13792 "ide/ide_methods.bas"
do{
#line 13792 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LY,qbs_add(_FUNC_IDESUBS_STRING_LY,l2string(*_FUNC_IDESUBS_LONG_Y)));
#line 13792 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13792 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13792,"ide_methods.bas");}while(r);
#line 13796 "ide/ide_methods.bas"
S_60084:;
#line 13796 "ide/ide_methods.bas"
if (((-(*__LONG_IDECY>=*_FUNC_IDESUBS_LONG_Y))&(~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE)))||is_error_pending()){
#line 13796 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13796,"ide_methods.bas");if(r)goto S_60084;}
#line 13797 "ide/ide_methods.bas"
do{
#line 13797 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 ))));
#line 13797 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13797 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13797,"ide_methods.bas");}while(r);
#line 13798 "ide/ide_methods.bas"
}
#line 13801 "ide/ide_methods.bas"
S_60087:;
#line 13801 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_SF== 1 ))||is_error_pending()){
#line 13801 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13801,"ide_methods.bas");if(r)goto S_60087;}
#line 13802 "ide/ide_methods.bas"
do{
#line 13802 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 4 ));
#line 13802 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13802 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13802,"ide_methods.bas");}while(r);
#line 13803 "ide/ide_methods.bas"
}else{
#line 13804 "ide/ide_methods.bas"
do{
#line 13804 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 9 ));
#line 13804 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13804 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13804,"ide_methods.bas");}while(r);
#line 13805 "ide/ide_methods.bas"
}
#line 13806 "ide/ide_methods.bas"
do{
#line 13806 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A)));
#line 13806 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13806 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13806,"ide_methods.bas");}while(r);
#line 13807 "ide/ide_methods.bas"
do{
#line 13807 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=func_instr(NULL,_FUNC_IDESUBS_STRING_A,qbs_new_txt_len("(",1),0);
#line 13807 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13807 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13807,"ide_methods.bas");}while(r);
#line 13808 "ide/ide_methods.bas"
do{
#line 13808 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13808,"ide_methods.bas");}while(r);
#line 13809 "ide/ide_methods.bas"
S_60095:;
#line 13809 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_X)||is_error_pending()){
#line 13809 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13809,"ide_methods.bas");if(r)goto S_60095;}
#line 13809 "ide/ide_methods.bas"
do{
#line 13809 "ide/ide_methods.bas"
SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_LONG_X,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE);
#line 13809 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13809 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13809,"ide_methods.bas");}while(r);
#line 13809 "ide/ide_methods.bas"
}
#line 13810 "ide/ide_methods.bas"
S_60098:;
#line 13810 "ide/ide_methods.bas"
if (((-(*_FUNC_IDESUBS_LONG_X> 0 ))&(-(*_FUNC_IDESUBS_BYTE_COMMENT== 0 ))&(-(*_FUNC_IDESUBS_BYTE_QUOTE== 0 )))||is_error_pending()){
#line 13810 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13810,"ide_methods.bas");if(r)goto S_60098;}
#line 13811 "ide/ide_methods.bas"
do{
#line 13811 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X- 1 )));
#line 13811 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13811 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13811,"ide_methods.bas");}while(r);
#line 13812 "ide/ide_methods.bas"
do{
#line 13812 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len-*_FUNC_IDESUBS_LONG_X+ 1 ));
#line 13812 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13812 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13812,"ide_methods.bas");}while(r);
#line 13813 "ide/ide_methods.bas"
do{
#line 13813 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X= 1 ;
#line 13813 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13813,"ide_methods.bas");}while(r);
#line 13814 "ide/ide_methods.bas"
S_60102:;
#line 13814 "ide/ide_methods.bas"
fornext_value6270= 2 ;
#line 13814 "ide/ide_methods.bas"
fornext_finalvalue6270=_FUNC_IDESUBS_STRING_ARGS->len;
#line 13814 "ide/ide_methods.bas"
fornext_step6270= 1 ;
#line 13814 "ide/ide_methods.bas"
if (fornext_step6270<0) fornext_step_negative6270=1; else fornext_step_negative6270=0;
#line 13814 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6270;
#line 13814 "ide/ide_methods.bas"
goto fornext_entrylabel6270;
#line 13814 "ide/ide_methods.bas"
while(1){
#line 13814 "ide/ide_methods.bas"
fornext_value6270=fornext_step6270+(*_FUNC_IDESUBS_LONG_I);
#line 13814 "ide/ide_methods.bas"
fornext_entrylabel6270:
#line 13814 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=fornext_value6270;
#line 13814 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13814 "ide/ide_methods.bas"
if (fornext_step_negative6270){
#line 13814 "ide/ide_methods.bas"
if (fornext_value6270<fornext_finalvalue6270) break;
#line 13814 "ide/ide_methods.bas"
}else{
#line 13814 "ide/ide_methods.bas"
if (fornext_value6270>fornext_finalvalue6270) break;
#line 13814 "ide/ide_methods.bas"
}
#line 13814 "ide/ide_methods.bas"
fornext_error6270:;
#line 13814 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13814,"ide_methods.bas");if(r)goto S_60102;}
#line 13815 "ide/ide_methods.bas"
S_60103:;
#line 13815 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 40 )))||is_error_pending()){
#line 13815 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13815,"ide_methods.bas");if(r)goto S_60103;}
#line 13815 "ide/ide_methods.bas"
do{
#line 13815 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X+ 1 ;
#line 13815 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13815,"ide_methods.bas");}while(r);
#line 13815 "ide/ide_methods.bas"
}
#line 13816 "ide/ide_methods.bas"
S_60106:;
#line 13816 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 41 )))||is_error_pending()){
#line 13816 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13816,"ide_methods.bas");if(r)goto S_60106;}
#line 13816 "ide/ide_methods.bas"
do{
#line 13816 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X- 1 ;
#line 13816 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13816,"ide_methods.bas");}while(r);
#line 13816 "ide/ide_methods.bas"
}
#line 13817 "ide/ide_methods.bas"
S_60109:;
#line 13817 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_X== 0 ))||is_error_pending()){
#line 13817 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13817,"ide_methods.bas");if(r)goto S_60109;}
#line 13817 "ide/ide_methods.bas"
do{
#line 13817 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_left(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I));
#line 13817 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13817 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13817,"ide_methods.bas");}while(r);
#line 13817 "ide/ide_methods.bas"
do{
#line 13817 "ide/ide_methods.bas"
goto fornext_exit_6269;
#line 13817 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13817,"ide_methods.bas");}while(r);
#line 13817 "ide/ide_methods.bas"
}
#line 13818 "ide/ide_methods.bas"
fornext_continue_6269:;
#line 13818 "ide/ide_methods.bas"
}
#line 13818 "ide/ide_methods.bas"
fornext_exit_6269:;
#line 13819 "ide/ide_methods.bas"
}else{
#line 13820 "ide/ide_methods.bas"
do{
#line 13820 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_A);
#line 13820 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13820 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13820,"ide_methods.bas");}while(r);
#line 13821 "ide/ide_methods.bas"
do{
#line 13821 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("()",2));
#line 13821 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13821 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13821,"ide_methods.bas");}while(r);
#line 13822 "ide/ide_methods.bas"
}
#line 13823 "ide/ide_methods.bas"
do{
#line 13823 "ide/ide_methods.bas"
SUB_CLEANSUBNAME(_FUNC_IDESUBS_STRING_N);
#line 13823 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13823 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13823,"ide_methods.bas");}while(r);
#line 13824 "ide/ide_methods.bas"
S_60119:;
#line 13824 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||is_error_pending()){
#line 13824 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13824,"ide_methods.bas");if(r)goto S_60119;}
#line 13824 "ide/ide_methods.bas"
do{
#line 13824 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_N->len;
#line 13824 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13824 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13824,"ide_methods.bas");}while(r);
#line 13824 "ide/ide_methods.bas"
}
#line 13825 "ide/ide_methods.bas"
S_60122:;
#line 13825 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT))||is_error_pending()){
#line 13825 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13825,"ide_methods.bas");if(r)goto S_60122;}
#line 13825 "ide/ide_methods.bas"
do{
#line 13825 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT;
#line 13825 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13825,"ide_methods.bas");}while(r);
#line 13825 "ide/ide_methods.bas"
}
#line 13829 "ide/ide_methods.bas"
do{
#line 13829 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N2,_FUNC_IDESUBS_STRING_N);
#line 13829 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13829 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13829,"ide_methods.bas");}while(r);
#line 13830 "ide/ide_methods.bas"
S_60126:;
#line 13830 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N2->len> 1 )))||is_error_pending()){
#line 13830 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13830,"ide_methods.bas");if(r)goto S_60126;}
#line 13831 "ide/ide_methods.bas"
S_60127:;
#line 13831 "ide/ide_methods.bas"
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()){
#line 13831 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13831,"ide_methods.bas");if(r)goto S_60127;}
#line 13832 "ide/ide_methods.bas"
do{
#line 13832 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N2,qbs_left(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_N2->len- 1 ));
#line 13832 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13832 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13832,"ide_methods.bas");}while(r);
#line 13833 "ide/ide_methods.bas"
dl_continue_6275:;
#line 13833 "ide/ide_methods.bas"
}
#line 13833 "ide/ide_methods.bas"
dl_exit_6275:;
#line 13834 "ide/ide_methods.bas"
}
#line 13835 "ide/ide_methods.bas"
S_60131:;
#line 13835 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_N2))))||is_error_pending()){
#line 13835 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13835,"ide_methods.bas");if(r)goto S_60131;}
#line 13835 "ide/ide_methods.bas"
do{
#line 13835 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 ))));
#line 13835 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13835 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13835,"ide_methods.bas");}while(r);
#line 13835 "ide/ide_methods.bas"
}
#line 13837 "ide/ide_methods.bas"
S_60134:;
#line 13837 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_INSIDEDECLARE== -1 ))||is_error_pending()){
#line 13837 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13837,"ide_methods.bas");if(r)goto S_60134;}
#line 13838 "ide/ide_methods.bas"
do{
#line 13838 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_new_txt_len("*",1),_FUNC_IDESUBS_STRING_N));
#line 13838 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13838 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13838,"ide_methods.bas");}while(r);
#line 13839 "ide/ide_methods.bas"
do{
#line 13839 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= -1 ;
#line 13839 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13839,"ide_methods.bas");}while(r);
#line 13840 "ide/ide_methods.bas"
}else{
#line 13841 "ide/ide_methods.bas"
S_60138:;
#line 13841 "ide/ide_methods.bas"
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
#line 13841 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13841,"ide_methods.bas");if(r)goto S_60138;}
#line 13841 "ide/ide_methods.bas"
do{
#line 13841 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
#line 13841 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13841,"ide_methods.bas");}while(r);
#line 13841 "ide/ide_methods.bas"
do{
#line 13841 "ide/ide_methods.bas"
return_point[next_return_point++]=176;
#line 13841 "ide/ide_methods.bas"
if (next_return_point>=return_points) more_return_points();
#line 13841 "ide/ide_methods.bas"
goto LABEL_ADDLINECOUNT;
#line 13841 "ide/ide_methods.bas"
RETURN_176:;
#line 13841 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13841,"ide_methods.bas");}while(r);
#line 13841 "ide/ide_methods.bas"
}
#line 13842 "ide/ide_methods.bas"
do{
#line 13842 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SUBCLOSED= 0ll ;
#line 13842 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13842,"ide_methods.bas");}while(r);
#line 13843 "ide/ide_methods.bas"
do{
#line 13843 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
#line 13843 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13843,"ide_methods.bas");}while(r);
#line 13844 "ide/ide_methods.bas"
}
#line 13847 "ide/ide_methods.bas"
do{
#line 13847 "ide/ide_methods.bas"
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]);
#line 13847 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long],_FUNC_IDESUBS_STRING_N);
#line 13847 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13847 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13847,"ide_methods.bas");}while(r);
#line 13848 "ide/ide_methods.bas"
do{
#line 13848 "ide/ide_methods.bas"
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]);
#line 13848 "ide/ide_methods.bas"
if (!is_error_pending()) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_Y;
#line 13848 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13848,"ide_methods.bas");}while(r);
#line 13849 "ide/ide_methods.bas"
do{
#line 13849 "ide/ide_methods.bas"
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]);
#line 13849 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long],_FUNC_IDESUBS_STRING_ARGS);
#line 13849 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13849 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13849,"ide_methods.bas");}while(r);
#line 13850 "ide/ide_methods.bas"
do{
#line 13850 "ide/ide_methods.bas"
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5]);
#line 13850 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long],_FUNC_IDESUBS_STRING_SF);
#line 13850 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13850 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13850,"ide_methods.bas");}while(r);
#line 13851 "ide/ide_methods.bas"
}else{
#line 13853 "ide/ide_methods.bas"
do{
#line 13853 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("  ",2),0);
#line 13853 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13853 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13853,"ide_methods.bas");}while(r);
#line 13854 "ide/ide_methods.bas"
S_60151:;
#line 13854 "ide/ide_methods.bas"
while((-(*_FUNC_IDESUBS_LONG_I> 0 ))||is_error_pending()){
#line 13854 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13854,"ide_methods.bas");if(r)goto S_60151;}
#line 13855 "ide/ide_methods.bas"
do{
#line 13855 "ide/ide_methods.bas"
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)));
#line 13855 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13855 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13855,"ide_methods.bas");}while(r);
#line 13856 "ide/ide_methods.bas"
do{
#line 13856 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=func_instr(*_FUNC_IDESUBS_LONG_I,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("  ",2),0|1);
#line 13856 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13856 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13856,"ide_methods.bas");}while(r);
#line 13857 "ide/ide_methods.bas"
dl_continue_6278:;
#line 13857 "ide/ide_methods.bas"
}
#line 13857 "ide/ide_methods.bas"
dl_exit_6278:;
#line 13859 "ide/ide_methods.bas"
do{
#line 13859 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CURSOR= 0 ;
#line 13859 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13859,"ide_methods.bas");}while(r);
#line 13860 "ide/ide_methods.bas"
LABEL_LOOKFORENDSUB:;
#line 13860 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13860,"ide_methods.bas");r=0;}
#line 13861 "ide/ide_methods.bas"
do{
#line 13861 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END SUB",7),0|1);
#line 13861 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13861 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13861,"ide_methods.bas");}while(r);
#line 13862 "ide/ide_methods.bas"
S_60157:;
#line 13862 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_SF== 0 ))||is_error_pending()){
#line 13862 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13862,"ide_methods.bas");if(r)goto S_60157;}
#line 13862 "ide/ide_methods.bas"
do{
#line 13862 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END FUNCTION",12),0|1);
#line 13862 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13862 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13862,"ide_methods.bas");}while(r);
#line 13862 "ide/ide_methods.bas"
}
#line 13864 "ide/ide_methods.bas"
S_60160:;
#line 13864 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_SF)||is_error_pending()){
#line 13864 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13864,"ide_methods.bas");if(r)goto S_60160;}
#line 13865 "ide/ide_methods.bas"
do{
#line 13865 "ide/ide_methods.bas"
SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_NCA,_FUNC_IDESUBS_LONG_SF,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE);
#line 13865 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13865 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13865,"ide_methods.bas");}while(r);
#line 13866 "ide/ide_methods.bas"
S_60162:;
#line 13866 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_BYTE_COMMENT|*_FUNC_IDESUBS_BYTE_QUOTE)||is_error_pending()){
#line 13866 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13866,"ide_methods.bas");if(r)goto S_60162;}
#line 13866 "ide/ide_methods.bas"
do{
#line 13866 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CURSOR=*_FUNC_IDESUBS_LONG_SF;
#line 13866 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13866,"ide_methods.bas");}while(r);
#line 13866 "ide/ide_methods.bas"
do{
#line 13866 "ide/ide_methods.bas"
goto LABEL_LOOKFORENDSUB;
#line 13866 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13866,"ide_methods.bas");}while(r);
#line 13866 "ide/ide_methods.bas"
}
#line 13867 "ide/ide_methods.bas"
do{
#line 13867 "ide/ide_methods.bas"
return_point[next_return_point++]=177;
#line 13867 "ide/ide_methods.bas"
if (next_return_point>=return_points) more_return_points();
#line 13867 "ide/ide_methods.bas"
goto LABEL_ADDLINECOUNT;
#line 13867 "ide/ide_methods.bas"
RETURN_177:;
#line 13867 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13867,"ide_methods.bas");}while(r);
#line 13868 "ide/ide_methods.bas"
}
#line 13869 "ide/ide_methods.bas"
}
#line 13870 "ide/ide_methods.bas"
fornext_continue_6262:;
#line 13870 "ide/ide_methods.bas"
}
#line 13870 "ide/ide_methods.bas"
fornext_exit_6262:;
#line 13872 "ide/ide_methods.bas"
S_60170:;
#line 13872 "ide/ide_methods.bas"
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
#line 13872 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13872,"ide_methods.bas");if(r)goto S_60170;}
#line 13872 "ide/ide_methods.bas"
do{
#line 13872 "ide/ide_methods.bas"
return_point[next_return_point++]=178;
#line 13872 "ide/ide_methods.bas"
if (next_return_point>=return_points) more_return_points();
#line 13872 "ide/ide_methods.bas"
goto LABEL_ADDLINECOUNT;
#line 13872 "ide/ide_methods.bas"
RETURN_178:;
#line 13872 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13872,"ide_methods.bas");}while(r);
#line 13872 "ide/ide_methods.bas"
}
#line 13875 "ide/ide_methods.bas"
S_60173:;
#line 13875 "ide/ide_methods.bas"
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()){
#line 13875 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13875,"ide_methods.bas");if(r)goto S_60173;}
#line 13876 "ide/ide_methods.bas"
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];
}
#line 13876 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13876,"ide_methods.bas");}while(r);
#line 13877 "ide/ide_methods.bas"
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];
}
#line 13877 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13877,"ide_methods.bas");}while(r);
#line 13878 "ide/ide_methods.bas"
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];
}
#line 13878 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13878,"ide_methods.bas");}while(r);
#line 13879 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=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];
}
#line 13879 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13879,"ide_methods.bas");}while(r);
#line 13880 "ide/ide_methods.bas"
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];
}
#line 13880 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13880,"ide_methods.bas");}while(r);
#line 13881 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=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];
}
#line 13881 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13881,"ide_methods.bas");}while(r);
#line 13882 "ide/ide_methods.bas"
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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=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];
}
#line 13882 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13882,"ide_methods.bas");}while(r);
#line 13883 "ide/ide_methods.bas"
}
#line 13886 "ide/ide_methods.bas"
S_60182:;
#line 13886 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))||is_error_pending()){
#line 13886 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13886,"ide_methods.bas");if(r)goto S_60182;}
#line 13887 "ide/ide_methods.bas"
S_60183:;
#line 13887 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__tostr((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT),NULL,0))->len)<= 10 )))||is_error_pending()){
#line 13887 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13887,"ide_methods.bas");if(r)goto S_60183;}
#line 13888 "ide/ide_methods.bas"
do{
#line 13888 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 10 ;
#line 13888 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13888,"ide_methods.bas");}while(r);
#line 13889 "ide/ide_methods.bas"
do{
#line 13889 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Line count",10));
#line 13889 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13889 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13889,"ide_methods.bas");}while(r);
#line 13890 "ide/ide_methods.bas"
do{
#line 13890 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,qbs_new_txt_len("external",8));
#line 13890 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13890 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13890,"ide_methods.bas");}while(r);
#line 13891 "ide/ide_methods.bas"
}
#line 13892 "ide/ide_methods.bas"
S_60188:;
#line 13892 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__tostr((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT),NULL,0))->len)<= 5 )))||is_error_pending()){
#line 13892 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13892,"ide_methods.bas");if(r)goto S_60188;}
#line 13893 "ide/ide_methods.bas"
do{
#line 13893 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 5 ;
#line 13893 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13893,"ide_methods.bas");}while(r);
#line 13894 "ide/ide_methods.bas"
do{
#line 13894 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Lines",5));
#line 13894 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13894 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13894,"ide_methods.bas");}while(r);
#line 13895 "ide/ide_methods.bas"
do{
#line 13895 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,func_chr( 196 ));
#line 13895 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13895 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13895,"ide_methods.bas");}while(r);
#line 13896 "ide/ide_methods.bas"
}
#line 13898 "ide/ide_methods.bas"
do{
#line 13898 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,func_space((*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+ 2 )-_FUNC_IDESUBS_STRING_L->len)));
#line 13898 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13898 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13898,"ide_methods.bas");}while(r);
#line 13899 "ide/ide_methods.bas"
do{
#line 13899 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L);
#line 13899 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13899 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13899,"ide_methods.bas");}while(r);
#line 13900 "ide/ide_methods.bas"
do{
#line 13900 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING_L);
#line 13900 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13900 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13900,"ide_methods.bas");}while(r);
#line 13901 "ide/ide_methods.bas"
do{
#line 13901 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("  Type  Arguments",17)));
#line 13901 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13901 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13901,"ide_methods.bas");}while(r);
#line 13902 "ide/ide_methods.bas"
do{
#line 13902 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L);
#line 13902 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13902 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13902,"ide_methods.bas");}while(r);
#line 13903 "ide/ide_methods.bas"
do{
#line 13903 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L);
#line 13903 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13903 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13903,"ide_methods.bas");}while(r);
#line 13904 "ide/ide_methods.bas"
do{
#line 13904 "ide/ide_methods.bas"
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));
#line 13904 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13904 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13904,"ide_methods.bas");}while(r);
#line 13905 "ide/ide_methods.bas"
do{
#line 13905 "ide/ide_methods.bas"
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)));
#line 13905 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13905 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13905,"ide_methods.bas");}while(r);
#line 13906 "ide/ide_methods.bas"
}else{
#line 13907 "ide/ide_methods.bas"
do{
#line 13907 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME);
#line 13907 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13907 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13907,"ide_methods.bas");}while(r);
#line 13908 "ide/ide_methods.bas"
S_60203:;
#line 13908 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||is_error_pending()){
#line 13908 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13908,"ide_methods.bas");if(r)goto S_60203;}
#line 13908 "ide/ide_methods.bas"
do{
#line 13908 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR));
#line 13908 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13908 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13908,"ide_methods.bas");}while(r);
#line 13908 "ide/ide_methods.bas"
}
#line 13909 "ide/ide_methods.bas"
do{
#line 13909 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L);
#line 13909 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13909 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13909,"ide_methods.bas");}while(r);
#line 13910 "ide/ide_methods.bas"
}
#line 13913 "ide/ide_methods.bas"
do{
#line 13913 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_DIALOGWIDTH= 50 ;
#line 13913 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13913,"ide_methods.bas");}while(r);
#line 13914 "ide/ide_methods.bas"
do{
#line 13914 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_ARGSLENGTH= 2 ;
#line 13914 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13914,"ide_methods.bas");}while(r);
#line 13915 "ide/ide_methods.bas"
S_60210:;
#line 13915 "ide/ide_methods.bas"
fornext_value6281= 1 ;
#line 13915 "ide/ide_methods.bas"
fornext_finalvalue6281=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 13915 "ide/ide_methods.bas"
fornext_step6281= 1 ;
#line 13915 "ide/ide_methods.bas"
if (fornext_step6281<0) fornext_step_negative6281=1; else fornext_step_negative6281=0;
#line 13915 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6281;
#line 13915 "ide/ide_methods.bas"
goto fornext_entrylabel6281;
#line 13915 "ide/ide_methods.bas"
while(1){
#line 13915 "ide/ide_methods.bas"
fornext_value6281=fornext_step6281+(*_FUNC_IDESUBS_LONG_X);
#line 13915 "ide/ide_methods.bas"
fornext_entrylabel6281:
#line 13915 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=fornext_value6281;
#line 13915 "ide/ide_methods.bas"
if (fornext_step_negative6281){
#line 13915 "ide/ide_methods.bas"
if (fornext_value6281<fornext_finalvalue6281) break;
#line 13915 "ide/ide_methods.bas"
}else{
#line 13915 "ide/ide_methods.bas"
if (fornext_value6281>fornext_finalvalue6281) break;
#line 13915 "ide/ide_methods.bas"
}
#line 13915 "ide/ide_methods.bas"
fornext_error6281:;
#line 13915 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13915,"ide_methods.bas");if(r)goto S_60210;}
#line 13916 "ide/ide_methods.bas"
do{
#line 13916 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N,(((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5])]));
#line 13916 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13916 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13916,"ide_methods.bas");}while(r);
#line 13917 "ide/ide_methods.bas"
S_60212:;
#line 13917 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||is_error_pending()){
#line 13917 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13917,"ide_methods.bas");if(r)goto S_60212;}
#line 13918 "ide/ide_methods.bas"
do{
#line 13918 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN- 3 ),func_string( 3 , 250 )));
#line 13918 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13918 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13918,"ide_methods.bas");}while(r);
#line 13919 "ide/ide_methods.bas"
}else{
#line 13920 "ide/ide_methods.bas"
do{
#line 13920 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN-_FUNC_IDESUBS_STRING_N->len)));
#line 13920 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13920 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13920,"ide_methods.bas");}while(r);
#line 13921 "ide/ide_methods.bas"
}
#line 13923 "ide/ide_methods.bas"
do{
#line 13923 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ARGS,(((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5])]));
#line 13923 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13923 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13923,"ide_methods.bas");}while(r);
#line 13924 "ide/ide_methods.bas"
S_60218:;
#line 13924 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len>*_FUNC_IDESUBS_LONG_ARGSLENGTH)))||is_error_pending()){
#line 13924 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13924,"ide_methods.bas");if(r)goto S_60218;}
#line 13924 "ide/ide_methods.bas"
do{
#line 13924 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_ARGSLENGTH=_FUNC_IDESUBS_STRING_ARGS->len;
#line 13924 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13924 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13924,"ide_methods.bas");}while(r);
#line 13924 "ide/ide_methods.bas"
}
#line 13925 "ide/ide_methods.bas"
S_60221:;
#line 13925 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||is_error_pending()){
#line 13925 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13925,"ide_methods.bas");if(r)goto S_60221;}
#line 13926 "ide/ide_methods.bas"
do{
#line 13926 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(_FUNC_IDESUBS_STRING_ARGS,func_space((*__LONG_IDEWX- 41 )-_FUNC_IDESUBS_STRING_ARGS->len)));
#line 13926 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13926 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13926,"ide_methods.bas");}while(r);
#line 13927 "ide/ide_methods.bas"
}else{
#line 13928 "ide/ide_methods.bas"
do{
#line 13928 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_ARGS,(*__LONG_IDEWX- 44 )),func_string( 3 , 250 )));
#line 13928 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13928 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13928,"ide_methods.bas");}while(r);
#line 13929 "ide/ide_methods.bas"
}
#line 13931 "ide/ide_methods.bas"
do{
#line 13931 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_SF,(((qbs**)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5])]));
#line 13931 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13931 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13931,"ide_methods.bas");}while(r);
#line 13934 "ide/ide_methods.bas"
do{
#line 13934 "ide/ide_methods.bas"
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));
#line 13934 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13934 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13934,"ide_methods.bas");}while(r);
#line 13936 "ide/ide_methods.bas"
S_60228:;
#line 13936 "ide/ide_methods.bas"
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()){
#line 13936 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13936,"ide_methods.bas");if(r)goto S_60228;}
#line 13936 "ide/ide_methods.bas"
do{
#line 13936 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL);
#line 13936 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13936 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13936,"ide_methods.bas");}while(r);
#line 13936 "ide/ide_methods.bas"
}else{
#line 13936 "ide/ide_methods.bas"
do{
#line 13936 "ide/ide_methods.bas"
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));
#line 13936 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13936 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13936,"ide_methods.bas");}while(r);
#line 13936 "ide/ide_methods.bas"
}
#line 13939 "ide/ide_methods.bas"
do{
#line 13939 "ide/ide_methods.bas"
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));
#line 13939 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13939 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13939,"ide_methods.bas");}while(r);
#line 13941 "ide/ide_methods.bas"
do{
#line 13941 "ide/ide_methods.bas"
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));
#line 13941 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13941 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13941,"ide_methods.bas");}while(r);
#line 13942 "ide/ide_methods.bas"
do{
#line 13942 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=_FUNC_IDESUBS_STRING_LISTITEM->len;
#line 13942 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13942 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13942,"ide_methods.bas");}while(r);
#line 13943 "ide/ide_methods.bas"
do{
#line 13943 "ide/ide_methods.bas"
tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]);
#line 13943 "ide/ide_methods.bas"
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));
#line 13943 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13943 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13943,"ide_methods.bas");}while(r);
#line 13944 "ide/ide_methods.bas"
do{
#line 13944 "ide/ide_methods.bas"
tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]);
#line 13944 "ide/ide_methods.bas"
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);
#line 13944 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13944 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13944,"ide_methods.bas");}while(r);
#line 13945 "ide/ide_methods.bas"
do{
#line 13945 "ide/ide_methods.bas"
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);
#line 13945 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13945,"ide_methods.bas");}while(r);
#line 13946 "ide/ide_methods.bas"
do{
#line 13946 "ide/ide_methods.bas"
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);
#line 13946 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13946,"ide_methods.bas");}while(r);
#line 13947 "ide/ide_methods.bas"
fornext_continue_6280:;
#line 13947 "ide/ide_methods.bas"
}
#line 13947 "ide/ide_methods.bas"
fornext_exit_6280:;
#line 13949 "ide/ide_methods.bas"
do{
#line 13949 "ide/ide_methods.bas"
sub_mid(_FUNC_IDESUBS_STRING_L,func__instrrev(NULL,_FUNC_IDESUBS_STRING_L,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
#line 13949 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13949,"ide_methods.bas");}while(r);
#line 13950 "ide/ide_methods.bas"
do{
#line 13950 "ide/ide_methods.bas"
sub_mid(_FUNC_IDESUBS_STRING_LSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
#line 13950 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13950,"ide_methods.bas");}while(r);
#line 13952 "ide/ide_methods.bas"
S_60243:;
#line 13952 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||is_error_pending()){
#line 13952 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13952,"ide_methods.bas");if(r)goto S_60243;}
#line 13953 "ide/ide_methods.bas"
do{
#line 13953 "ide/ide_methods.bas"
SUB_SORT(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST);
#line 13953 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13953 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13953,"ide_methods.bas");}while(r);
#line 13955 "ide/ide_methods.bas"
S_60245:;
#line 13955 "ide/ide_methods.bas"
fornext_value6291= 1 ;
#line 13955 "ide/ide_methods.bas"
fornext_finalvalue6291=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 13955 "ide/ide_methods.bas"
fornext_step6291= 1 ;
#line 13955 "ide/ide_methods.bas"
if (fornext_step6291<0) fornext_step_negative6291=1; else fornext_step_negative6291=0;
#line 13955 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6291;
#line 13955 "ide/ide_methods.bas"
goto fornext_entrylabel6291;
#line 13955 "ide/ide_methods.bas"
while(1){
#line 13955 "ide/ide_methods.bas"
fornext_value6291=fornext_step6291+(*_FUNC_IDESUBS_LONG_X);
#line 13955 "ide/ide_methods.bas"
fornext_entrylabel6291:
#line 13955 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=fornext_value6291;
#line 13955 "ide/ide_methods.bas"
if (fornext_step_negative6291){
#line 13955 "ide/ide_methods.bas"
if (fornext_value6291<fornext_finalvalue6291) break;
#line 13955 "ide/ide_methods.bas"
}else{
#line 13955 "ide/ide_methods.bas"
if (fornext_value6291>fornext_finalvalue6291) break;
#line 13955 "ide/ide_methods.bas"
}
#line 13955 "ide/ide_methods.bas"
fornext_error6291:;
#line 13955 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13955,"ide_methods.bas");if(r)goto S_60245;}
#line 13956 "ide/ide_methods.bas"
do{
#line 13956 "ide/ide_methods.bas"
*_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));
#line 13956 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13956 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13956,"ide_methods.bas");}while(r);
#line 13957 "ide/ide_methods.bas"
do{
#line 13957 "ide/ide_methods.bas"
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)));
#line 13957 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13957 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13957,"ide_methods.bas");}while(r);
#line 13958 "ide/ide_methods.bas"
S_60248:;
#line 13958 "ide/ide_methods.bas"
fornext_value6295= 1 ;
#line 13958 "ide/ide_methods.bas"
fornext_finalvalue6295=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 13958 "ide/ide_methods.bas"
fornext_step6295= 1 ;
#line 13958 "ide/ide_methods.bas"
if (fornext_step6295<0) fornext_step_negative6295=1; else fornext_step_negative6295=0;
#line 13958 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6295;
#line 13958 "ide/ide_methods.bas"
goto fornext_entrylabel6295;
#line 13958 "ide/ide_methods.bas"
while(1){
#line 13958 "ide/ide_methods.bas"
fornext_value6295=fornext_step6295+(*_FUNC_IDESUBS_LONG_RESTORECASEBKP);
#line 13958 "ide/ide_methods.bas"
fornext_entrylabel6295:
#line 13958 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_RESTORECASEBKP=fornext_value6295;
#line 13958 "ide/ide_methods.bas"
if (fornext_step_negative6295){
#line 13958 "ide/ide_methods.bas"
if (fornext_value6295<fornext_finalvalue6295) break;
#line 13958 "ide/ide_methods.bas"
}else{
#line 13958 "ide/ide_methods.bas"
if (fornext_value6295>fornext_finalvalue6295) break;
#line 13958 "ide/ide_methods.bas"
}
#line 13958 "ide/ide_methods.bas"
fornext_error6295:;
#line 13958 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13958,"ide_methods.bas");if(r)goto S_60248;}
#line 13959 "ide/ide_methods.bas"
S_60249:;
#line 13959 "ide/ide_methods.bas"
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()){
#line 13959 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13959,"ide_methods.bas");if(r)goto S_60249;}
#line 13960 "ide/ide_methods.bas"
do{
#line 13960 "ide/ide_methods.bas"
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 )));
#line 13960 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13960 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13960,"ide_methods.bas");}while(r);
#line 13961 "ide/ide_methods.bas"
do{
#line 13961 "ide/ide_methods.bas"
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));
#line 13961 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13961 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13961,"ide_methods.bas");}while(r);
#line 13963 "ide/ide_methods.bas"
do{
#line 13963 "ide/ide_methods.bas"
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)));
#line 13963 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13963 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13963,"ide_methods.bas");}while(r);
#line 13965 "ide/ide_methods.bas"
do{
#line 13965 "ide/ide_methods.bas"
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));
#line 13965 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13965 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13965,"ide_methods.bas");}while(r);
#line 13966 "ide/ide_methods.bas"
S_60254:;
#line 13966 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_TEMP, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
#line 13966 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13966,"ide_methods.bas");if(r)goto S_60254;}
#line 13966 "ide/ide_methods.bas"
do{
#line 13966 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL);
#line 13966 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13966 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13966,"ide_methods.bas");}while(r);
#line 13966 "ide/ide_methods.bas"
}
#line 13967 "ide/ide_methods.bas"
do{
#line 13967 "ide/ide_methods.bas"
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 )));
#line 13967 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13967 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13967,"ide_methods.bas");}while(r);
#line 13970 "ide/ide_methods.bas"
do{
#line 13970 "ide/ide_methods.bas"
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)));
#line 13970 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13970 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13970,"ide_methods.bas");}while(r);
#line 13971 "ide/ide_methods.bas"
do{
#line 13971 "ide/ide_methods.bas"
goto fornext_exit_6294;
#line 13971 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13971,"ide_methods.bas");}while(r);
#line 13972 "ide/ide_methods.bas"
}
#line 13973 "ide/ide_methods.bas"
fornext_continue_6294:;
#line 13973 "ide/ide_methods.bas"
}
#line 13973 "ide/ide_methods.bas"
fornext_exit_6294:;
#line 13974 "ide/ide_methods.bas"
fornext_continue_6290:;
#line 13974 "ide/ide_methods.bas"
}
#line 13974 "ide/ide_methods.bas"
fornext_exit_6290:;
#line 13976 "ide/ide_methods.bas"
do{
#line 13976 "ide/ide_methods.bas"
sub_mid(_FUNC_IDESUBS_STRING_LSORTED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
#line 13976 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13976,"ide_methods.bas");}while(r);
#line 13977 "ide/ide_methods.bas"
do{
#line 13977 "ide/ide_methods.bas"
sub_mid(_FUNC_IDESUBS_STRING_LSORTEDSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTEDSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
#line 13977 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13977,"ide_methods.bas");}while(r);
#line 13978 "ide/ide_methods.bas"
do{
#line 13978 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS;
#line 13978 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13978,"ide_methods.bas");}while(r);
#line 13979 "ide/ide_methods.bas"
}else{
#line 13980 "ide/ide_methods.bas"
do{
#line 13980 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG= 0 ;
#line 13980 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13980,"ide_methods.bas");}while(r);
#line 13981 "ide/ide_methods.bas"
}
#line 13984 "ide/ide_methods.bas"
do{
#line 13984 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I= 0 ;
#line 13984 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13984,"ide_methods.bas");}while(r);
#line 13985 "ide/ide_methods.bas"
do{
#line 13985 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 4 ;
#line 13985 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13985,"ide_methods.bas");}while(r);
#line 13986 "ide/ide_methods.bas"
S_60271:;
#line 13986 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||is_error_pending()){
#line 13986 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13986,"ide_methods.bas");if(r)goto S_60271;}
#line 13987 "ide/ide_methods.bas"
do{
#line 13987 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ;
#line 13987 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13987,"ide_methods.bas");}while(r);
#line 13988 "ide/ide_methods.bas"
}
#line 13990 "ide/ide_methods.bas"
S_60274:;
#line 13990 "ide/ide_methods.bas"
if ((-((*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 )>*_FUNC_IDESUBS_LONG_DIALOGWIDTH))||is_error_pending()){
#line 13990 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13990,"ide_methods.bas");if(r)goto S_60274;}
#line 13990 "ide/ide_methods.bas"
do{
#line 13990 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 ;
#line 13990 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13990,"ide_methods.bas");}while(r);
#line 13990 "ide/ide_methods.bas"
}
#line 13991 "ide/ide_methods.bas"
S_60277:;
#line 13991 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||is_error_pending()){
#line 13991 "ide/ide_methods.bas"
if(qbevent){evnt(28819,13991,"ide_methods.bas");if(r)goto S_60277;}
#line 13991 "ide/ide_methods.bas"
do{
#line 13991 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ;
#line 13991 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13991,"ide_methods.bas");}while(r);
#line 13991 "ide/ide_methods.bas"
}
#line 13993 "ide/ide_methods.bas"
do{
#line 13993 "ide/ide_methods.bas"
SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + ((0+0)) ),_FUNC_IDESUBS_LONG_DIALOGWIDTH,_FUNC_IDESUBS_LONG_DIALOGHEIGHT,qbs_new_txt_len("SUBs",4));
#line 13993 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13993 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13993,"ide_methods.bas");}while(r);
#line 13995 "ide/ide_methods.bas"
do{
#line 13995 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
#line 13995 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13995,"ide_methods.bas");}while(r);
#line 13996 "ide/ide_methods.bas"
do{
#line 13996 "ide/ide_methods.bas"
*(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 ;
#line 13996 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13996,"ide_methods.bas");}while(r);
#line 13997 "ide/ide_methods.bas"
do{
#line 13997 "ide/ide_methods.bas"
*(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 ;
#line 13997 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13997,"ide_methods.bas");}while(r);
#line 13999 "ide/ide_methods.bas"
do{
#line 13999 "ide/ide_methods.bas"
*(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 ;
#line 13999 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13999,"ide_methods.bas");}while(r);
#line 13999 "ide/ide_methods.bas"
do{
#line 13999 "ide/ide_methods.bas"
*(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 ;
#line 13999 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,13999,"ide_methods.bas");}while(r);
#line 14000 "ide/ide_methods.bas"
S_60286:;
#line 14000 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
#line 14000 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14000,"ide_methods.bas");if(r)goto S_60286;}
#line 14001 "ide/ide_methods.bas"
S_60287:;
#line 14001 "ide/ide_methods.bas"
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
#line 14001 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14001,"ide_methods.bas");if(r)goto S_60287;}
#line 14002 "ide/ide_methods.bas"
do{
#line 14002 "ide/ide_methods.bas"
*(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);
#line 14002 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14002,"ide_methods.bas");}while(r);
#line 14003 "ide/ide_methods.bas"
}else{
#line 14004 "ide/ide_methods.bas"
do{
#line 14004 "ide/ide_methods.bas"
*(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);
#line 14004 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14004,"ide_methods.bas");}while(r);
#line 14005 "ide/ide_methods.bas"
}
#line 14007 "ide/ide_methods.bas"
S_60292:;
#line 14007 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||is_error_pending()){
#line 14007 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14007,"ide_methods.bas");if(r)goto S_60292;}
#line 14008 "ide/ide_methods.bas"
do{
#line 14008 "ide/ide_methods.bas"
*(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;
#line 14008 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14008,"ide_methods.bas");}while(r);
#line 14009 "ide/ide_methods.bas"
}else{
#line 14010 "ide/ide_methods.bas"
do{
#line 14010 "ide/ide_methods.bas"
*(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;
#line 14010 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14010,"ide_methods.bas");}while(r);
#line 14011 "ide/ide_methods.bas"
}
#line 14012 "ide/ide_methods.bas"
}else{
#line 14013 "ide/ide_methods.bas"
do{
#line 14013 "ide/ide_methods.bas"
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]);
#line 14013 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_LSORTED);
#line 14013 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14013 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14013,"ide_methods.bas");}while(r);
#line 14014 "ide/ide_methods.bas"
S_60299:;
#line 14014 "ide/ide_methods.bas"
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
#line 14014 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14014,"ide_methods.bas");if(r)goto S_60299;}
#line 14015 "ide/ide_methods.bas"
do{
#line 14015 "ide/ide_methods.bas"
*(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);
#line 14015 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14015,"ide_methods.bas");}while(r);
#line 14016 "ide/ide_methods.bas"
}else{
#line 14017 "ide/ide_methods.bas"
do{
#line 14017 "ide/ide_methods.bas"
*(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);
#line 14017 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14017,"ide_methods.bas");}while(r);
#line 14018 "ide/ide_methods.bas"
}
#line 14019 "ide/ide_methods.bas"
S_60304:;
#line 14019 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||is_error_pending()){
#line 14019 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14019,"ide_methods.bas");if(r)goto S_60304;}
#line 14020 "ide/ide_methods.bas"
S_60305:;
#line 14020 "ide/ide_methods.bas"
fornext_value6300= 1 ;
#line 14020 "ide/ide_methods.bas"
fornext_finalvalue6300=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 14020 "ide/ide_methods.bas"
fornext_step6300= 1 ;
#line 14020 "ide/ide_methods.bas"
if (fornext_step6300<0) fornext_step_negative6300=1; else fornext_step_negative6300=0;
#line 14020 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6300;
#line 14020 "ide/ide_methods.bas"
goto fornext_entrylabel6300;
#line 14020 "ide/ide_methods.bas"
while(1){
#line 14020 "ide/ide_methods.bas"
fornext_value6300=fornext_step6300+(*_FUNC_IDESUBS_LONG_X);
#line 14020 "ide/ide_methods.bas"
fornext_entrylabel6300:
#line 14020 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=fornext_value6300;
#line 14020 "ide/ide_methods.bas"
if (fornext_step_negative6300){
#line 14020 "ide/ide_methods.bas"
if (fornext_value6300<fornext_finalvalue6300) break;
#line 14020 "ide/ide_methods.bas"
}else{
#line 14020 "ide/ide_methods.bas"
if (fornext_value6300>fornext_finalvalue6300) break;
#line 14020 "ide/ide_methods.bas"
}
#line 14020 "ide/ide_methods.bas"
fornext_error6300:;
#line 14020 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14020,"ide_methods.bas");if(r)goto S_60305;}
#line 14021 "ide/ide_methods.bas"
S_60306:;
#line 14021 "ide/ide_methods.bas"
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()){
#line 14021 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14021,"ide_methods.bas");if(r)goto S_60306;}
#line 14022 "ide/ide_methods.bas"
do{
#line 14022 "ide/ide_methods.bas"
*(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 ;
#line 14022 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14022,"ide_methods.bas");}while(r);
#line 14023 "ide/ide_methods.bas"
do{
#line 14023 "ide/ide_methods.bas"
goto fornext_exit_6299;
#line 14023 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14023,"ide_methods.bas");}while(r);
#line 14024 "ide/ide_methods.bas"
}
#line 14025 "ide/ide_methods.bas"
fornext_continue_6299:;
#line 14025 "ide/ide_methods.bas"
}
#line 14025 "ide/ide_methods.bas"
fornext_exit_6299:;
#line 14026 "ide/ide_methods.bas"
}else{
#line 14027 "ide/ide_methods.bas"
S_60312:;
#line 14027 "ide/ide_methods.bas"
fornext_value6303= 1 ;
#line 14027 "ide/ide_methods.bas"
fornext_finalvalue6303=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 14027 "ide/ide_methods.bas"
fornext_step6303= 1 ;
#line 14027 "ide/ide_methods.bas"
if (fornext_step6303<0) fornext_step_negative6303=1; else fornext_step_negative6303=0;
#line 14027 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6303;
#line 14027 "ide/ide_methods.bas"
goto fornext_entrylabel6303;
#line 14027 "ide/ide_methods.bas"
while(1){
#line 14027 "ide/ide_methods.bas"
fornext_value6303=fornext_step6303+(*_FUNC_IDESUBS_LONG_X);
#line 14027 "ide/ide_methods.bas"
fornext_entrylabel6303:
#line 14027 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=fornext_value6303;
#line 14027 "ide/ide_methods.bas"
if (fornext_step_negative6303){
#line 14027 "ide/ide_methods.bas"
if (fornext_value6303<fornext_finalvalue6303) break;
#line 14027 "ide/ide_methods.bas"
}else{
#line 14027 "ide/ide_methods.bas"
if (fornext_value6303>fornext_finalvalue6303) break;
#line 14027 "ide/ide_methods.bas"
}
#line 14027 "ide/ide_methods.bas"
fornext_error6303:;
#line 14027 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14027,"ide_methods.bas");if(r)goto S_60312;}
#line 14028 "ide/ide_methods.bas"
S_60313:;
#line 14028 "ide/ide_methods.bas"
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()){
#line 14028 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14028,"ide_methods.bas");if(r)goto S_60313;}
#line 14029 "ide/ide_methods.bas"
do{
#line 14029 "ide/ide_methods.bas"
*(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 ;
#line 14029 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14029,"ide_methods.bas");}while(r);
#line 14030 "ide/ide_methods.bas"
do{
#line 14030 "ide/ide_methods.bas"
goto fornext_exit_6302;
#line 14030 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14030,"ide_methods.bas");}while(r);
#line 14031 "ide/ide_methods.bas"
}
#line 14032 "ide/ide_methods.bas"
fornext_continue_6302:;
#line 14032 "ide/ide_methods.bas"
}
#line 14032 "ide/ide_methods.bas"
fornext_exit_6302:;
#line 14033 "ide/ide_methods.bas"
}
#line 14034 "ide/ide_methods.bas"
}
#line 14035 "ide/ide_methods.bas"
do{
#line 14035 "ide/ide_methods.bas"
*(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));
#line 14035 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14035,"ide_methods.bas");}while(r);
#line 14037 "ide/ide_methods.bas"
do{
#line 14037 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
#line 14037 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14037,"ide_methods.bas");}while(r);
#line 14038 "ide/ide_methods.bas"
do{
#line 14038 "ide/ide_methods.bas"
*(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 ;
#line 14038 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14038,"ide_methods.bas");}while(r);
#line 14039 "ide/ide_methods.bas"
do{
#line 14039 "ide/ide_methods.bas"
*(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 ;
#line 14039 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14039,"ide_methods.bas");}while(r);
#line 14040 "ide/ide_methods.bas"
do{
#line 14040 "ide/ide_methods.bas"
*(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;
#line 14040 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14040,"ide_methods.bas");}while(r);
#line 14041 "ide/ide_methods.bas"
do{
#line 14041 "ide/ide_methods.bas"
*(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));
#line 14041 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14041,"ide_methods.bas");}while(r);
#line 14042 "ide/ide_methods.bas"
do{
#line 14042 "ide/ide_methods.bas"
*(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;
#line 14042 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14042,"ide_methods.bas");}while(r);
#line 14044 "ide/ide_methods.bas"
do{
#line 14044 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
#line 14044 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14044,"ide_methods.bas");}while(r);
#line 14045 "ide/ide_methods.bas"
do{
#line 14045 "ide/ide_methods.bas"
*(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 ;
#line 14045 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14045,"ide_methods.bas");}while(r);
#line 14046 "ide/ide_methods.bas"
do{
#line 14046 "ide/ide_methods.bas"
*(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 ;
#line 14046 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14046,"ide_methods.bas");}while(r);
#line 14047 "ide/ide_methods.bas"
do{
#line 14047 "ide/ide_methods.bas"
*(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;
#line 14047 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14047,"ide_methods.bas");}while(r);
#line 14048 "ide/ide_methods.bas"
do{
#line 14048 "ide/ide_methods.bas"
*(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));
#line 14048 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14048,"ide_methods.bas");}while(r);
#line 14049 "ide/ide_methods.bas"
do{
#line 14049 "ide/ide_methods.bas"
*(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;
#line 14049 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14049,"ide_methods.bas");}while(r);
#line 14051 "ide/ide_methods.bas"
do{
#line 14051 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
#line 14051 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14051,"ide_methods.bas");}while(r);
#line 14052 "ide/ide_methods.bas"
do{
#line 14052 "ide/ide_methods.bas"
*(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 ;
#line 14052 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14052,"ide_methods.bas");}while(r);
#line 14053 "ide/ide_methods.bas"
do{
#line 14053 "ide/ide_methods.bas"
*(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 ;
#line 14053 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14053,"ide_methods.bas");}while(r);
#line 14054 "ide/ide_methods.bas"
do{
#line 14054 "ide/ide_methods.bas"
*(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 ;
#line 14054 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14054,"ide_methods.bas");}while(r);
#line 14055 "ide/ide_methods.bas"
do{
#line 14055 "ide/ide_methods.bas"
*(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;
#line 14055 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14055,"ide_methods.bas");}while(r);
#line 14056 "ide/ide_methods.bas"
S_60338:;
#line 14056 "ide/ide_methods.bas"
if ((-(*__LONG_IDEDEBUGMODE== 0 ))||is_error_pending()){
#line 14056 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14056,"ide_methods.bas");if(r)goto S_60338;}
#line 14057 "ide/ide_methods.bas"
do{
#line 14057 "ide/ide_methods.bas"
*(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)));
#line 14057 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14057,"ide_methods.bas");}while(r);
#line 14058 "ide/ide_methods.bas"
}else{
#line 14059 "ide/ide_methods.bas"
do{
#line 14059 "ide/ide_methods.bas"
*(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)));
#line 14059 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14059,"ide_methods.bas");}while(r);
#line 14060 "ide/ide_methods.bas"
}
#line 14061 "ide/ide_methods.bas"
do{
#line 14061 "ide/ide_methods.bas"
*(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 ;
#line 14061 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14061,"ide_methods.bas");}while(r);
#line 14067 "ide/ide_methods.bas"
S_60344:;
#line 14067 "ide/ide_methods.bas"
fornext_value6306= 1 ;
#line 14067 "ide/ide_methods.bas"
fornext_finalvalue6306= 100 ;
#line 14067 "ide/ide_methods.bas"
fornext_step6306= 1 ;
#line 14067 "ide/ide_methods.bas"
if (fornext_step6306<0) fornext_step_negative6306=1; else fornext_step_negative6306=0;
#line 14067 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6306;
#line 14067 "ide/ide_methods.bas"
goto fornext_entrylabel6306;
#line 14067 "ide/ide_methods.bas"
while(1){
#line 14067 "ide/ide_methods.bas"
fornext_value6306=fornext_step6306+(*_FUNC_IDESUBS_LONG_I);
#line 14067 "ide/ide_methods.bas"
fornext_entrylabel6306:
#line 14067 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=fornext_value6306;
#line 14067 "ide/ide_methods.bas"
if (fornext_step_negative6306){
#line 14067 "ide/ide_methods.bas"
if (fornext_value6306<fornext_finalvalue6306) break;
#line 14067 "ide/ide_methods.bas"
}else{
#line 14067 "ide/ide_methods.bas"
if (fornext_value6306>fornext_finalvalue6306) break;
#line 14067 "ide/ide_methods.bas"
}
#line 14067 "ide/ide_methods.bas"
fornext_error6306:;
#line 14067 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14067,"ide_methods.bas");if(r)goto S_60344;}
#line 14067 "ide/ide_methods.bas"
do{
#line 14067 "ide/ide_methods.bas"
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);
#line 14067 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14067,"ide_methods.bas");}while(r);
#line 14067 "ide/ide_methods.bas"
fornext_continue_6305:;
#line 14067 "ide/ide_methods.bas"
}
#line 14067 "ide/ide_methods.bas"
fornext_exit_6305:;
#line 14070 "ide/ide_methods.bas"
S_60347:;
#line 14070 "ide/ide_methods.bas"
do{
#line 14070 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14070,"ide_methods.bas");if(r)goto S_60347;}
#line 14073 "ide/ide_methods.bas"
do{
#line 14073 "ide/ide_methods.bas"
SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + ((0+0)) ));
#line 14073 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14073,"ide_methods.bas");}while(r);
#line 14074 "ide/ide_methods.bas"
do{
#line 14074 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_F= 1 ;
#line 14074 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14074,"ide_methods.bas");}while(r);
#line 14074 "ide/ide_methods.bas"
do{
#line 14074 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CX= 0 ;
#line 14074 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14074,"ide_methods.bas");}while(r);
#line 14074 "ide/ide_methods.bas"
do{
#line 14074 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CY= 0 ;
#line 14074 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14074,"ide_methods.bas");}while(r);
#line 14075 "ide/ide_methods.bas"
S_60352:;
#line 14075 "ide/ide_methods.bas"
fornext_value6309= 1 ;
#line 14075 "ide/ide_methods.bas"
fornext_finalvalue6309= 100 ;
#line 14075 "ide/ide_methods.bas"
fornext_step6309= 1 ;
#line 14075 "ide/ide_methods.bas"
if (fornext_step6309<0) fornext_step_negative6309=1; else fornext_step_negative6309=0;
#line 14075 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6309;
#line 14075 "ide/ide_methods.bas"
goto fornext_entrylabel6309;
#line 14075 "ide/ide_methods.bas"
while(1){
#line 14075 "ide/ide_methods.bas"
fornext_value6309=fornext_step6309+(*_FUNC_IDESUBS_LONG_I);
#line 14075 "ide/ide_methods.bas"
fornext_entrylabel6309:
#line 14075 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=fornext_value6309;
#line 14075 "ide/ide_methods.bas"
if (fornext_step_negative6309){
#line 14075 "ide/ide_methods.bas"
if (fornext_value6309<fornext_finalvalue6309) break;
#line 14075 "ide/ide_methods.bas"
}else{
#line 14075 "ide/ide_methods.bas"
if (fornext_value6309>fornext_finalvalue6309) break;
#line 14075 "ide/ide_methods.bas"
}
#line 14075 "ide/ide_methods.bas"
fornext_error6309:;
#line 14075 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14075,"ide_methods.bas");if(r)goto S_60352;}
#line 14076 "ide/ide_methods.bas"
S_60353:;
#line 14076 "ide/ide_methods.bas"
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()){
#line 14076 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14076,"ide_methods.bas");if(r)goto S_60353;}
#line 14079 "ide/ide_methods.bas"
do{
#line 14079 "ide/ide_methods.bas"
*(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;
#line 14079 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14079,"ide_methods.bas");}while(r);
#line 14080 "ide/ide_methods.bas"
do{
#line 14080 "ide/ide_methods.bas"
*(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 ;
#line 14080 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14080,"ide_methods.bas");}while(r);
#line 14080 "ide/ide_methods.bas"
do{
#line 14080 "ide/ide_methods.bas"
*(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 ;
#line 14080 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14080,"ide_methods.bas");}while(r);
#line 14081 "ide/ide_methods.bas"
do{
#line 14081 "ide/ide_methods.bas"
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);
#line 14081 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14081,"ide_methods.bas");}while(r);
#line 14082 "ide/ide_methods.bas"
S_60358:;
#line 14082 "ide/ide_methods.bas"
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()){
#line 14082 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14082,"ide_methods.bas");if(r)goto S_60358;}
#line 14082 "ide/ide_methods.bas"
do{
#line 14082 "ide/ide_methods.bas"
*_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)));
#line 14082 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14082,"ide_methods.bas");}while(r);
#line 14082 "ide/ide_methods.bas"
do{
#line 14082 "ide/ide_methods.bas"
*_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)));
#line 14082 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14082,"ide_methods.bas");}while(r);
#line 14082 "ide/ide_methods.bas"
}
#line 14083 "ide/ide_methods.bas"
}
#line 14084 "ide/ide_methods.bas"
fornext_continue_6308:;
#line 14084 "ide/ide_methods.bas"
}
#line 14084 "ide/ide_methods.bas"
fornext_exit_6308:;
#line 14085 "ide/ide_methods.bas"
do{
#line 14085 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_LASTFOCUS=*_FUNC_IDESUBS_LONG_F- 1 ;
#line 14085 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14085,"ide_methods.bas");}while(r);
#line 14089 "ide/ide_methods.bas"
S_60365:;
#line 14089 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC)||is_error_pending()){
#line 14089 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14089,"ide_methods.bas");if(r)goto S_60365;}
#line 14090 "ide/ide_methods.bas"
do{
#line 14090 "ide/ide_methods.bas"
qbg_sub_color( 2 , 7 ,NULL,NULL,3);
#line 14090 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14090,"ide_methods.bas");}while(r);
#line 14091 "ide/ide_methods.bas"
do{
#line 14091 "ide/ide_methods.bas"
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);
#line 14091 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14091 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14091,"ide_methods.bas");}while(r);
#line 14092 "ide/ide_methods.bas"
}
#line 14096 "ide/ide_methods.bas"
do{
#line 14096 "ide/ide_methods.bas"
sub_pcopy( 1 , 0 );
#line 14096 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14096,"ide_methods.bas");}while(r);
#line 14097 "ide/ide_methods.bas"
S_60370:;
#line 14097 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_CX)||is_error_pending()){
#line 14097 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14097,"ide_methods.bas");if(r)goto S_60370;}
#line 14097 "ide/ide_methods.bas"
do{
#line 14097 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
#line 14097 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14097,"ide_methods.bas");}while(r);
#line 14097 "ide/ide_methods.bas"
do{
#line 14097 "ide/ide_methods.bas"
qbg_sub_locate(*_FUNC_IDESUBS_LONG_CY,*_FUNC_IDESUBS_LONG_CX, 1 ,NULL,NULL,7);
#line 14097 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14097,"ide_methods.bas");}while(r);
#line 14097 "ide/ide_methods.bas"
do{
#line 14097 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
#line 14097 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14097,"ide_methods.bas");}while(r);
#line 14097 "ide/ide_methods.bas"
}
#line 14100 "ide/ide_methods.bas"
do{
#line 14100 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CHANGE= 0 ;
#line 14100 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14100,"ide_methods.bas");}while(r);
#line 14101 "ide/ide_methods.bas"
S_60376:;
#line 14101 "ide/ide_methods.bas"
do{
#line 14101 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14101,"ide_methods.bas");if(r)goto S_60376;}
#line 14102 "ide/ide_methods.bas"
do{
#line 14102 "ide/ide_methods.bas"
SUB_GETINPUT();
#line 14102 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14102,"ide_methods.bas");}while(r);
#line 14103 "ide/ide_methods.bas"
S_60378:;
#line 14103 "ide/ide_methods.bas"
if ((*__LONG_MWHEEL)||is_error_pending()){
#line 14103 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14103,"ide_methods.bas");if(r)goto S_60378;}
#line 14103 "ide/ide_methods.bas"
do{
#line 14103 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
#line 14103 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14103,"ide_methods.bas");}while(r);
#line 14103 "ide/ide_methods.bas"
}
#line 14104 "ide/ide_methods.bas"
S_60381:;
#line 14104 "ide/ide_methods.bas"
if ((*__LONG_KB)||is_error_pending()){
#line 14104 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14104,"ide_methods.bas");if(r)goto S_60381;}
#line 14104 "ide/ide_methods.bas"
do{
#line 14104 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
#line 14104 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14104,"ide_methods.bas");}while(r);
#line 14104 "ide/ide_methods.bas"
}
#line 14105 "ide/ide_methods.bas"
S_60384:;
#line 14105 "ide/ide_methods.bas"
if ((*__LONG_MCLICK)||is_error_pending()){
#line 14105 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14105,"ide_methods.bas");if(r)goto S_60384;}
#line 14105 "ide/ide_methods.bas"
do{
#line 14105 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MOUSEDOWN= 1 ;
#line 14105 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14105,"ide_methods.bas");}while(r);
#line 14105 "ide/ide_methods.bas"
do{
#line 14105 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
#line 14105 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14105,"ide_methods.bas");}while(r);
#line 14105 "ide/ide_methods.bas"
}
#line 14106 "ide/ide_methods.bas"
S_60388:;
#line 14106 "ide/ide_methods.bas"
if ((*__LONG_MRELEASE)||is_error_pending()){
#line 14106 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14106,"ide_methods.bas");if(r)goto S_60388;}
#line 14106 "ide/ide_methods.bas"
do{
#line 14106 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MOUSEUP= 1 ;
#line 14106 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14106,"ide_methods.bas");}while(r);
#line 14106 "ide/ide_methods.bas"
do{
#line 14106 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
#line 14106 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14106,"ide_methods.bas");}while(r);
#line 14106 "ide/ide_methods.bas"
}
#line 14107 "ide/ide_methods.bas"
S_60392:;
#line 14107 "ide/ide_methods.bas"
if ((*__LONG_MB)||is_error_pending()){
#line 14107 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14107,"ide_methods.bas");if(r)goto S_60392;}
#line 14107 "ide/ide_methods.bas"
do{
#line 14107 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
#line 14107 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14107,"ide_methods.bas");}while(r);
#line 14107 "ide/ide_methods.bas"
}
#line 14108 "ide/ide_methods.bas"
do{
#line 14108 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_ALT=*__LONG_KALT;
#line 14108 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14108,"ide_methods.bas");}while(r);
#line 14108 "ide/ide_methods.bas"
S_60396:;
#line 14108 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_ALT!=*_FUNC_IDESUBS_LONG_OLDALT))||is_error_pending()){
#line 14108 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14108,"ide_methods.bas");if(r)goto S_60396;}
#line 14108 "ide/ide_methods.bas"
do{
#line 14108 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
#line 14108 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14108,"ide_methods.bas");}while(r);
#line 14108 "ide/ide_methods.bas"
}
#line 14109 "ide/ide_methods.bas"
do{
#line 14109 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_OLDALT=*_FUNC_IDESUBS_LONG_ALT;
#line 14109 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14109,"ide_methods.bas");}while(r);
#line 14110 "ide/ide_methods.bas"
do{
#line 14110 "ide/ide_methods.bas"
sub__limit( 100 );
#line 14110 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14110,"ide_methods.bas");}while(r);
#line 14111 "ide/ide_methods.bas"
S_60401:;
#line 14111 "ide/ide_methods.bas"
dl_continue_6310:;
#line 14111 "ide/ide_methods.bas"
}while((!(*_FUNC_IDESUBS_LONG_CHANGE))&&(!is_error_pending()));
#line 14111 "ide/ide_methods.bas"
dl_exit_6310:;
#line 14111 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14111,"ide_methods.bas");if(r)goto S_60401;}
#line 14112 "ide/ide_methods.bas"
S_60402:;
#line 14112 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
#line 14112 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14112,"ide_methods.bas");if(r)goto S_60402;}
#line 14112 "ide/ide_methods.bas"
do{
#line 14112 "ide/ide_methods.bas"
*__LONG_IDEHL= 1 ;
#line 14112 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14112,"ide_methods.bas");}while(r);
#line 14112 "ide/ide_methods.bas"
}else{
#line 14112 "ide/ide_methods.bas"
do{
#line 14112 "ide/ide_methods.bas"
*__LONG_IDEHL= 0 ;
#line 14112 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14112,"ide_methods.bas");}while(r);
#line 14112 "ide/ide_methods.bas"
}
#line 14114 "ide/ide_methods.bas"
do{
#line 14114 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,qbs_new_txt_len("",0));
#line 14114 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14114 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14114,"ide_methods.bas");}while(r);
#line 14115 "ide/ide_methods.bas"
S_60408:;
#line 14115 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
#line 14115 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14115,"ide_methods.bas");if(r)goto S_60408;}
#line 14116 "ide/ide_methods.bas"
S_60409:;
#line 14116 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||is_error_pending()){
#line 14116 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14116,"ide_methods.bas");if(r)goto S_60409;}
#line 14117 "ide/ide_methods.bas"
do{
#line 14117 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_K=qbs_asc(qbs_ucase(__STRING_K));
#line 14117 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14117 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14117,"ide_methods.bas");}while(r);
#line 14118 "ide/ide_methods.bas"
S_60411:;
#line 14118 "ide/ide_methods.bas"
if (((-(*_FUNC_IDESUBS_LONG_K>= 65 ))&(-(*_FUNC_IDESUBS_LONG_K<= 90 )))||is_error_pending()){
#line 14118 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14118,"ide_methods.bas");if(r)goto S_60411;}
#line 14118 "ide/ide_methods.bas"
do{
#line 14118 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,func_chr(*_FUNC_IDESUBS_LONG_K));
#line 14118 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14118 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14118,"ide_methods.bas");}while(r);
#line 14118 "ide/ide_methods.bas"
}
#line 14119 "ide/ide_methods.bas"
}
#line 14120 "ide/ide_methods.bas"
}
#line 14121 "ide/ide_methods.bas"
do{
#line 14121 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
#line 14121 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14121,"ide_methods.bas");}while(r);
#line 14121 "ide/ide_methods.bas"
do{
#line 14121 "ide/ide_methods.bas"
qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4);
#line 14121 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14121,"ide_methods.bas");}while(r);
#line 14121 "ide/ide_methods.bas"
do{
#line 14121 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
#line 14121 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14121,"ide_methods.bas");}while(r);
#line 14125 "ide/ide_methods.bas"
do{
#line 14125 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_INFO= 0 ;
#line 14125 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14125,"ide_methods.bas");}while(r);
#line 14126 "ide/ide_methods.bas"
S_60420:;
#line 14126 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||is_error_pending()){
#line 14126 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14126,"ide_methods.bas");if(r)goto S_60420;}
#line 14126 "ide/ide_methods.bas"
do{
#line 14126 "ide/ide_methods.bas"
qbs_set(__STRING_K,func_chr( 255 ));
#line 14126 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14126 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14126,"ide_methods.bas");}while(r);
#line 14126 "ide/ide_methods.bas"
}
#line 14127 "ide/ide_methods.bas"
S_60423:;
#line 14127 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||is_error_pending()){
#line 14127 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14127,"ide_methods.bas");if(r)goto S_60423;}
#line 14127 "ide/ide_methods.bas"
do{
#line 14127 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS+ 1 ;
#line 14127 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14127,"ide_methods.bas");}while(r);
#line 14127 "ide/ide_methods.bas"
}
#line 14128 "ide/ide_methods.bas"
S_60426:;
#line 14128 "ide/ide_methods.bas"
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()){
#line 14128 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14128,"ide_methods.bas");if(r)goto S_60426;}
#line 14128 "ide/ide_methods.bas"
do{
#line 14128 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS- 1 ;
#line 14128 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14128,"ide_methods.bas");}while(r);
#line 14128 "ide/ide_methods.bas"
do{
#line 14128 "ide/ide_methods.bas"
qbs_set(__STRING_K,qbs_new_txt_len("",0));
#line 14128 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14128 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14128,"ide_methods.bas");}while(r);
#line 14128 "ide/ide_methods.bas"
}
#line 14129 "ide/ide_methods.bas"
S_60430:;
#line 14129 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_FOCUS< 1 ))||is_error_pending()){
#line 14129 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14129,"ide_methods.bas");if(r)goto S_60430;}
#line 14129 "ide/ide_methods.bas"
do{
#line 14129 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_LASTFOCUS;
#line 14129 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14129,"ide_methods.bas");}while(r);
#line 14129 "ide/ide_methods.bas"
}
#line 14130 "ide/ide_methods.bas"
S_60433:;
#line 14130 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_FOCUS>*_FUNC_IDESUBS_LONG_LASTFOCUS))||is_error_pending()){
#line 14130 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14130,"ide_methods.bas");if(r)goto S_60433;}
#line 14130 "ide/ide_methods.bas"
do{
#line 14130 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
#line 14130 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14130,"ide_methods.bas");}while(r);
#line 14130 "ide/ide_methods.bas"
}
#line 14131 "ide/ide_methods.bas"
do{
#line 14131 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_F= 1 ;
#line 14131 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14131,"ide_methods.bas");}while(r);
#line 14132 "ide/ide_methods.bas"
S_60437:;
#line 14132 "ide/ide_methods.bas"
fornext_value6313= 1 ;
#line 14132 "ide/ide_methods.bas"
fornext_finalvalue6313= 100 ;
#line 14132 "ide/ide_methods.bas"
fornext_step6313= 1 ;
#line 14132 "ide/ide_methods.bas"
if (fornext_step6313<0) fornext_step_negative6313=1; else fornext_step_negative6313=0;
#line 14132 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6313;
#line 14132 "ide/ide_methods.bas"
goto fornext_entrylabel6313;
#line 14132 "ide/ide_methods.bas"
while(1){
#line 14132 "ide/ide_methods.bas"
fornext_value6313=fornext_step6313+(*_FUNC_IDESUBS_LONG_I);
#line 14132 "ide/ide_methods.bas"
fornext_entrylabel6313:
#line 14132 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_I=fornext_value6313;
#line 14132 "ide/ide_methods.bas"
if (fornext_step_negative6313){
#line 14132 "ide/ide_methods.bas"
if (fornext_value6313<fornext_finalvalue6313) break;
#line 14132 "ide/ide_methods.bas"
}else{
#line 14132 "ide/ide_methods.bas"
if (fornext_value6313>fornext_finalvalue6313) break;
#line 14132 "ide/ide_methods.bas"
}
#line 14132 "ide/ide_methods.bas"
fornext_error6313:;
#line 14132 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14132,"ide_methods.bas");if(r)goto S_60437;}
#line 14133 "ide/ide_methods.bas"
do{
#line 14133 "ide/ide_methods.bas"
*_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)));
#line 14133 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14133,"ide_methods.bas");}while(r);
#line 14134 "ide/ide_methods.bas"
S_60439:;
#line 14134 "ide/ide_methods.bas"
if ((*_FUNC_IDESUBS_LONG_T)||is_error_pending()){
#line 14134 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14134,"ide_methods.bas");if(r)goto S_60439;}
#line 14135 "ide/ide_methods.bas"
do{
#line 14135 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUSOFFSET=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F;
#line 14135 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14135,"ide_methods.bas");}while(r);
#line 14136 "ide/ide_methods.bas"
do{
#line 14136 "ide/ide_methods.bas"
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);
#line 14136 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14136 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14136,"ide_methods.bas");}while(r);
#line 14137 "ide/ide_methods.bas"
}
#line 14138 "ide/ide_methods.bas"
fornext_continue_6312:;
#line 14138 "ide/ide_methods.bas"
}
#line 14138 "ide/ide_methods.bas"
fornext_exit_6312:;
#line 14141 "ide/ide_methods.bas"
S_60444:;
#line 14141 "ide/ide_methods.bas"
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()){
#line 14141 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14141,"ide_methods.bas");if(r)goto S_60444;}
#line 14142 "ide/ide_methods.bas"
do{
#line 14142 "ide/ide_methods.bas"
qbs_set(_FUNC_IDESUBS_STRING_IDESUBS,qbs_new_txt_len("C",1));
#line 14142 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14142 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14142,"ide_methods.bas");}while(r);
#line 14143 "ide/ide_methods.bas"
do{
#line 14143 "ide/ide_methods.bas"
return_point[next_return_point++]=179;
#line 14143 "ide/ide_methods.bas"
if (next_return_point>=return_points) more_return_points();
#line 14143 "ide/ide_methods.bas"
goto LABEL_SAVESORTSETTINGS;
#line 14143 "ide/ide_methods.bas"
RETURN_179:;
#line 14143 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14143,"ide_methods.bas");}while(r);
#line 14144 "ide/ide_methods.bas"
do{
#line 14144 "ide/ide_methods.bas"
SUB_CLEARMOUSE();
#line 14144 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14144,"ide_methods.bas");}while(r);
#line 14145 "ide/ide_methods.bas"
do{
#line 14145 "ide/ide_methods.bas"
goto exit_subfunc;
#line 14145 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14145,"ide_methods.bas");}while(r);
#line 14146 "ide/ide_methods.bas"
}
#line 14148 "ide/ide_methods.bas"
S_60450:;
#line 14148 "ide/ide_methods.bas"
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()){
#line 14148 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14148,"ide_methods.bas");if(r)goto S_60450;}
#line 14149 "ide/ide_methods.bas"
do{
#line 14149 "ide/ide_methods.bas"
*_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)));
#line 14149 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14149,"ide_methods.bas");}while(r);
#line 14150 "ide/ide_methods.bas"
S_60452:;
#line 14150 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_Y< 1 ))||is_error_pending()){
#line 14150 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14150,"ide_methods.bas");if(r)goto S_60452;}
#line 14150 "ide/ide_methods.bas"
do{
#line 14150 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_Y=-(*_FUNC_IDESUBS_LONG_Y);
#line 14150 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14150,"ide_methods.bas");}while(r);
#line 14150 "ide/ide_methods.bas"
}
#line 14151 "ide/ide_methods.bas"
do{
#line 14151 "ide/ide_methods.bas"
SUB_ADDQUICKNAVHISTORY();
#line 14151 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14151,"ide_methods.bas");}while(r);
#line 14152 "ide/ide_methods.bas"
S_60456:;
#line 14152 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
#line 14152 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14152,"ide_methods.bas");if(r)goto S_60456;}
#line 14153 "ide/ide_methods.bas"
do{
#line 14153 "ide/ide_methods.bas"
*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1));
#line 14153 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14153 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14153,"ide_methods.bas");}while(r);
#line 14154 "ide/ide_methods.bas"
}else{
#line 14155 "ide/ide_methods.bas"
do{
#line 14155 "ide/ide_methods.bas"
*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1));
#line 14155 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14155 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14155,"ide_methods.bas");}while(r);
#line 14156 "ide/ide_methods.bas"
}
#line 14157 "ide/ide_methods.bas"
do{
#line 14157 "ide/ide_methods.bas"
*__LONG_IDESY=*__LONG_IDECY;
#line 14157 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14157,"ide_methods.bas");}while(r);
#line 14158 "ide/ide_methods.bas"
do{
#line 14158 "ide/ide_methods.bas"
*__LONG_IDECX= 1 ;
#line 14158 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14158,"ide_methods.bas");}while(r);
#line 14159 "ide/ide_methods.bas"
do{
#line 14159 "ide/ide_methods.bas"
*__LONG_IDESX= 1 ;
#line 14159 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14159,"ide_methods.bas");}while(r);
#line 14161 "ide/ide_methods.bas"
do{
#line 14161 "ide/ide_methods.bas"
return_point[next_return_point++]=180;
#line 14161 "ide/ide_methods.bas"
if (next_return_point>=return_points) more_return_points();
#line 14161 "ide/ide_methods.bas"
goto LABEL_SAVESORTSETTINGS;
#line 14161 "ide/ide_methods.bas"
RETURN_180:;
#line 14161 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14161,"ide_methods.bas");}while(r);
#line 14162 "ide/ide_methods.bas"
do{
#line 14162 "ide/ide_methods.bas"
SUB_CLEARMOUSE();
#line 14162 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14162,"ide_methods.bas");}while(r);
#line 14163 "ide/ide_methods.bas"
do{
#line 14163 "ide/ide_methods.bas"
goto exit_subfunc;
#line 14163 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14163,"ide_methods.bas");}while(r);
#line 14164 "ide/ide_methods.bas"
}
#line 14166 "ide/ide_methods.bas"
S_60468:;
#line 14166 "ide/ide_methods.bas"
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()){
#line 14166 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14166,"ide_methods.bas");if(r)goto S_60468;}
#line 14167 "ide/ide_methods.bas"
do{
#line 14167 "ide/ide_methods.bas"
*__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)));
#line 14167 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14167,"ide_methods.bas");}while(r);
#line 14168 "ide/ide_methods.bas"
S_60470:;
#line 14168 "ide/ide_methods.bas"
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
#line 14168 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14168,"ide_methods.bas");if(r)goto S_60470;}
#line 14169 "ide/ide_methods.bas"
S_60471:;
#line 14169 "ide/ide_methods.bas"
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()){
#line 14169 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14169,"ide_methods.bas");if(r)goto S_60471;}
#line 14170 "ide/ide_methods.bas"
do{
#line 14170 "ide/ide_methods.bas"
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]);
#line 14170 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_LSORTEDSIZED);
#line 14170 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14170 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14170,"ide_methods.bas");}while(r);
#line 14171 "ide/ide_methods.bas"
}else{
#line 14172 "ide/ide_methods.bas"
do{
#line 14172 "ide/ide_methods.bas"
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]);
#line 14172 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_LSIZED);
#line 14172 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14172 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14172,"ide_methods.bas");}while(r);
#line 14173 "ide/ide_methods.bas"
}
#line 14174 "ide/ide_methods.bas"
}else{
#line 14175 "ide/ide_methods.bas"
S_60477:;
#line 14175 "ide/ide_methods.bas"
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()){
#line 14175 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14175,"ide_methods.bas");if(r)goto S_60477;}
#line 14176 "ide/ide_methods.bas"
do{
#line 14176 "ide/ide_methods.bas"
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]);
#line 14176 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_LSORTED);
#line 14176 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14176 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14176,"ide_methods.bas");}while(r);
#line 14177 "ide/ide_methods.bas"
}else{
#line 14178 "ide/ide_methods.bas"
do{
#line 14178 "ide/ide_methods.bas"
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]);
#line 14178 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_L);
#line 14178 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14178 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14178,"ide_methods.bas");}while(r);
#line 14179 "ide/ide_methods.bas"
}
#line 14180 "ide/ide_methods.bas"
}
#line 14181 "ide/ide_methods.bas"
do{
#line 14181 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
#line 14181 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14181,"ide_methods.bas");}while(r);
#line 14182 "ide/ide_methods.bas"
}
#line 14184 "ide/ide_methods.bas"
S_60485:;
#line 14184 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||is_error_pending()){
#line 14184 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14184,"ide_methods.bas");if(r)goto S_60485;}
#line 14185 "ide/ide_methods.bas"
S_60486:;
#line 14185 "ide/ide_methods.bas"
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()){
#line 14185 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14185,"ide_methods.bas");if(r)goto S_60486;}
#line 14186 "ide/ide_methods.bas"
do{
#line 14186 "ide/ide_methods.bas"
*_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)));
#line 14186 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14186,"ide_methods.bas");}while(r);
#line 14188 "ide/ide_methods.bas"
S_60488:;
#line 14188 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
#line 14188 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14188,"ide_methods.bas");if(r)goto S_60488;}
#line 14190 "ide/ide_methods.bas"
do{
#line 14190 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ;
#line 14190 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14190,"ide_methods.bas");}while(r);
#line 14191 "ide/ide_methods.bas"
S_60490:;
#line 14191 "ide/ide_methods.bas"
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()){
#line 14191 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14191,"ide_methods.bas");if(r)goto S_60490;}
#line 14192 "ide/ide_methods.bas"
do{
#line 14192 "ide/ide_methods.bas"
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));
#line 14192 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14192 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14192,"ide_methods.bas");}while(r);
#line 14193 "ide/ide_methods.bas"
S_60492:;
#line 14193 "ide/ide_methods.bas"
fornext_value6315= 1 ;
#line 14193 "ide/ide_methods.bas"
fornext_finalvalue6315=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 14193 "ide/ide_methods.bas"
fornext_step6315= 1 ;
#line 14193 "ide/ide_methods.bas"
if (fornext_step6315<0) fornext_step_negative6315=1; else fornext_step_negative6315=0;
#line 14193 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6315;
#line 14193 "ide/ide_methods.bas"
goto fornext_entrylabel6315;
#line 14193 "ide/ide_methods.bas"
while(1){
#line 14193 "ide/ide_methods.bas"
fornext_value6315=fornext_step6315+(*_FUNC_IDESUBS_LONG_X);
#line 14193 "ide/ide_methods.bas"
fornext_entrylabel6315:
#line 14193 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=fornext_value6315;
#line 14193 "ide/ide_methods.bas"
if (fornext_step_negative6315){
#line 14193 "ide/ide_methods.bas"
if (fornext_value6315<fornext_finalvalue6315) break;
#line 14193 "ide/ide_methods.bas"
}else{
#line 14193 "ide/ide_methods.bas"
if (fornext_value6315>fornext_finalvalue6315) break;
#line 14193 "ide/ide_methods.bas"
}
#line 14193 "ide/ide_methods.bas"
fornext_error6315:;
#line 14193 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14193,"ide_methods.bas");if(r)goto S_60492;}
#line 14194 "ide/ide_methods.bas"
S_60493:;
#line 14194 "ide/ide_methods.bas"
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()){
#line 14194 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14194,"ide_methods.bas");if(r)goto S_60493;}
#line 14195 "ide/ide_methods.bas"
do{
#line 14195 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X;
#line 14195 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14195,"ide_methods.bas");}while(r);
#line 14196 "ide/ide_methods.bas"
}
#line 14197 "ide/ide_methods.bas"
fornext_continue_6314:;
#line 14197 "ide/ide_methods.bas"
}
#line 14197 "ide/ide_methods.bas"
fornext_exit_6314:;
#line 14198 "ide/ide_methods.bas"
}
#line 14200 "ide/ide_methods.bas"
S_60498:;
#line 14200 "ide/ide_methods.bas"
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
#line 14200 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14200,"ide_methods.bas");if(r)goto S_60498;}
#line 14201 "ide/ide_methods.bas"
do{
#line 14201 "ide/ide_methods.bas"
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]);
#line 14201 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_LSIZED);
#line 14201 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14201 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14201,"ide_methods.bas");}while(r);
#line 14202 "ide/ide_methods.bas"
}else{
#line 14203 "ide/ide_methods.bas"
do{
#line 14203 "ide/ide_methods.bas"
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]);
#line 14203 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_L);
#line 14203 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14203 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14203,"ide_methods.bas");}while(r);
#line 14204 "ide/ide_methods.bas"
}
#line 14205 "ide/ide_methods.bas"
do{
#line 14205 "ide/ide_methods.bas"
*(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;
#line 14205 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14205,"ide_methods.bas");}while(r);
#line 14206 "ide/ide_methods.bas"
do{
#line 14206 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
#line 14206 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14206,"ide_methods.bas");}while(r);
#line 14207 "ide/ide_methods.bas"
}else{
#line 14209 "ide/ide_methods.bas"
do{
#line 14209 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ;
#line 14209 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14209,"ide_methods.bas");}while(r);
#line 14210 "ide/ide_methods.bas"
S_60507:;
#line 14210 "ide/ide_methods.bas"
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()){
#line 14210 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14210,"ide_methods.bas");if(r)goto S_60507;}
#line 14211 "ide/ide_methods.bas"
do{
#line 14211 "ide/ide_methods.bas"
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));
#line 14211 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14211 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14211,"ide_methods.bas");}while(r);
#line 14212 "ide/ide_methods.bas"
S_60509:;
#line 14212 "ide/ide_methods.bas"
fornext_value6317= 1 ;
#line 14212 "ide/ide_methods.bas"
fornext_finalvalue6317=*_FUNC_IDESUBS_LONG_TOTALSUBS;
#line 14212 "ide/ide_methods.bas"
fornext_step6317= 1 ;
#line 14212 "ide/ide_methods.bas"
if (fornext_step6317<0) fornext_step_negative6317=1; else fornext_step_negative6317=0;
#line 14212 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6317;
#line 14212 "ide/ide_methods.bas"
goto fornext_entrylabel6317;
#line 14212 "ide/ide_methods.bas"
while(1){
#line 14212 "ide/ide_methods.bas"
fornext_value6317=fornext_step6317+(*_FUNC_IDESUBS_LONG_X);
#line 14212 "ide/ide_methods.bas"
fornext_entrylabel6317:
#line 14212 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_X=fornext_value6317;
#line 14212 "ide/ide_methods.bas"
if (fornext_step_negative6317){
#line 14212 "ide/ide_methods.bas"
if (fornext_value6317<fornext_finalvalue6317) break;
#line 14212 "ide/ide_methods.bas"
}else{
#line 14212 "ide/ide_methods.bas"
if (fornext_value6317>fornext_finalvalue6317) break;
#line 14212 "ide/ide_methods.bas"
}
#line 14212 "ide/ide_methods.bas"
fornext_error6317:;
#line 14212 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14212,"ide_methods.bas");if(r)goto S_60509;}
#line 14213 "ide/ide_methods.bas"
S_60510:;
#line 14213 "ide/ide_methods.bas"
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()){
#line 14213 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14213,"ide_methods.bas");if(r)goto S_60510;}
#line 14214 "ide/ide_methods.bas"
do{
#line 14214 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X;
#line 14214 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14214,"ide_methods.bas");}while(r);
#line 14215 "ide/ide_methods.bas"
}
#line 14216 "ide/ide_methods.bas"
fornext_continue_6316:;
#line 14216 "ide/ide_methods.bas"
}
#line 14216 "ide/ide_methods.bas"
fornext_exit_6316:;
#line 14217 "ide/ide_methods.bas"
}
#line 14219 "ide/ide_methods.bas"
S_60515:;
#line 14219 "ide/ide_methods.bas"
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
#line 14219 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14219,"ide_methods.bas");if(r)goto S_60515;}
#line 14220 "ide/ide_methods.bas"
do{
#line 14220 "ide/ide_methods.bas"
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]);
#line 14220 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_LSORTEDSIZED);
#line 14220 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14220 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14220,"ide_methods.bas");}while(r);
#line 14221 "ide/ide_methods.bas"
}else{
#line 14222 "ide/ide_methods.bas"
do{
#line 14222 "ide/ide_methods.bas"
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]);
#line 14222 "ide/ide_methods.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long],_FUNC_IDESUBS_STRING_LSORTED);
#line 14222 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14222 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14222,"ide_methods.bas");}while(r);
#line 14223 "ide/ide_methods.bas"
}
#line 14224 "ide/ide_methods.bas"
do{
#line 14224 "ide/ide_methods.bas"
*(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;
#line 14224 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14224,"ide_methods.bas");}while(r);
#line 14225 "ide/ide_methods.bas"
do{
#line 14225 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
#line 14225 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14225,"ide_methods.bas");}while(r);
#line 14226 "ide/ide_methods.bas"
}
#line 14227 "ide/ide_methods.bas"
}
#line 14228 "ide/ide_methods.bas"
}
#line 14231 "ide/ide_methods.bas"
do{
#line 14231 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MOUSEDOWN= 0 ;
#line 14231 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14231,"ide_methods.bas");}while(r);
#line 14232 "ide/ide_methods.bas"
do{
#line 14232 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MOUSEUP= 0 ;
#line 14232 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14232,"ide_methods.bas");}while(r);
#line 14233 "ide/ide_methods.bas"
dl_continue_6307:;
#line 14233 "ide/ide_methods.bas"
}while(1);
#line 14233 "ide/ide_methods.bas"
dl_exit_6307:;
#line 14235 "ide/ide_methods.bas"
do{
#line 14235 "ide/ide_methods.bas"
goto exit_subfunc;
#line 14235 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14235,"ide_methods.bas");}while(r);
#line 14236 "ide/ide_methods.bas"
LABEL_SAVESORTSETTINGS:;
#line 14236 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14236,"ide_methods.bas");r=0;}
#line 14237 "ide/ide_methods.bas"
do{
#line 14237 "ide/ide_methods.bas"
*__BYTE_IDESORTSUBS=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG;
#line 14237 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14237,"ide_methods.bas");}while(r);
#line 14238 "ide/ide_methods.bas"
S_60530:;
#line 14238 "ide/ide_methods.bas"
if ((*__BYTE_IDESORTSUBS)||is_error_pending()){
#line 14238 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14238,"ide_methods.bas");if(r)goto S_60530;}
#line 14239 "ide/ide_methods.bas"
do{
#line 14239 "ide/ide_methods.bas"
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("True",4));
#line 14239 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14239 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14239,"ide_methods.bas");}while(r);
#line 14240 "ide/ide_methods.bas"
}else{
#line 14241 "ide/ide_methods.bas"
do{
#line 14241 "ide/ide_methods.bas"
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5));
#line 14241 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14241 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14241,"ide_methods.bas");}while(r);
#line 14242 "ide/ide_methods.bas"
}
#line 14244 "ide/ide_methods.bas"
S_60535:;
#line 14244 "ide/ide_methods.bas"
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
#line 14244 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14244,"ide_methods.bas");if(r)goto S_60535;}
#line 14245 "ide/ide_methods.bas"
do{
#line 14245 "ide/ide_methods.bas"
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4));
#line 14245 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14245 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14245,"ide_methods.bas");}while(r);
#line 14246 "ide/ide_methods.bas"
}else{
#line 14247 "ide/ide_methods.bas"
do{
#line 14247 "ide/ide_methods.bas"
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5));
#line 14247 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14247 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14247,"ide_methods.bas");}while(r);
#line 14248 "ide/ide_methods.bas"
}
#line 14249 "ide/ide_methods.bas"
do{
#line 14249 "ide/ide_methods.bas"
#include "ret421.txt"
#line 14249 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14249,"ide_methods.bas");}while(r);
#line 14251 "ide/ide_methods.bas"
LABEL_ADDLINECOUNT:;
#line 14251 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14251,"ide_methods.bas");r=0;}
#line 14252 "ide/ide_methods.bas"
do{
#line 14252 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ;
#line 14252 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14252,"ide_methods.bas");}while(r);
#line 14253 "ide/ide_methods.bas"
do{
#line 14253 "ide/ide_methods.bas"
tmp_long=array_check((*_FUNC_IDESUBS_LONG_LASTOPENSUB)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]);
#line 14253 "ide/ide_methods.bas"
if (!is_error_pending()) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_MODULESIZE;
#line 14253 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14253,"ide_methods.bas");}while(r);
#line 14254 "ide/ide_methods.bas"
S_60543:;
#line 14254 "ide/ide_methods.bas"
if ((-(*_FUNC_IDESUBS_LONG_MODULESIZE>*_FUNC_IDESUBS_LONG_MAXLINECOUNT))||is_error_pending()){
#line 14254 "ide/ide_methods.bas"
if(qbevent){evnt(28819,14254,"ide_methods.bas");if(r)goto S_60543;}
#line 14254 "ide/ide_methods.bas"
do{
#line 14254 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_MAXLINECOUNT=*_FUNC_IDESUBS_LONG_MODULESIZE;
#line 14254 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14254,"ide_methods.bas");}while(r);
#line 14254 "ide/ide_methods.bas"
}
#line 14255 "ide/ide_methods.bas"
do{
#line 14255 "ide/ide_methods.bas"
*_FUNC_IDESUBS_LONG_SUBCLOSED= -1ll ;
#line 14255 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14255,"ide_methods.bas");}while(r);
#line 14256 "ide/ide_methods.bas"
do{
#line 14256 "ide/ide_methods.bas"
#include "ret421.txt"
#line 14256 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,14256,"ide_methods.bas");}while(r);
#line 14257 "ide/ide_methods.bas"
exit_subfunc:;
#line 14257 "ide/ide_methods.bas"
free_mem_lock(sf_mem_lock);
#line 14257 "ide/ide_methods.bas"
#include "free421.txt"
#line 14257 "ide/ide_methods.bas"
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;
#line 14257 "ide/ide_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 14257 "ide/ide_methods.bas"
qbs_maketmp(_FUNC_IDESUBS_STRING_IDESUBS);return _FUNC_IDESUBS_STRING_IDESUBS;
#line 14257 "ide/ide_methods.bas"
}
