diff --git a/internal/source/data363.txt b/internal/source/data363.txt index f046d4e97..65fe7bbda 100644 --- a/internal/source/data363.txt +++ b/internal/source/data363.txt @@ -357,20 +357,20 @@ if(_SUB_EXPORTCODEAS_LONG_UNI==NULL){ _SUB_EXPORTCODEAS_LONG_UNI=(int32*)mem_static_malloc(4); *_SUB_EXPORTCODEAS_LONG_UNI=0; } -byte_element_struct *byte_element_7112=NULL; -if (!byte_element_7112){ -if ((mem_static_pointer+=12)tmp||_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->fixed||_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->readonly){ -oldstr7118=_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT; -if (oldstr7118->cmem_descriptor){ -_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT=qbs_new_cmem(oldstr7118->len,0); +oldstr7119=_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT; +if (oldstr7119->cmem_descriptor){ +_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT=qbs_new_cmem(oldstr7119->len,0); }else{ -_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT=qbs_new(oldstr7118->len,0); +_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT=qbs_new(oldstr7119->len,0); } -memcpy(_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->chr,oldstr7118->chr,oldstr7118->len); +memcpy(_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->chr,oldstr7119->chr,oldstr7119->len); } qbs *_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF=NULL; if (!_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF)_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF=qbs_new(0,0); @@ -17,13 +17,13 @@ if(_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI==NULL){ _FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI=(int32*)mem_static_malloc(4); *_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI=0; } -int64 fornext_value7120; -int64 fornext_finalvalue7120; -int64 fornext_step7120; -uint8 fornext_step_negative7120; -byte_element_struct *byte_element_7121=NULL; -if (!byte_element_7121){ -if ((mem_static_pointer+=12)tmp||_FUNC__ENCODEURL_STRING__URL->fixed||_FUNC__ENCODEURL_STRING__URL->readonly){ -oldstr7122=_FUNC__ENCODEURL_STRING__URL; -if (oldstr7122->cmem_descriptor){ -_FUNC__ENCODEURL_STRING__URL=qbs_new_cmem(oldstr7122->len,0); +oldstr7123=_FUNC__ENCODEURL_STRING__URL; +if (oldstr7123->cmem_descriptor){ +_FUNC__ENCODEURL_STRING__URL=qbs_new_cmem(oldstr7123->len,0); }else{ -_FUNC__ENCODEURL_STRING__URL=qbs_new(oldstr7122->len,0); +_FUNC__ENCODEURL_STRING__URL=qbs_new(oldstr7123->len,0); } -memcpy(_FUNC__ENCODEURL_STRING__URL->chr,oldstr7122->chr,oldstr7122->len); +memcpy(_FUNC__ENCODEURL_STRING__URL->chr,oldstr7123->chr,oldstr7123->len); } qbs *_FUNC__ENCODEURL_STRING__TMP=NULL; if (!_FUNC__ENCODEURL_STRING__TMP)_FUNC__ENCODEURL_STRING__TMP=qbs_new(0,0); @@ -37,11 +37,11 @@ if(_FUNC__ENCODEURL_INTEGER__VALID==NULL){ _FUNC__ENCODEURL_INTEGER__VALID=(int16*)mem_static_malloc(2); *_FUNC__ENCODEURL_INTEGER__VALID=0; } -int32 fornext_value7124; -int32 fornext_finalvalue7124; -int32 fornext_step7124; -uint8 fornext_step_negative7124; -byte_element_struct *byte_element_7125=NULL; -if (!byte_element_7125){ -if ((mem_static_pointer+=12)tmp||_FUNC__DECODEURL_STRING__URL->fixed||_FUNC__DECODEURL_STRING__URL->readonly){ -oldstr7127=_FUNC__DECODEURL_STRING__URL; -if (oldstr7127->cmem_descriptor){ -_FUNC__DECODEURL_STRING__URL=qbs_new_cmem(oldstr7127->len,0); +oldstr7128=_FUNC__DECODEURL_STRING__URL; +if (oldstr7128->cmem_descriptor){ +_FUNC__DECODEURL_STRING__URL=qbs_new_cmem(oldstr7128->len,0); }else{ -_FUNC__DECODEURL_STRING__URL=qbs_new(oldstr7127->len,0); +_FUNC__DECODEURL_STRING__URL=qbs_new(oldstr7128->len,0); } -memcpy(_FUNC__DECODEURL_STRING__URL->chr,oldstr7127->chr,oldstr7127->len); +memcpy(_FUNC__DECODEURL_STRING__URL->chr,oldstr7128->chr,oldstr7128->len); } qbs *_FUNC__DECODEURL_STRING__TMP=NULL; if (!_FUNC__DECODEURL_STRING__TMP)_FUNC__DECODEURL_STRING__TMP=qbs_new(0,0); @@ -22,11 +22,11 @@ if(_FUNC__DECODEURL_INTEGER__A==NULL){ _FUNC__DECODEURL_INTEGER__A=(int16*)mem_static_malloc(2); *_FUNC__DECODEURL_INTEGER__A=0; } -int32 fornext_value7129; -int32 fornext_finalvalue7129; -int32 fornext_step7129; -uint8 fornext_step_negative7129; -byte_element_struct *byte_element_7130=NULL; -if (!byte_element_7130){ -if ((mem_static_pointer+=12)fixed)qbs_set(oldstr7118,_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT); +if(oldstr7119){ +if(oldstr7119->fixed)qbs_set(oldstr7119,_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT); qbs_free(_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT); } qbs_free(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF); diff --git a/internal/source/free369.txt b/internal/source/free369.txt index b8b6ceacb..2784eb7b2 100644 --- a/internal/source/free369.txt +++ b/internal/source/free369.txt @@ -1,5 +1,5 @@ -if(oldstr7122){ -if(oldstr7122->fixed)qbs_set(oldstr7122,_FUNC__ENCODEURL_STRING__URL); +if(oldstr7123){ +if(oldstr7123->fixed)qbs_set(oldstr7123,_FUNC__ENCODEURL_STRING__URL); qbs_free(_FUNC__ENCODEURL_STRING__URL); } qbs_free(_FUNC__ENCODEURL_STRING__TMP); diff --git a/internal/source/free370.txt b/internal/source/free370.txt index af251a334..2f113e8ad 100644 --- a/internal/source/free370.txt +++ b/internal/source/free370.txt @@ -1,5 +1,5 @@ -if(oldstr7127){ -if(oldstr7127->fixed)qbs_set(oldstr7127,_FUNC__DECODEURL_STRING__URL); +if(oldstr7128){ +if(oldstr7128->fixed)qbs_set(oldstr7128,_FUNC__DECODEURL_STRING__URL); qbs_free(_FUNC__DECODEURL_STRING__URL); } qbs_free(_FUNC__DECODEURL_STRING__TMP); diff --git a/internal/source/main.txt b/internal/source/main.txt index bc18d6f10..573a01deb 100644 --- a/internal/source/main.txt +++ b/internal/source/main.txt @@ -212328,7 +212328,7 @@ sc_ec_551_end:; goto sc_7108_end; } S_62364:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7108,qbs_new_txt_len("foru",4))||qbs_equal(sc_7108,qbs_new_txt_len("wiki",4))))||is_error_pending()){ +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7108,qbs_new_txt_len("foru",4))))||is_error_pending()){ if(qbevent){evnt(23775,543,"ide_export.bas");if(r)goto S_62364;} S_62365:; if(qbevent){evnt(23775,544,"ide_export.bas");if(r)goto S_62365;} @@ -212352,111 +212352,175 @@ sc_7111_end:; sc_ec_553_end:; goto sc_7108_end; } +S_62372:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7108,qbs_new_txt_len("wiki",4))))||is_error_pending()){ +if(qbevent){evnt(23775,548,"ide_export.bas");if(r)goto S_62372;} +S_62373:; +if(qbevent){evnt(23775,549,"ide_export.bas");if(r)goto S_62373;} +S_62374:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){ +if(qbevent){evnt(23775,550,"ide_export.bas");if(r)goto S_62374;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23775,550,"ide_export.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(23775,550,"ide_export.bas");}while(r); +sc_ec_554_end:; +goto sc_7112_end; +} +S_62377:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||is_error_pending()){ +if(qbevent){evnt(23775,551,"ide_export.bas");if(r)goto S_62377;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("<",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23775,551,"ide_export.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(23775,551,"ide_export.bas");}while(r); +sc_ec_555_end:; +goto sc_7112_end; +} +S_62380:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||is_error_pending()){ +if(qbevent){evnt(23775,552,"ide_export.bas");if(r)goto S_62380;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len(">",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23775,552,"ide_export.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(23775,552,"ide_export.bas");}while(r); +sc_ec_556_end:; +goto sc_7112_end; +} +S_62383:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){ +if(qbevent){evnt(23775,553,"ide_export.bas");if(r)goto S_62383;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("&#",2),qbs_ltrim(qbs_str((int16)(*_SUB_EXPORTCODEAS_INTEGER_CURR)))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23775,553,"ide_export.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(23775,553,"ide_export.bas");}while(r); +sc_ec_557_end:; +goto sc_7112_end; +} do{ #include "ret363.txt" -if(!qbevent)break;evnt(23775,548,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,554,"ide_export.bas");}while(r); +sc_7112_end:; +sc_ec_558_end:; +goto sc_7108_end; +} +do{ +#include "ret363.txt" +if(!qbevent)break;evnt(23775,556,"ide_export.bas");}while(r); sc_7108_end:; do{ sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_ECH->len,_SUB_EXPORTCODEAS_STRING_ECH,1); -if(!qbevent)break;evnt(23775,550,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,558,"ide_export.bas");}while(r); do{ *_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_ECH->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,550,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,558,"ide_export.bas");}while(r); do{ #include "ret363.txt" -if(!qbevent)break;evnt(23775,551,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,559,"ide_export.bas");}while(r); LABEL_ENDLINEOPS:; -if(qbevent){evnt(23775,553,"ide_export.bas");r=0;} -S_62378:; -qbs_set(sc_7114,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +if(qbevent){evnt(23775,561,"ide_export.bas");r=0;} +S_62395:; +qbs_set(sc_7115,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(23775,554,"ide_export.bas");if(r)goto S_62378;} -S_62379:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7114,qbs_new_txt_len("rich",4))))||is_error_pending()){ -if(qbevent){evnt(23775,555,"ide_export.bas");if(r)goto S_62379;} +if(qbevent){evnt(23775,562,"ide_export.bas");if(r)goto S_62395;} +S_62396:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7115,qbs_new_txt_len("rich",4))))||is_error_pending()){ +if(qbevent){evnt(23775,563,"ide_export.bas");if(r)goto S_62396;} do{ qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\par",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,555,"ide_export.bas");}while(r); -sc_ec_554_end:; -goto sc_7114_end; +if(!qbevent)break;evnt(23775,563,"ide_export.bas");}while(r); +sc_ec_559_end:; +goto sc_7115_end; } do{ #include "ret363.txt" -if(!qbevent)break;evnt(23775,556,"ide_export.bas");}while(r); -sc_7114_end:; +if(!qbevent)break;evnt(23775,564,"ide_export.bas");}while(r); +sc_7115_end:; do{ sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); -if(!qbevent)break;evnt(23775,558,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,566,"ide_export.bas");}while(r); do{ *_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,558,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,566,"ide_export.bas");}while(r); do{ #include "ret363.txt" -if(!qbevent)break;evnt(23775,559,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,567,"ide_export.bas");}while(r); LABEL_GETTHEMECOLORS:; -if(qbevent){evnt(23775,561,"ide_export.bas");r=0;} +if(qbevent){evnt(23775,569,"ide_export.bas");r=0;} do{ qbs_set(_SUB_EXPORTCODEAS_STRING_TXC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDETEXTCOLOR,8), 6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,562,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,570,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("\\red",4),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,563,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,571,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_COC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDECOMMENTCOLOR,8), 6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,564,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,572,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,565,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,573,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_MEC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEMETACOMMANDCOLOR,8), 6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,566,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,574,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,567,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,575,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_KWC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEKEYWORDCOLOR,8), 6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,568,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,576,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,569,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,577,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_NUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDENUMBERSCOLOR,8), 6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,570,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,578,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,571,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,579,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_QUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEQUOTECOLOR,8), 6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,572,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,580,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,573,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,581,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_BGC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEBACKGROUNDCOLOR,8), 6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,574,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,582,"ide_export.bas");}while(r); do{ qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,575,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,583,"ide_export.bas");}while(r); do{ #include "ret363.txt" -if(!qbevent)break;evnt(23775,576,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,584,"ide_export.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free363.txt" @@ -212476,65 +212540,65 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (is_error_pending()) goto exit_subfunc; -S_62402:; +S_62419:; if ((-(*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE< 128 ))||is_error_pending()){ -if(qbevent){evnt(23775,581,"ide_export.bas");if(r)goto S_62402;} +if(qbevent){evnt(23775,589,"ide_export.bas");if(r)goto S_62419;} do{ qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR,func_chr(*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,583,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,591,"ide_export.bas");}while(r); }else{ do{ qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UTF,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,586,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,594,"ide_export.bas");}while(r); do{ *_FUNC_UNICODETOUTF8CHAR_LONG_UC=*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE; -if(!qbevent)break;evnt(23775,586,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,594,"ide_export.bas");}while(r); do{ *_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST= 128 ; -if(!qbevent)break;evnt(23775,587,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,595,"ide_export.bas");}while(r); do{ *_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN= 63 ; -if(!qbevent)break;evnt(23775,587,"ide_export.bas");}while(r); -S_62409:; +if(!qbevent)break;evnt(23775,595,"ide_export.bas");}while(r); +S_62426:; do{ -if(qbevent){evnt(23775,588,"ide_export.bas");if(r)goto S_62409;} +if(qbevent){evnt(23775,596,"ide_export.bas");if(r)goto S_62426;} do{ *_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST= 128 |(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST/ 2 ); -if(!qbevent)break;evnt(23775,589,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,597,"ide_export.bas");}while(r); do{ *_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN=(*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN/ 2 ); -if(!qbevent)break;evnt(23775,589,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,597,"ide_export.bas");}while(r); do{ *_FUNC_UNICODETOUTF8CHAR_INTEGER_CONTI= 128 |(*_FUNC_UNICODETOUTF8CHAR_LONG_UC& 63 ); -if(!qbevent)break;evnt(23775,590,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,598,"ide_export.bas");}while(r); do{ *_FUNC_UNICODETOUTF8CHAR_LONG_UC=*_FUNC_UNICODETOUTF8CHAR_LONG_UC/ 64 ; -if(!qbevent)break;evnt(23775,590,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,598,"ide_export.bas");}while(r); do{ qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UTF,qbs_add(func_chr(*_FUNC_UNICODETOUTF8CHAR_INTEGER_CONTI),_FUNC_UNICODETOUTF8CHAR_STRING_UTF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,591,"ide_export.bas");}while(r); -S_62415:; +if(!qbevent)break;evnt(23775,599,"ide_export.bas");}while(r); +S_62432:; if ((-(*_FUNC_UNICODETOUTF8CHAR_LONG_UC<=*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN))||is_error_pending()){ -if(qbevent){evnt(23775,592,"ide_export.bas");if(r)goto S_62415;} +if(qbevent){evnt(23775,600,"ide_export.bas");if(r)goto S_62432;} do{ *_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST=(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST|*_FUNC_UNICODETOUTF8CHAR_LONG_UC); -if(!qbevent)break;evnt(23775,593,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,601,"ide_export.bas");}while(r); do{ *_FUNC_UNICODETOUTF8CHAR_LONG_UC= 0 ; -if(!qbevent)break;evnt(23775,593,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,601,"ide_export.bas");}while(r); } -S_62419:; -dl_continue_7117:; +S_62436:; +dl_continue_7118:; }while((!(-(*_FUNC_UNICODETOUTF8CHAR_LONG_UC== 0 )))&&(!is_error_pending())); -dl_exit_7117:; -if(qbevent){evnt(23775,595,"ide_export.bas");if(r)goto S_62419;} +dl_exit_7118:; +if(qbevent){evnt(23775,603,"ide_export.bas");if(r)goto S_62436;} do{ qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR,qbs_add(func_chr(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST),_FUNC_UNICODETOUTF8CHAR_STRING_UTF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,596,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,604,"ide_export.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -212559,60 +212623,60 @@ if (is_error_pending()) goto exit_subfunc; do{ qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,601,"ide_export.bas");}while(r); -S_62423:; -fornext_value7120= 1 ; -fornext_finalvalue7120=_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->len; -fornext_step7120= 1 ; -if (fornext_step7120<0) fornext_step_negative7120=1; else fornext_step_negative7120=0; -if (is_error_pending()) goto fornext_error7120; -goto fornext_entrylabel7120; +if(!qbevent)break;evnt(23775,609,"ide_export.bas");}while(r); +S_62440:; +fornext_value7121= 1 ; +fornext_finalvalue7121=_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->len; +fornext_step7121= 1 ; +if (fornext_step7121<0) fornext_step_negative7121=1; else fornext_step_negative7121=0; +if (is_error_pending()) goto fornext_error7121; +goto fornext_entrylabel7121; while(1){ -fornext_value7120=fornext_step7120+(*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI); -fornext_entrylabel7120: -*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI=fornext_value7120; +fornext_value7121=fornext_step7121+(*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI); +fornext_entrylabel7121: +*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI=fornext_value7121; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative7120){ -if (fornext_value7120fornext_finalvalue7120) break; +if (fornext_value7121>fornext_finalvalue7121) break; } -fornext_error7120:; -if(qbevent){evnt(23775,602,"ide_export.bas");if(r)goto S_62423;} +fornext_error7121:; +if(qbevent){evnt(23775,610,"ide_export.bas");if(r)goto S_62440;} do{ *_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII=qbs_asc(_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT,*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,604,"ide_export.bas");}while(r); -S_62425:; +if(!qbevent)break;evnt(23775,612,"ide_export.bas");}while(r); +S_62442:; if ((-(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII> 127 ))||is_error_pending()){ -if(qbevent){evnt(23775,605,"ide_export.bas");if(r)goto S_62425;} +if(qbevent){evnt(23775,613,"ide_export.bas");if(r)goto S_62442;} do{ *_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE=func__mapunicode(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII); -if(!qbevent)break;evnt(23775,607,"ide_export.bas");}while(r); -S_62427:; +if(!qbevent)break;evnt(23775,615,"ide_export.bas");}while(r); +S_62444:; if ((-(*_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE== 0 ))||is_error_pending()){ -if(qbevent){evnt(23775,609,"ide_export.bas");if(r)goto S_62427;} +if(qbevent){evnt(23775,617,"ide_export.bas");if(r)goto S_62444;} do{ *_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE= 65533 ; -if(!qbevent)break;evnt(23775,609,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,617,"ide_export.bas");}while(r); } do{ qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_add(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,FUNC_UNICODETOUTF8CHAR(_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,610,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,618,"ide_export.bas");}while(r); }else{ do{ qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_add(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,func_chr(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,613,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,621,"ide_export.bas");}while(r); } -fornext_continue_7119:; +fornext_continue_7120:; } -fornext_exit_7119:; +fornext_exit_7120:; do{ qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_ANSITEXTTOUTF8TEXT,_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775,616,"ide_export.bas");}while(r); +if(!qbevent)break;evnt(23775,624,"ide_export.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free365.txt" @@ -212706,30 +212770,30 @@ qbs_set(_FUNC__ENCODEURL_STRING__TMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); *_FUNC__ENCODEURL_INTEGER__INQUERY= 0ll ; *_FUNC__ENCODEURL_INTEGER__ISKEY= 0ll ; -fornext_value7124= 1 ; -fornext_finalvalue7124=_FUNC__ENCODEURL_STRING__URL->len; -fornext_step7124= 1 ; -if (fornext_step7124<0) fornext_step_negative7124=1; else fornext_step_negative7124=0; -if (is_error_pending()) goto fornext_error7124; -goto fornext_entrylabel7124; +fornext_value7125= 1 ; +fornext_finalvalue7125=_FUNC__ENCODEURL_STRING__URL->len; +fornext_step7125= 1 ; +if (fornext_step7125<0) fornext_step_negative7125=1; else fornext_step_negative7125=0; +if (is_error_pending()) goto fornext_error7125; +goto fornext_entrylabel7125; while(1){ -fornext_value7124=fornext_step7124+(*_FUNC__ENCODEURL_INTEGER__P); -fornext_entrylabel7124: -*_FUNC__ENCODEURL_INTEGER__P=fornext_value7124; +fornext_value7125=fornext_step7125+(*_FUNC__ENCODEURL_INTEGER__P); +fornext_entrylabel7125: +*_FUNC__ENCODEURL_INTEGER__P=fornext_value7125; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative7124){ -if (fornext_value7124fornext_finalvalue7124) break; +if (fornext_value7125>fornext_finalvalue7125) break; } -fornext_error7124:; +fornext_error7125:; *_FUNC__ENCODEURL_INTEGER__A=qbs_asc(_FUNC__ENCODEURL_STRING__URL,*_FUNC__ENCODEURL_INTEGER__P); qbs_cleanup(qbs_tmp_base,0); *_FUNC__ENCODEURL_INTEGER__VALID= 0ll ; if (((*_FUNC__ENCODEURL_INTEGER__A==( 45ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 46ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 95ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 126ll ))||((*_FUNC__ENCODEURL_INTEGER__A>=( 48 ))&&(*_FUNC__ENCODEURL_INTEGER__A<=( 57 )))||((*_FUNC__ENCODEURL_INTEGER__A>=( 65 ))&&(*_FUNC__ENCODEURL_INTEGER__A<=( 90 )))||((*_FUNC__ENCODEURL_INTEGER__A>=( 97 ))&&(*_FUNC__ENCODEURL_INTEGER__A<=( 122 ))))||is_error_pending()){ *_FUNC__ENCODEURL_INTEGER__VALID= -1ll ; -sc_ec_555_end:; -goto sc_7126_end; +sc_ec_560_end:; +goto sc_7127_end; } if (((*_FUNC__ENCODEURL_INTEGER__A==( 35ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 47ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 58ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 63ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 64ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 91ll ))||(*_FUNC__ENCODEURL_INTEGER__A==( 93ll )))||is_error_pending()){ if ((~(*_FUNC__ENCODEURL_INTEGER__INQUERY))||is_error_pending()){ @@ -212739,26 +212803,26 @@ if ((-(*_FUNC__ENCODEURL_INTEGER__A== 63ll ))||is_error_pending()){ *_FUNC__ENCODEURL_INTEGER__ISKEY= -1ll ; } } -sc_ec_556_end:; -goto sc_7126_end; +sc_ec_561_end:; +goto sc_7127_end; } if (((*_FUNC__ENCODEURL_INTEGER__A==( 61ll )))||is_error_pending()){ if ((*_FUNC__ENCODEURL_INTEGER__INQUERY&*_FUNC__ENCODEURL_INTEGER__ISKEY)||is_error_pending()){ *_FUNC__ENCODEURL_INTEGER__VALID= -1ll ; *_FUNC__ENCODEURL_INTEGER__ISKEY= 0ll ; } -sc_ec_557_end:; -goto sc_7126_end; +sc_ec_562_end:; +goto sc_7127_end; } if (((*_FUNC__ENCODEURL_INTEGER__A==( 38ll )))||is_error_pending()){ if ((*_FUNC__ENCODEURL_INTEGER__INQUERY&(~(*_FUNC__ENCODEURL_INTEGER__ISKEY)))||is_error_pending()){ *_FUNC__ENCODEURL_INTEGER__VALID= -1ll ; *_FUNC__ENCODEURL_INTEGER__ISKEY= -1ll ; } -sc_ec_558_end:; -goto sc_7126_end; +sc_ec_563_end:; +goto sc_7127_end; } -sc_7126_end:; +sc_7127_end:; if ((*_FUNC__ENCODEURL_INTEGER__VALID)||is_error_pending()){ qbs_set(_FUNC__ENCODEURL_STRING__TMP,qbs_add(_FUNC__ENCODEURL_STRING__TMP,func_chr(*_FUNC__ENCODEURL_INTEGER__A))); qbs_cleanup(qbs_tmp_base,0); @@ -212766,9 +212830,9 @@ qbs_cleanup(qbs_tmp_base,0); qbs_set(_FUNC__ENCODEURL_STRING__TMP,qbs_add(qbs_add(_FUNC__ENCODEURL_STRING__TMP,qbs_new_txt_len("%",1)),qbs_right(qbs_add(qbs_new_txt_len("00",2),func_hex(*_FUNC__ENCODEURL_INTEGER__A,4)), 2 ))); qbs_cleanup(qbs_tmp_base,0); } -fornext_continue_7123:; +fornext_continue_7124:; } -fornext_exit_7123:; +fornext_exit_7124:; qbs_set(_FUNC__ENCODEURL_STRING__ENCODEURL,_FUNC__ENCODEURL_STRING__TMP); qbs_cleanup(qbs_tmp_base,0); exit_subfunc:; @@ -212793,23 +212857,23 @@ sf_mem_lock->type=3; if (is_error_pending()) goto exit_subfunc; qbs_set(_FUNC__DECODEURL_STRING__TMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -fornext_value7129= 1 ; -fornext_finalvalue7129=_FUNC__DECODEURL_STRING__URL->len; -fornext_step7129= 1 ; -if (fornext_step7129<0) fornext_step_negative7129=1; else fornext_step_negative7129=0; -if (is_error_pending()) goto fornext_error7129; -goto fornext_entrylabel7129; +fornext_value7130= 1 ; +fornext_finalvalue7130=_FUNC__DECODEURL_STRING__URL->len; +fornext_step7130= 1 ; +if (fornext_step7130<0) fornext_step_negative7130=1; else fornext_step_negative7130=0; +if (is_error_pending()) goto fornext_error7130; +goto fornext_entrylabel7130; while(1){ -fornext_value7129=fornext_step7129+(*_FUNC__DECODEURL_INTEGER__P); -fornext_entrylabel7129: -*_FUNC__DECODEURL_INTEGER__P=fornext_value7129; +fornext_value7130=fornext_step7130+(*_FUNC__DECODEURL_INTEGER__P); +fornext_entrylabel7130: +*_FUNC__DECODEURL_INTEGER__P=fornext_value7130; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative7129){ -if (fornext_value7129fornext_finalvalue7129) break; +if (fornext_value7130>fornext_finalvalue7130) break; } -fornext_error7129:; +fornext_error7130:; *_FUNC__DECODEURL_INTEGER__A=qbs_asc(_FUNC__DECODEURL_STRING__URL,*_FUNC__DECODEURL_INTEGER__P); qbs_cleanup(qbs_tmp_base,0); if ((-(*_FUNC__DECODEURL_INTEGER__A!= 37ll ))||is_error_pending()){ @@ -212820,9 +212884,9 @@ qbs_set(_FUNC__DECODEURL_STRING__TMP,qbs_add(_FUNC__DECODEURL_STRING__TMP,func_c qbs_cleanup(qbs_tmp_base,0); *_FUNC__DECODEURL_INTEGER__P=*_FUNC__DECODEURL_INTEGER__P+ 2 ; } -fornext_continue_7128:; +fornext_continue_7129:; } -fornext_exit_7128:; +fornext_exit_7129:; qbs_set(_FUNC__DECODEURL_STRING__DECODEURL,_FUNC__DECODEURL_STRING__TMP); qbs_cleanup(qbs_tmp_base,0); exit_subfunc:; @@ -212866,14 +212930,14 @@ qbs_cleanup(qbs_tmp_base,0); if ((func_eof(*_FUNC__WHATISMYIP_LONG__CH))||is_error_pending()){ qbs_set(_FUNC__WHATISMYIP_STRING__WHATISMYIP,_FUNC__WHATISMYIP_STRING__RES); qbs_cleanup(qbs_tmp_base,0); -goto dl_exit_7131; +goto dl_exit_7132; } if ((-((*_FUNC__WHATISMYIP_DOUBLE__ST+ 10 )>=( 86400ll )))||is_error_pending()){ *_FUNC__WHATISMYIP_DOUBLE__ST=*_FUNC__WHATISMYIP_DOUBLE__ST- 86400ll ; } -dl_continue_7131:; +dl_continue_7132:; }while((!(-(((float)((func_timer( 0.001E+0 ,0|1))))>((float)((*_FUNC__WHATISMYIP_DOUBLE__ST+ 10 ))))))&&(!is_error_pending())); -dl_exit_7131:; +dl_exit_7132:; } sub_close(*_FUNC__WHATISMYIP_LONG__CH,1); exit_subfunc:;