1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
/* $Header: d:/cvsroot/tads/tads3/vmbiftad.h,v 1.2 1999/05/17 02:52:29 MJRoberts Exp $ */
/*
* Copyright (c) 1998, 2002 Michael J. Roberts. All Rights Reserved.
*
* Please see the accompanying license file, LICENSE.TXT, for information
* on using and copying this software.
*/
/*
Name
vmbift3.h - function set definition - T3 VM system interface
Function
Notes
Modified
12/06/98 MJRoberts - Creation
*/
#ifndef VMBIFTAD_H
#define VMBIFTAD_H
#include "vmbif.h"
#endif /* VMBIFTAD_H */
/* ------------------------------------------------------------------------ */
/*
* T3 VM function set intrinsics
*/
class CVmBifT3: public CVmBif
{
public:
/* function vector */
static vm_bif_desc bif_table[];
/* run the garbage collector */
static void run_gc(VMG_ uint argc);
/* set the SAY instruction's handler function */
static void set_say(VMG_ uint argc);
/* get the VM version number */
static void get_vm_vsn(VMG_ uint argc);
/* get the VM identification string */
static void get_vm_id(VMG_ uint argc);
/* get the VM banner string */
static void get_vm_banner(VMG_ uint argc);
/* get the 'preinit' status - true if preinit, nil if normal */
static void get_vm_preinit_mode(VMG_ uint argc);
/* debug trace functions */
static void debug_trace(VMG_ uint argc);
/* get the global symbol table, if available */
static void get_global_symtab(VMG_ uint argc);
/* allocate a new property ID */
static void alloc_new_prop(VMG_ uint argc);
/* get a stack trace */
static void get_stack_trace(VMG_ uint argc);
/* look up a named argument */
static void get_named_arg(VMG_ uint argc);
/* get a named argument list */
static void get_named_arg_list(VMG_ uint argc);
protected:
/*
* service routine - retrieve source information for a given code
* location
*/
static void get_source_info(VMG_ const uchar *entry_addr, ulong method_ofs,
vm_val_t *retval);
/* get the local variables for a stack level */
static void get_stack_locals(VMG_ vm_val_t *fp, const uchar *entry_addr,
ulong method_ofs,
vm_val_t *local_tab, vm_val_t *frameref_obj);
};
/*
* T3 VM Test function set - test and debug function set
*/
class CVmBifT3Test: public CVmBif
{
public:
/* function vector */
static vm_bif_desc bif_table[];
/* get an instance's unique identifier number */
static void get_obj_id(VMG_ uint argc);
/* get an instance's garbage collection state */
static void get_obj_gc_state(VMG_ uint argc);
/* get the Unicode character code for the first character of a string */
static void get_charcode(VMG_ uint argc);
};
/* ------------------------------------------------------------------------ */
/*
* debug_trace mode flags
*/
/* check to see if the debugger is present */
#define T3DBG_CHECK 1
/* break into the debugger */
#define T3DBG_BREAK 2
/* write a message to the debug log */
#define T3DBG_LOG 3
/* ------------------------------------------------------------------------ */
/*
* Function set vector. Define this only if VMBIF_DEFINE_VECTOR has
* been defined, so that this file can be included for the prototypes
* alone without defining the function vector.
*/
#ifdef VMBIF_DEFINE_VECTOR
vm_bif_desc CVmBifT3::bif_table[] =
{
{ &CVmBifT3::run_gc, 0, 0, FALSE },
{ &CVmBifT3::set_say, 0, 0, FALSE },
{ &CVmBifT3::get_vm_vsn, 0, 0, FALSE },
{ &CVmBifT3::get_vm_id, 0, 0, FALSE },
{ &CVmBifT3::get_vm_banner, 0, 0, FALSE },
{ &CVmBifT3::get_vm_preinit_mode, 0, 0, FALSE },
{ &CVmBifT3::debug_trace, 1, 0, TRUE },
{ &CVmBifT3::get_global_symtab, 0, 0, FALSE },
{ &CVmBifT3::alloc_new_prop, 0, 0, FALSE },
{ &CVmBifT3::get_stack_trace, 0, 1, FALSE },
{ &CVmBifT3::get_named_arg, 1, 1, FALSE },
{ &CVmBifT3::get_named_arg_list, 0, 0, FALSE }
};
vm_bif_desc CVmBifT3Test::bif_table[] =
{
{ &CVmBifT3Test::get_obj_id, 1, 0, FALSE },
{ &CVmBifT3Test::get_obj_gc_state, 1, 0, FALSE },
{ &CVmBifT3Test::get_charcode, 1, 0, FALSE }
};
#endif /* VMBIF_DEFINE_VECTOR */
|
