Fri Apr 12 18:30:29 CEST 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 #if 1
8 #define mono_assert(expr)                  G_STMT_START{                  \
9      if (!(expr))                                                         \
10        {                                                                  \
11                 MonoException *ex;                                        \
12                 char *msg = g_strdup_printf ("file %s: line %d (%s): "    \
13                 "assertion failed: (%s)", __FILE__, __LINE__,             \
14                 __PRETTY_FUNCTION__, #expr);                              \
15                 ex = mono_get_exception_execution_engine (msg);           \
16                 g_free (msg);                                             \
17                 mono_raise_exception (ex);                                \
18        };                               }G_STMT_END
19
20 #define mono_assert_not_reached()                 G_STMT_START{           \
21      MonoException *ex;                                                   \
22      char *msg = g_strdup_printf ("file %s: line %d (%s): "               \
23      "should not be reached", __FILE__, __LINE__, __PRETTY_FUNCTION__);   \
24      ex = mono_get_exception_execution_engine (msg);                      \
25      g_free (msg);                                                        \
26      mono_raise_exception (ex);                                           \
27 }G_STMT_END
28 #else
29 #define mono_assert(expr) g_assert(expr)
30 #define mono_assert_not_reached() g_assert_not_reached() 
31 #endif
32
33 #define MONO_CHECK_ARG(arg, expr)               G_STMT_START{             \
34      if (!(expr))                                                         \
35        {                                                                  \
36                 MonoException *ex;                                        \
37                 char *msg = g_strdup_printf ("assertion `%s' failed",     \
38                 #expr);                                                   \
39                 if (arg) {} /* check if the name exists */                \
40                 ex = mono_get_exception_argument (#arg, msg);             \
41                 g_free (msg);                                             \
42                 mono_raise_exception (ex);                                \
43        };                               }G_STMT_END
44
45 #define MONO_CHECK_ARG_NULL(arg)            G_STMT_START{                 \
46      if (arg == NULL)                                                     \
47        {                                                                  \
48                 MonoException *ex;                                        \
49                 if (arg) {} /* check if the name exists */                \
50                 ex = mono_get_exception_argument_null (#arg);             \
51                 mono_raise_exception (ex);                                \
52        };                               }G_STMT_END
53
54 typedef guchar MonoBoolean;
55
56 typedef struct _MonoReflectionMethod MonoReflectionMethod;
57
58 typedef struct {
59         MonoVTable *vtable;
60         MonoThreadsSync *synchronisation;
61 } MonoObject;
62
63 typedef struct {
64         guint32 length;
65         guint32 lower_bound;
66 } MonoArrayBounds;
67
68 typedef struct {
69         MonoObject obj;
70         MonoArrayBounds *bounds;
71         /* total number of elements of the array */
72         guint32 max_length; 
73         /* we use double to ensure proper alignment on platforms that need it */
74         double vector [MONO_ZERO_LEN_ARRAY];
75 } MonoArray;
76
77 typedef struct {
78         MonoObject obj;
79         MonoArray *c_str;
80         gint32 length;
81 } MonoString;
82
83 typedef struct {
84         MonoObject object;
85         MonoType  *type;
86 } MonoReflectionType;
87
88 typedef struct {
89         MonoObject object;
90         MonoObject *inner_ex;
91         MonoString *message;
92         MonoString *help_link;
93         MonoString *class_name;
94         MonoString *stack_trace;
95         gint32      hresult;
96         MonoString *source;
97 } MonoException;
98
99 typedef struct {
100         MonoException base;
101 } MonoSystemException;
102
103 typedef struct {
104         MonoSystemException base;
105         MonoString *param_name;
106 } MonoArgumentException;
107
108 typedef struct {
109         MonoObject   object;
110         MonoObject  *async_state;
111         MonoObject  *handle;
112         MonoObject  *async_delegate;
113         gpointer     data;
114         MonoBoolean  sync_completed;
115         MonoBoolean  completed;
116         MonoBoolean  endinvoke_called;
117 } MonoAsyncResult;
118
119 typedef struct {
120         MonoObject   object;
121         gpointer     handle;
122         MonoBoolean  disposed;
123 } MonoWaitHandle;
124
125 typedef struct {
126         MonoObject  object;
127         MonoReflectionType *class_to_proxy;     
128 } MonoRealProxy;
129
130 typedef struct {
131         MonoObject  object;
132         MonoRealProxy *rp;      
133 } MonoTransparentProxy;
134
135 typedef struct {
136         MonoObject obj;
137         MonoReflectionMethod *method;
138         MonoArray  *args;               
139         MonoArray  *names;              
140         MonoArray  *arg_types;  
141         MonoObject *ctx;
142         MonoObject *rval;
143         MonoObject *exc;
144 } MonoMethodMessage;
145
146 typedef struct {
147         gulong new_object_count;
148         gulong initialized_class_count;
149         gulong used_class_count;
150         gulong class_vtable_size;
151         gulong class_static_data_size;
152 } MonoStats;
153
154 typedef MonoObject* (*MonoInvokeFunc)        (MonoMethod *method, void *obj, void **params);
155
156 #define mono_object_class(obj) (((MonoObject*)(obj))->vtable->klass)
157 #define mono_object_domain(obj) (((MonoObject*)(obj))->vtable->domain)
158
159 #define mono_array_length(array) ((array)->max_length)
160 #define mono_array_addr(array,type,index) ( ((char*)(array)->vector) + sizeof (type) * (index) )
161 #define mono_array_addr_with_size(array,size,index) ( ((char*)(array)->vector) + (size) * (index) )
162 #define mono_array_get(array,type,index) ( *(type*)mono_array_addr ((array), type, (index)) ) 
163 #define mono_array_set(array,type,index,value)  \
164         do {    \
165                 type *__p = (type *) mono_array_addr ((array), type, (index));  \
166                 *__p = (value); \
167         } while (0)
168
169 #define mono_string_chars(s) ((gushort*)(s)->c_str->vector)
170 #define mono_string_length(s) ((s)->length)
171
172 extern MonoStats mono_stats;
173
174 void *
175 mono_object_allocate        (size_t size);
176
177 MonoObject *
178 mono_object_new             (MonoDomain *domain, MonoClass *klass);
179
180 MonoObject *
181 mono_object_new_from_token  (MonoDomain *domain, MonoImage *image, guint32 token);
182
183 MonoArray*
184 mono_array_new              (MonoDomain *domain, MonoClass *eclass, guint32 n);
185
186 MonoArray*
187 mono_array_new_full         (MonoDomain *domain, MonoClass *array_class,
188                              guint32 *lengths, guint32 *lower_bounds);
189
190 MonoArray*
191 mono_array_clone            (MonoArray *array);
192
193 MonoString*
194 mono_string_new_utf16       (MonoDomain *domain, const guint16 *text, gint32 len);
195
196 MonoString*
197 mono_ldstr                  (MonoDomain *domain, MonoImage *image, guint32 str_index);
198
199 MonoString*
200 mono_string_is_interned     (MonoString *str);
201
202 MonoString*
203 mono_string_intern          (MonoString *str);
204
205 MonoString*
206 mono_string_new             (MonoDomain *domain, const char *text);
207
208 MonoString*
209 mono_string_new_wrapper     (const char *text);
210
211 MonoString*
212 mono_string_new_len         (MonoDomain *domain, const char *text, guint length);
213
214 char *
215 mono_string_to_utf8         (MonoString *string_obj);
216
217 gunichar2 *
218 mono_string_to_utf16        (MonoString *string_obj);
219
220 void       
221 mono_object_free            (MonoObject *o);
222
223 MonoObject *
224 mono_value_box              (MonoDomain *domain, MonoClass *klass, gpointer val);
225                       
226 MonoObject *
227 mono_object_clone           (MonoObject *obj);
228
229 MonoObject *
230 mono_object_isinst          (MonoObject *obj, MonoClass *klass);
231
232 typedef void (*MonoExceptionFunc) (MonoException *ex);
233
234 void
235 mono_install_handler        (MonoExceptionFunc func);
236
237 void
238 mono_raise_exception        (MonoException *ex);
239
240 void
241 mono_runtime_object_init    (MonoObject *this);
242
243 void
244 mono_runtime_class_init     (MonoClass *klass);
245
246 void        
247 mono_install_runtime_invoke (MonoInvokeFunc func);
248
249 MonoObject*
250 mono_runtime_invoke         (MonoMethod *method, void *obj, void **params);
251
252 MonoObject*
253 mono_runtime_invoke_array   (MonoMethod *method, void *obj, MonoArray *params);
254
255 int
256 mono_runtime_exec_main      (MonoMethod *method, MonoArray *args);
257
258 MonoAsyncResult *
259 mono_async_result_new       (MonoDomain *domain, HANDLE handle, 
260                              MonoObject *state, gpointer data);
261
262 MonoWaitHandle *
263 mono_wait_handle_new        (MonoDomain *domain, HANDLE handle);
264
265 void
266 mono_message_init           (MonoDomain *domain, MonoMethodMessage *this, 
267                              MonoReflectionMethod *method, MonoArray *out_args);
268
269 MonoObject *
270 mono_remoting_invoke        (MonoObject *real_proxy, MonoMethodMessage *msg, 
271                              MonoObject **exc, MonoArray **out_args);
272
273 MonoObject *
274 mono_message_invoke         (MonoObject *target, MonoMethodMessage *msg, 
275                              MonoObject **exc, MonoArray **out_args);
276
277 #endif
278