Patch for bug #62532 implemention of a kqueue/kevent based FileSystemWatcher.
[mono.git] / mono / metadata / exception.c
index 5c6cd05277b34b42f38feca7401dde71403d8e74..177c3d9d899936480a41451dbbb9de905d999755 100644 (file)
@@ -11,7 +11,7 @@
  */
 
 #include <mono/metadata/exception.h>
-#include <mono/metadata/class.h>
+#include <mono/metadata/object-internals.h>
 #include <mono/metadata/appdomain.h>
 #include <string.h>
 
@@ -29,7 +29,13 @@ MonoException *
 mono_exception_from_name (MonoImage *image, const char *name_space,
                          const char *name)
 {
-       MonoDomain *domain = mono_domain_get ();
+       return mono_exception_from_name_domain (mono_domain_get (), image, name_space, name);
+}
+
+MonoException *
+mono_exception_from_name_domain (MonoDomain *domain, MonoImage *image, 
+                                const char* name_space, const char *name)
+{
        MonoClass *klass;
        MonoObject *o;
 
@@ -56,7 +62,7 @@ mono_exception_from_name (MonoImage *image, const char *name_space,
  *
  * Returns: the initialized exception instance.
  */
-static MonoException *
+MonoException *
 mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
                                      const char *name, MonoString *a1, MonoString *a2)
 {
@@ -64,25 +70,32 @@ mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
        MonoClass *klass;
        MonoMethod *method = NULL;
        MonoObject *o;
-       int i;
+       int count = 1;
        gpointer args [2];
+       gpointer iter;
+       MonoMethod *m;
+
+       if (a2 != NULL)
+               count++;
        
        klass = mono_class_from_name (image, name_space, name);
        o = mono_object_new (domain, klass);
 
-       for (i = 0; i < klass->method.count; ++i) {
+       iter = NULL;
+       while ((m = mono_class_get_methods (klass, &iter))) {
                MonoMethodSignature *sig;
                
-               if (strcmp (".ctor", klass->methods [i]->name))
+               if (strcmp (".ctor", mono_method_get_name (m)))
                        continue;
-               sig = klass->methods [i]->signature;
-               if (sig->param_count != 2)
+               sig = mono_method_signature (m);
+               if (sig->param_count != count)
                        continue;
 
-               if (sig->params [0]->type != MONO_TYPE_STRING ||
-                   sig->params [1]->type != MONO_TYPE_STRING)
+               if (sig->params [0]->type != MONO_TYPE_STRING)
+                       continue;
+               if (count == 2 && sig->params [1]->type != MONO_TYPE_STRING)
                        continue;
-               method = klass->methods [i];
+               method = m;
        }
 
        args [0] = a1;
@@ -91,121 +104,139 @@ mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
        return (MonoException *) o;
 }
 
+/**
+ * mono_exception_from_name_msg:
+ * @image: the Mono image where to look for the class
+ * @name_space: the namespace for the class
+ * @name: class name
+ * @msg: the message to embed inside the exception
+ *
+ * Creates an exception and initializes its message field.
+ *
+ * Returns: the initialized exception instance.
+ */
+MonoException *
+mono_exception_from_name_msg (MonoImage *image, const char *name_space,
+                             const char *name, const guchar *msg)
+{
+       MonoException *ex;
+
+       ex = mono_exception_from_name (image, name_space, name);
+
+       if (msg)
+               ex->message = mono_string_new (mono_object_get_domain ((MonoObject*)ex), msg);
+
+       return ex;
+}
+
 MonoException *
 mono_get_exception_divide_by_zero ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "DivideByZeroException");
 }
 
 MonoException *
 mono_get_exception_security ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System.Security",
                                         "SecurityException");
 }
 
 MonoException *
 mono_get_exception_thread_abort ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System.Threading",
