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 void   (*MonoRuntimeObjectInit) (MonoObject *o);
 102 typedef gint32 (*MonoRuntimeExecMain)   (MonoMethod *method, MonoArray *args);
 103
 104 extern MonoRuntimeObjectInit mono_runtime_object_init;
 105 extern MonoRuntimeExecMain mono_runtime_exec_main;
 106
 107 #define mono_array_length(array) ((array)->bounds->length)
 108 #define mono_array_addr(array,type,index) ( ((char*)(array)->vector) + sizeof (type) * (index) )
 109 #define mono_array_addr_with_size(array,size,index) ( ((char*)(array)->vector) + (size) * (index) )
 110 #define mono_array_get(array,type,index) ( *(type*)mono_array_addr ((array), type, (index)) )
 111 #define mono_array_set(array,type,index,value)  \
 112         do {    \
 113                 type *__p = (type *) mono_array_addr ((array), type, (index));  \
 114                 *__p = (value); \
 115         } while (0)
 116
 117 #define mono_string_chars(s) ((gushort*)(s)->c_str->vector)
 118
 119 void *
 120 mono_object_allocate        (size_t size);
 121
 122 MonoObject *
 123 mono_object_new             (MonoDomain *domain, MonoClass *klass);
 124
 125 MonoObject *
 126 mono_object_new_from_token  (MonoDomain *domain, MonoImage *image, guint32 token);
 127
 128 MonoArray*
 129 mono_array_new              (MonoDomain *domain, MonoClass *eclass, guint32 n);
 130
 131 MonoArray*
 132 mono_array_new_full         (MonoDomain *domain, MonoClass *array_class,
 133                              guint32 *lengths, guint32 *lower_bounds);
 134
 135 MonoArray*
 136 mono_array_clone            (MonoArray *array);
 137
 138 MonoString*
 139 mono_string_new_utf16       (MonoDomain *domain, const guint16 *text, gint32 len);
 140
 141 MonoString*
 142 mono_ldstr                  (MonoDomain *domain, MonoImage *image, guint32 index);
 143
 144 MonoString*
 145 mono_string_is_interned     (MonoString *str);
 146
 147 MonoString*
 148 mono_string_intern          (MonoString *str);
 149
 150 MonoString*
 151 mono_string_new             (MonoDomain *domain, const char *text);
 152
 153 MonoString*
 154 mono_string_new_len         (MonoDomain *domain, const char *text, guint length);
 155
 156 char *
 157 mono_string_to_utf8         (MonoString *string_obj);
 158
 159 char *
 160 mono_string_to_utf16        (MonoString *string_obj);
 161
 162 void
 163 mono_object_free            (MonoObject *o);
 164
 165 MonoObject *
 166 mono_value_box              (MonoDomain *domain, MonoClass *klass, gpointer val);
 167
 168 MonoObject *
 169 mono_object_clone           (MonoObject *obj);
 170
 171 MonoObject *
 172 mono_object_isinst          (MonoObject *obj, MonoClass *klass);
 173
 174 typedef void (*MonoExceptionFunc) (MonoException *ex);
 175
 176 void
 177 mono_install_handler        (MonoExceptionFunc func);
 178
 179 void
 180 mono_raise_exception        (MonoException *ex);
 181
 182 void
 183 mono_install_runtime_object_init (MonoRuntimeObjectInit func);
 184
 185 void
 186 mono_install_runtime_exec_main   (MonoRuntimeExecMain func);
 187
 188 #endif
 189