From 43b2da9d545e82bc76a6bec2d6fa661a5ed94577 Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Sun, 9 Jan 2000 17:37:53 +0000 Subject: [PATCH] Initial revision --- harbour/source/tools/AUTHOR.TXT | 2 + harbour/source/tools/DOCERR.LOG | 43 +++ harbour/source/tools/FT_DOC.LOG | 32 ++ harbour/source/tools/assembl.bat | 42 +++ harbour/source/tools/ha.lnk | 45 +++ harbour/source/tools/nconvert.c | 627 +++++++++++++++++++++++++++++++ harbour/source/tools/numtxten.c | 425 +++++++++++++++++++++ harbour/source/tools/numtxthu.c | 491 ++++++++++++++++++++++++ harbour/source/tools/rtf.c | 551 +++++++++++++++++++++++++++ harbour/source/tools/rtf.java | 362 ++++++++++++++++++ harbour/source/tools/rtf.ppo | 136 +++++++ 11 files changed, 2756 insertions(+) create mode 100644 harbour/source/tools/AUTHOR.TXT create mode 100644 harbour/source/tools/DOCERR.LOG create mode 100644 harbour/source/tools/FT_DOC.LOG create mode 100644 harbour/source/tools/assembl.bat create mode 100644 harbour/source/tools/ha.lnk create mode 100644 harbour/source/tools/nconvert.c create mode 100644 harbour/source/tools/numtxten.c create mode 100644 harbour/source/tools/numtxthu.c create mode 100644 harbour/source/tools/rtf.c create mode 100644 harbour/source/tools/rtf.java create mode 100644 harbour/source/tools/rtf.ppo diff --git a/harbour/source/tools/AUTHOR.TXT b/harbour/source/tools/AUTHOR.TXT new file mode 100644 index 0000000000..757b51bbe6 --- /dev/null +++ b/harbour/source/tools/AUTHOR.TXT @@ -0,0 +1,2 @@ + + Andy M Leighton \ No newline at end of file diff --git a/harbour/source/tools/DOCERR.LOG b/harbour/source/tools/DOCERR.LOG new file mode 100644 index 0000000000..ccf5df579d --- /dev/null +++ b/harbour/source/tools/DOCERR.LOG @@ -0,0 +1,43 @@ + +Author not found in file fileread.prg + +Author not found in file nconvert.prg + +Author not found in file numtxten.prg + +Author not found in file numtxthu.prg + +Author not found in file stringp.prg + +Author not found in file RTF.PRG + +Author not found in file ctchksum.c + +Author not found in file ctchrmix.c + +Author not found in file ctcrypt.c + +Author not found in file dates2.c + +Author not found in file datesx.c + +Author not found in file hb_f.c + +Author not found in file io.c + +Author not found in file mathx.c + +Author not found in file strasint.c + +Author not found in file strfmt.c + +Author not found in file stringsx.c + +Author not found in file rtf.c + +Author not found in file numtxthu.c + +Author not found in file numtxten.c + +Author not found in file nconvert.c + \ No newline at end of file diff --git a/harbour/source/tools/FT_DOC.LOG b/harbour/source/tools/FT_DOC.LOG new file mode 100644 index 0000000000..d70da84386 --- /dev/null +++ b/harbour/source/tools/FT_DOC.LOG @@ -0,0 +1,32 @@ + +CONVERSION BINTODEC() BINTODEC.rtf +CONVERSION DECTOBIN() DECTOBIN.rtf +CONVERSION DECTOHEXA() DECTOHEX.rtf +CONVERSION DECTOOCTAL() DECTOOCT.rtf +CONVERSION HEXATODEC() HEXATODE.rtf +CONVERSION ISBIN() ISBIN.rtf +CONVERSION ISDEC() ISDEC.rtf +CONVERSION ISHEXA() ISHEXA.rtf +CONVERSION ISOCTAL() ISOCTAL.rtf +CONVERSION OCTALTODEC() OCTALTOD.rtf +DOS CD() CD.rtf +DOS MD() MD.rtf +DOS RD() RD.rtf +HARBOUR TOOLS TFILEREAD() TFILEREA.rtf +STRING GT_ASCIISUM() GT_ASCII.rtf +STRING GT_ASCPOS() GT_ASCPO.rtf +STRING GT_ATDIFF() GT_ATDIF.rtf +STRING GT_CHAREVEN() GT_CHARE.rtf +STRING GT_CHARMIX() GT_CHARM.rtf +STRING GT_CHARODD() GT_CHARO.rtf +STRING GT_CHRCOUNT() GT_CHRCO.rtf +STRING GT_CHRFIRST() GT_CHRFI.rtf +STRING GT_CHRTOTAL() GT_CHRTO.rtf +STRING GT_STRCOUNT() GT_STRCO.rtf +STRING GT_STRCSPN() GT_STRCS.rtf +STRING GT_STRDIFF() GT_STRDI.rtf +STRING GT_STREXPAND() GT_STREX.rtf +STRING GT_STRLEFT() GT_STRLE.rtf +STRING GT_STRPBRK() GT_STRPB.rtf +STRING GT_STRRIGHT() GT_STRRI.rtf +STRING STRFORMAT() STRFORMA.rtf \ No newline at end of file diff --git a/harbour/source/tools/assembl.bat b/harbour/source/tools/assembl.bat new file mode 100644 index 0000000000..3062fdec4f --- /dev/null +++ b/harbour/source/tools/assembl.bat @@ -0,0 +1,42 @@ + +@Echo OFF +ECHO Assembling input files +ECHO Creating CONV.TXT +COPY hdf\BINTODEC.rtf HarDoc.hdf > NUL +TYPE hdf\DECTOBIN.rtf >> HarDoc.hdf +TYPE hdf\DECTOHEX.rtf >> HarDoc.hdf +TYPE hdf\DECTOOCT.rtf >> HarDoc.hdf +TYPE hdf\HEXATODE.rtf >> HarDoc.hdf +TYPE hdf\ISBIN.rtf >> HarDoc.hdf +TYPE hdf\ISDEC.rtf >> HarDoc.hdf +TYPE hdf\ISHEXA.rtf >> HarDoc.hdf +TYPE hdf\ISOCTAL.rtf >> HarDoc.hdf +TYPE hdf\OCTALTOD.rtf >> HarDoc.hdf +TYPE hdf\CD.rtf >> HarDoc.hdf +TYPE hdf\MD.rtf >> HarDoc.hdf +TYPE hdf\RD.rtf >> HarDoc.hdf +TYPE hdf\TFILEREA.rtf >> HarDoc.hdf +TYPE hdf\GT_ASCII.rtf >> HarDoc.hdf +TYPE hdf\GT_ASCPO.rtf >> HarDoc.hdf +TYPE hdf\GT_ATDIF.rtf >> HarDoc.hdf +TYPE hdf\GT_CHARE.rtf >> HarDoc.hdf +TYPE hdf\GT_CHARM.rtf >> HarDoc.hdf +TYPE hdf\GT_CHARO.rtf >> HarDoc.hdf +TYPE hdf\GT_CHRCO.rtf >> HarDoc.hdf +TYPE hdf\GT_CHRFI.rtf >> HarDoc.hdf +TYPE hdf\GT_CHRTO.rtf >> HarDoc.hdf +TYPE hdf\GT_STRCO.rtf >> HarDoc.hdf +TYPE hdf\GT_STRCS.rtf >> HarDoc.hdf +TYPE hdf\GT_STRDI.rtf >> HarDoc.hdf +TYPE hdf\GT_STREX.rtf >> HarDoc.hdf +TYPE hdf\GT_STRLE.rtf >> HarDoc.hdf +TYPE hdf\GT_STRPB.rtf >> HarDoc.hdf +TYPE hdf\GT_STRRI.rtf >> HarDoc.hdf +TYPE hdf\STRFORMA.rtf >> HarDoc.hdf +REM Compile the sources +Echo Compiling the sources +Helpc /W31 hardoc.hdf +REM Link the files +Echo Linking library +hc31 hardoc.hpj + \ No newline at end of file diff --git a/harbour/source/tools/ha.lnk b/harbour/source/tools/ha.lnk new file mode 100644 index 0000000000..ad9bb8d599 --- /dev/null +++ b/harbour/source/tools/ha.lnk @@ -0,0 +1,45 @@ +!name: Harbour Build 31 Reference Guide +!credits: +Release : 01/01/2000 + Build By Luiz Rafael Culik + Functions Documented by: + Victor Szel + Chen Luiz Rafael Culik +!Menu: Commands +Command Comm.ngo +!menu: A-F +Array array.ngo +Code Block codeblo.ngo +Console Input consimpu.ngo +Conversion Conv.ngo +Data base Database.ngo +Data Input And Output datai.ngo +Dos dos.ngo +!menu:E-N +HARBOUR TOOLS ha.ngo +Error Recovery error.ngo +Enviroment Envirom.ngo +Events Event.ngo +File Management FILEMANa.ngo +Internal Internal.ngo +Gt Gt.ngo +Low Level lowlevel.ngo +Misc Misc.ngo + +!menu: N-T +Nation Nation.ngo +Object Manipulation obj.ngo +Operating System Specific opersyst.ngo +Parameter Checks Parame.ngo +Run-Time Library, Strings runtime.ngo +String Strings.ngo +!menu: T-Z +Tbrowse Class tbrow.ngo +Terminal Terminal.ngo +Unknown unknown.ngo +Utility Utility.ngo +Variable Management mv.ngo +!Menu: HARBOUR +License license.ngo +Readme readme.ngo +Tools Tools.ngo diff --git a/harbour/source/tools/nconvert.c b/harbour/source/tools/nconvert.c new file mode 100644 index 0000000000..8c19d5d70c --- /dev/null +++ b/harbour/source/tools/nconvert.c @@ -0,0 +1,627 @@ +/* + * Harbour Compiler, Build 30b (1999.10.16) + * Generated C source code + */ + +#include "hb_vmpub.h" +#include "init.h" + + +HARBOUR HB_ISBIN( void ); +HARBOUR HB_ISOCTAL( void ); +HARBOUR HB_ISDEC( void ); +HARBOUR HB_ISHEXA( void ); +HARBOUR HB_DECTOBIN( void ); +HARBOUR HB_DECTOOCTAL( void ); +HARBOUR HB_DECTOHEXA( void ); +HARBOUR HB_BINTODEC( void ); +HARBOUR HB_OCTALTODEC( void ); +HARBOUR HB_HEXATODEC( void ); +extern HARBOUR HB_ALLTRIM( void ); +extern HARBOUR HB_LEN( void ); +extern HARBOUR HB_SUBSTR( void ); +extern HARBOUR HB_INT( void ); +extern HARBOUR HB_AT( void ); + + +HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_NCONVERT ) +{ "ISBIN", FS_PUBLIC, HB_ISBIN, 0 }, +{ "ALLTRIM", FS_PUBLIC, HB_ALLTRIM, 0 }, +{ "LEN", FS_PUBLIC, HB_LEN, 0 }, +{ "SUBSTR", FS_PUBLIC, HB_SUBSTR, 0 }, +{ "ISOCTAL", FS_PUBLIC, HB_ISOCTAL, 0 }, +{ "ISDEC", FS_PUBLIC, HB_ISDEC, 0 }, +{ "ISHEXA", FS_PUBLIC, HB_ISHEXA, 0 }, +{ "DECTOBIN", FS_PUBLIC, HB_DECTOBIN, 0 }, +{ "INT", FS_PUBLIC, HB_INT, 0 }, +{ "DECTOOCTAL", FS_PUBLIC, HB_DECTOOCTAL, 0 }, +{ "DECTOHEXA", FS_PUBLIC, HB_DECTOHEXA, 0 }, +{ "BINTODEC", FS_PUBLIC, HB_BINTODEC, 0 }, +{ "AT", FS_PUBLIC, HB_AT, 0 }, +{ "OCTALTODEC", FS_PUBLIC, HB_OCTALTODEC, 0 }, +{ "HEXATODEC", FS_PUBLIC, HB_HEXATODEC, 0 } +HB_INIT_SYMBOLS_END( hb_vm_SymbolInit_NCONVERT ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_vm_SymbolInit_NCONVERT +#endif + + +HARBOUR HB_ISBIN( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 2, 1, /* locals, params */ +/* 00006 */ HB_P_LINE, 65, 0, /* 65 */ + HB_P_TRUE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00013 */ HB_P_LINE, 66, 0, /* 66 */ + HB_P_PUSHSYM, 1, 0, /* ALLTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 1, 0, /* CSTRING */ +/* 00029 */ HB_P_LINE, 67, 0, /* 67 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHSYM, 2, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 63, 0, /* 63 (abs: 00117) */ +/* 00057 */ HB_P_LINE, 68, 0, /* 68 */ + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 2, 0, /* 2 */ + '0', '1', + HB_P_INSTRING, + HB_P_NOT, + HB_P_JUMPFALSE, 19, 0, /* 19 (abs: 00104) */ +/* 00088 */ HB_P_LINE, 69, 0, /* 69 */ + HB_P_FALSE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00095 */ HB_P_LINE, 70, 0, /* 70 */ + HB_P_JUMP, 19, 0, /* 19 (abs: 00117) */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00104) */ +/* 00104 */ HB_P_LINE, 71, 0, /* 71 */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_INC, + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_JUMP, 182, 255, /* -74 (abs: 00040) */ +/* 00117 */ HB_P_LINE, 73, 0, /* 73 */ + HB_P_PUSHLOCAL, 3, 0, /* LFLAG */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00125 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_ISOCTAL( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 2, 1, /* locals, params */ + HB_P_TRUE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00010 */ HB_P_LINE, 106, 0, /* 106 */ + HB_P_PUSHSYM, 1, 0, /* ALLTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 1, 0, /* CSTRING */ +/* 00026 */ HB_P_LINE, 107, 0, /* 107 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHSYM, 2, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 69, 0, /* 69 (abs: 00120) */ +/* 00054 */ HB_P_LINE, 108, 0, /* 108 */ + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 8, 0, /* 8 */ + '0', '1', '2', '3', '4', '5', '6', '7', + HB_P_INSTRING, + HB_P_NOT, + HB_P_JUMPFALSE, 19, 0, /* 19 (abs: 00107) */ +/* 00091 */ HB_P_LINE, 109, 0, /* 109 */ + HB_P_FALSE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00098 */ HB_P_LINE, 110, 0, /* 110 */ + HB_P_JUMP, 19, 0, /* 19 (abs: 00120) */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00107) */ +/* 00107 */ HB_P_LINE, 111, 0, /* 111 */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_INC, + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_JUMP, 176, 255, /* -80 (abs: 00037) */ +/* 00120 */ HB_P_LINE, 113, 0, /* 113 */ + HB_P_PUSHLOCAL, 3, 0, /* LFLAG */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00128 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_ISDEC( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 2, 1, /* locals, params */ + HB_P_TRUE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00010 */ HB_P_LINE, 144, 0, /* 144 */ + HB_P_PUSHSYM, 1, 0, /* ALLTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 1, 0, /* CSTRING */ +/* 00026 */ HB_P_LINE, 145, 0, /* 145 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHSYM, 2, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 71, 0, /* 71 (abs: 00122) */ +/* 00054 */ HB_P_LINE, 146, 0, /* 146 */ + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 10, 0, /* 10 */ + '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', + HB_P_INSTRING, + HB_P_NOT, + HB_P_JUMPFALSE, 19, 0, /* 19 (abs: 00109) */ +/* 00093 */ HB_P_LINE, 147, 0, /* 147 */ + HB_P_FALSE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00100 */ HB_P_LINE, 148, 0, /* 148 */ + HB_P_JUMP, 19, 0, /* 19 (abs: 00122) */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00109) */ +/* 00109 */ HB_P_LINE, 149, 0, /* 149 */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_INC, + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_JUMP, 174, 255, /* -82 (abs: 00037) */ +/* 00122 */ HB_P_LINE, 151, 0, /* 151 */ + HB_P_PUSHLOCAL, 3, 0, /* LFLAG */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00130 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_ISHEXA( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 2, 1, /* locals, params */ + HB_P_TRUE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00010 */ HB_P_LINE, 182, 0, /* 182 */ + HB_P_PUSHSYM, 1, 0, /* ALLTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 1, 0, /* CSTRING */ +/* 00026 */ HB_P_LINE, 183, 0, /* 183 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHSYM, 2, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 77, 0, /* 77 (abs: 00128) */ +/* 00054 */ HB_P_LINE, 184, 0, /* 184 */ + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 16, 0, /* 16 */ + '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', + HB_P_INSTRING, + HB_P_NOT, + HB_P_JUMPFALSE, 19, 0, /* 19 (abs: 00115) */ +/* 00099 */ HB_P_LINE, 185, 0, /* 185 */ + HB_P_FALSE, + HB_P_POPLOCAL, 3, 0, /* LFLAG */ +/* 00106 */ HB_P_LINE, 186, 0, /* 186 */ + HB_P_JUMP, 19, 0, /* 19 (abs: 00128) */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00115) */ +/* 00115 */ HB_P_LINE, 187, 0, /* 187 */ + HB_P_PUSHLOCAL, 2, 0, /* NX */ + HB_P_INC, + HB_P_POPLOCAL, 2, 0, /* NX */ + HB_P_JUMP, 168, 255, /* -88 (abs: 00037) */ +/* 00128 */ HB_P_LINE, 189, 0, /* 189 */ + HB_P_PUSHLOCAL, 3, 0, /* LFLAG */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00136 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_DECTOBIN( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 2, 1, /* locals, params */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_POPLOCAL, 2, 0, /* CNEWSTRING */ +/* 00012 */ HB_P_LINE, 219, 0, /* 219 */ + HB_P_ZERO, + HB_P_POPLOCAL, 3, 0, /* NTEMP */ + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_ZERO, + HB_P_GREATER, + HB_P_JUMPFALSE, 83, 0, /* 83 (abs: 00107) */ +/* 00027 */ HB_P_LINE, 221, 0, /* 221 */ + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_MODULUS, + HB_P_POPLOCAL, 3, 0, /* NTEMP */ +/* 00042 */ HB_P_LINE, 222, 0, /* 222 */ + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHSTR, 2, 0, /* 2 */ + '0', '1', + HB_P_PUSHLOCAL, 3, 0, /* NTEMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHLOCAL, 2, 0, /* CNEWSTRING */ + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CNEWSTRING */ +/* 00078 */ HB_P_LINE, 223, 0, /* 223 */ + HB_P_PUSHSYM, 8, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_PUSHLOCAL, 3, 0, /* NTEMP */ + HB_P_MINUS, + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 1, 0, /* NNUMBER */ + HB_P_JUMP, 171, 255, /* -85 (abs: 00019) */ +/* 00107 */ HB_P_LINE, 225, 0, /* 225 */ + HB_P_PUSHLOCAL, 2, 0, /* CNEWSTRING */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00115 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_DECTOOCTAL( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 2, 1, /* locals, params */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_POPLOCAL, 2, 0, /* CNEWSTRING */ +/* 00012 */ HB_P_LINE, 255, 0, /* 255 */ + HB_P_ZERO, + HB_P_POPLOCAL, 3, 0, /* NTEMP */ + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_ZERO, + HB_P_GREATER, + HB_P_JUMPFALSE, 89, 0, /* 89 (abs: 00113) */ +/* 00027 */ HB_P_LINE, 1, 1, /* 257 */ + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_PUSHLONG, 8, 0, 0, 0, /* 8 */ + HB_P_MODULUS, + HB_P_POPLOCAL, 3, 0, /* NTEMP */ +/* 00042 */ HB_P_LINE, 2, 1, /* 258 */ + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHSTR, 8, 0, /* 8 */ + '0', '1', '2', '3', '4', '5', '6', '7', + HB_P_PUSHLOCAL, 3, 0, /* NTEMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHLOCAL, 2, 0, /* CNEWSTRING */ + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CNEWSTRING */ +/* 00084 */ HB_P_LINE, 3, 1, /* 259 */ + HB_P_PUSHSYM, 8, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_PUSHLOCAL, 3, 0, /* NTEMP */ + HB_P_MINUS, + HB_P_PUSHLONG, 8, 0, 0, 0, /* 8 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 1, 0, /* NNUMBER */ + HB_P_JUMP, 165, 255, /* -91 (abs: 00019) */ +/* 00113 */ HB_P_LINE, 5, 1, /* 261 */ + HB_P_PUSHLOCAL, 2, 0, /* CNEWSTRING */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00121 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_DECTOHEXA( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 2, 1, /* locals, params */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_POPLOCAL, 2, 0, /* CNEWSTRING */ +/* 00012 */ HB_P_LINE, 35, 1, /* 291 */ + HB_P_ZERO, + HB_P_POPLOCAL, 3, 0, /* NTEMP */ + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_ZERO, + HB_P_GREATER, + HB_P_JUMPFALSE, 97, 0, /* 97 (abs: 00121) */ +/* 00027 */ HB_P_LINE, 37, 1, /* 293 */ + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_PUSHLONG, 16, 0, 0, 0, /* 16 */ + HB_P_MODULUS, + HB_P_POPLOCAL, 3, 0, /* NTEMP */ +/* 00042 */ HB_P_LINE, 38, 1, /* 294 */ + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHSTR, 16, 0, /* 16 */ + '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', + HB_P_PUSHLOCAL, 3, 0, /* NTEMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHLOCAL, 2, 0, /* CNEWSTRING */ + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CNEWSTRING */ +/* 00092 */ HB_P_LINE, 39, 1, /* 295 */ + HB_P_PUSHSYM, 8, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NNUMBER */ + HB_P_PUSHLOCAL, 3, 0, /* NTEMP */ + HB_P_MINUS, + HB_P_PUSHLONG, 16, 0, 0, 0, /* 16 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 1, 0, /* NNUMBER */ + HB_P_JUMP, 157, 255, /* -99 (abs: 00019) */ +/* 00121 */ HB_P_LINE, 41, 1, /* 297 */ + HB_P_PUSHLOCAL, 2, 0, /* CNEWSTRING */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00129 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_BINTODEC( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 4, 1, /* locals, params */ + HB_P_ZERO, + HB_P_POPLOCAL, 2, 0, /* NNUMBER */ + HB_P_ZERO, + HB_P_POPLOCAL, 3, 0, /* NX */ +/* 00014 */ HB_P_LINE, 71, 1, /* 327 */ + HB_P_PUSHSYM, 1, 0, /* ALLTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 4, 0, /* CNEWSTRING */ +/* 00030 */ HB_P_LINE, 72, 1, /* 328 */ + HB_P_PUSHSYM, 2, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* CNEWSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 5, 0, /* NLEN */ +/* 00046 */ HB_P_LINE, 73, 1, /* 329 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 3, 0, /* NX */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_PUSHLOCAL, 5, 0, /* NLEN */ + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 73, 0, /* 73 (abs: 00137) */ +/* 00067 */ HB_P_LINE, 74, 1, /* 330 */ + HB_P_PUSHLOCAL, 2, 0, /* NNUMBER */ + HB_P_PUSHSYM, 12, 0, /* AT */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* CNEWSTRING */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 2, 0, /* 2 */ + '0', '1', + HB_P_FUNCTION, 2, 0, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_MINUS, + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_PUSHLOCAL, 5, 0, /* NLEN */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_MINUS, + HB_P_POWER, + HB_P_MULT, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* NNUMBER */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_INC, + HB_P_POPLOCAL, 3, 0, /* NX */ + HB_P_JUMP, 179, 255, /* -77 (abs: 00057) */ +/* 00137 */ HB_P_LINE, 77, 1, /* 333 */ + HB_P_PUSHLOCAL, 2, 0, /* NNUMBER */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00145 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_OCTALTODEC( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 4, 1, /* locals, params */ + HB_P_ZERO, + HB_P_POPLOCAL, 2, 0, /* NNUMBER */ + HB_P_ZERO, + HB_P_POPLOCAL, 3, 0, /* NX */ +/* 00014 */ HB_P_LINE, 107, 1, /* 363 */ + HB_P_PUSHSYM, 1, 0, /* ALLTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 4, 0, /* CNEWSTRING */ +/* 00030 */ HB_P_LINE, 108, 1, /* 364 */ + HB_P_PUSHSYM, 2, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* CNEWSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 5, 0, /* NLEN */ +/* 00046 */ HB_P_LINE, 109, 1, /* 365 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 3, 0, /* NX */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_PUSHLOCAL, 5, 0, /* NLEN */ + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 79, 0, /* 79 (abs: 00143) */ +/* 00067 */ HB_P_LINE, 110, 1, /* 366 */ + HB_P_PUSHLOCAL, 2, 0, /* NNUMBER */ + HB_P_PUSHSYM, 12, 0, /* AT */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* CNEWSTRING */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 8, 0, /* 8 */ + '0', '1', '2', '3', '4', '5', '6', '7', + HB_P_FUNCTION, 2, 0, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_MINUS, + HB_P_PUSHLONG, 8, 0, 0, 0, /* 8 */ + HB_P_PUSHLOCAL, 5, 0, /* NLEN */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_MINUS, + HB_P_POWER, + HB_P_MULT, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* NNUMBER */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_INC, + HB_P_POPLOCAL, 3, 0, /* NX */ + HB_P_JUMP, 173, 255, /* -83 (abs: 00057) */ +/* 00143 */ HB_P_LINE, 113, 1, /* 369 */ + HB_P_PUSHLOCAL, 2, 0, /* NNUMBER */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00151 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +HARBOUR HB_HEXATODEC( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 4, 1, /* locals, params */ + HB_P_ZERO, + HB_P_POPLOCAL, 2, 0, /* NNUMBER */ + HB_P_ZERO, + HB_P_POPLOCAL, 3, 0, /* NX */ +/* 00014 */ HB_P_LINE, 143, 1, /* 399 */ + HB_P_PUSHSYM, 1, 0, /* ALLTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 4, 0, /* CNEWSTRING */ +/* 00030 */ HB_P_LINE, 144, 1, /* 400 */ + HB_P_PUSHSYM, 2, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* CNEWSTRING */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 5, 0, /* NLEN */ +/* 00046 */ HB_P_LINE, 145, 1, /* 401 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 3, 0, /* NX */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_PUSHLOCAL, 5, 0, /* NLEN */ + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 87, 0, /* 87 (abs: 00151) */ +/* 00067 */ HB_P_LINE, 146, 1, /* 402 */ + HB_P_PUSHLOCAL, 2, 0, /* NNUMBER */ + HB_P_PUSHSYM, 12, 0, /* AT */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 3, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* CNEWSTRING */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 16, 0, /* 16 */ + '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', + HB_P_FUNCTION, 2, 0, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_MINUS, + HB_P_PUSHLONG, 16, 0, 0, 0, /* 16 */ + HB_P_PUSHLOCAL, 5, 0, /* NLEN */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_MINUS, + HB_P_POWER, + HB_P_MULT, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* NNUMBER */ + HB_P_PUSHLOCAL, 3, 0, /* NX */ + HB_P_INC, + HB_P_POPLOCAL, 3, 0, /* NX */ + HB_P_JUMP, 165, 255, /* -91 (abs: 00057) */ +/* 00151 */ HB_P_LINE, 149, 1, /* 405 */ + HB_P_PUSHLOCAL, 2, 0, /* NNUMBER */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00159 */ + }; + + hb_vmExecute( pcode, symbols ); +} + diff --git a/harbour/source/tools/numtxten.c b/harbour/source/tools/numtxten.c new file mode 100644 index 0000000000..e89ebf6dab --- /dev/null +++ b/harbour/source/tools/numtxten.c @@ -0,0 +1,425 @@ +/* + * Harbour Compiler, Build 30b (1999.10.16) + * Generated C source code + */ + +#include "hb_vmpub.h" +#include "init.h" + + +HARBOUR HB_NUMTOTXTEN( void ); +static HARBOUR HB_INT_TO_STRING( void ); +extern HARBOUR HB_INT( void ); +extern HARBOUR HB_RTRIM( void ); + + +HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_NUMTXTEN ) +{ "NUMTOTXTEN", FS_PUBLIC, HB_NUMTOTXTEN, 0 }, +{ "INT_TO_STRING", FS_STATIC, HB_INT_TO_STRING, 0 }, +{ "INT", FS_PUBLIC, HB_INT, 0 }, +{ "RTRIM", FS_PUBLIC, HB_RTRIM, 0 } +HB_INIT_SYMBOLS_END( hb_vm_SymbolInit_NUMTXTEN ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_vm_SymbolInit_NUMTXTEN +#endif + + +HARBOUR HB_NUMTOTXTEN( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 1, 1, /* locals, params */ +/* 00006 */ HB_P_LINE, 11, 0, /* 11 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00015 */ HB_P_LINE, 13, 0, /* 13 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_ZERO, + HB_P_EXACTLYEQUAL, + HB_P_JUMPFALSE, 18, 0, /* 18 (abs: 00041) */ +/* 00026 */ HB_P_LINE, 14, 0, /* 14 */ + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'z', 'e', 'r', 'o', + HB_P_RETVALUE, + HB_P_ENDPROC, + HB_P_JUMP, 3, 0, /* 3 (abs: 00041) */ +/* 00041 */ HB_P_LINE, 17, 0, /* 17 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_ZERO, + HB_P_LESS, + HB_P_JUMPFALSE, 35, 0, /* 35 (abs: 00084) */ +/* 00052 */ HB_P_LINE, 18, 0, /* 18 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_NEGATE, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ +/* 00062 */ HB_P_LINE, 19, 0, /* 19 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'm', 'i', 'n', 'u', 's', ' ', + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00084) */ +/* 00084 */ HB_P_LINE, 22, 0, /* 22 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 64, 66, 15, 0, /* 1000000 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 211, 0, /* 211 (abs: 00307) */ +/* 00099 */ HB_P_LINE, 23, 0, /* 23 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 0, 225, 245, 5, /* 100000000 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 84, 0, /* 84 (abs: 00195) */ +/* 00114 */ HB_P_LINE, 24, 0, /* 24 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSYM, 1, 0, /* INT_TO_STRING */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 0, 225, 245, 5, /* 100000000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_FUNCTION, 1, 0, + HB_P_PUSHSTR, 9, 0, /* 9 */ + ' ', 'h', 'u', 'n', 'd', 'r', 'e', 'd', ' ', + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00160 */ HB_P_LINE, 25, 0, /* 25 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 0, 225, 245, 5, /* 100000000 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 0, 225, 245, 5, /* 100000000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_MULT, + HB_P_MINUS, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00195) */ +/* 00195 */ HB_P_LINE, 27, 0, /* 27 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 64, 66, 15, 0, /* 1000000 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 76, 0, /* 76 (abs: 00283) */ +/* 00210 */ HB_P_LINE, 28, 0, /* 28 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSYM, 1, 0, /* INT_TO_STRING */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 64, 66, 15, 0, /* 1000000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_FUNCTION, 1, 0, + HB_P_PUSHSTR, 1, 0, /* 1 */ + ' ', + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00248 */ HB_P_LINE, 29, 0, /* 29 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 64, 66, 15, 0, /* 1000000 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 64, 66, 15, 0, /* 1000000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_MULT, + HB_P_MINUS, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00283) */ +/* 00283 */ HB_P_LINE, 31, 0, /* 31 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'm', 'i', 'l', 'l', 'i', 'o', 'n', ' ', + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00307) */ +/* 00307 */ HB_P_LINE, 33, 0, /* 33 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 232, 3, 0, 0, /* 1000 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 212, 0, /* 212 (abs: 00531) */ +/* 00322 */ HB_P_LINE, 34, 0, /* 34 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 160, 134, 1, 0, /* 100000 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 84, 0, /* 84 (abs: 00418) */ +/* 00337 */ HB_P_LINE, 35, 0, /* 35 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSYM, 1, 0, /* INT_TO_STRING */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 160, 134, 1, 0, /* 100000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_FUNCTION, 1, 0, + HB_P_PUSHSTR, 9, 0, /* 9 */ + ' ', 'h', 'u', 'n', 'd', 'r', 'e', 'd', ' ', + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00383 */ HB_P_LINE, 36, 0, /* 36 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 160, 134, 1, 0, /* 100000 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 160, 134, 1, 0, /* 100000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_MULT, + HB_P_MINUS, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00418) */ +/* 00418 */ HB_P_LINE, 38, 0, /* 38 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 232, 3, 0, 0, /* 1000 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 76, 0, /* 76 (abs: 00506) */ +/* 00433 */ HB_P_LINE, 39, 0, /* 39 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSYM, 1, 0, /* INT_TO_STRING */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 232, 3, 0, 0, /* 1000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_FUNCTION, 1, 0, + HB_P_PUSHSTR, 1, 0, /* 1 */ + ' ', + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00471 */ HB_P_LINE, 40, 0, /* 40 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 232, 3, 0, 0, /* 1000 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 232, 3, 0, 0, /* 1000 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_MULT, + HB_P_MINUS, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00506) */ +/* 00506 */ HB_P_LINE, 42, 0, /* 42 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSTR, 9, 0, /* 9 */ + 't', 'h', 'o', 'u', 's', 'a', 'n', 'd', ' ', + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00531) */ +/* 00531 */ HB_P_LINE, 44, 0, /* 44 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 100, 0, 0, 0, /* 100 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 84, 0, /* 84 (abs: 00627) */ +/* 00546 */ HB_P_LINE, 45, 0, /* 45 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSYM, 1, 0, /* INT_TO_STRING */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 100, 0, 0, 0, /* 100 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_FUNCTION, 1, 0, + HB_P_PUSHSTR, 9, 0, /* 9 */ + ' ', 'h', 'u', 'n', 'd', 'r', 'e', 'd', ' ', + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00592 */ HB_P_LINE, 46, 0, /* 46 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 100, 0, 0, 0, /* 100 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 100, 0, 0, 0, /* 100 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_MULT, + HB_P_MINUS, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00627) */ +/* 00627 */ HB_P_LINE, 48, 0, /* 48 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 53, 0, /* 53 (abs: 00692) */ +/* 00642 */ HB_P_LINE, 49, 0, /* 49 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSYM, 1, 0, /* INT_TO_STRING */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_FUNCTION, 1, 0, + HB_P_FUNCTION, 1, 0, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00669 */ HB_P_LINE, 50, 0, /* 50 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_FUNCTION, 1, 0, + HB_P_MINUS, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00692) */ +/* 00692 */ HB_P_LINE, 53, 0, /* 53 */ + HB_P_PUSHSYM, 3, 0, /* RTRIM */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_FUNCTION, 1, 0, + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00707 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_INT_TO_STRING( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 3, 1, /* locals, params */ +/* 00006 */ HB_P_LINE, 76, 0, /* 76 */ + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'o', 'n', 'e', + HB_P_PUSHSTR, 3, 0, /* 3 */ + 't', 'w', 'o', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 't', 'h', 'r', 'e', 'e', + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'f', 'o', 'u', 'r', + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'f', 'i', 'v', 'e', + HB_P_PUSHSTR, 3, 0, /* 3 */ + 's', 'i', 'x', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 's', 'e', 'v', 'e', 'n', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'e', 'i', 'g', 'h', 't', + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'n', 'i', 'n', 'e', + HB_P_PUSHSTR, 3, 0, /* 3 */ + 't', 'e', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'e', 'l', 'e', 'v', 'e', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 't', 'w', 'e', 'l', 'v', 'e', + HB_P_PUSHSTR, 8, 0, /* 8 */ + 't', 'h', 'i', 'r', 't', 'e', 'e', 'n', + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'f', 'o', 'u', 'r', 't', 'e', 'e', 'n', + HB_P_PUSHSTR, 7, 0, /* 7 */ + 'f', 'i', 'f', 't', 'e', 'e', 'n', + HB_P_PUSHSTR, 7, 0, /* 7 */ + 's', 'i', 'x', 't', 'e', 'e', 'n', + HB_P_PUSHSTR, 9, 0, /* 9 */ + 's', 'e', 'v', 'e', 'n', 't', 'e', 'e', 'n', + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'e', 'i', 'g', 'h', 't', 'e', 'e', 'n', + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'n', 'i', 'n', 'e', 't', 'e', 'e', 'n', + HB_P_ARRAYGEN, 19, 0, /* 19 */ + HB_P_POPLOCAL, 3, 0, /* AARRAY1 */ +/* 00178 */ HB_P_LINE, 87, 0, /* 87 */ + HB_P_PUSHSTR, 3, 0, /* 3 */ + 't', 'e', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 't', 'w', 'e', 'n', 't', 'y', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 't', 'h', 'i', 'r', 't', 'y', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'f', 'o', 'r', 't', 'y', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'f', 'i', 'f', 't', 'y', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 's', 'i', 'x', 't', 'y', + HB_P_PUSHSTR, 7, 0, /* 7 */ + 's', 'e', 'v', 'e', 'n', 't', 'y', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'e', 'i', 'g', 'h', 't', 'y', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'n', 'i', 'n', 'e', 't', 'y', + HB_P_ARRAYGEN, 9, 0, /* 9 */ + HB_P_POPLOCAL, 4, 0, /* AARRAY2 */ +/* 00263 */ HB_P_LINE, 89, 0, /* 89 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 20, 0, 0, 0, /* 20 */ + HB_P_LESS, + HB_P_JUMPFALSE, 19, 0, /* 19 (abs: 00294) */ +/* 00278 */ HB_P_LINE, 90, 0, /* 90 */ + HB_P_PUSHLOCAL, 3, 0, /* AARRAY1 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_ARRAYPUSH, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ + HB_P_JUMP, 118, 0, /* 118 (abs: 00409) */ +/* 00294 */ HB_P_LINE, 92, 0, /* 92 */ + HB_P_PUSHLOCAL, 4, 0, /* AARRAY2 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 10, 0, 0, 0, /* 10 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_ARRAYPUSH, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ +/* 00320 */ HB_P_LINE, 93, 0, /* 93 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 10, 0, 0, 0, /* 10 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 10, 0, 0, 0, /* 10 */ + HB_P_DIVIDE, + HB_P_FUNCTION, 1, 0, + HB_P_MULT, + HB_P_MINUS, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ +/* 00352 */ HB_P_LINE, 94, 0, /* 94 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_FUNCTION, 1, 0, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_GREATEREQUAL, + HB_P_JUMPFALSE, 35, 0, /* 35 (abs: 00406) */ +/* 00374 */ HB_P_LINE, 95, 0, /* 95 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_PUSHSTR, 1, 0, /* 1 */ + ' ', + HB_P_PUSHLOCAL, 3, 0, /* AARRAY1 */ + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_FUNCTION, 1, 0, + HB_P_ARRAYPUSH, + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 2, 0, /* CRETVAL */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00406) */ +/* 00406 */ HB_P_LINE, 99, 0, /* 99 */ + HB_P_PUSHLOCAL, 2, 0, /* CRETVAL */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00414 */ + }; + + hb_vmExecute( pcode, symbols ); +} + diff --git a/harbour/source/tools/numtxthu.c b/harbour/source/tools/numtxthu.c new file mode 100644 index 0000000000..c3be09c6e0 --- /dev/null +++ b/harbour/source/tools/numtxthu.c @@ -0,0 +1,491 @@ +/* + * Harbour Compiler, Build 30b (1999.10.16) + * Generated C source code + */ + +#include "hb_vmpub.h" +#include "init.h" + + +HARBOUR HB_NUMTOTXTHU( void ); +static HARBOUR HB_NUMTOTXTRAW( void ); +extern HARBOUR HB_INT( void ); +extern HARBOUR HB_LEN( void ); +extern HARBOUR HB_SUBSTR( void ); +extern HARBOUR HB_STR( void ); +extern HARBOUR HB_STRZERO( void ); +extern HARBOUR HB_VAL( void ); +extern HARBOUR HB_EMPTY( void ); + + +HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_NUMTXTHU ) +{ "NUMTOTXTHU", FS_PUBLIC, HB_NUMTOTXTHU, 0 }, +{ "NUMTOTXTRAW", FS_STATIC, HB_NUMTOTXTRAW, 0 }, +{ "INT", FS_PUBLIC, HB_INT, 0 }, +{ "LEN", FS_PUBLIC, HB_LEN, 0 }, +{ "SUBSTR", FS_PUBLIC, HB_SUBSTR, 0 }, +{ "STR", FS_PUBLIC, HB_STR, 0 }, +{ "STRZERO", FS_PUBLIC, HB_STRZERO, 0 }, +{ "VAL", FS_PUBLIC, HB_VAL, 0 }, +{ "EMPTY", FS_PUBLIC, HB_EMPTY, 0 } +HB_INIT_SYMBOLS_END( hb_vm_SymbolInit_NUMTXTHU ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_vm_SymbolInit_NUMTXTHU +#endif + + +HARBOUR HB_NUMTOTXTHU( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 5, 1, /* locals, params */ +/* 00006 */ HB_P_LINE, 37, 0, /* 37 */ + HB_P_PUSHSTR, 5, 0, /* 5 */ + 't', 'i', 'z', 'e', 'd', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 's', 'z', 160, 'z', 'a', 'd', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'e', 'z', 'r', 'e', 'd', + HB_P_PUSHSTR, 8, 0, /* 8 */ + 't', 161, 'z', 'e', 'z', 'r', 'e', 'd', + HB_P_PUSHSTR, 9, 0, /* 9 */ + 's', 'z', 160, 'z', 'e', 'z', 'r', 'e', 'd', + HB_P_PUSHSTR, 9, 0, /* 9 */ + 'm', 'i', 'l', 'l', 'i', 'o', 'm', 'o', 'd', + HB_P_ARRAYGEN, 6, 0, /* 6 */ + HB_P_POPLOCAL, 2, 0, /* ATORT */ +/* 00075 */ HB_P_LINE, 41, 0, /* 41 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_ZERO, + HB_P_EXACTLYEQUAL, + HB_P_JUMPFALSE, 19, 0, /* 19 (abs: 00102) */ +/* 00086 */ HB_P_LINE, 42, 0, /* 42 */ + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'n', 'u', 'l', 'l', 'a', + HB_P_RETVALUE, + HB_P_ENDPROC, + HB_P_JUMP, 3, 0, /* 3 (abs: 00102) */ +/* 00102 */ HB_P_LINE, 45, 0, /* 45 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_ZERO, + HB_P_LESS, + HB_P_JUMPFALSE, 32, 0, /* 32 (abs: 00142) */ +/* 00113 */ HB_P_LINE, 46, 0, /* 46 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_NEGATE, + HB_P_POPLOCAL, 1, 0, /* NVALUE */ +/* 00123 */ HB_P_LINE, 47, 0, /* 47 */ + HB_P_PUSHSTR, 7, 0, /* 7 */ + 'm', 161, 'n', 'u', 's', 'z', ' ', + HB_P_POPLOCAL, 3, 0, /* CRETVAL */ + HB_P_JUMP, 12, 0, /* 12 (abs: 00151) */ +/* 00142 */ HB_P_LINE, 49, 0, /* 49 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_POPLOCAL, 3, 0, /* CRETVAL */ +/* 00151 */ HB_P_LINE, 52, 0, /* 52 */ + HB_P_PUSHLOCAL, 3, 0, /* CRETVAL */ + HB_P_PUSHSYM, 1, 0, /* NUMTOTXTRAW */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 2, 0, /* INT */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_FUNCTION, 1, 0, + HB_P_DUPLICATE, + HB_P_POPLOCAL, 4, 0, /* TMP */ + HB_P_FUNCTION, 1, 0, + HB_P_PLUS, + HB_P_POPLOCAL, 3, 0, /* CRETVAL */ +/* 00182 */ HB_P_LINE, 54, 0, /* 54 */ + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLOCAL, 4, 0, /* TMP */ + HB_P_MINUS, + HB_P_DUPLICATE, + HB_P_POPLOCAL, 4, 0, /* TMP */ + HB_P_ZERO, + HB_P_GREATER, + HB_P_DUPLICATE, + HB_P_JUMPFALSE, 13, 0, /* 13 (abs: 00212) */ + HB_P_PUSHLOCAL, 4, 0, /* TMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_LESS, + HB_P_AND, + HB_P_JUMPFALSE, 207, 0, /* 207 (abs: 00419) */ +/* 00215 */ HB_P_LINE, 55, 0, /* 55 */ + HB_P_PUSHSYM, 3, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 4, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 5, 0, /* STR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* TMP */ + HB_P_PUSHLONG, 8, 0, 0, 0, /* 8 */ + HB_P_PUSHLONG, 6, 0, 0, 0, /* 6 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHLONG, 3, 0, 0, 0, /* 3 */ + HB_P_FUNCTION, 2, 0, + HB_P_DUPLICATE, + HB_P_POPLOCAL, 6, 0, /* TMP2 */ + HB_P_FUNCTION, 1, 0, + HB_P_POPLOCAL, 5, 0, /* TMP1 */ + HB_P_PUSHSYM, 4, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 6, 0, /* TMP2 */ + HB_P_PUSHLOCAL, 5, 0, /* TMP1 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_PUSHSTR, 1, 0, /* 1 */ + '0', + HB_P_EXACTLYEQUAL, + HB_P_DUPLICATE, + HB_P_JUMPFALSE, 9, 0, /* 9 (abs: 00297) */ + HB_P_PUSHLOCAL, 5, 0, /* TMP1 */ + HB_P_ZERO, + HB_P_GREATER, + HB_P_AND, + HB_P_JUMPFALSE, 16, 0, /* 16 (abs: 00313) */ +/* 00300 */ HB_P_LINE, 59, 0, /* 59 */ + HB_P_PUSHLOCAL, 5, 0, /* TMP1 */ + HB_P_DEC, + HB_P_POPLOCAL, 5, 0, /* TMP1 */ + HB_P_JUMP, 210, 255, /* -46 (abs: 00264) */ +/* 00313 */ HB_P_LINE, 60, 0, /* 60 */ + HB_P_PUSHLOCAL, 3, 0, /* CRETVAL */ + HB_P_PUSHSTR, 7, 0, /* 7 */ + ' ', 'e', 'g', 130, 's', 'z', ' ', + HB_P_PUSHSYM, 1, 0, /* NUMTOTXTRAW */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 4, 0, /* TMP */ + HB_P_PUSHLONG, 10, 0, 0, 0, /* 10 */ + HB_P_PUSHLOCAL, 5, 0, /* TMP1 */ + HB_P_POWER, + HB_P_MULT, + HB_P_FUNCTION, 1, 0, + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 3, 0, /* CRETVAL */ +/* 00354 */ HB_P_LINE, 63, 0, /* 63 */ + HB_P_PUSHLOCAL, 5, 0, /* TMP1 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_GREATEREQUAL, + HB_P_DUPLICATE, + HB_P_JUMPFALSE, 18, 0, /* 18 (abs: 00385) */ + HB_P_PUSHLOCAL, 5, 0, /* TMP1 */ + HB_P_PUSHSYM, 3, 0, /* LEN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 2, 0, /* ATORT */ + HB_P_FUNCTION, 1, 0, + HB_P_LESSEQUAL, + HB_P_AND, + HB_P_JUMPFALSE, 28, 0, /* 28 (abs: 00413) */ +/* 00388 */ HB_P_LINE, 64, 0, /* 64 */ + HB_P_PUSHLOCAL, 3, 0, /* CRETVAL */ + HB_P_PUSHSTR, 1, 0, /* 1 */ + ' ', + HB_P_PUSHLOCAL, 2, 0, /* ATORT */ + HB_P_PUSHLOCAL, 5, 0, /* TMP1 */ + HB_P_ARRAYPUSH, + HB_P_PLUS, + HB_P_PLUS, + HB_P_POPLOCAL, 3, 0, /* CRETVAL */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00413) */ +/* 00413 */ HB_P_LINE, 65, 0, /* 65 */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00419) */ +/* 00419 */ HB_P_LINE, 68, 0, /* 68 */ + HB_P_PUSHLOCAL, 3, 0, /* CRETVAL */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00427 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_NUMTOTXTRAW( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 6, 1, /* locals, params */ + HB_P_PUSHLONG, 18, 0, 0, 0, /* 18 */ + HB_P_ARRAYDIM, 1, 0, /* 1 */ + HB_P_POPLOCAL, 2, 0, /* ADIGIT */ +/* 00017 */ HB_P_LINE, 74, 0, /* 74 */ + HB_P_PUSHSYM, 6, 0, /* STRZERO */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* NVALUE */ + HB_P_PUSHLONG, 18, 0, 0, 0, /* 18 */ + HB_P_FUNCTION, 2, 0, + HB_P_POPLOCAL, 3, 0, /* CVALUE */ +/* 00038 */ HB_P_LINE, 75, 0, /* 75 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'e', 'z', 'e', 'r', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'm', 'i', 'l', 'l', 'i', 162, + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'm', 'i', 'l', 'l', 'i', 160, 'r', 'd', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'b', 'i', 'l', 'l', 'i', 162, + HB_P_PUSHSTR, 10, 0, /* 10 */ + 'e', 'z', 'e', 'r', 'b', 'i', 'l', 'l', 'i', 162, + HB_P_ARRAYGEN, 6, 0, /* 6 */ + HB_P_POPLOCAL, 4, 0, /* AEGESZ */ +/* 00099 */ HB_P_LINE, 77, 0, /* 77 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'e', 'g', 'y', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'k', 'e', 't', 't', 139, + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'h', 160, 'r', 'o', 'm', + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'n', 130, 'g', 'y', + HB_P_PUSHSTR, 2, 0, /* 2 */ + 148, 't', + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'h', 'a', 't', + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'h', 130, 't', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'n', 'y', 'o', 'l', 'c', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'k', 'i', 'l', 'e', 'n', 'c', + HB_P_ARRAYGEN, 10, 0, /* 10 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'e', 'g', 'y', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'k', 'e', 't', 't', 139, + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'h', 160, 'r', 'o', 'm', + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'n', 130, 'g', 'y', + HB_P_PUSHSTR, 2, 0, /* 2 */ + 148, 't', + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'h', 'a', 't', + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'h', 130, 't', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'n', 'y', 'o', 'l', 'c', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'k', 'i', 'l', 'e', 'n', 'c', + HB_P_ARRAYGEN, 10, 0, /* 10 */ + HB_P_ARRAYGEN, 2, 0, /* 2 */ + HB_P_POPLOCAL, 5, 0, /* AEGYES */ +/* 00246 */ HB_P_LINE, 79, 0, /* 79 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_PUSHSTR, 3, 0, /* 3 */ + 't', 161, 'z', + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'h', 163, 's', 'z', + HB_P_PUSHSTR, 7, 0, /* 7 */ + 'h', 'a', 'r', 'm', 'i', 'n', 'c', + HB_P_PUSHSTR, 7, 0, /* 7 */ + 'n', 'e', 'g', 'y', 'v', 'e', 'n', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 148, 't', 'v', 'e', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'h', 'a', 't', 'v', 'a', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'h', 'e', 't', 'v', 'e', 'n', + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'n', 'y', 'o', 'l', 'c', 'v', 'a', 'n', + HB_P_PUSHSTR, 9, 0, /* 9 */ + 'k', 'i', 'l', 'e', 'n', 'c', 'v', 'e', 'n', + HB_P_ARRAYGEN, 10, 0, /* 10 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_PUSHSTR, 5, 0, /* 5 */ + 't', 'i', 'z', 'e', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'h', 'u', 's', 'z', 'o', 'n', + HB_P_PUSHSTR, 7, 0, /* 7 */ + 'h', 'a', 'r', 'm', 'i', 'n', 'c', + HB_P_PUSHSTR, 7, 0, /* 7 */ + 'n', 'e', 'g', 'y', 'v', 'e', 'n', + HB_P_PUSHSTR, 5, 0, /* 5 */ + 148, 't', 'v', 'e', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'h', 'a', 't', 'v', 'a', 'n', + HB_P_PUSHSTR, 6, 0, /* 6 */ + 'h', 'e', 't', 'v', 'e', 'n', + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'n', 'y', 'o', 'l', 'c', 'v', 'a', 'n', + HB_P_PUSHSTR, 9, 0, /* 9 */ + 'k', 'i', 'l', 'e', 'n', 'c', 'v', 'e', 'n', + HB_P_ARRAYGEN, 10, 0, /* 10 */ + HB_P_ARRAYGEN, 2, 0, /* 2 */ + HB_P_POPLOCAL, 6, 0, /* ATIZES */ +/* 00435 */ HB_P_LINE, 82, 0, /* 82 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 18, 0, 0, 0, /* 18 */ + HB_P_LESSEQUAL, + HB_P_JUMPFALSE, 60, 0, /* 60 (abs: 00515) */ +/* 00458 */ HB_P_LINE, 83, 0, /* 83 */ + HB_P_PUSHSYM, 7, 0, /* VAL */ + HB_P_PUSHNIL, + HB_P_PUSHSYM, 4, 0, /* SUBSTR */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 3, 0, /* CVALUE */ + HB_P_PUSHLONG, 18, 0, 0, 0, /* 18 */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_MINUS, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_FUNCTION, 3, 0, + HB_P_FUNCTION, 1, 0, + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_ARRAYPOP, + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_INC, + HB_P_POPLOCAL, 7, 0, /* TMP */ + HB_P_JUMP, 190, 255, /* -66 (abs: 00446) */ +/* 00515 */ HB_P_LINE, 86, 0, /* 86 */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_POPLOCAL, 3, 0, /* CVALUE */ +/* 00524 */ HB_P_LINE, 87, 0, /* 87 */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_POPLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 16, 0, 0, 0, /* 16 */ + HB_P_PUSHLONG, 3, 0, 0, 0, /* 3 */ + HB_P_FORTEST, + HB_P_JUMPFALSE, 59, 1, /* 315 (abs: 00864) */ +/* 00552 */ HB_P_LINE, 88, 0, /* 88 */ + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_ARRAYPUSH, + HB_P_ZERO, + HB_P_NOTEQUAL, + HB_P_DUPLICATE, + HB_P_JUMPTRUE, 19, 0, /* 19 (abs: 00584) */ + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_ZERO, + HB_P_NOTEQUAL, + HB_P_OR, + HB_P_DUPLICATE, + HB_P_JUMPTRUE, 19, 0, /* 19 (abs: 00604) */ + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_ZERO, + HB_P_NOTEQUAL, + HB_P_OR, + HB_P_JUMPFALSE, 242, 0, /* 242 (abs: 00846) */ +/* 00607 */ HB_P_LINE, 89, 0, /* 89 */ + HB_P_PUSHLOCAL, 5, 0, /* AEGYES */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_EXACTLYEQUAL, + HB_P_JUMPFALSE, 11, 0, /* 11 (abs: 00633) */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_JUMP, 8, 0, /* 8 (abs: 00638) */ + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_ARRAYPUSH, + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_ARRAYPUSH, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_PUSHLOCAL, 4, 0, /* AEGESZ */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_MINUS, + HB_P_PUSHLONG, 3, 0, 0, 0, /* 3 */ + HB_P_DIVIDE, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_PLUS, + HB_P_PUSHSYM, 8, 0, /* EMPTY */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 3, 0, /* CVALUE */ + HB_P_FUNCTION, 1, 0, + HB_P_JUMPFALSE, 9, 0, /* 9 (abs: 00698) */ + HB_P_PUSHSTR, 0, 0, /* 0 */ + HB_P_JUMP, 7, 0, /* 7 (abs: 00702) */ + HB_P_PUSHSTR, 1, 0, /* 1 */ + '-', + HB_P_PLUS, + HB_P_PUSHLOCAL, 3, 0, /* CVALUE */ + HB_P_PLUS, + HB_P_POPLOCAL, 3, 0, /* CVALUE */ +/* 00710 */ HB_P_LINE, 90, 0, /* 90 */ + HB_P_PUSHLOCAL, 6, 0, /* ATIZES */ + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_ARRAYPUSH, + HB_P_ZERO, + HB_P_EXACTLYEQUAL, + HB_P_JUMPFALSE, 11, 0, /* 11 (abs: 00736) */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_JUMP, 8, 0, /* 8 (abs: 00741) */ + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_ARRAYPUSH, + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_PUSHLOCAL, 3, 0, /* CVALUE */ + HB_P_PLUS, + HB_P_POPLOCAL, 3, 0, /* CVALUE */ +/* 00769 */ HB_P_LINE, 91, 0, /* 91 */ + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_ZERO, + HB_P_NOTEQUAL, + HB_P_JUMPFALSE, 53, 0, /* 53 (abs: 00840) */ +/* 00790 */ HB_P_LINE, 92, 0, /* 92 */ + HB_P_PUSHLOCAL, 5, 0, /* AEGYES */ + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_ARRAYPUSH, + HB_P_PUSHLOCAL, 2, 0, /* ADIGIT */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 2, 0, 0, 0, /* 2 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_PUSHLONG, 1, 0, 0, 0, /* 1 */ + HB_P_PLUS, + HB_P_ARRAYPUSH, + HB_P_PUSHSTR, 4, 0, /* 4 */ + 's', 'z', 160, 'z', + HB_P_PLUS, + HB_P_PUSHLOCAL, 3, 0, /* CVALUE */ + HB_P_PLUS, + HB_P_POPLOCAL, 3, 0, /* CVALUE */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00840) */ +/* 00840 */ HB_P_LINE, 93, 0, /* 93 */ + HB_P_JUMP, 3, 0, /* 3 (abs: 00846) */ +/* 00846 */ HB_P_LINE, 94, 0, /* 94 */ + HB_P_PUSHLOCAL, 7, 0, /* TMP */ + HB_P_PUSHLONG, 3, 0, 0, 0, /* 3 */ + HB_P_PLUS, + HB_P_POPLOCAL, 7, 0, /* TMP */ + HB_P_JUMP, 186, 254, /* -326 (abs: 00535) */ +/* 00864 */ HB_P_LINE, 97, 0, /* 97 */ + HB_P_PUSHLOCAL, 3, 0, /* CVALUE */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00872 */ + }; + + hb_vmExecute( pcode, symbols ); +} + diff --git a/harbour/source/tools/rtf.c b/harbour/source/tools/rtf.c new file mode 100644 index 0000000000..d611a59b4d --- /dev/null +++ b/harbour/source/tools/rtf.c @@ -0,0 +1,551 @@ +/* + * Harbour Compiler, Build 30b (1999.10.16) + * Generated C source code + */ + +#include "hb_vmpub.h" +#include "init.h" + + +HARBOUR HB_TRTF( void ); +static HARBOUR HB_TRTF_NEW( void ); +static HARBOUR HB_TRTF_WRITEHEADER( void ); +static HARBOUR HB_TRTF_WRITEPAR( void ); +static HARBOUR HB_TRTF_WRITEPARBOLD( void ); +static HARBOUR HB_TRTF_WRITETITLE( void ); +static HARBOUR HB_TRTF_CLOSE( void ); +static HARBOUR HB_TRTF_WRITELINK( void ); +static HARBOUR hb_INITSTATICS( void ); +extern HARBOUR HB_TCLASS( void ); +extern HARBOUR HB_VALTYPE( void ); +extern HARBOUR HB_FCREATE( void ); +extern HARBOUR HB_FWRITE( void ); +extern HARBOUR HB_AT( void ); +extern HARBOUR HB_STRTRAN( void ); +extern HARBOUR HB_FCLOSE( void ); + + +HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_RTF ) +{ "TRTF", FS_PUBLIC, HB_TRTF, 0 }, +{ "TCLASS", FS_PUBLIC, HB_TCLASS, 0 }, +{ "NEW", FS_PUBLIC, 0, 0 }, +{ "ADDDATA", FS_PUBLIC, 0, 0 }, +{ "ADDMETHOD", FS_PUBLIC, 0, 0 }, +{ "TRTF_WRITEHEADER", FS_STATIC, HB_TRTF_WRITEHEADER, 0 }, +{ "TRTF_NEW", FS_STATIC, HB_TRTF_NEW, 0 }, +{ "TRTF_WRITEPAR", FS_STATIC, HB_TRTF_WRITEPAR, 0 }, +{ "TRTF_WRITELINK", FS_STATIC, HB_TRTF_WRITELINK, 0 }, +{ "TRTF_CLOSE", FS_STATIC, HB_TRTF_CLOSE, 0 }, +{ "TRTF_WRITEPARBOLD", FS_STATIC, HB_TRTF_WRITEPARBOLD, 0 }, +{ "TRTF_WRITETITLE", FS_STATIC, HB_TRTF_WRITETITLE, 0 }, +{ "CREATE", FS_PUBLIC, 0, 0 }, +{ "INSTANCE", FS_PUBLIC, 0, 0 }, +{ "VALTYPE", FS_PUBLIC, HB_VALTYPE, 0 }, +{ "_CFILE", FS_PUBLIC, 0, 0 }, +{ "_NHANDLE", FS_PUBLIC, 0, 0 }, +{ "FCREATE", FS_PUBLIC, HB_FCREATE, 0 }, +{ "CFILE", FS_PUBLIC, 0, 0 }, +{ "FWRITE", FS_PUBLIC, HB_FWRITE, 0 }, +{ "NHANDLE", FS_PUBLIC, 0, 0 }, +{ "AT", FS_PUBLIC, HB_AT, 0 }, +{ "STRTRAN", FS_PUBLIC, HB_STRTRAN, 0 }, +{ "WRITEPAR", FS_PUBLIC, 0, 0 }, +{ "FCLOSE", FS_PUBLIC, HB_FCLOSE, 0 }, +{ "(_INITSTATICS)", FS_INIT | FS_EXIT, hb_INITSTATICS, 0} +HB_INIT_SYMBOLS_END( hb_vm_SymbolInit_RTF ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_vm_SymbolInit_RTF +#endif + + +HARBOUR HB_TRTF( void ) +{ + static BYTE pcode[] = + { + HB_P_SFRAME, 25, 0, /* symbol (_INITSTATICS) */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_PUSHNIL, + HB_P_EXACTLYEQUAL, + HB_P_JUMPFALSE, 25, 1, /* 281 (abs: 00292) */ +/* 00014 */ HB_P_LINE, 35, 0, /* 35 */ + HB_P_PUSHSYM, 1, 0, /* TCLASS */ + HB_P_PUSHNIL, + HB_P_FUNCTION, 0, 0, + HB_P_MESSAGE, 2, 0, /* NEW */ + HB_P_PUSHSTR, 4, 0, /* 4 */ + 'T', 'R', 'T', 'F', + HB_P_FUNCTION, 1, 0, + HB_P_POPSTATIC, 1, 0, /* OCLASS */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 3, 0, /* ADDDATA */ + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'c', 'F', 'i', 'l', 'e', + HB_P_FUNCTION, 1, 0, + HB_P_POP, +/* 00058 */ HB_P_LINE, 38, 0, /* 38 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 3, 0, /* ADDDATA */ + HB_P_PUSHSTR, 7, 0, /* 7 */ + 'n', 'H', 'a', 'n', 'd', 'l', 'e', + HB_P_FUNCTION, 1, 0, + HB_P_POP, +/* 00081 */ HB_P_LINE, 39, 0, /* 39 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 4, 0, /* ADDMETHOD */ + HB_P_PUSHSTR, 11, 0, /* 11 */ + 'W', 'r', 'i', 't', 'e', 'H', 'e', 'a', 'd', 'e', 'r', + HB_P_PUSHSYM, 5, 0, /* TRTF_WRITEHEADER */ + HB_P_FUNCPTR, + HB_P_FUNCTION, 2, 0, + HB_P_POP, +/* 00112 */ HB_P_LINE, 40, 0, /* 40 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 4, 0, /* ADDMETHOD */ + HB_P_PUSHSTR, 3, 0, /* 3 */ + 'N', 'e', 'w', + HB_P_PUSHSYM, 6, 0, /* TRTF_NEW */ + HB_P_FUNCPTR, + HB_P_FUNCTION, 2, 0, + HB_P_POP, + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 4, 0, /* ADDMETHOD */ + HB_P_PUSHSTR, 8, 0, /* 8 */ + 'W', 'r', 'i', 't', 'e', 'P', 'a', 'r', + HB_P_PUSHSYM, 7, 0, /* TRTF_WRITEPAR */ + HB_P_FUNCPTR, + HB_P_FUNCTION, 2, 0, + HB_P_POP, +/* 00160 */ HB_P_LINE, 43, 0, /* 43 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 4, 0, /* ADDMETHOD */ + HB_P_PUSHSTR, 9, 0, /* 9 */ + 'W', 'r', 'i', 't', 'e', 'L', 'i', 'n', 'k', + HB_P_PUSHSYM, 8, 0, /* TRTF_WRITELINK */ + HB_P_FUNCPTR, + HB_P_FUNCTION, 2, 0, + HB_P_POP, +/* 00189 */ HB_P_LINE, 44, 0, /* 44 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 4, 0, /* ADDMETHOD */ + HB_P_PUSHSTR, 5, 0, /* 5 */ + 'C', 'l', 'o', 's', 'e', + HB_P_PUSHSYM, 9, 0, /* TRTF_CLOSE */ + HB_P_FUNCPTR, + HB_P_FUNCTION, 2, 0, + HB_P_POP, +/* 00214 */ HB_P_LINE, 45, 0, /* 45 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 4, 0, /* ADDMETHOD */ + HB_P_PUSHSTR, 12, 0, /* 12 */ + 'W', 'r', 'i', 't', 'e', 'P', 'a', 'r', 'B', 'o', 'l', 'd', + HB_P_PUSHSYM, 10, 0, /* TRTF_WRITEPARBOLD */ + HB_P_FUNCPTR, + HB_P_FUNCTION, 2, 0, + HB_P_POP, +/* 00246 */ HB_P_LINE, 46, 0, /* 46 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 4, 0, /* ADDMETHOD */ + HB_P_PUSHSTR, 10, 0, /* 10 */ + 'W', 'r', 'i', 't', 'e', 'T', 'i', 't', 'l', 'e', + HB_P_PUSHSYM, 11, 0, /* TRTF_WRITETITLE */ + HB_P_FUNCPTR, + HB_P_FUNCTION, 2, 0, + HB_P_POP, +/* 00276 */ HB_P_LINE, 47, 0, /* 47 */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 12, 0, /* CREATE */ + HB_P_FUNCTION, 0, 0, + HB_P_POP, + HB_P_JUMP, 3, 0, /* 3 (abs: 00292) */ + HB_P_PUSHSTATIC, 1, 0, /* OCLASS */ + HB_P_MESSAGE, 13, 0, /* INSTANCE */ + HB_P_FUNCTION, 0, 0, + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00303 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_TRTF_NEW( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 1, 1, /* locals, params */ + HB_P_PUSHSELF, + HB_P_POPLOCAL, 2, 0, /* SELF */ +/* 00010 */ HB_P_LINE, 50, 0, /* 50 */ + HB_P_PUSHSYM, 14, 0, /* VALTYPE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CFILE */ + HB_P_FUNCTION, 1, 0, + HB_P_PUSHNIL, + HB_P_NOTEQUAL, + HB_P_DUPLICATE, + HB_P_JUMPFALSE, 19, 0, /* 19 (abs: 00045) */ + HB_P_PUSHSYM, 14, 0, /* VALTYPE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CFILE */ + HB_P_FUNCTION, 1, 0, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 'C', + HB_P_EXACTLYEQUAL, + HB_P_AND, + HB_P_JUMPFALSE, 51, 0, /* 51 (abs: 00096) */ +/* 00048 */ HB_P_LINE, 51, 0, /* 51 */ + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_MESSAGE, 15, 0, /* _CFILE */ + HB_P_PUSHLOCAL, 1, 0, /* CFILE */ + HB_P_FUNCTION, 1, 0, + HB_P_POP, +/* 00064 */ HB_P_LINE, 52, 0, /* 52 */ + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_MESSAGE, 16, 0, /* _NHANDLE */ + HB_P_PUSHSYM, 17, 0, /* FCREATE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_MESSAGE, 18, 0, /* CFILE */ + HB_P_FUNCTION, 0, 0, + HB_P_FUNCTION, 1, 0, + HB_P_FUNCTION, 1, 0, + HB_P_POP, + HB_P_JUMP, 3, 0, /* 3 (abs: 00096) */ +/* 00096 */ HB_P_LINE, 54, 0, /* 54 */ + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00104 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_TRTF_WRITEHEADER( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 3, 0, /* locals, params */ + HB_P_PUSHSELF, + HB_P_POPLOCAL, 1, 0, /* SELF */ +/* 00010 */ HB_P_LINE, 74, 0, /* 74 */ + HB_P_PUSHSTR, 188, 1, /* 444 */ + '{', 92, 'r', 't', 'f', '1', 92, 'a', 'n', 's', 'i', 92, 'p', 'a', 'r', 'd', 92, 'p', 'l', 'a', 'i', 'n', 92, 'f', 's', '2', '0', 13, 10, 92, 'd', 'e', 'f', 'f', '5', '{', 92, 'f', 'o', 'n', 't', 't', 'b', 'l', 13, 10, '{', 92, 'f', '0', 92, 'f', 'r', 'o', 'm', 'a', 'n', ' ', 'T', 'm', 's', ' ', 'R', 'm', 'n', ';', '}', 13, 10, '{', 92, 'f', '1', 92, 'f', 'd', 'e', 'c', 'o', 'r', ' ', 'S', 'y', 'm', 'b', 'o', 'l', ';', '}', 13, 10, '{', 92, 'f', '2', 92, 'f', 's', 'w', 'i', 's', 's', ' ', 'H', 'e', 'l', 'v', ';', '}', 13, 10, '{', 92, 'f', '3', 92, 'f', 'm', 'o', 'd', 'e', 'r', 'n', ' ', 'L', 'i', 'n', 'e', 'P', 'r', 'i', 'n', 't', 'e', 'r', ';', '}', 13, 10, '{', 92, 'f', '4', 92, 'f', 'r', 'o', 'm', 'a', 'n', ' ', 'T', 'e', 'r', 'm', 'i', 'n', 'a', 'l', ';', '}', 13, 10, '{', 92, 'f', '5', 92, 'f', 'r', 'o', 'm', 'a', 'n', ' ', 'T', 'i', 'm', 'e', 's', ' ', 'N', 'e', 'w', ' ', 'R', 'o', 'm', 'a', 'n', ';', '}', 13, 10, '{', 92, 'f', '6', 92, 'f', 's', 'w', 'i', 's', 's', ' ', 'A', 'r', 'i', 'a', 'l', ';', '}', 13, 10, '{', 92, 'f', '7', 92, 'f', 'r', 'o', 'm', 'a', 'n', ' ', 'C', 'G', ' ', 'T', 'i', 'm', 'e', 's', ' ', '(', 'W', 'N', ')', ';', '}', 13, 10, '{', 92, 'f', '8', 92, 'f', 'm', 'o', 'd', 'e', 'r', 'n', ' ', 'C', 'o', 'u', 'r', 'i', 'e', 'r', ';', '}', 13, 10, '{', 92, 'f', '9', 92, 'f', 'm', 'o', 'd', 'e', 'r', 'n', ' ', 'M', 'o', 'd', 'e', 'r', 'n', ';', '}', 13, 10, '{', 92, 'f', '1', '0', 92, 'f', 's', 'c', 'r', 'i', 'p', 't', ' ', 'S', 'c', 'r', 'i', 'p', 't', ';', '}', 13, 10, '{', 92, 'f', '1', '1', 92, 'f', 's', 'w', 'i', 's', 's', ' ', 'U', 'n', 'i', 'v', 'e', 'r', 's', ' ', '(', 'W', 'N', ')', ';', '}', 13, 10, '{', 92, 'f', '1', '2', 92, 'f', 'n', 'i', 'l', ' ', 'W', 'i', 'n', 'g', 'd', 'i', 'n', 'g', 's', ';', '}', 13, 10, '{', 92, 'f', '1', '3', 92, 'f', 's', 'w', 'i', 's', 's', 92, 'f', 'p', 'r', 'q', '2', 92, 'f', 'c', 'h', 'a', 'r', 's', 'e', 't', '2', '3', '8', ' ', 'V', 'e', 'r', 'd', 'a', 'n', 'a', ';', '}', 13, 10, '{', 92, 'f', '1', '4', 92, 'f', 's', 'w', 'i', 's', 's', ' ', 'M', 'S', ' ', 'S', 'a', 'n', 's', ' ', 'S', 'e', 'r', 'I', 'F', ';', '}', 13, 10, '}', ';', 13, 10, + HB_P_POPLOCAL, 2, 0, /* CHEADER */ +/* 00463 */ HB_P_LINE, 93, 0, /* 93 */ + HB_P_PUSHSTR, 149, 1, /* 405 */ + '{', 92, 'c', 'o', 'l', 'o', 'r', 't', 'b', 'l', ';', 13, 10, 92, 'r', 'e', 'd', '0', 92, 'g', 'r', 'e', 'e', 'n', '0', 92, 'b', 'l', 'u', 'e', '0', ';', 13, 10, 92, 'r', 'e', 'd', '0', 92, 'g', 'r', 'e', 'e', 'n', '0', 92, 'b', 'l', 'u', 'e', '1', '2', '8', ';', 13, 10, 92, 'r', 'e', 'd', '0', 92, 'g', 'r', 'e', 'e', 'n', '1', '2', '8', 92, 'b', 'l', 'u', 'e', '1', '2', '8', ';', 13, 10, 92, 'r', 'e', 'd', '0', 92, 'g', 'r', 'e', 'e', 'n', '1', '2', '8', 92, 'b', 'l', 'u', 'e', '0', ';', 13, 10, 92, 'r', 'e', 'd', '1', '2', '8', 92, 'g', 'r', 'e', 'e', 'n', '0', 92, 'b', 'l', 'u', 'e', '0', ';', 13, 10, 92, 'r', 'e', 'd', '1', '2', '8', 92, 'g', 'r', 'e', 'e', 'n', '0', 92, 'b', 'l', 'u', 'e', '1', '2', '8', ';', 13, 10, 92, 'r', 'e', 'd', '1', '2', '8', 92, 'g', 'r', 'e', 'e', 'n', '1', '2', '8', 92, 'b', 'l', 'u', 'e', '0', ';', 13, 10, 92, 'r', 'e', 'd', '1', '2', '8', 92, 'g', 'r', 'e', 'e', 'n', '1', '2', '8', 92, 'b', 'l', 'u', 'e', '1', '2', '8', ';', 13, 10, 92, 'r', 'e', 'd', '6', '4', 92, 'g', 'r', 'e', 'e', 'n', '6', '4', 92, 'b', 'l', 'u', 'e', '6', '4', ';', 13, 10, 92, 'r', 'e', 'd', '0', 92, 'g', 'r', 'e', 'e', 'n', '0', 92, 'b', 'l', 'u', 'e', '2', '5', '5', ';', 13, 10, 92, 'r', 'e', 'd', '0', 92, 'g', 'r', 'e', 'e', 'n', '2', '5', '5', 92, 'b', 'l', 'u', 'e', '2', '5', '5', ';', 13, 10, 92, 'r', 'e', 'd', '0', 92, 'g', 'r', 'e', 'e', 'n', '2', '5', '5', 92, 'b', 'l', 'u', 'e', '0', ';', 13, 10, 92, 'r', 'e', 'd', '2', '5', '5', 92, 'g', 'r', 'e', 'e', 'n', '0', 92, 'b', 'l', 'u', 'e', '0', ';', 13, 10, 92, 'r', 'e', 'd', '1', '9', '2', 92, 'g', 'r', 'e', 'e', 'n', '1', '9', '2', 92, 'b', 'l', 'u', 'e', '1', '9', '2', ';', 13, 10, 92, 'r', 'e', 'd', '2', '5', '5', 92, 'g', 'r', 'e', 'e', 'n', '2', '5', '5', 92, 'b', 'l', 'u', 'e', '0', ';', 13, 10, 92, 'r', 'e', 'd', '2', '5', '5', 92, 'g', 'r', 'e', 'e', 'n', '2', '5', '5', 92, 'b', 'l', 'u', 'e', '2', '5', '5', ';', 13, 10, '}', 13, 10, + HB_P_POPLOCAL, 3, 0, /* CCOLORTABLE */ +/* 00877 */ HB_P_LINE, 95, 0, /* 95 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHLOCAL, 2, 0, /* CHEADER */ + HB_P_DO, 2, 0, +/* 00899 */ HB_P_LINE, 97, 0, /* 97 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHLOCAL, 3, 0, /* CCOLORTABLE */ + HB_P_DO, 2, 0, +/* 00921 */ HB_P_LINE, 98, 0, /* 98 */ + HB_P_PUSHLOCAL, 1, 0, /* SELF */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00929 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_TRTF_WRITEPAR( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 1, 1, /* locals, params */ + HB_P_PUSHSELF, + HB_P_POPLOCAL, 2, 0, /* SELF */ +/* 00010 */ HB_P_LINE, 101, 0, /* 101 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHSTR, 32, 0, /* 32 */ + 92, 'p', 'a', 'r', 'd', '{', 92, 'p', 'l', 'a', 'i', 'n', 92, 'c', 'f', '1', 92, 'f', '2', 92, 'f', 's', '5', '0', 92, 'i', 92, 'b', 92, 'q', 'c', ' ', + HB_P_PUSHLOCAL, 1, 0, /* CPAR */ + HB_P_PLUS, + HB_P_PUSHSTR, 6, 0, /* 6 */ + ' ', '}', 92, 'p', 'a', 'r', + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 13, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 10, + HB_P_PLUS, + HB_P_DO, 2, 0, +/* 00088 */ HB_P_LINE, 102, 0, /* 102 */ + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00096 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_TRTF_WRITEPARBOLD( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 1, 1, /* locals, params */ + HB_P_PUSHSELF, + HB_P_POPLOCAL, 2, 0, /* SELF */ +/* 00010 */ HB_P_LINE, 104, 0, /* 104 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHSTR, 16, 0, /* 16 */ + 92, 'p', 'a', 'r', 'd', '{', 92, 'c', 'f', '1', 92, 'f', 's', '2', '0', ' ', + HB_P_PUSHLOCAL, 1, 0, /* CPAR */ + HB_P_PLUS, + HB_P_PUSHSTR, 6, 0, /* 6 */ + ' ', '}', 92, 'p', 'a', 'r', + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 13, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 10, + HB_P_PLUS, + HB_P_DO, 2, 0, +/* 00072 */ HB_P_LINE, 105, 0, /* 105 */ + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00080 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_TRTF_WRITETITLE( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 4, 2, /* locals, params */ + HB_P_PUSHSELF, + HB_P_POPLOCAL, 3, 0, /* SELF */ +/* 00010 */ HB_P_LINE, 110, 0, /* 110 */ + HB_P_PUSHSYM, 21, 0, /* AT */ + HB_P_PUSHNIL, + HB_P_PUSHSTR, 2, 0, /* 2 */ + '(', ')', + HB_P_PUSHLOCAL, 1, 0, /* CTITLE */ + HB_P_FUNCTION, 2, 0, + HB_P_POPLOCAL, 5, 0, /* NPOS */ +/* 00031 */ HB_P_LINE, 111, 0, /* 111 */ + HB_P_PUSHLOCAL, 5, 0, /* NPOS */ + HB_P_ZERO, + HB_P_GREATER, + HB_P_JUMPFALSE, 32, 0, /* 32 (abs: 00071) */ +/* 00042 */ HB_P_LINE, 112, 0, /* 112 */ + HB_P_PUSHSYM, 22, 0, /* STRTRAN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CTITLE */ + HB_P_PUSHSTR, 2, 0, /* 2 */ + '(', ')', + HB_P_PUSHSTR, 2, 0, /* 2 */ + 'x', 'x', + HB_P_FUNCTION, 3, 0, + HB_P_POPLOCAL, 4, 0, /* CTEMP */ + HB_P_JUMP, 12, 0, /* 12 (abs: 00080) */ +/* 00071 */ HB_P_LINE, 114, 0, /* 114 */ + HB_P_PUSHLOCAL, 1, 0, /* CTITLE */ + HB_P_POPLOCAL, 4, 0, /* CTEMP */ +/* 00080 */ HB_P_LINE, 120, 0, /* 120 */ + HB_P_PUSHSTR, 40, 0, /* 40 */ + '{', 92, 'f', '2', 13, 10, ' ', ' ', '#', '{', 92, 'f', 'o', 'o', 't', 'n', 'o', 't', 'e', ' ', 92, 'p', 'a', 'r', 'd', 92, 'p', 'l', 'a', 'i', 'n', ' ', 92, 'f', 's', '2', '0', ' ', '#', ' ', + HB_P_PUSHLOCAL, 4, 0, /* CTEMP */ + HB_P_PLUS, + HB_P_PUSHSTR, 2, 0, /* 2 */ + ' ', '}', + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 13, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 10, + HB_P_PLUS, + HB_P_PUSHSTR, 34, 0, /* 34 */ + ' ', ' ', '$', '{', 92, 'f', 'o', 'o', 't', 'n', 'o', 't', 'e', ' ', 92, 'p', 'a', 'r', 'd', 92, 'p', 'l', 'a', 'i', 'n', ' ', 92, 'f', 's', '2', '0', ' ', '$', ' ', + HB_P_PLUS, + HB_P_PUSHLOCAL, 2, 0, /* CTOPIC */ + HB_P_PLUS, + HB_P_PUSHSTR, 2, 0, /* 2 */ + ' ', '}', + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 13, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 10, + HB_P_PLUS, + HB_P_PUSHSTR, 34, 0, /* 34 */ + ' ', ' ', 'K', '{', 92, 'f', 'o', 'o', 't', 'n', 'o', 't', 'e', ' ', 92, 'p', 'a', 'r', 'd', 92, 'p', 'l', 'a', 'i', 'n', ' ', 92, 'f', 's', '2', '0', ' ', 'K', ' ', + HB_P_PLUS, + HB_P_PUSHLOCAL, 2, 0, /* CTOPIC */ + HB_P_PLUS, + HB_P_PUSHSTR, 2, 0, /* 2 */ + ' ', '}', + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 13, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 10, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + '}', + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 13, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 10, + HB_P_PLUS, + HB_P_POPLOCAL, 6, 0, /* CWRITE */ +/* 00280 */ HB_P_LINE, 122, 0, /* 122 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 3, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHLOCAL, 6, 0, /* CWRITE */ + HB_P_DO, 2, 0, +/* 00302 */ HB_P_LINE, 123, 0, /* 123 */ + HB_P_PUSHLOCAL, 3, 0, /* SELF */ + HB_P_MESSAGE, 23, 0, /* WRITEPAR */ + HB_P_PUSHLOCAL, 2, 0, /* CTOPIC */ + HB_P_FUNCTION, 1, 0, + HB_P_POP, +/* 00318 */ HB_P_LINE, 124, 0, /* 124 */ + HB_P_PUSHLOCAL, 3, 0, /* SELF */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00326 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_TRTF_CLOSE( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 1, 0, /* locals, params */ + HB_P_PUSHSELF, + HB_P_POPLOCAL, 1, 0, /* SELF */ +/* 00010 */ HB_P_LINE, 126, 0, /* 126 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHSTR, 3, 0, /* 3 */ + '}', 13, 10, + HB_P_DO, 2, 0, +/* 00035 */ HB_P_LINE, 127, 0, /* 127 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHSTR, 7, 0, /* 7 */ + 92, 'p', 'a', 'g', 'e', 13, 10, + HB_P_DO, 2, 0, +/* 00064 */ HB_P_LINE, 128, 0, /* 128 */ + HB_P_PUSHSYM, 24, 0, /* FCLOSE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_DO, 1, 0, +/* 00083 */ HB_P_LINE, 129, 0, /* 129 */ + HB_P_PUSHLOCAL, 1, 0, /* SELF */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00091 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR HB_TRTF_WRITELINK( void ) +{ + static BYTE pcode[] = + { + HB_P_FRAME, 1, 1, /* locals, params */ + HB_P_PUSHSELF, + HB_P_POPLOCAL, 2, 0, /* SELF */ +/* 00010 */ HB_P_LINE, 132, 0, /* 132 */ + HB_P_PUSHSYM, 19, 0, /* FWRITE */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_MESSAGE, 20, 0, /* NHANDLE */ + HB_P_FUNCTION, 0, 0, + HB_P_PUSHSTR, 35, 0, /* 35 */ + 92, 'p', 'a', 'r', 'd', '{', 92, 'c', 'f', '1', 92, 'f', 's', '2', '0', ' ', 'S', 'e', 'e', ' ', 'A', 'l', 's', 'o', ' ', '{', 92, 'f', '2', 92, 'u', 'l', 'd', 'b', ' ', + HB_P_PUSHLOCAL, 1, 0, /* CLINK */ + HB_P_PLUS, + HB_P_PUSHSTR, 8, 0, /* 8 */ + '}', '{', 92, 'v', 92, 'f', '2', ' ', + HB_P_PLUS, + HB_P_PUSHSYM, 22, 0, /* STRTRAN */ + HB_P_PUSHNIL, + HB_P_PUSHLOCAL, 1, 0, /* CLINK */ + HB_P_PUSHSTR, 2, 0, /* 2 */ + '(', ')', + HB_P_PUSHSTR, 2, 0, /* 2 */ + 'x', 'x', + HB_P_FUNCTION, 3, 0, + HB_P_PLUS, + HB_P_PUSHSTR, 5, 0, /* 5 */ + '}', 92, 'p', 'a', 'r', + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 13, + HB_P_PLUS, + HB_P_PUSHSTR, 1, 0, /* 1 */ + 10, + HB_P_PLUS, + HB_P_DO, 2, 0, +/* 00123 */ HB_P_LINE, 133, 0, /* 133 */ + HB_P_PUSHLOCAL, 2, 0, /* SELF */ + HB_P_RETVALUE, + HB_P_ENDPROC +/* 00131 */ + }; + + hb_vmExecute( pcode, symbols ); +} + +static HARBOUR hb_INITSTATICS( void ) +{ + static BYTE pcode[] = + { + HB_P_STATICS, 25, 0, 1, 0, /* symbol (_INITSTATICS), 1 statics */ + HB_P_SFRAME, 25, 0, /* symbol (_INITSTATICS) */ +/* 00008 */ HB_P_ENDPROC + }; + + hb_vmExecute( pcode, symbols ); +} + diff --git a/harbour/source/tools/rtf.java b/harbour/source/tools/rtf.java new file mode 100644 index 0000000000..4331aa92dd --- /dev/null +++ b/harbour/source/tools/rtf.java @@ -0,0 +1,362 @@ +/* + * Harbour Compiler, Build 30b (1999.10.16) + * Generated JAVA source code + */ + +public class rtf +{ + public static int[] pCode = + { + 0x1E, 0x00, 0x00, 0x00, 0x52, 0x54, 0x46, 0x00, + 0x00, 0x01, 0x54, 0x52, 0x54, 0x46, 0x00, 0x00, + 0x01, 0x54, 0x43, 0x4C, 0x41, 0x53, 0x53, 0x00, + 0x00, 0x02, 0x4E, 0x45, 0x57, 0x00, 0x00, 0x00, + 0x41, 0x44, 0x44, 0x44, 0x41, 0x54, 0x41, 0x00, + 0x00, 0x00, 0x41, 0x44, 0x44, 0x4D, 0x45, 0x54, + 0x48, 0x4F, 0x44, 0x00, 0x00, 0x00, 0x54, 0x52, + 0x54, 0x46, 0x5F, 0x57, 0x52, 0x49, 0x54, 0x45, + 0x48, 0x45, 0x41, 0x44, 0x45, 0x52, 0x00, 0x02, + 0x01, 0x54, 0x52, 0x54, 0x46, 0x5F, 0x4E, 0x45, + 0x57, 0x00, 0x02, 0x01, 0x54, 0x52, 0x54, 0x46, + 0x5F, 0x57, 0x52, 0x49, 0x54, 0x45, 0x50, 0x41, + 0x52, 0x00, 0x02, 0x01, 0x54, 0x52, 0x54, 0x46, + 0x5F, 0x57, 0x52, 0x49, 0x54, 0x45, 0x4C, 0x49, + 0x4E, 0x4B, 0x00, 0x02, 0x01, 0x54, 0x52, 0x54, + 0x46, 0x5F, 0x43, 0x4C, 0x4F, 0x53, 0x45, 0x00, + 0x02, 0x01, 0x54, 0x52, 0x54, 0x46, 0x5F, 0x57, + 0x52, 0x49, 0x54, 0x45, 0x50, 0x41, 0x52, 0x42, + 0x4F, 0x4C, 0x44, 0x00, 0x02, 0x01, 0x54, 0x52, + 0x54, 0x46, 0x5F, 0x57, 0x52, 0x49, 0x54, 0x45, + 0x54, 0x49, 0x54, 0x4C, 0x45, 0x00, 0x02, 0x01, + 0x43, 0x52, 0x45, 0x41, 0x54, 0x45, 0x00, 0x00, + 0x00, 0x49, 0x4E, 0x53, 0x54, 0x41, 0x4E, 0x43, + 0x45, 0x00, 0x00, 0x00, 0x56, 0x41, 0x4C, 0x54, + 0x59, 0x50, 0x45, 0x00, 0x00, 0x02, 0x5F, 0x43, + 0x46, 0x49, 0x4C, 0x45, 0x00, 0x00, 0x00, 0x5F, + 0x4E, 0x48, 0x41, 0x4E, 0x44, 0x4C, 0x45, 0x00, + 0x00, 0x00, 0x46, 0x43, 0x52, 0x45, 0x41, 0x54, + 0x45, 0x00, 0x00, 0x02, 0x43, 0x46, 0x49, 0x4C, + 0x45, 0x00, 0x00, 0x00, 0x46, 0x57, 0x52, 0x49, + 0x54, 0x45, 0x00, 0x00, 0x02, 0x4E, 0x48, 0x41, + 0x4E, 0x44, 0x4C, 0x45, 0x00, 0x00, 0x00, 0x57, + 0x52, 0x49, 0x54, 0x45, 0x50, 0x41, 0x52, 0x00, + 0x00, 0x00, 0x46, 0x43, 0x4C, 0x4F, 0x53, 0x45, + 0x00, 0x00, 0x02, 0x41, 0x54, 0x00, 0x00, 0x02, + 0x53, 0x54, 0x52, 0x54, 0x52, 0x41, 0x4E, 0x00, + 0x00, 0x02, 0x53, 0x55, 0x42, 0x53, 0x54, 0x52, + 0x00, 0x00, 0x02, 0x43, 0x54, 0x4F, 0x50, 0x00, + 0xC0, 0x00, 0x43, 0x54, 0x45, 0x4D, 0x50, 0x00, + 0xC0, 0x00, 0x28, 0x5F, 0x49, 0x4E, 0x49, 0x54, + 0x53, 0x54, 0x41, 0x54, 0x49, 0x43, 0x53, 0x29, + 0x00, 0x18, 0x01, 0x0A, 0x00, 0x00, 0x00, 0x52, + 0x54, 0x46, 0x00, 0x0A, 0x00, 0x00, 0x00, 0x1C, + 0x01, 0x00, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x54, 0x52, 0x54, 0x46, 0x00, 0x2D, 0x01, + 0x00, 0x00, 0x5A, 0x1D, 0x00, 0x51, 0x01, 0x00, + 0x4E, 0x08, 0x18, 0x16, 0x01, 0x1C, 0x23, 0x00, + 0x54, 0x02, 0x00, 0x4E, 0x0B, 0x00, 0x00, 0x24, + 0x03, 0x00, 0x53, 0x04, 0x00, 0x54, 0x52, 0x54, + 0x46, 0x0B, 0x01, 0x00, 0x41, 0x01, 0x00, 0x51, + 0x01, 0x00, 0x24, 0x04, 0x00, 0x53, 0x05, 0x00, + 0x63, 0x46, 0x69, 0x6C, 0x65, 0x0B, 0x01, 0x00, + 0x3B, 0x1C, 0x26, 0x00, 0x51, 0x01, 0x00, 0x24, + 0x04, 0x00, 0x53, 0x07, 0x00, 0x6E, 0x48, 0x61, + 0x6E, 0x64, 0x6C, 0x65, 0x0B, 0x01, 0x00, 0x3B, + 0x1C, 0x27, 0x00, 0x51, 0x01, 0x00, 0x24, 0x05, + 0x00, 0x53, 0x0B, 0x00, 0x57, 0x72, 0x69, 0x74, + 0x65, 0x48, 0x65, 0x61, 0x64, 0x65, 0x72, 0x54, + 0x06, 0x00, 0x0D, 0x0B, 0x02, 0x00, 0x3B, 0x1C, + 0x28, 0x00, 0x51, 0x01, 0x00, 0x24, 0x05, 0x00, + 0x53, 0x03, 0x00, 0x4E, 0x65, 0x77, 0x54, 0x07, + 0x00, 0x0D, 0x0B, 0x02, 0x00, 0x3B, 0x51, 0x01, + 0x00, 0x24, 0x05, 0x00, 0x53, 0x08, 0x00, 0x57, + 0x72, 0x69, 0x74, 0x65, 0x50, 0x61, 0x72, 0x54, + 0x08, 0x00, 0x0D, 0x0B, 0x02, 0x00, 0x3B, 0x1C, + 0x2B, 0x00, 0x51, 0x01, 0x00, 0x24, 0x05, 0x00, + 0x53, 0x09, 0x00, 0x57, 0x72, 0x69, 0x74, 0x65, + 0x4C, 0x69, 0x6E, 0x6B, 0x54, 0x09, 0x00, 0x0D, + 0x0B, 0x02, 0x00, 0x3B, 0x51, 0x01, 0x00, 0x24, + 0x05, 0x00, 0x53, 0x05, 0x00, 0x43, 0x6C, 0x6F, + 0x73, 0x65, 0x54, 0x0A, 0x00, 0x0D, 0x0B, 0x02, + 0x00, 0x3B, 0x1C, 0x2E, 0x00, 0x51, 0x01, 0x00, + 0x24, 0x05, 0x00, 0x53, 0x0C, 0x00, 0x57, 0x72, + 0x69, 0x74, 0x65, 0x50, 0x61, 0x72, 0x42, 0x6F, + 0x6C, 0x64, 0x54, 0x0B, 0x00, 0x0D, 0x0B, 0x02, + 0x00, 0x3B, 0x1C, 0x2F, 0x00, 0x51, 0x01, 0x00, + 0x24, 0x05, 0x00, 0x53, 0x0A, 0x00, 0x57, 0x72, + 0x69, 0x74, 0x65, 0x54, 0x69, 0x74, 0x6C, 0x65, + 0x54, 0x0C, 0x00, 0x0D, 0x0B, 0x02, 0x00, 0x3B, + 0x1C, 0x30, 0x00, 0x51, 0x01, 0x00, 0x24, 0x0D, + 0x00, 0x0B, 0x00, 0x00, 0x3B, 0x17, 0x03, 0x00, + 0x51, 0x01, 0x00, 0x24, 0x0E, 0x00, 0x0B, 0x00, + 0x00, 0x56, 0x07, 0x00, 0x00, 0x00, 0x00, 0x54, + 0x52, 0x54, 0x46, 0x5F, 0x4E, 0x45, 0x57, 0x00, + 0x69, 0x00, 0x00, 0x00, 0x0C, 0x01, 0x01, 0x50, + 0x3F, 0x02, 0x00, 0x1C, 0x33, 0x00, 0x54, 0x0F, + 0x00, 0x4E, 0x49, 0x01, 0x00, 0x0B, 0x01, 0x00, + 0x4E, 0x37, 0x13, 0x18, 0x13, 0x00, 0x54, 0x0F, + 0x00, 0x4E, 0x49, 0x01, 0x00, 0x0B, 0x01, 0x00, + 0x53, 0x01, 0x00, 0x43, 0x08, 0x00, 0x18, 0x33, + 0x00, 0x1C, 0x34, 0x00, 0x49, 0x02, 0x00, 0x24, + 0x10, 0x00, 0x49, 0x01, 0x00, 0x0B, 0x01, 0x00, + 0x3B, 0x1C, 0x35, 0x00, 0x49, 0x02, 0x00, 0x24, + 0x11, 0x00, 0x54, 0x12, 0x00, 0x4E, 0x49, 0x02, + 0x00, 0x24, 0x13, 0x00, 0x0B, 0x00, 0x00, 0x0B, + 0x01, 0x00, 0x0B, 0x01, 0x00, 0x3B, 0x17, 0x03, + 0x00, 0x1C, 0x37, 0x00, 0x49, 0x02, 0x00, 0x56, + 0x07, 0x00, 0x00, 0x00, 0x00, 0x54, 0x52, 0x54, + 0x46, 0x5F, 0x57, 0x52, 0x49, 0x54, 0x45, 0x48, + 0x45, 0x41, 0x44, 0x45, 0x52, 0x00, 0x78, 0x03, + 0x00, 0x00, 0x0C, 0x03, 0x00, 0x50, 0x3F, 0x01, + 0x00, 0x1C, 0x4A, 0x00, 0x53, 0x92, 0x01, 0x7B, + 0x5C, 0x72, 0x74, 0x66, 0x31, 0x5C, 0x61, 0x6E, + 0x73, 0x69, 0x5C, 0x70, 0x61, 0x72, 0x64, 0x5C, + 0x70, 0x6C, 0x61, 0x69, 0x6E, 0x5C, 0x66, 0x73, + 0x32, 0x30, 0x0D, 0x0A, 0x5C, 0x64, 0x65, 0x66, + 0x66, 0x35, 0x7B, 0x5C, 0x66, 0x6F, 0x6E, 0x74, + 0x74, 0x62, 0x6C, 0x0D, 0x0A, 0x7B, 0x5C, 0x66, + 0x30, 0x5C, 0x66, 0x72, 0x6F, 0x6D, 0x61, 0x6E, + 0x20, 0x54, 0x6D, 0x73, 0x20, 0x52, 0x6D, 0x6E, + 0x3B, 0x7D, 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x31, + 0x5C, 0x66, 0x64, 0x65, 0x63, 0x6F, 0x72, 0x20, + 0x53, 0x79, 0x6D, 0x62, 0x6F, 0x6C, 0x3B, 0x7D, + 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x32, 0x5C, 0x66, + 0x73, 0x77, 0x69, 0x73, 0x73, 0x20, 0x48, 0x65, + 0x6C, 0x76, 0x3B, 0x7D, 0x0D, 0x0A, 0x7B, 0x5C, + 0x66, 0x33, 0x5C, 0x66, 0x6D, 0x6F, 0x64, 0x65, + 0x72, 0x6E, 0x20, 0x4C, 0x69, 0x6E, 0x65, 0x50, + 0x72, 0x69, 0x6E, 0x74, 0x65, 0x72, 0x3B, 0x7D, + 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x34, 0x5C, 0x66, + 0x72, 0x6F, 0x6D, 0x61, 0x6E, 0x20, 0x54, 0x65, + 0x72, 0x6D, 0x69, 0x6E, 0x61, 0x6C, 0x3B, 0x7D, + 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x35, 0x5C, 0x66, + 0x72, 0x6F, 0x6D, 0x61, 0x6E, 0x20, 0x54, 0x69, + 0x6D, 0x65, 0x73, 0x20, 0x4E, 0x65, 0x77, 0x20, + 0x52, 0x6F, 0x6D, 0x61, 0x6E, 0x3B, 0x7D, 0x0D, + 0x0A, 0x7B, 0x5C, 0x66, 0x36, 0x5C, 0x66, 0x73, + 0x77, 0x69, 0x73, 0x73, 0x20, 0x41, 0x72, 0x69, + 0x61, 0x6C, 0x3B, 0x7D, 0x0D, 0x0A, 0x7B, 0x5C, + 0x66, 0x37, 0x5C, 0x66, 0x72, 0x6F, 0x6D, 0x61, + 0x6E, 0x20, 0x43, 0x47, 0x20, 0x54, 0x69, 0x6D, + 0x65, 0x73, 0x20, 0x28, 0x57, 0x4E, 0x29, 0x3B, + 0x7D, 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x38, 0x5C, + 0x66, 0x6D, 0x6F, 0x64, 0x65, 0x72, 0x6E, 0x20, + 0x43, 0x6F, 0x75, 0x72, 0x69, 0x65, 0x72, 0x3B, + 0x7D, 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x39, 0x5C, + 0x66, 0x6D, 0x6F, 0x64, 0x65, 0x72, 0x6E, 0x20, + 0x4D, 0x6F, 0x64, 0x65, 0x72, 0x6E, 0x3B, 0x7D, + 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x31, 0x30, 0x5C, + 0x66, 0x73, 0x63, 0x72, 0x69, 0x70, 0x74, 0x20, + 0x53, 0x63, 0x72, 0x69, 0x70, 0x74, 0x3B, 0x7D, + 0x0D, 0x0A, 0x7B, 0x5C, 0x66, 0x31, 0x31, 0x5C, + 0x66, 0x73, 0x77, 0x69, 0x73, 0x73, 0x20, 0x55, + 0x6E, 0x69, 0x76, 0x65, 0x72, 0x73, 0x20, 0x28, + 0x57, 0x4E, 0x29, 0x3B, 0x7D, 0x0D, 0x0A, 0x7B, + 0x5C, 0x66, 0x31, 0x32, 0x5C, 0x66, 0x6E, 0x69, + 0x6C, 0x20, 0x57, 0x69, 0x6E, 0x67, 0x64, 0x69, + 0x6E, 0x67, 0x73, 0x3B, 0x7D, 0x0D, 0x0A, 0x7B, + 0x5C, 0x66, 0x31, 0x33, 0x5C, 0x66, 0x73, 0x77, + 0x69, 0x73, 0x73, 0x20, 0x4D, 0x53, 0x20, 0x53, + 0x61, 0x6E, 0x73, 0x20, 0x53, 0x65, 0x72, 0x69, + 0x66, 0x3B, 0x7D, 0x0D, 0x0A, 0x7D, 0x3B, 0x0D, + 0x0A, 0x3F, 0x02, 0x00, 0x1C, 0x5D, 0x00, 0x53, + 0x95, 0x01, 0x7B, 0x5C, 0x63, 0x6F, 0x6C, 0x6F, + 0x72, 0x74, 0x62, 0x6C, 0x3B, 0x0D, 0x0A, 0x5C, + 0x72, 0x65, 0x64, 0x30, 0x5C, 0x67, 0x72, 0x65, + 0x65, 0x6E, 0x30, 0x5C, 0x62, 0x6C, 0x75, 0x65, + 0x30, 0x3B, 0x0D, 0x0A, 0x5C, 0x72, 0x65, 0x64, + 0x30, 0x5C, 0x67, 0x72, 0x65, 0x65, 0x6E, 0x30, + 0x5C, 0x62, 0x6C, 0x75, 0x65, 0x31, 0x32, 0x38, + 0x3B, 0x0D, 0x0A, 0x5C, 0x72, 0x65, 0x64, 0x30, + 0x5C, 0x67, 0x72, 0x65, 0x65, 0x6E, 0x31, 0x32, + 0x38, 0x5C, 0x62, 0x6C, 0x75, 0x65, 0x31, 0x32, + 0x38, 0x3B, 0x0D, 0x0A, 0x5C, 0x72, 0x65, 0x64, + 0x30, 0x5C, 0x67, 0x72, 0x65, 0x65, 0x6E, 0x31, + 0x32, 0x38, 0x5C, 0x62, 0x6C, 0x75, 0x65, 0x30, + 0x3B, 0x0D, 0x0A, 0x5C, 0x72, 0x65, 0x64, 0x31, + 0x32, 0x38, 0x5C, 0x67, 0x72, 0x65, 0x65, 0x6E, + 0x30, 0x5C, 0x62, 0x6C, 0x75, 0x65, 0x30, 0x3B, + 0x0D, 0x0A, 0x5C, 0x72, 0x65, 0x64, 0x31, 0x32, + 0x38, 0x5C, 0x67, 0x72, 0x65, 0x65, 0x6E, 0x30, + 0x5C, 0x62, 0x6C, 0x75, 0x65, 0x31, 0x32, 0x38, + 0x3B, 0x0D, 0x0A, 0x5C, 0x72, 0x65, 0x64, 0x31, + 0x32, 0x38, 0x5C, 0x67, 0x72, 0x65, 0x65, 0x6E, + 0x31, 0x32, 0x38, 0x5C, 0x62, 0x6C, 0x75, 0x65, + 0x30, 0x3B, 0x0D, 0x0A, 0x5C, 0x72, 0x65, 0x64, + 0x31, 0x32, 0x38, 0x5C, 0x67, 0x72, 0x65, 0x65, + 0x6E, 0x31, 0x32, 0x38, 0x5C, 0x62, 0x6C, 0x75, + 0x65, 0x31, 0x32, 0x38, 0x3B, 0x0D, 0x0A, 0x5C, + 0x72, 0x65, 0x64, 0x36, 0x34, 0x5C, 0x67, 0x72, + 0x65, 0x65, 0x6E, 0x36, 0x34, 0x5C, 0x62, 0x6C, + 0x75, 0x65, 0x36, 0x34, 0x3B, 0x0D, 0x0A, 0x5C, + 0x72, 0x65, 0x64, 0x30, 0x5C, 0x67, 0x72, 0x65, + 0x65, 0x6E, 0x30, 0x5C, 0x62, 0x6C, 0x75, 0x65, + 0x32, 0x35, 0x35, 0x3B, 0x0D, 0x0A, 0x5C, 0x72, + 0x65, 0x64, 0x30, 0x5C, 0x67, 0x72, 0x65, 0x65, + 0x6E, 0x32, 0x35, 0x35, 0x5C, 0x62, 0x6C, 0x75, + 0x65, 0x32, 0x35, 0x35, 0x3B, 0x0D, 0x0A, 0x5C, + 0x72, 0x65, 0x64, 0x30, 0x5C, 0x67, 0x72, 0x65, + 0x65, 0x6E, 0x32, 0x35, 0x35, 0x5C, 0x62, 0x6C, + 0x75, 0x65, 0x30, 0x3B, 0x0D, 0x0A, 0x5C, 0x72, + 0x65, 0x64, 0x32, 0x35, 0x35, 0x5C, 0x67, 0x72, + 0x65, 0x65, 0x6E, 0x30, 0x5C, 0x62, 0x6C, 0x75, + 0x65, 0x30, 0x3B, 0x0D, 0x0A, 0x5C, 0x72, 0x65, + 0x64, 0x31, 0x39, 0x32, 0x5C, 0x67, 0x72, 0x65, + 0x65, 0x6E, 0x31, 0x39, 0x32, 0x5C, 0x62, 0x6C, + 0x75, 0x65, 0x31, 0x39, 0x32, 0x3B, 0x0D, 0x0A, + 0x5C, 0x72, 0x65, 0x64, 0x32, 0x35, 0x35, 0x5C, + 0x67, 0x72, 0x65, 0x65, 0x6E, 0x32, 0x35, 0x35, + 0x5C, 0x62, 0x6C, 0x75, 0x65, 0x30, 0x3B, 0x0D, + 0x0A, 0x5C, 0x72, 0x65, 0x64, 0x32, 0x35, 0x35, + 0x5C, 0x67, 0x72, 0x65, 0x65, 0x6E, 0x32, 0x35, + 0x35, 0x5C, 0x62, 0x6C, 0x75, 0x65, 0x32, 0x35, + 0x35, 0x3B, 0x0D, 0x0A, 0x7D, 0x0D, 0x0A, 0x3F, + 0x03, 0x00, 0x1C, 0x5F, 0x00, 0x54, 0x14, 0x00, + 0x4E, 0x49, 0x01, 0x00, 0x24, 0x15, 0x00, 0x0B, + 0x00, 0x00, 0x49, 0x02, 0x00, 0x12, 0x02, 0x00, + 0x1C, 0x61, 0x00, 0x54, 0x14, 0x00, 0x4E, 0x49, + 0x01, 0x00, 0x24, 0x15, 0x00, 0x0B, 0x00, 0x00, + 0x49, 0x03, 0x00, 0x12, 0x02, 0x00, 0x1C, 0x62, + 0x00, 0x49, 0x01, 0x00, 0x56, 0x07, 0x00, 0x00, + 0x00, 0x00, 0x54, 0x52, 0x54, 0x46, 0x5F, 0x57, + 0x52, 0x49, 0x54, 0x45, 0x50, 0x41, 0x52, 0x00, + 0x61, 0x00, 0x00, 0x00, 0x0C, 0x01, 0x01, 0x50, + 0x3F, 0x02, 0x00, 0x1C, 0x65, 0x00, 0x54, 0x14, + 0x00, 0x4E, 0x49, 0x02, 0x00, 0x24, 0x15, 0x00, + 0x0B, 0x00, 0x00, 0x53, 0x20, 0x00, 0x5C, 0x70, + 0x61, 0x72, 0x64, 0x7B, 0x5C, 0x70, 0x6C, 0x61, + 0x69, 0x6E, 0x5C, 0x63, 0x66, 0x31, 0x5C, 0x66, + 0x32, 0x5C, 0x66, 0x73, 0x35, 0x30, 0x5C, 0x69, + 0x5C, 0x62, 0x5C, 0x71, 0x63, 0x20, 0x49, 0x01, + 0x00, 0x3A, 0x53, 0x06, 0x00, 0x20, 0x7D, 0x5C, + 0x70, 0x61, 0x72, 0x3A, 0x53, 0x01, 0x00, 0x0D, + 0x3A, 0x53, 0x01, 0x00, 0x0A, 0x3A, 0x12, 0x02, + 0x00, 0x1C, 0x66, 0x00, 0x49, 0x02, 0x00, 0x56, + 0x07, 0x00, 0x00, 0x00, 0x00, 0x54, 0x52, 0x54, + 0x46, 0x5F, 0x57, 0x52, 0x49, 0x54, 0x45, 0x50, + 0x41, 0x52, 0x42, 0x4F, 0x4C, 0x44, 0x00, 0x51, + 0x00, 0x00, 0x00, 0x0C, 0x01, 0x01, 0x50, 0x3F, + 0x02, 0x00, 0x1C, 0x68, 0x00, 0x54, 0x14, 0x00, + 0x4E, 0x49, 0x02, 0x00, 0x24, 0x15, 0x00, 0x0B, + 0x00, 0x00, 0x53, 0x10, 0x00, 0x5C, 0x70, 0x61, + 0x72, 0x64, 0x7B, 0x5C, 0x63, 0x66, 0x31, 0x5C, + 0x66, 0x73, 0x32, 0x30, 0x20, 0x49, 0x01, 0x00, + 0x3A, 0x53, 0x06, 0x00, 0x20, 0x7D, 0x5C, 0x70, + 0x61, 0x72, 0x3A, 0x53, 0x01, 0x00, 0x0D, 0x3A, + 0x53, 0x01, 0x00, 0x0A, 0x3A, 0x12, 0x02, 0x00, + 0x1C, 0x69, 0x00, 0x49, 0x02, 0x00, 0x56, 0x07, + 0x00, 0x00, 0x00, 0x00, 0x54, 0x52, 0x54, 0x46, + 0x5F, 0x57, 0x52, 0x49, 0x54, 0x45, 0x54, 0x49, + 0x54, 0x4C, 0x45, 0x00, 0x01, 0x01, 0x00, 0x00, + 0x0C, 0x02, 0x02, 0x50, 0x3F, 0x03, 0x00, 0x1C, + 0x70, 0x00, 0x53, 0x28, 0x00, 0x7B, 0x5C, 0x66, + 0x32, 0x0D, 0x0A, 0x20, 0x20, 0x23, 0x7B, 0x5C, + 0x66, 0x6F, 0x6F, 0x74, 0x6E, 0x6F, 0x74, 0x65, + 0x20, 0x5C, 0x70, 0x61, 0x72, 0x64, 0x5C, 0x70, + 0x6C, 0x61, 0x69, 0x6E, 0x20, 0x5C, 0x66, 0x73, + 0x32, 0x30, 0x20, 0x23, 0x20, 0x49, 0x01, 0x00, + 0x3A, 0x53, 0x02, 0x00, 0x20, 0x7D, 0x3A, 0x53, + 0x01, 0x00, 0x0D, 0x3A, 0x53, 0x01, 0x00, 0x0A, + 0x3A, 0x53, 0x22, 0x00, 0x20, 0x20, 0x24, 0x7B, + 0x5C, 0x66, 0x6F, 0x6F, 0x74, 0x6E, 0x6F, 0x74, + 0x65, 0x20, 0x5C, 0x70, 0x61, 0x72, 0x64, 0x5C, + 0x70, 0x6C, 0x61, 0x69, 0x6E, 0x20, 0x5C, 0x66, + 0x73, 0x32, 0x30, 0x20, 0x24, 0x20, 0x3A, 0x49, + 0x02, 0x00, 0x3A, 0x53, 0x02, 0x00, 0x20, 0x7D, + 0x3A, 0x53, 0x01, 0x00, 0x0D, 0x3A, 0x53, 0x01, + 0x00, 0x0A, 0x3A, 0x53, 0x22, 0x00, 0x20, 0x20, + 0x4B, 0x7B, 0x5C, 0x66, 0x6F, 0x6F, 0x74, 0x6E, + 0x6F, 0x74, 0x65, 0x20, 0x5C, 0x70, 0x61, 0x72, + 0x64, 0x5C, 0x70, 0x6C, 0x61, 0x69, 0x6E, 0x20, + 0x5C, 0x66, 0x73, 0x32, 0x30, 0x20, 0x4B, 0x20, + 0x3A, 0x49, 0x02, 0x00, 0x3A, 0x53, 0x02, 0x00, + 0x20, 0x7D, 0x3A, 0x53, 0x01, 0x00, 0x0D, 0x3A, + 0x53, 0x01, 0x00, 0x0A, 0x3A, 0x53, 0x01, 0x00, + 0x7D, 0x3A, 0x53, 0x01, 0x00, 0x0D, 0x3A, 0x53, + 0x01, 0x00, 0x0A, 0x3A, 0x3F, 0x04, 0x00, 0x1C, + 0x71, 0x00, 0x54, 0x14, 0x00, 0x4E, 0x49, 0x03, + 0x00, 0x24, 0x15, 0x00, 0x0B, 0x00, 0x00, 0x49, + 0x04, 0x00, 0x12, 0x02, 0x00, 0x1C, 0x72, 0x00, + 0x49, 0x03, 0x00, 0x24, 0x16, 0x00, 0x49, 0x02, + 0x00, 0x0B, 0x01, 0x00, 0x3B, 0x1C, 0x73, 0x00, + 0x49, 0x03, 0x00, 0x56, 0x07, 0x00, 0x00, 0x00, + 0x00, 0x54, 0x52, 0x54, 0x46, 0x5F, 0x43, 0x4C, + 0x4F, 0x53, 0x45, 0x00, 0x3F, 0x00, 0x00, 0x00, + 0x0C, 0x01, 0x00, 0x50, 0x3F, 0x01, 0x00, 0x1C, + 0x75, 0x00, 0x54, 0x14, 0x00, 0x4E, 0x49, 0x01, + 0x00, 0x24, 0x15, 0x00, 0x0B, 0x00, 0x00, 0x53, + 0x03, 0x00, 0x7D, 0x0D, 0x0A, 0x12, 0x02, 0x00, + 0x1C, 0x76, 0x00, 0x54, 0x17, 0x00, 0x4E, 0x49, + 0x01, 0x00, 0x24, 0x15, 0x00, 0x0B, 0x00, 0x00, + 0x12, 0x01, 0x00, 0x1C, 0x77, 0x00, 0x49, 0x01, + 0x00, 0x56, 0x07, 0x00, 0x00, 0x00, 0x00, 0x54, + 0x52, 0x54, 0x46, 0x5F, 0x57, 0x52, 0x49, 0x54, + 0x45, 0x4C, 0x49, 0x4E, 0x4B, 0x00, 0xC0, 0x01, + 0x00, 0x00, 0x0C, 0x03, 0x01, 0x50, 0x3F, 0x02, + 0x00, 0x1C, 0x7B, 0x00, 0x54, 0x18, 0x00, 0x4E, + 0x53, 0x02, 0x00, 0x28, 0x29, 0x49, 0x01, 0x00, + 0x0B, 0x02, 0x00, 0x3F, 0x03, 0x00, 0x1C, 0x7C, + 0x00, 0x49, 0x03, 0x00, 0x5E, 0x0E, 0x18, 0x77, + 0x00, 0x1C, 0x7D, 0x00, 0x54, 0x14, 0x00, 0x4E, + 0x49, 0x02, 0x00, 0x24, 0x15, 0x00, 0x0B, 0x00, + 0x00, 0x53, 0x23, 0x00, 0x5C, 0x70, 0x61, 0x72, + 0x64, 0x7B, 0x5C, 0x63, 0x66, 0x31, 0x5C, 0x66, + 0x73, 0x32, 0x30, 0x20, 0x53, 0x65, 0x65, 0x20, + 0x41, 0x6C, 0x73, 0x6F, 0x20, 0x7B, 0x5C, 0x66, + 0x32, 0x5C, 0x75, 0x6C, 0x64, 0x62, 0x20, 0x49, + 0x01, 0x00, 0x3A, 0x53, 0x08, 0x00, 0x7D, 0x7B, + 0x5C, 0x76, 0x5C, 0x66, 0x32, 0x20, 0x3A, 0x54, + 0x19, 0x00, 0x4E, 0x49, 0x01, 0x00, 0x53, 0x02, + 0x00, 0x28, 0x29, 0x53, 0x02, 0x00, 0x78, 0x78, + 0x0B, 0x03, 0x00, 0x3A, 0x53, 0x05, 0x00, 0x7D, + 0x5C, 0x70, 0x61, 0x72, 0x3A, 0x53, 0x01, 0x00, + 0x0D, 0x3A, 0x53, 0x01, 0x00, 0x0A, 0x3A, 0x12, + 0x02, 0x00, 0x17, 0x1F, 0x01, 0x1C, 0x7F, 0x00, + 0x54, 0x18, 0x00, 0x4E, 0x53, 0x01, 0x00, 0x20, + 0x49, 0x01, 0x00, 0x0B, 0x02, 0x00, 0x3F, 0x04, + 0x00, 0x1C, 0x80, 0x00, 0x49, 0x04, 0x00, 0x5E, + 0x0E, 0x18, 0x9D, 0x00, 0x1C, 0x81, 0x00, 0x54, + 0x1A, 0x00, 0x4E, 0x55, 0x1B, 0x00, 0x4B, 0x01, + 0x00, 0x00, 0x00, 0x49, 0x03, 0x00, 0x4B, 0x01, + 0x00, 0x00, 0x00, 0x25, 0x0B, 0x03, 0x00, 0x53, + 0x01, 0x00, 0x5F, 0x3A, 0x54, 0x1A, 0x00, 0x4E, + 0x55, 0x1B, 0x00, 0x49, 0x03, 0x00, 0x4B, 0x01, + 0x00, 0x00, 0x00, 0x3A, 0x0B, 0x02, 0x00, 0x3A, + 0x42, 0x1C, 0x00, 0x1C, 0x82, 0x00, 0x54, 0x14, + 0x00, 0x4E, 0x49, 0x02, 0x00, 0x24, 0x15, 0x00, + 0x0B, 0x00, 0x00, 0x53, 0x23, 0x00, 0x5C, 0x70, + 0x61, 0x72, 0x64, 0x7B, 0x5C, 0x63, 0x66, 0x31, + 0x5C, 0x66, 0x73, 0x32, 0x30, 0x20, 0x53, 0x65, + 0x65, 0x20, 0x41, 0x6C, 0x73, 0x6F, 0x20, 0x7B, + 0x5C, 0x66, 0x32, 0x5C, 0x75, 0x6C, 0x64, 0x62, + 0x20, 0x49, 0x01, 0x00, 0x3A, 0x53, 0x08, 0x00, + 0x7D, 0x7B, 0x5C, 0x76, 0x5C, 0x66, 0x32, 0x20, + 0x3A, 0x55, 0x1C, 0x00, 0x3A, 0x53, 0x05, 0x00, + 0x7D, 0x5C, 0x70, 0x61, 0x72, 0x3A, 0x53, 0x01, + 0x00, 0x0D, 0x3A, 0x53, 0x01, 0x00, 0x0A, 0x3A, + 0x12, 0x02, 0x00, 0x17, 0x63, 0x00, 0x1C, 0x84, + 0x00, 0x54, 0x14, 0x00, 0x4E, 0x49, 0x02, 0x00, + 0x24, 0x15, 0x00, 0x0B, 0x00, 0x00, 0x53, 0x23, + 0x00, 0x5C, 0x70, 0x61, 0x72, 0x64, 0x7B, 0x5C, + 0x63, 0x66, 0x31, 0x5C, 0x66, 0x73, 0x32, 0x30, + 0x20, 0x53, 0x65, 0x65, 0x20, 0x41, 0x6C, 0x73, + 0x6F, 0x20, 0x7B, 0x5C, 0x66, 0x32, 0x5C, 0x75, + 0x6C, 0x64, 0x62, 0x20, 0x49, 0x01, 0x00, 0x3A, + 0x53, 0x08, 0x00, 0x7D, 0x7B, 0x5C, 0x76, 0x5C, + 0x66, 0x32, 0x20, 0x3A, 0x49, 0x01, 0x00, 0x3A, + 0x53, 0x05, 0x00, 0x7D, 0x5C, 0x70, 0x61, 0x72, + 0x3A, 0x53, 0x01, 0x00, 0x0D, 0x3A, 0x53, 0x01, + 0x00, 0x0A, 0x3A, 0x12, 0x02, 0x00, 0x1C, 0x87, + 0x00, 0x49, 0x02, 0x00, 0x56, 0x07, 0x00, 0x00, + 0x00, 0x00, 0x28, 0x5F, 0x49, 0x4E, 0x49, 0x54, + 0x53, 0x54, 0x41, 0x54, 0x49, 0x43, 0x53, 0x29, + 0x00, 0x09, 0x00, 0x00, 0x00, 0x5B, 0x1D, 0x00, + 0x01, 0x00, 0x5A, 0x1D, 0x00, 0x07 + }; + + static public void main( String argv[] ) + { + Harbour.Run( rtf.pCode ); + } + +} diff --git a/harbour/source/tools/rtf.ppo b/harbour/source/tools/rtf.ppo new file mode 100644 index 0000000000..fc4d249f28 --- /dev/null +++ b/harbour/source/tools/rtf.ppo @@ -0,0 +1,136 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +function TRTF() ; static oClass ; if oClass == nil ; oClass = TClass():New("TRTF" ) ; + + oClass:AddData("cFile" ) + oClass:AddData("nHandle" ) +oClass:AddMethod("WriteHeader",@TRTF_WriteHeader() ) +oClass:AddMethod("New",@TRTF_New() ) + +oClass:AddMethod("WritePar",@TRTF_WritePar() ) +oClass:AddMethod("WriteLink",@TRTF_WriteLink() ) + +oClass:AddMethod("Close",@TRTF_Close() ) +oClass:AddMethod("WriteParBold",@TRTF_WriteParBold() ) +oClass:AddMethod("WriteTitle",@TRTF_WriteTitle() ) +oClass:Create() ; endif ; return oClass:Instance() +static function TRTF_NEW(cFile ) ; local Self := QSelf() + +if Valtype(cFile ) <> NIL .and. Valtype(cFile )=="C" + self:cFile:=cFile + self:nHandle:=FCreate(Self:cFile) +endif +Return Self + +static function TRTF_WriteHeader() ; local Self := QSelf() + + + + + + + + + + + + + + + + +local cHeader:='{\rtf1\ansi\pard\plain\fs20'+chr(13)+chr(10)+ '\deff5{\fonttbl'+chr(13)+chr(10)+ '{\f0\froman Tms Rmn;}'+chr(13)+chr(10)+ '{\f1\fdecor Symbol;}'+chr(13)+chr(10)+ '{\f2\fswiss Helv;}'+chr(13)+chr(10)+ '{\f3\fmodern LinePrinter;}'+chr(13)+chr(10)+ '{\f4\froman Terminal;}'+chr(13)+chr(10)+ '{\f5\froman Times New Roman;}'+chr(13)+chr(10)+ '{\f6\fswiss Arial;}'+chr(13)+chr(10)+ '{\f7\froman CG Times (WN);}'+chr(13)+chr(10)+ '{\f8\fmodern Courier;}'+chr(13)+chr(10)+ '{\f9\fmodern Modern;}'+chr(13)+chr(10)+ '{\f10\fscript Script;}'+chr(13)+chr(10)+ '{\f11\fswiss Univers (WN);}'+chr(13)+chr(10)+ '{\f12\fnil Wingdings;}'+chr(13)+chr(10)+ '{\f13\fswiss MS Sans Serif;}'+chr(13)+chr(10)+ '};'+chr(13)+chr(10) + + + + + + + + + + + + + + + + + + +Local cColortable:='{\colortbl;'+chr(13)+chr(10)+ '\red0\green0\blue0;'+chr(13)+chr(10)+ '\red0\green0\blue128;'+chr(13)+chr(10)+ '\red0\green128\blue128;'+chr(13)+chr(10)+ '\red0\green128\blue0;'+chr(13)+chr(10)+ '\red128\green0\blue0;'+chr(13)+chr(10)+ '\red128\green0\blue128;'+chr(13)+chr(10)+ '\red128\green128\blue0;'+chr(13)+chr(10)+ '\red128\green128\blue128;'+chr(13)+chr(10)+ '\red64\green64\blue64;'+chr(13)+chr(10)+ '\red0\green0\blue255;'+chr(13)+chr(10)+ '\red0\green255\blue255;'+chr(13)+chr(10)+ '\red0\green255\blue0;'+chr(13)+chr(10)+ '\red255\green0\blue0;'+chr(13)+chr(10)+ '\red192\green192\blue192;'+chr(13)+chr(10)+ '\red255\green255\blue0;'+chr(13)+chr(10)+ '\red255\green255\blue255;'+chr(13)+chr(10)+ '}'+chr(13)+chr(10) + +FWrite(Self:nHandle,cHeader) + +FWrite(Self:nHandle,cColorTable) +Return Self + +static function TRTF_WritePar(cPar ) ; local Self := QSelf() + FWrite(Self:nHandle,'\pard{\plain\cf1\f2\fs50\i\b\qc '+cPar+' }\par'+chr(13)+chr(10)) +Return Self +static function TRTF_WriteParBold(cPar ) ; local Self := QSelf() + FWrite(Self:nHandle,'\pard{\cf1\fs20 '+cPar+' }\par'+chr(13)+chr(10)) +Return Self + +static function TRTF_WriteTitle(cTitle,cTopic ) ; local Self := QSelf() + + + + +local cWrite:='{\f2'+chr(13)+chr(10)+ ' #{\footnote \pard\plain \fs20 # '+cTitle +' }'+chr(13)+chr(10)+ ' ${\footnote \pard\plain \fs20 $ '+cTopic +' }'+chr(13)+chr(10)+ ' K{\footnote \pard\plain \fs20 K '+cTopic +' }'+chr(13)+chr(10)+ '}'+chr(13)+chr(10) + FWrite(Self:nHandle,cWrite) + Self:WritePar(cTopic) +Return Self +static function TRTF_CLOSE() ; local Self := QSelf() +FWrite(Self:nHandle,'}'+chr(13)+chr(10)) +FClose(Self:nHandle) +Return Self + +static function TRTF_WriteLink(cLink ) ; local Self := QSelf() +Local nPos,xPos +npos:=at("()",cLink) +if nPos>0 + FWrite(Self:nHandle,'\pard{\cf1\fs20 See Also {\f2\uldb '+cLink+'}{\v\f2 '+strtran(cLink,"()","xx") +'}\par'+chr(13)+chr(10)) +else + xPos:=At(" ",cLink) + if xPos>0 + cTemp:=substr(cTop,1,npos-1)+'_'+substr(cTop,npos+1) + FWrite(Self:nHandle,'\pard{\cf1\fs20 See Also {\f2\uldb '+cLink+'}{\v\f2 '+cTemp+'}\par'+chr(13)+chr(10)) + else + FWrite(Self:nHandle,'\pard{\cf1\fs20 See Also {\f2\uldb '+cLink+'}{\v\f2 '+cLink +'}\par'+chr(13)+chr(10)) + endif +endif +return Self +