+       return mono_exception_from_name (mono_get_corlib (), "System.Threading",
                                         "ThreadAbortException");
 }
 
 MonoException *
 mono_get_exception_arithmetic ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "ArithmeticException");
 }
 
 MonoException *
 mono_get_exception_overflow ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "OverflowException");
 }
 
 MonoException *
 mono_get_exception_null_reference ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "NullReferenceException");
 }
 
 MonoException *
 mono_get_exception_execution_engine (const guchar *msg)
 {
-       MonoException *ex;
-       MonoDomain *domain;
-
-       ex = mono_exception_from_name (mono_defaults.corlib, "System",
-                                        "ExecutionEngineException");
-
-       domain = ((MonoObject *)ex)->vtable->domain;
-
-       if (msg)
-               ex->message = mono_string_new (domain, msg);
-
-       return ex;
+       return mono_exception_from_name_msg (mono_get_corlib (), "System",
+                                                                                "ExecutionEngineException", msg);
 }
 
 MonoException *
 mono_get_exception_serialization (const guchar *msg)
 {
-       MonoException *ex;
-       MonoDomain *domain;
-
-       ex = mono_exception_from_name (mono_defaults.corlib, "System.Runtime.Serialization",
-                                      "SerializationException");
-
-       domain = ((MonoObject *)ex)->vtable->domain;
-
-       if (msg)
-               ex->message = mono_string_new (domain, msg);
-
-       return ex;
+       return mono_exception_from_name_msg (mono_get_corlib (), "System.Runtime.Serialization",
+                                                                                "SerializationException", msg);
 }
 
 MonoException *
 mono_get_exception_invalid_cast ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "InvalidCastException");
 }
 
 MonoException *
 mono_get_exception_index_out_of_range ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "IndexOutOfRangeException");
 }
 
 MonoException *
 mono_get_exception_array_type_mismatch ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "ArrayTypeMismatchException");
 }
 
 MonoException *
-mono_get_exception_type_load ()
+mono_get_exception_type_load (MonoString *type_name)
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
-                                        "TypeLoadException");
+       MonoTypeLoadException *exc;
+       
+       exc = (MonoTypeLoadException *) mono_exception_from_name (mono_get_corlib (),
+                                       "System",
+                                       "TypeLoadException");
+
+       exc->type_name = type_name;
+       return (MonoException *) exc;
 }
 
 MonoException *
-mono_get_exception_not_implemented ()
+mono_get_exception_not_implemented (const guchar *msg)
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
-                                        "NotImplementedException");
+       MonoException *ex;
+       
+       ex = mono_exception_from_name (mono_get_corlib (), "System",
+                                      "NotImplementedException");
+
+       if (msg)
+               ex->message = mono_string_new (mono_object_get_domain ((MonoObject*)ex), msg);
+
+       return ex;
 }
 
 MonoException *
 mono_get_exception_missing_method ()
 {
-       return mono_exception_from_name (mono_defaults.corlib, "System",
+       return mono_exception_from_name (mono_get_corlib (), "System",
                                         "MissingMethodException");
 }
 
@@ -213,16 +244,13 @@ MonoException*
 mono_get_exception_argument_null (const guchar *arg)
 {
        MonoException *ex;
-       MonoDomain *domain;
 
-       ex = (MonoException *)mono_exception_from_name ( 
-               mono_defaults.corlib, "System", "ArgumentNullException");
-
-       domain = ((MonoObject *)ex)->vtable->domain;
+       ex = mono_exception_from_name ( 
+               mono_get_corlib (), "System", "ArgumentNullException");
 
        if (arg)
                ((MonoArgumentException *)ex)->param_name =
-                       mono_string_new (domain, arg);
+                       mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg);
        
        return ex;
 }
@@ -231,19 +259,13 @@ MonoException *
 mono_get_exception_argument (const guchar *arg, const guchar *msg)
 {
        MonoException *ex;
-       MonoDomain *domain;
-
-       ex = (MonoException *)mono_exception_from_name (
-               mono_defaults.corlib, "System", "ArgumentException");
 
-       domain = ((MonoObject *)ex)->vtable->domain;
+       ex = mono_exception_from_name_msg (
+               mono_get_corlib (), "System", "ArgumentException", msg);
 
-       if (msg)
-               ex->message = mono_string_new (domain, msg);
-       
        if (arg)
                ((MonoArgumentException *)ex)->param_name =
-                       mono_string_new (domain, arg);
+                       mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg);
        
        return ex;
 }
@@ -252,16 +274,13 @@ MonoException *
 mono_get_exception_argument_out_of_range (const guchar *arg)
 {
        MonoException *ex;
-       MonoDomain *domain;
-
-       ex = (MonoException *)mono_exception_from_name (
-               mono_defaults.corlib, "System", "ArgumentOutOfRangeException");
 
-       domain = ((MonoObject *)ex)->vtable->domain;
+       ex = mono_exception_from_name (
+               mono_get_corlib (), "System", "ArgumentOutOfRangeException");
 
        if (arg)
                ((MonoArgumentException *)ex)->param_name =
-                       mono_string_new (domain, arg);
+                       mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg);
        
        return ex;
 }
