qbs* FUNC_GETWORDATCURSOR(){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data438.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20983,"ide_methods.bas");}while(r);
do{
*_FUNC_GETWORDATCURSOR_LONG_X=*__LONG_IDECX;
if(!qbevent)break;evnt(28182,20984,"ide_methods.bas");}while(r);
S_67148:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X<=_FUNC_GETWORDATCURSOR_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(28182,20985,"ide_methods.bas");if(r)goto S_67148;}
S_67149:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X)== 32 ))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 ))))||is_error_pending()){
if(qbevent){evnt(28182,20986,"ide_methods.bas");if(r)goto S_67149;}
S_67150:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(28182,20987,"ide_methods.bas");if(r)goto S_67150;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ;
if(!qbevent)break;evnt(28182,20987,"ide_methods.bas");}while(r);
}
}
LABEL_TRY:;
if(qbevent){evnt(28182,20989,"ide_methods.bas");r=0;}
S_67154:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(28182,20990,"ide_methods.bas");if(r)goto S_67154;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(28182,20991,"ide_methods.bas");}while(r);
S_67156:;
while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||is_error_pending()){
if(qbevent){evnt(28182,20992,"ide_methods.bas");if(r)goto S_67156;}
S_67157:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 )== 36 ))))||is_error_pending()){
if(qbevent){evnt(28182,20993,"ide_methods.bas");if(r)goto S_67157;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ;
if(!qbevent)break;evnt(28182,20993,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7710;
if(!qbevent)break;evnt(28182,20993,"ide_methods.bas");}while(r);
}
dl_continue_7710:;
}
dl_exit_7710:;
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(28182,20995,"ide_methods.bas");}while(r);
S_67164:;
while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(28182,20996,"ide_methods.bas");if(r)goto S_67164;}
S_67165:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 )== 36 ))))||is_error_pending()){
if(qbevent){evnt(28182,20997,"ide_methods.bas");if(r)goto S_67165;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ;
if(!qbevent)break;evnt(28182,20997,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7712;
if(!qbevent)break;evnt(28182,20997,"ide_methods.bas");}while(r);
}
dl_continue_7712:;
}
dl_exit_7712:;
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20999,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21001,"ide_methods.bas");}while(r);
S_67174:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr( 32 ))))||is_error_pending()){
if(qbevent){evnt(28182,21002,"ide_methods.bas");if(r)goto S_67174;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21002,"ide_methods.bas");}while(r);
}
S_67177:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("~",1))))||is_error_pending()){
if(qbevent){evnt(28182,21003,"ide_methods.bas");if(r)goto S_67177;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("~",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21003,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21003,"ide_methods.bas");}while(r);
}
S_67181:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(28182,21004,"ide_methods.bas");if(r)goto S_67181;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("`",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21004,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21004,"ide_methods.bas");}while(r);
}
S_67185:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("%",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X+ 1 ,NULL,0),qbs_new_txt_len("&",1)))))||is_error_pending()){
if(qbevent){evnt(28182,21005,"ide_methods.bas");if(r)goto S_67185;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21005,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21005,"ide_methods.bas");}while(r);
}
S_67189:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("&",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 ,NULL,0),qbs_new_txt_len("%",1)))))||is_error_pending()){
if(qbevent){evnt(28182,21006,"ide_methods.bas");if(r)goto S_67189;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21006,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21006,"ide_methods.bas");}while(r);
}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(28182,21007,"ide_methods.bas");}while(r);
S_67194:;
while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||is_error_pending()){
if(qbevent){evnt(28182,21008,"ide_methods.bas");if(r)goto S_67194;}
S_67195:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||is_error_pending()){
if(qbevent){evnt(28182,21009,"ide_methods.bas");if(r)goto S_67195;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ;
if(!qbevent)break;evnt(28182,21009,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7713;
if(!qbevent)break;evnt(28182,21009,"ide_methods.bas");}while(r);
}
dl_continue_7713:;
}
dl_exit_7713:;
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(28182,21011,"ide_methods.bas");}while(r);
S_67202:;
while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(28182,21012,"ide_methods.bas");if(r)goto S_67202;}
S_67203:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||is_error_pending()){
if(qbevent){evnt(28182,21013,"ide_methods.bas");if(r)goto S_67203;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ;
if(!qbevent)break;evnt(28182,21013,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7715;
if(!qbevent)break;evnt(28182,21013,"ide_methods.bas");}while(r);
}
dl_continue_7715:;
}
dl_exit_7715:;
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21015,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,_FUNC_GETWORDATCURSOR_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21017,"ide_methods.bas");}while(r);
S_67212:;
}else{
if (qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETWORDATCURSOR_LONG_X==(_FUNC_GETWORDATCURSOR_STRING_A->len+ 1 )))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 )))){
if(qbevent){evnt(28182,21018,"ide_methods.bas");if(r)goto S_67212;}
S_67213:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(28182,21019,"ide_methods.bas");if(r)goto S_67213;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ;
if(!qbevent)break;evnt(28182,21019,"ide_methods.bas");}while(r);
do{
goto LABEL_TRY;
if(!qbevent)break;evnt(28182,21019,"ide_methods.bas");}while(r);
}
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free438.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
qbs_maketmp(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR);return _FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR;
}
