552 lines
18 KiB
C
552 lines
18 KiB
C
/*
|
|
* 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 );
|
|
}
|
|
|