fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial revision

Browse Source
This commit is contained in:
Luiz Rafael Culik
2000-01-09 17:37:53 +00:00
parent dec17754d6
commit 43b2da9d54
11 changed files with 2756 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/source/tools/AUTHOR.TXT Normal file
View File

@@ -0,0 +1,2 @@
Andy M Leighton

43
harbour/source/tools/DOCERR.LOG Normal file
View File

@@ -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

32
harbour/source/tools/FT_DOC.LOG Normal file
View File

@@ -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

42
harbour/source/tools/assembl.bat Normal file
View File

@@ -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

45
harbour/source/tools/ha.lnk Normal file
View File

@@ -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

627
harbour/source/tools/nconvert.c Normal file
View File

@@ -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 );
}

425
harbour/source/tools/numtxten.c Normal file
View File

@@ -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 );
}

491
harbour/source/tools/numtxthu.c Normal file
View File

@@ -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 );
}

551
harbour/source/tools/rtf.c Normal file
View File

@@ -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 );
}

362
harbour/source/tools/rtf.java Normal file
View File

@@ -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 );
}
}

136
harbour/source/tools/rtf.ppo Normal file
View File

@@ -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