2008-02-26 Zoltan Varga <vargaz@gmail.com>
[mono.git] / mono / metadata / mono-config.c
index 524d45dc7d9baef7b61ec1bdeb1d8dd7ff2ff161..0dc6bd9698d833c1f645d45d71abb0ab39a09d75 100644 (file)
 #include "mono/metadata/loader.h"
 #include "mono/metadata/mono-config.h"
 #include "mono/metadata/metadata-internals.h"
+#include "mono/metadata/object-internals.h"
 #include "mono/utils/mono-logger.h"
 
+#if defined(__linux__)
+#define CONFIG_OS "linux"
+#elif defined(__APPLE__)
+#define CONFIG_OS "osx"
+#elif defined(sun)
+#define CONFIG_OS "solaris"
+#elif defined(__FreeBSD__)
+#define CONFIG_OS "freebsd"
+#elif defined(__NetBSD__)
+#define CONFIG_OS "netbsd"
+#elif defined(__OpenBSD__)
+#define CONFIG_OS "openbsd"
+#elif defined(__WIN32__)
+#define CONFIG_OS "windows"
+#elif defined(_IBMR2)
+#define CONFIG_OS "aix"
+#elif defined(__hpux)
+#define CONFIG_OS "hpux"
+#else
+#warning Unknown operating system
+#define CONFIG_OS "unknownOS"
+#endif
+
+#if defined(__i386__)
+#define CONFIG_CPU "x86"
+#elif defined(__x86_64__)
+#define CONFIG_CPU "x86-64"
+#elif defined(sparc) || defined(__sparc__)
+#define CONFIG_CPU "sparc"
+#elif defined(__ppc__) || defined(__powerpc__)
+#define CONFIG_CPU "ppc"
+#elif defined(__s390x__)
+#define CONFIG_CPU "s390x"
+#elif defined(__s390__)
+#define CONFIG_CPU "s390"
+#elif defined(__arm__)
+#define CONFIG_CPU "arm"
+#elif defined(__ia64__)
+#define CONFIG_CPU "ia64"
+#elif defined(__alpha__)
+#define CONFIG_CPU "alpha"
+#elif defined(hppa) || defined(__hppa__)
+#define CONFIG_CPU "hppa"
+#elif defined(mips) || defined(__mips) || defined(_mips)
+#define CONFIG_CPU "mips"
+#else
+#warning Unknown CPU
+#define CONFIG_CPU "unknownCPU"
+#endif
+
 static void start_element (GMarkupParseContext *context, 
                            const gchar         *element_name,
                           const gchar        **attribute_names,
@@ -138,9 +189,29 @@ static void parse_error   (GMarkupParseContext *context,
 {
 }
 
+static int
+arch_matches (const char* arch, const char *value)
+{
+       char **splitted, **p;
+       int found = FALSE;
+       if (value [0] == '!')
+               return !arch_matches (arch, value + 1);
+       p = splitted = g_strsplit (value, ",", 0);
+       while (*p) {
+               if (strcmp (arch, *p) == 0) {
+                       found = TRUE;
+                       break;
+               }
+               p++;
+       }
+       g_strfreev (splitted);
+       return found;
+}
+
 typedef struct {
        char *dll;
        char *target;
+       int ignore;
        MonoImage *assembly;
 } DllInfo;
 
@@ -164,15 +235,22 @@ dllmap_start (gpointer user_data,
                g_free (info->dll);
                g_free (info->target);
                info->dll = info->target = NULL;
+               info->ignore = FALSE;
                for (i = 0; attribute_names [i]; ++i) {
                        if (strcmp (attribute_names [i], "dll") == 0)
                                info->dll = g_strdup (attribute_values [i]);
                        else if (strcmp (attribute_names [i], "target") == 0)
                                info->target = g_strdup (attribute_values [i]);
+                       else if (strcmp (attribute_names [i], "os") == 0 && !arch_matches (CONFIG_OS, attribute_values [i]))
+                               info->ignore = TRUE;
+                       else if (strcmp (attribute_names [i], "cpu") == 0 && !arch_matches (CONFIG_CPU, attribute_values [i]))
+                               info->ignore = TRUE;
                }
-               mono_dllmap_insert (info->assembly, info->dll, NULL, info->target, NULL);
+               if (!info->ignore)
+                       mono_dllmap_insert (info->assembly, info->dll, NULL, info->target, NULL);
        } else if (strcmp (element_name, "dllentry") == 0) {
                const char *name = NULL, *target = NULL, *dll = NULL;
+               int ignore = FALSE;
                for (i = 0; attribute_names [i]; ++i) {
                        if (strcmp (attribute_names [i], "dll") == 0)
                                dll = attribute_values [i];
@@ -180,10 +258,15 @@ dllmap_start (gpointer user_data,
                                target = attribute_values [i];
                        else if (strcmp (attribute_names [i], "name") == 0)
                                name = attribute_values [i];
+                       else if (strcmp (attribute_names [i], "os") == 0 && !arch_matches (CONFIG_OS, attribute_values [i]))
+                               ignore = TRUE;
+                       else if (strcmp (attribute_names [i], "cpu") == 0 && !arch_matches (CONFIG_CPU, attribute_values [i]))
+                               ignore = TRUE;
                }
                if (!dll)
                        dll = info->dll;
-               mono_dllmap_insert (info->assembly, info->dll, name, dll, target);
+               if (!info->ignore && !ignore)
+                       mono_dllmap_insert (info->assembly, info->dll, name, dll, target);
        }
 }
 
@@ -207,6 +290,31 @@ dllmap_handler = {
        dllmap_finish
 };
 
+static void
+legacyUEP_start (gpointer user_data, 
+              const gchar         *element_name,
+              const gchar        **attribute_names,
+              const gchar        **attribute_values) {
+       if ((strcmp (element_name, "legacyUnhandledExceptionPolicy") == 0) &&
+                       (attribute_names [0] != NULL) &&
+                       (strcmp (attribute_names [0], "enabled") == 0)) {
+               if ((strcmp (attribute_values [0], "1") == 0) ||
+                               (g_strcasecmp (attribute_values [0], "true") == 0)) {
+                       mono_runtime_unhandled_exception_policy_set (MONO_UNHANLED_POLICY_LEGACY);
+               }
+       }
+}
+
+static const MonoParseHandler
+legacyUEP_handler = {
+       "legacyUnhandledExceptionPolicy",
+       NULL, /* init */
+       legacyUEP_start,
+       NULL, /* text */
+       NULL, /* end */
+       NULL, /* finish */
+};
+
 static int inited = 0;
 
 static void
@@ -215,6 +323,7 @@ mono_config_init (void)
        inited = 1;
        config_handlers = g_hash_table_new (g_str_hash, g_str_equal);
        g_hash_table_insert (config_handlers, (gpointer) dllmap_handler.element_name, (gpointer) &dllmap_handler);
+       g_hash_table_insert (config_handlers, (gpointer) legacyUEP_handler.element_name, (gpointer) &legacyUEP_handler);
 }
 
 /* FIXME: error handling */
@@ -300,6 +409,8 @@ struct _BundledConfig {
 
 static BundledConfig *bundled_configs = NULL;
 
+static const char *bundled_machine_config = NULL;
+
 void
 mono_register_config_for_assembly (const char* assembly_name, const char* config_xml)
 {
@@ -312,21 +423,32 @@ mono_register_config_for_assembly (const char* assembly_name, const char* config
        bundled_configs = bconfig;
 }
 
+const char *
+mono_config_string_for_assembly_file (const char *filename)
+{
+       BundledConfig *bconfig;
+       
+       for (bconfig = bundled_configs; bconfig; bconfig = bconfig->next) {
+               if (bconfig->aname && strcmp (bconfig->aname, filename) == 0)
+                       return bconfig->config_xml;
+       }
+       return NULL;
+}
+
 void 
 mono_config_for_assembly (MonoImage *assembly)
 {
        ParseState state = {NULL};
        int got_it = 0, i;
        char *aname, *cfg, *cfg_name;
+       const char *bundled_config;
        const char *home;
-       BundledConfig *bconfig;
        
        state.assembly = assembly;
 
-       for (bconfig = bundled_configs; bconfig; bconfig = bconfig->next) {
-               if (bconfig->aname && strcmp (bconfig->aname, assembly->module_name) == 0)
-                       mono_config_parse_xml_with_context (&state, bconfig->config_xml, strlen (bconfig->config_xml));
-       }
+       bundled_config = mono_config_string_for_assembly_file (assembly->module_name);
+       if (bundled_config)
+               mono_config_parse_xml_with_context (&state, bundled_config, strlen (bundled_config));
 
        cfg_name = g_strdup_printf ("%s.config", mono_image_get_filename (assembly));
        mono_config_parse_file_with_context (&state, cfg_name);
@@ -412,6 +534,18 @@ mono_get_config_dir (void)
        return mono_cfg_dir;
 }
 
+void
+mono_register_machine_config (const char *config_xml)
+{
+       bundled_machine_config = config_xml;
+}
+
+const char *
+mono_get_machine_config (void)
+{
+       return bundled_machine_config;
+}
+
 static void
 publisher_policy_start (gpointer user_data,
                const gchar *element_name,