Thu Feb 28 12:34:21 CET 2002 Paolo Molaro <lupus@ximian.com>
[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 #define MONO_CHECK_ARG(domain, arg, expr)       G_STMT_START{             \
8      if (!(expr))                                                         \
9        {                                                                  \
10                 MonoException *ex;                                        \
11                 char *msg = g_strdup_printf ("assertion `%s' failed",     \
12                 #expr);                                                   \
13                 if (arg) {} /* check if the name exists */                \
14                 ex = mono_get_exception_argument (domain, #arg, msg);     \
15                 g_free (msg);                                             \
16                 mono_raise_exception (ex);                                \
17        };                               }G_STMT_END
18
19 #define MONO_CHECK_ARG_NULL(domain, arg)         G_STMT_START{            \
20      if (arg == NULL)                                                     \
21        {                                                                  \
22                 MonoException *ex;                                        \
23                 ex = mono_get_exception_argument_null (domain, #arg);     \
24                 mono_raise_exception (ex);                                \
25        };                               }G_STMT_END
26
27 typedef guchar MonoBoolean;
28
29 typedef struct {
30         MonoVTable *vtable;
31         MonoThreadsSync *synchronisation;
32 } MonoObject;
33
34 typedef struct {
35         guint32 length;
36         guint32 lower_bound;
37 } MonoArrayBounds;
38
39 typedef struct {
40         MonoObject obj;
41         MonoArrayBounds *bounds;
42         /* used by single dimensional arrays to speed up bound checking */
43         guint32 max_length; 
44         /* we use double to ensure proper alignment on platforms that need it */
45         double vector [MONO_ZERO_LEN_ARRAY];
46 } MonoArray;
47
48 typedef struct {
49         MonoObject obj;
50         MonoArray *c_str;
51         gint32 length;
52 } MonoString;
53
54 typedef struct {
55         MonoObject object;
56         MonoObject *inner_ex;
57         MonoString *message;
58         MonoString *help_link;
59         MonoString *class_name;
60         MonoString *stack_trace;
61         gint32      hresult;
62         MonoString *source;
63 } MonoException;
64
65 typedef struct {
66         MonoException base;
67 } MonoSystemException;
68
69 typedef struct {
70         MonoSystemException base;
71         MonoString *param_name;
72 } MonoArgumentException;
73
74 typedef struct {
75         MonoObject object;
76         MonoObject *target_type;
77         MonoObject *target;
78         MonoString *method;
79         gpointer    method_ptr;
80 } MonoDelegate;
81
82 typedef void   (*MonoRuntimeObjectInit) (MonoObject *o);
83 typedef gint32 (*MonoRuntimeExecMain)   (MonoMethod *method, MonoArray *args);
84
85 extern MonoRuntimeObjectInit mono_runtime_object_init;
86 extern MonoRuntimeExecMain mono_runtime_exec_main;
87
88 #define mono_array_length(array) ((array)->bounds->length)
89 #define mono_array_addr(array,type,index) ( ((char*)(array)->vector) + sizeof (type) * (index) )
90 #define mono_array_addr_with_size(array,size,index) ( ((char*)(array)->vector) + (size) * (index) )
91 #define mono_array_get(array,type,index) ( *(type*)mono_array_addr ((array), type, (index)) ) 
92 #define mono_array_set(array,type,index,value)  \
93         do {    \
94                 type *__p = (type *) mono_array_addr ((array), type, (index));  \
95                 *__p = (value); \
96         } while (0)
97
98 #define mono_string_chars(s) ((gushort*)(s)->c_str->vector)
99
100 void *
101 mono_object_allocate        (size_t size);
102
103 MonoObject *
104 mono_object_new             (MonoDomain *domain, MonoClass *klass);
105
106 MonoObject *
107 mono_object_new_from_token  (MonoDomain *domain, MonoImage *image, guint32 token);
108
109 MonoArray*
110 mono_array_new              (MonoDomain *domain, MonoClass *eclass, guint32 n);
111
112 MonoArray*
113 mono_array_new_full         (MonoDomain *domain, MonoClass *array_class,
114                              guint32 *lengths, guint32 *lower_bounds);
115
116 MonoArray*
117 mono_array_clone            (MonoArray *array);
118
119 MonoString*
120 mono_string_new_utf16       (MonoDomain *domain, const guint16 *text, gint32 len);
121
122 MonoString*
123 mono_ldstr                  (MonoDomain *domain, MonoImage *image, guint32 index);
124
125 MonoString*
126 mono_string_is_interned     (MonoString *str);
127
128 MonoString*
129 mono_string_intern          (MonoString *str);
130
131 MonoString*
132 mono_string_new             (MonoDomain *domain, const char *text);
133
134 MonoString*
135 mono_string_new_len         (MonoDomain *domain, const char *text, guint length);
136
137 char *
138 mono_string_to_utf8         (MonoString *string_obj);
139
140 char *
141 mono_string_to_utf16        (MonoString *string_obj);
142
143 void       
144 mono_object_free            (MonoObject *o);
145
146 MonoObject *
147 mono_value_box              (MonoDomain *domain, MonoClass *klass, gpointer val);
148                       
149 MonoObject *
150 mono_object_clone           (MonoObject *obj);
151
152 MonoObject *
153 mono_object_isinst          (MonoObject *obj, MonoClass *klass);
154
155 typedef void (*MonoExceptionFunc) (MonoException *ex);
156
157 void
158 mono_install_handler        (MonoExceptionFunc func);
159
160 void
161 mono_raise_exception        (MonoException *ex);
162
163 void
164 mono_install_runtime_object_init (MonoRuntimeObjectInit func);
165
166 void
167 mono_install_runtime_exec_main   (MonoRuntimeExecMain func);
168
169 #endif
170