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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
|
/******************************** -*- C -*- ****************************
*
* External definitions for C callin module
*
*
***********************************************************************/
/***********************************************************************
*
* Copyright 1988,89,90,91,92,94,95,99,2000,2001,2002,2006
* Free Software Foundation, Inc.
* Written by Steve Byrne.
*
* This file is part of GNU Smalltalk.
*
* GNU Smalltalk is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the Free
* Software Foundation; either version 2, or (at your option) any later
* version.
*
* Linking GNU Smalltalk statically or dynamically with other modules is
* making a combined work based on GNU Smalltalk. Thus, the terms and
* conditions of the GNU General Public License cover the whole
* combination.
*
* In addition, as a special exception, the Free Software Foundation
* give you permission to combine GNU Smalltalk with free software
* programs or libraries that are released under the GNU LGPL and with
* independent programs running under the GNU Smalltalk virtual machine.
*
* You may copy and distribute such a system following the terms of the
* GNU GPL for GNU Smalltalk and the licenses of the other code
* concerned, provided that you include the source code of that other
* code when and as the GNU GPL requires distribution of source code.
*
* Note that people who make modified versions of GNU Smalltalk are not
* obligated to grant this special exception for their modified
* versions; it is their choice whether to do so. The GNU General
* Public License gives permission to release a modified version without
* this exception; this exception also makes it possible to release a
* modified version which carries forward this exception.
*
* GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
* more details.
*
* You should have received a copy of the GNU General Public License along with
* GNU Smalltalk; see the file COPYING. If not, write to the Free Software
* Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
***********************************************************************/
#ifndef GST_CALLIN_H
#define GST_CALLIN_H
/* Sends SELECTOR (which should be a Symbol, otherwise _gst_nil_oop is
returned) to RECEIVER. The message arguments pointed to by AP
should also be OOPs (otherwise, an access violation exception is
pretty likely) and are passed in a NULL-terminated list after the
selector. The value returned from the method is passed back as an
OOP to the C program as the result of the function, or _gst_nil_oop
if the number of arguments is wrong. */
extern OOP _gst_va_msg_send (OOP receiver,
OOP selector,
va_list ap)
ATTRIBUTE_HIDDEN;
/* Sends SELECTOR (which should be a Symbol, otherwise _gst_nil_oop is
returned) to RECEIVER. The message arguments should also be OOPs
(otherwise, an access violation exception is pretty likely) and are
passed in a NULL-terminated list after the selector. The value
returned from the method is passed back as an OOP to the C program
as the result of the function, or _gst_nil_oop if the number of
arguments is wrong. */
extern OOP _gst_msg_send (OOP receiver,
OOP selector, ...)
ATTRIBUTE_HIDDEN;
/* Sends SELECTOR (which should be a Symbol, otherwise _gst_nil_oop is
returned) to RECEIVER. The message arguments should also be OOPs
(otherwise, an access violation exception is pretty likely) and are
passed in a NULL-terminated list pointed to by ARGS. The value
returned from the method is passed back as an OOP to the C program
as the result of the function, or _gst_nil_oop if the number of
arguments is wrong. */
extern OOP _gst_vmsg_send (OOP receiver,
OOP selector,
OOP * args)
ATTRIBUTE_HIDDEN;
/* Sends the SEL selector to RECEIVER. The message arguments should
also be OOPs (otherwise, an access violation exception is pretty
likely) and are passed in a NULL-terminated list after the
selector. The value returned from the method is passed back as an
OOP to the C program as the result of the function, or _gst_nil_oop
if the number of arguments is wrong. */
extern OOP _gst_str_msg_send (OOP receiver, const char * sel, ...)
ATTRIBUTE_HIDDEN;
/* See manual; basically it takes care of the conversion from C to
Smalltalk data types. */
extern void _gst_va_msg_sendf (PTR resultPtr, const char * fmt, va_list ap)
ATTRIBUTE_HIDDEN;
/* See manual; basically it takes care of the conversion from C to
Smalltalk data types. */
extern void _gst_msg_sendf (PTR resultPtr, const char * fmt, ...)
ATTRIBUTE_HIDDEN;
/* Evaluate the Smalltalk code in STR and return the result as an OOP.
STR is a Smalltalk method body which can have local variables, but
no parameters. This is much like the immediate expression
evaluation that the command interpreter provides. */
extern OOP _gst_eval_expr (const char *str)
ATTRIBUTE_HIDDEN;
/* Evaluate the Smalltalk code in STR, a Smalltalk method body which
can have local variables, but no parameters. This is much like the
immediate expression evaluation that the command interpreter
provides. */
extern void _gst_eval_code (const char *str)
ATTRIBUTE_HIDDEN;
/* Puts the given OOP in the registry. If you register an object
multiple times, you will need to unregister it the same number of
times. You may want to register objects returned by Smalltalk
call-ins. */
extern OOP _gst_register_oop (OOP oop)
ATTRIBUTE_HIDDEN;
/* Removes an occurrence of the given OOP from the registry. */
extern void _gst_unregister_oop (OOP oop)
ATTRIBUTE_HIDDEN;
/* Remember that an array of OOPs must be made part of the root set.
The two parameters, FIRST and LAST, point to two variables
containing respectively the base and the top of the array: the
double indirection allows one to move the array freely in memory,
for example using realloc. */
extern void _gst_register_oop_array (OOP **first, OOP **last)
ATTRIBUTE_HIDDEN;
/* Unregister the given array of OOPs from the root set. FIRST points
to a variables containing the base of the array: the double
indirection allows one to move the array freely in memory, for
example using realloc. */
extern void _gst_unregister_oop_array (OOP **first)
ATTRIBUTE_HIDDEN;
/* Allocates an OOP for a newly created instance of the class whose
OOP is passed as the first parameter; if that parameter is not a
class the results are undefined (for now, read as ``the program
will most likely core dump'', but that could change in a future
version).
The second parameter is used only if the class is an indexable one,
otherwise it is discarded: it contains the number of indexed
instance variables in the object that is going to be created. */
extern OOP _gst_object_alloc (OOP class_oop,
int size)
ATTRIBUTE_HIDDEN;
/* Returns the number of indexed instance variables in OOP */
extern int _gst_basic_size (OOP oop)
ATTRIBUTE_HIDDEN;
/* Convert C datatypes to Smalltalk types */
extern OOP _gst_id_to_oop (long i)
ATTRIBUTE_HIDDEN;
extern OOP _gst_int_to_oop (long i)
ATTRIBUTE_HIDDEN;
extern OOP _gst_float_to_oop (double f)
ATTRIBUTE_HIDDEN;
extern OOP _gst_bool_to_oop (int b)
ATTRIBUTE_HIDDEN;
extern OOP _gst_char_to_oop (char c)
ATTRIBUTE_HIDDEN;
extern OOP _gst_wchar_to_oop (wchar_t c)
ATTRIBUTE_HIDDEN;
extern OOP _gst_class_name_to_oop (const char *name)
ATTRIBUTE_HIDDEN;
extern OOP _gst_string_to_oop (const char *str)
ATTRIBUTE_HIDDEN;
extern OOP _gst_wstring_to_oop (const wchar_t *str)
ATTRIBUTE_HIDDEN;
extern OOP _gst_byte_array_to_oop (const char *str,
int n)
ATTRIBUTE_HIDDEN;
extern OOP _gst_symbol_to_oop (const char *str)
ATTRIBUTE_HIDDEN;
extern OOP _gst_c_object_to_oop (PTR co)
ATTRIBUTE_HIDDEN;
extern OOP _gst_type_name_to_oop (const char *name)
ATTRIBUTE_HIDDEN;
extern void _gst_set_c_object (OOP oop, PTR co)
ATTRIBUTE_HIDDEN;
extern OOP _gst_long_double_to_oop (long double f)
ATTRIBUTE_HIDDEN;
/* Convert Smalltalk datatypes to C data types */
extern long _gst_oop_to_c (OOP oop)
ATTRIBUTE_HIDDEN; /* sometimes answers a PTR */
extern long _gst_oop_to_id (OOP oop)
ATTRIBUTE_HIDDEN;
extern long _gst_oop_to_int (OOP oop)
ATTRIBUTE_HIDDEN;
extern double _gst_oop_to_float (OOP oop)
ATTRIBUTE_HIDDEN;
extern int _gst_oop_to_bool (OOP oop)
ATTRIBUTE_HIDDEN;
extern char _gst_oop_to_char (OOP oop)
ATTRIBUTE_HIDDEN;
extern wchar_t _gst_oop_to_wchar (OOP oop)
ATTRIBUTE_HIDDEN;
extern char *_gst_oop_to_string (OOP oop)
ATTRIBUTE_HIDDEN;
extern wchar_t *_gst_oop_to_wstring (OOP oop)
ATTRIBUTE_HIDDEN;
extern char *_gst_oop_to_byte_array (OOP oop)
ATTRIBUTE_HIDDEN;
extern PTR _gst_oop_to_c_object (OOP oop)
ATTRIBUTE_HIDDEN;
extern long double _gst_oop_to_long_double (OOP oop)
ATTRIBUTE_HIDDEN;
extern OOP _gst_get_object_class (OOP oop)
ATTRIBUTE_HIDDEN;
extern OOP _gst_get_superclass (OOP oop)
ATTRIBUTE_HIDDEN;
extern mst_Boolean _gst_class_is_kind_of (OOP candidate, OOP superclass)
ATTRIBUTE_HIDDEN;
extern mst_Boolean _gst_object_is_kind_of (OOP candidate, OOP superclass)
ATTRIBUTE_HIDDEN;
extern OOP _gst_perform (OOP receiver, OOP selector)
ATTRIBUTE_HIDDEN;
extern OOP _gst_perform_with (OOP receiver, OOP selector, OOP arg)
ATTRIBUTE_HIDDEN;
extern mst_Boolean _gst_class_implements_selector (OOP classOOP, OOP selector)
ATTRIBUTE_HIDDEN;
extern mst_Boolean _gst_class_can_understand (OOP classOOP, OOP selector)
ATTRIBUTE_HIDDEN;
extern mst_Boolean _gst_responds_to (OOP oop, OOP selector)
ATTRIBUTE_HIDDEN;
extern size_t _gst_oop_size (OOP oop)
ATTRIBUTE_HIDDEN;
extern OOP _gst_oop_at (OOP oop, size_t index)
ATTRIBUTE_HIDDEN;
extern OOP _gst_oop_at_put (OOP oop, size_t index, OOP new)
ATTRIBUTE_HIDDEN;
/* Marks/copies the registered OOPs (they are part of the rootset by
definition) */
extern void _gst_mark_registered_oops (void)
ATTRIBUTE_HIDDEN;
extern void _gst_copy_registered_oops (void)
ATTRIBUTE_HIDDEN;
/* Initializes the registry of OOPs which some C code is holding. */
extern void _gst_init_oopregistry (void)
ATTRIBUTE_HIDDEN;
#endif /* GST_CALLIN_H */
|
