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 {
  57         MonoVTable *vtable;
  58         MonoThreadsSync *synchronisation;
  59 } MonoObject;
  60
  61 typedef struct {
  62         guint32 length;
  63         guint32 lower_bound;
  64 } MonoArrayBounds;
  65
  66 typedef struct {
  67         MonoObject obj;
  68         MonoArrayBounds *bounds;
  69         /* used by single dimensional arrays to speed up bound checking */
  70         guint32 max_length;
  71         /* we use double to ensure proper alignment on platforms that need it */
  72         double vector [MONO_ZERO_LEN_ARRAY];
  73 } MonoArray;
  74
  75 typedef struct {
  76         MonoObject obj;
  77         MonoArray *c_str;
  78         gint32 length;
  79 } MonoString;
  80
  81 typedef struct {
  82         MonoObject object;
  83         MonoObject *inner_ex;
  84         MonoString *message;
  85         MonoString *help_link;
  86         MonoString *class_name;
  87         MonoString *stack_trace;
  88         gint32      hresult;
  89         MonoString *source;
  90 } MonoException;
  91
  92 typedef struct {
  93         MonoException base;
  94 } MonoSystemException;
  95
  96 typedef struct {
  97         MonoSystemException base;
  98         MonoString *param_name;
  99 } MonoArgumentException;
 100
 101 typedef struct {
 102         MonoObject object;
 103         MonoObject *target_type;
 104         MonoObject *target;
 105         MonoString *method;
 106         gpointer    method_ptr;
 107 } MonoDelegate;
 108
 109 typedef void   (*MonoRuntimeObjectInit) (MonoObject *o);
 110 typedef gint32 (*MonoRuntimeExecMain)   (MonoMethod *method, MonoArray *args);
 111
 112 extern MonoRuntimeObjectInit mono_runtime_object_init;
 113 extern MonoRuntimeExecMain mono_runtime_exec_main;
 114
 115 #define mono_array_length(array) ((array)->bounds->length)
 116 #define mono_array_addr(array,type,index) ( ((char*)(array)->vector) + sizeof (type) * (index) )
 117 #define mono_array_addr_with_size(array,size,index) ( ((char*)(array)->vector) + (size) * (index) )
 118 #define mono_array_get(array,type,index) ( *(type*)mono_array_addr ((array), type, (index)) )
 119 #define mono_array_set(array,type,index,value)  \
 120         do {    \
 121                 type *__p = (type *) mono_array_addr ((array), type, (index));  \
 122                 *__p = (value); \
 123         } while (0)
 124
 125 #define mono_string_chars(s) ((gushort*)(s)->c_str->vector)
 126
 127 void *
 128 mono_object_allocate        (size_t size);
 129
 130 MonoObject *
 131 mono_object_new             (MonoDomain *domain, MonoClass *klass);
 132
 133 MonoObject *
 134 mono_object_new_from_token  (MonoDomain *domain, MonoImage *image, guint32 token);
 135
 136 MonoArray*
 137 mono_array_new              (MonoDomain *domain, MonoClass *eclass, guint32 n);
 138
 139 MonoArray*
 140 mono_array_new_full         (MonoDomain *domain, MonoClass *array_class,
 141                              guint32 *lengths, guint32 *lower_bounds);
 142
 143 MonoArray*
 144 mono_array_clone            (MonoArray *array);
 145
 146 MonoString*
 147 mono_string_new_utf16       (MonoDomain *domain, const guint16 *text, gint32 len);
 148
 149 MonoString*
 150 mono_ldstr                  (MonoDomain *domain, MonoImage *image, guint32 index);
 151
 152 MonoString*
 153 mono_string_is_interned     (MonoString *str);
 154
 155 MonoString*
 156 mono_string_intern          (MonoString *str);
 157
 158 MonoString*
 159 mono_string_new             (MonoDomain *domain, const char *text);
 160
 161 MonoString*
 162 mono_string_new_len         (MonoDomain *domain, const char *text, guint length);
 163
 164 char *
 165 mono_string_to_utf8         (MonoString *string_obj);
 166
 167 char *
 168 mono_string_to_utf16        (MonoString *string_obj);
 169
 170 void
 171 mono_object_free            (MonoObject *o);
 172
 173 MonoObject *
 174 mono_value_box              (MonoDomain *domain, MonoClass *klass, gpointer val);
 175
 176 MonoObject *
 177 mono_object_clone           (MonoObject *obj);
 178
 179 MonoObject *
 180 mono_object_isinst          (MonoObject *obj, MonoClass *klass);
 181
 182 typedef void (*MonoExceptionFunc) (MonoException *ex);
 183
 184 void
 185 mono_install_handler        (MonoExceptionFunc func);
 186
 187 void
 188 mono_raise_exception        (MonoException *ex);
 189
 190 void
 191 mono_install_runtime_object_init (MonoRuntimeObjectInit func);
 192
 193 void
 194 mono_install_runtime_exec_main   (MonoRuntimeExecMain func);
 195
 196 #endif
 197