2003-12-05 Zoltan Varga <vargaz@freemail.hu>
[mono.git] / mono / metadata / object.h
1 #ifndef _MONO_CLI_OBJECT_H_
2 #define _MONO_CLI_OBJECT_H_
3
4 #include <mono/metadata/class.h>
5 #include <mono/metadata/threads-types.h>
6
7 #if 1
8 #ifdef __GNUC__
9 #define mono_assert(expr)                  G_STMT_START{                  \
10      if (!(expr))                                                         \
11        {                                                                  \
12                 MonoException *ex;                                        \
13                 char *msg = g_strdup_printf ("file %s: line %d (%s): "    \
14                 "assertion failed: (%s)", __FILE__, __LINE__,             \
15                 __PRETTY_FUNCTION__, #expr);                              \
16                 ex = mono_get_exception_execution_engine (msg);           \
17                 g_free (msg);                                             \
18                 mono_raise_exception (ex);                                \
19        };                               }G_STMT_END
20
21 #define mono_assert_not_reached()                 G_STMT_START{           \
22      MonoException *ex;                                                   \
23      char *msg = g_strdup_printf ("file %s: line %d (%s): "               \
24      "should not be reached", __FILE__, __LINE__, __PRETTY_FUNCTION__);   \
25      ex = mono_get_exception_execution_engine (msg);                      \
26      g_free (msg);                                                        \
27      mono_raise_exception (ex);                                           \
28 }G_STMT_END
29 #else /* not GNUC */
30 #define mono_assert(expr)                  G_STMT_START{                  \
31      if (!(expr))                                                         \
32        {                                                                  \
33                 MonoException *ex;                                        \
34                 char *msg = g_strdup_printf ("file %s: line %d: "         \
35                 "assertion failed: (%s)", __FILE__, __LINE__,             \
36                 #expr);                                                   \
37                 ex = mono_get_exception_execution_engine (msg);           \
38                 g_free (msg);                                             \
39                 mono_raise_exception (ex);                                \
40        };                               }G_STMT_END
41
42 #define mono_assert_not_reached()                 G_STMT_START{           \
43      MonoException *ex;                                                   \
44      char *msg = g_strdup_printf ("file %s: line %d): "                   \
45      "should not be reached", __FILE__, __LINE__);                        \
46      ex = mono_get_exception_execution_engine (msg);                      \
47      g_free (msg);                                                        \
48      mono_raise_exception (ex);                                           \
49 }G_STMT_END
50 #endif
51 #else
52 #define mono_assert(expr) g_assert(expr)
53 #define mono_assert_not_reached() g_assert_not_reached() 
54 #endif
55
56 #define MONO_CHECK_ARG(arg, expr)               G_STMT_START{             \
57      if (!(expr))                                                         \
58        {                                                                  \
59                 MonoException *ex;                                        \
60                 char *msg = g_strdup_printf ("assertion `%s' failed",     \
61                 #expr);                                                   \
62                 if (arg) {} /* check if the name exists */                \
63                 ex = mono_get_exception_argument (#arg, msg);             \
64                 g_free (msg);                                             \
65                 mono_raise_exception (ex);                                \
66        };                               }G_STMT_END
67
68 #define MONO_CHECK_ARG_NULL(arg)            G_STMT_START{                 \
69      if (arg == NULL)                                                     \
70        {                                                                  \
71                 MonoException *ex;                                        \
72                 if (arg) {} /* check if the name exists */                \
73                 ex = mono_get_exception_argument_null (#arg);             \
74                 mono_raise_exception (ex);                                \
75        };                               }G_STMT_END
76
77 typedef guchar MonoBoolean;
78
79 typedef struct _MonoReflectionMethod MonoReflectionMethod;
80 typedef struct _MonoDelegate MonoDelegate;
81
82 typedef struct {
83         MonoVTable *vtable;
84         MonoThreadsSync *synchronisation;
85 } MonoObject;
86
87 typedef struct {
88         MonoObject obj;
89         MonoObject *identity;
90 } MonoMarshalByRefObject;
91
92 typedef struct {
93         guint32 length;
94         guint32 lower_bound;
95 } MonoArrayBounds;
96
97 typedef struct {
98         MonoObject obj;
99         /* bounds is NULL for szarrays */
100         MonoArrayBounds *bounds;
101         /* total number of elements of the array */
102         guint32 max_length; 
103         /* we use double to ensure proper alignment on platforms that need it */
104         double vector [MONO_ZERO_LEN_ARRAY];
105 } MonoArray;
106
107 typedef struct {
108         MonoObject object;
109         gint32 length;
110         gunichar2 chars [MONO_ZERO_LEN_ARRAY];
111 } MonoString;
112
113 typedef struct {
114         MonoObject object;
115         gint32 capacity;
116         gint32 length;
117         MonoArray *chars;
118 } MonoStringBuilder;
119
120 typedef struct {
121         MonoObject object;
122         MonoType  *type;
123 } MonoReflectionType;
124
125 typedef struct {
126         MonoType *type;
127         gpointer  value;
128         MonoClass *klass;
129 } MonoTypedRef;
130
131 typedef struct {
132         gpointer args;
133 } MonoArgumentHandle;
134
135 typedef struct {
136         MonoMethodSignature *sig;
137         gpointer args;
138         gint32 next_arg;
139         gint32 num_args;
140 } MonoArgIterator;
141
142 typedef struct {
143         MonoObject object;
144         MonoArray  *trace_ips;
145         MonoObject *inner_ex;
146         MonoString *message;
147         MonoString *help_link;
148         MonoString *class_name;
149         MonoString *stack_trace;
150         MonoString *remote_stack_trace;
151         gint32      remote_stack_index;
152         gint32      hresult;
153         MonoString *source;
154 } MonoException;
155
156 typedef struct {
157         MonoException base;
158 } MonoSystemException;
159
160 typedef struct {
161         MonoSystemException base;
162         MonoString *param_name;
163 } MonoArgumentException;
164
165 typedef struct {
166         MonoSystemException base;
167         MonoString *msg;
168         MonoString *type_name;
169 } MonoTypeLoadException;
170
171 typedef struct {
172         MonoObject   object;
173         MonoObject  *async_state;
174         MonoObject  *handle;
175         MonoObject  *async_delegate;
176         gpointer     data;
177         MonoBoolean  sync_completed;
178         MonoBoolean  completed;
179         MonoBoolean  endinvoke_called;
180 } MonoAsyncResult;
181
182 typedef struct {
183         MonoMarshalByRefObject object;
184         gpointer     handle;
185         MonoBoolean  disposed;
186 } MonoWaitHandle;
187
188 typedef struct {
189         MonoObject  object;
190         MonoReflectionType *class_to_proxy;     
191         MonoObject *context;
192         MonoObject *unwrapped_server;
193 } MonoRealProxy;
194
195 typedef struct {
196         MonoObject     object;
197         MonoRealProxy *rp;      
198         MonoClass     *klass; 
199 } MonoTransparentProxy;
200
201 /* This is a copy of System.Runtime.Remoting.Messaging.CallType */
202 typedef enum {
203         CallType_Sync = 0,
204         CallType_BeginInvoke = 1,
205         CallType_EndInvoke = 2,
206         CallType_OneWay = 3
207 } MonoCallType;
208
209 typedef struct {
210         MonoObject obj;
211         MonoReflectionMethod *method;
212         MonoArray  *args;               
213         MonoArray  *names;              
214         MonoArray  *arg_types;  
215         MonoObject *ctx;
216         MonoObject *rval;
217         MonoObject *exc;
218         MonoAsyncResult *async_result;
219         guint32     call_type;
220 } MonoMethodMessage;
221
222 typedef struct {
223         MonoObject obj;
224         gint32 il_offset;
225         gint32 native_offset;
226         MonoReflectionMethod *method;
227         MonoString *filename;
228         gint32 line;
229         gint32 column;
230 } MonoStackFrame;
231
232 typedef struct {
233         MonoObject  obj;
234         HANDLE      handle;
235         MonoObject *culture_info;
236         MonoObject *ui_culture_info;
237         MonoBoolean threadpool_thread;
238         guint32     state;
239         MonoException *abort_exc;
240         MonoObject *abort_state;
241         guint32 tid;
242         HANDLE      start_notify;
243         gpointer stack_ptr;
244         gpointer *static_data;
245         gpointer jit_data;
246         gpointer lock_data;
247         GSList *appdomain_refs;
248 } MonoThread;
249
250 typedef struct {
251         MonoString *name;
252         MonoReflectionType *type;
253         MonoObject *value;
254 } MonoSerializationEntry;
255
256 typedef struct {
257         guint32 state;
258         MonoObject *additional;
259 } MonoStreamingContext;
260
261 typedef MonoObject* (*MonoInvokeFunc)        (MonoMethod *method, void *obj, void **params, MonoObject **exc);
262 typedef gpointer    (*MonoCompileFunc)       (MonoMethod *method);
263 typedef void        (*MonoMainThreadFunc)    (gpointer user_data);
264
265 #define mono_object_class(obj) (((MonoObject*)(obj))->vtable->klass)
266 #define mono_object_domain(obj) (((MonoObject*)(obj))->vtable->domain)
267
268 #define mono_array_length(array) ((array)->max_length)
269 #define mono_array_addr(array,type,index) ( ((char*)(array)->vector) + sizeof (type) * (index) )
270 #define mono_array_addr_with_size(array,size,index) ( ((char*)(array)->vector) + (size) * (index) )
271 #define mono_array_get(array,type,index) ( *(type*)mono_array_addr ((array), type, (index)) ) 
272 #define mono_array_set(array,type,index,value)  \
273         do {    \
274                 type *__p = (type *) mono_array_addr ((array), type, (index));  \
275                 *__p = (value); \
276         } while (0)
277
278 #define mono_string_chars(s) ((gunichar2*)(s)->chars)
279 #define mono_string_length(s) ((s)->length)
280
281 MonoObject *
282 mono_object_new             (MonoDomain *domain, MonoClass *klass);
283
284 MonoObject *
285 mono_object_new_specific    (MonoVTable *vtable);
286
287 /* can be used for classes without finalizer in non-profiling mode */
288 MonoObject *
289 mono_object_new_fast        (MonoVTable *vtable);
290
291 MonoObject *
292 mono_object_new_alloc_specific (MonoVTable *vtable);
293
294 MonoObject *
295 mono_object_new_from_token  (MonoDomain *domain, MonoImage *image, guint32 token);
296
297 MonoArray*
298 mono_array_new              (MonoDomain *domain, MonoClass *eclass, guint32 n);
299
300 MonoArray*
301 mono_array_new_full         (MonoDomain *domain, MonoClass *array_class,
302                              guint32 *lengths, guint32 *lower_bounds);
303
304 MonoArray *
305 mono_array_new_specific     (MonoVTable *vtable, guint32 n);
306
307 MonoArray*
308 mono_array_clone            (MonoArray *array);
309
310 MonoString*
311 mono_string_new_utf16       (MonoDomain *domain, const guint16 *text, gint32 len);
312
313 MonoString*
314 mono_string_new_size        (MonoDomain *domain, gint32 len);
315
316 MonoString*
317 mono_ldstr                  (MonoDomain *domain, MonoImage *image, guint32 str_index);
318
319 MonoString*
320 mono_string_is_interned     (MonoString *str);
321
322 MonoString*
323 mono_string_intern          (MonoString *str);
324
325 MonoString*
326 mono_string_new             (MonoDomain *domain, const char *text);
327
328 MonoString*
329 mono_string_new_wrapper     (const char *text);
330
331 MonoString*
332 mono_string_new_len         (MonoDomain *domain, const char *text, guint length);
333
334 char *
335 mono_string_to_utf8         (MonoString *string_obj);
336
337 gunichar2 *
338 mono_string_to_utf16        (MonoString *string_obj);
339
340 MonoString *
341 mono_string_from_utf16      (gunichar2 *data);
342
343 void       
344 mono_object_free            (MonoObject *o);
345
346 MonoObject *
347 mono_value_box              (MonoDomain *domain, MonoClass *klass, gpointer val);
348
349 gpointer
350 mono_object_unbox           (MonoObject *obj);
351
352 MonoObject *
353 mono_object_clone           (MonoObject *obj);
354
355 MonoObject *
356 mono_object_isinst          (MonoObject *obj, MonoClass *klass);
357
358 typedef void (*MonoExceptionFunc) (MonoException *ex);
359
360 void
361 mono_install_handler        (MonoExceptionFunc func);
362
363 void
364 mono_raise_exception        (MonoException *ex);
365
366 void
367 mono_runtime_object_init    (MonoObject *this_obj);
368
369 void
370 mono_runtime_class_init     (MonoVTable *vtable);
371
372 void        
373 mono_install_runtime_invoke (MonoInvokeFunc func);
374
375 void        
376 mono_install_compile_method (MonoCompileFunc func);
377
378 MonoMethod*
379 mono_object_get_virtual_method (MonoObject *obj, MonoMethod *method);
380
381 MonoObject*
382 mono_runtime_invoke         (MonoMethod *method, void *obj, void **params,
383                              MonoObject **exc);
384
385 MonoMethod *
386 mono_get_delegate_invoke    (MonoClass *klass);
387
388 MonoObject*
389 mono_runtime_delegate_invoke (MonoObject *delegate, void **params, 
390                               MonoObject **exc);
391
392 MonoObject*
393 mono_runtime_invoke_array   (MonoMethod *method, void *obj, MonoArray *params,
394                              MonoObject **exc);
395
396 MonoArray*
397 mono_runtime_get_main_args  (void);
398
399 void
400 mono_runtime_exec_managed_code (MonoDomain *domain,
401                                 MonoMainThreadFunc main_func,
402                                 gpointer main_args);
403
404 int
405 mono_runtime_run_main       (MonoMethod *method, int argc, char* argv[], 
406                              MonoObject **exc);
407
408 int
409 mono_runtime_exec_main      (MonoMethod *method, MonoArray *args,
410                              MonoObject **exc);
411
412 MonoAsyncResult *
413 mono_async_result_new       (MonoDomain *domain, HANDLE handle, 
414                              MonoObject *state, gpointer data);
415
416 MonoWaitHandle *
417 mono_wait_handle_new        (MonoDomain *domain, HANDLE handle);
418
419 void
420 mono_message_init           (MonoDomain *domain, MonoMethodMessage *this_obj, 
421                              MonoReflectionMethod *method, MonoArray *out_args);
422
423 MonoObject *
424 mono_remoting_invoke        (MonoObject *real_proxy, MonoMethodMessage *msg, 
425                              MonoObject **exc, MonoArray **out_args);
426
427 MonoObject *
428 mono_message_invoke         (MonoObject *target, MonoMethodMessage *msg, 
429                              MonoObject **exc, MonoArray **out_args);
430
431 MonoMethodMessage *
432 mono_method_call_message_new (MonoMethod *method, gpointer *params, MonoMethod *invoke, 
433                               MonoDelegate **cb, MonoObject **state);
434
435 gpointer
436 mono_load_remote_field (MonoObject *this_obj, MonoClass *klass, MonoClassField *field, gpointer *res);
437
438 MonoObject *
439 mono_load_remote_field_new (MonoObject *this_obj, MonoClass *klass, MonoClassField *field);
440
441 void
442 mono_store_remote_field (MonoObject *this_obj, MonoClass *klass, MonoClassField *field, gpointer val);
443
444 void
445 mono_store_remote_field_new (MonoObject *this_obj, MonoClass *klass, MonoClassField *field, MonoObject *arg);
446
447 void
448 mono_method_return_message_restore (MonoMethod *method, gpointer *params, MonoArray *out_args);
449
450 void
451 mono_unhandled_exception    (MonoObject *exc);
452
453 void
454 mono_print_unhandled_exception (MonoObject *exc);
455
456 void
457 mono_delegate_ctor          (MonoObject *this_obj, MonoObject *target, gpointer addr);
458
459 gpointer 
460 mono_compile_method        (MonoMethod *method);
461
462 /* accessors for fields and properties */
463 void
464 mono_field_set_value (MonoObject *obj, MonoClassField *field, void *value);
465
466 void
467 mono_field_static_set_value (MonoVTable *vt, MonoClassField *field, void *value);
468
469 void
470 mono_field_get_value (MonoObject *obj, MonoClassField *field, void *value);
471
472 void
473 mono_field_static_get_value (MonoVTable *vt, MonoClassField *field, void *value);
474
475 MonoObject *
476 mono_field_get_value_object (MonoDomain *domain, MonoClassField *field, MonoObject *obj);
477
478 void
479 mono_property_set_value (MonoProperty *prop, void *obj, void **params, MonoObject **exc);
480
481 MonoObject*
482 mono_property_get_value (MonoProperty *prop, void *obj, void **params, MonoObject **exc);
483
484 #endif
485