@@ -269,41 +288,22 @@ mono_get_exception_argument_out_of_range (const guchar *arg)
 MonoException *
 mono_get_exception_thread_state (const guchar *msg)
 {
-       MonoException *ex;
-       MonoDomain *domain;
-
-       ex = (MonoException *)mono_exception_from_name (
-               mono_defaults.corlib, "System.Threading", "ThreadStateException");
-
-       domain = ((MonoObject *)ex)->vtable->domain;
-
-       if (msg)
-               ex->message = mono_string_new (domain, msg);
-               
-       return ex;
+       return mono_exception_from_name_msg (
+               mono_get_corlib (), "System.Threading", "ThreadStateException", msg);
 }
 
 MonoException *
 mono_get_exception_io (const guchar *msg)
 {
-       MonoException *ex;
-       MonoDomain *domain;
-
-       ex=(MonoException *)mono_exception_from_name ( 
-               mono_defaults.corlib, "System.IO", "IOException");
-
-       domain = ((MonoObject *)ex)->vtable->domain;
-
-       ex->message=mono_string_new (domain, msg);
-       
-       return(ex);
+       return mono_exception_from_name_msg ( 
+               mono_get_corlib (), "System.IO", "IOException", msg);
 }
 
 MonoException *
 mono_get_exception_file_not_found (MonoString *fname)
 {
        return mono_exception_from_name_two_strings (
-               mono_defaults.corlib, "System.IO", "FileNotFoundException", fname, fname);
+               mono_get_corlib (), "System.IO", "FileNotFoundException", fname, fname);
 }
 
 MonoException *
@@ -313,17 +313,17 @@ mono_get_exception_type_initialization (const gchar *type_name, MonoException *i
        gpointer args [2];
        MonoObject *exc;
        MonoMethod *method;
-       gint i;
+       gpointer iter;
 
-       klass = mono_class_from_name (mono_defaults.corlib, "System", "TypeInitializationException");
+       klass = mono_class_from_name (mono_get_corlib (), "System", "TypeInitializationException");
        g_assert (klass);
 
        mono_class_init (klass);
 
        /* TypeInitializationException only has 1 ctor with 2 args */
-       for (i = 0; i < klass->method.count; ++i) {
-               method = klass->methods [i];
-               if (!strcmp (".ctor", method->name) && method->signature->param_count == 2)
+       iter = NULL;
+       while ((method = mono_class_get_methods (klass, &iter))) {
+               if (!strcmp (".ctor", mono_method_get_name (method)) && mono_method_signature (method)->param_count == 2)
                        break;
                method = NULL;
        }
@@ -342,15 +342,29 @@ mono_get_exception_type_initialization (const gchar *type_name, MonoException *i
 MonoException *
 mono_get_exception_synchronization_lock (const guchar *msg)
 {
-       MonoException *ex;
-       MonoDomain *domain;
-       
-       ex=(MonoException *)mono_exception_from_name (mono_defaults.corlib, "System.Threading", "SynchronizationLockException");
-       domain=((MonoObject *)ex)->vtable->domain;
-       
-       if(msg) {
-               ex->message=mono_string_new (domain, msg);
-       }
-       
-       return(ex);
+       return mono_exception_from_name_msg (mono_get_corlib (), "System.Threading", "SynchronizationLockException", msg);
+}
+
+MonoException *
+mono_get_exception_cannot_unload_appdomain (const guchar *msg)
+{
+       return mono_exception_from_name_msg (mono_get_corlib (), "System", "CannotUnloadAppDomainException", msg);
+}
+
+MonoException *
+mono_get_exception_appdomain_unloaded (void)
+{
+       return mono_exception_from_name (mono_get_corlib (), "System", "AppDomainUnloadedException");
+}
+
+MonoException *
+mono_get_exception_bad_image_format (const guchar *msg)
+{
+       return mono_exception_from_name_msg (mono_get_corlib (), "System", "BadImageFormatException", msg);
+}      
+
+MonoException *
+mono_get_exception_stack_overflow (void)
+{
+       return mono_exception_from_name (mono_get_corlib (), "System", "StackOverflowException");       
 }