2004-02-12 Gonzalo Paniagua Javier <gonzalo@ximian.com>
[mono.git] / samples / embed / teste.c
index 4727c51a73604b6b07742f4f49320294c4c9c481..d67720a145f7194cf2d2049bc4642f340ed485a1 100644 (file)
@@ -1,10 +1,11 @@
 #include <mono/jit/jit.h>
+#include <mono/metadata/environment.h>
 
 /*
  * Very simple mono embedding example.
  * Compile with: 
- *     gcc -o teste teste.c `pkg-config --cflags --libs mono`
- *     mcs test.exe
+ *     gcc -o teste teste.c `pkg-config --cflags --libs mono` -lm
+ *     mcs test.cs
  * Run with:
  *     ./teste test.exe
  */
@@ -14,15 +15,44 @@ gimme () {
        return mono_string_new (mono_domain_get (), "All your monos are belong to us!");
 }
 
+typedef struct
+{
+       MonoDomain *domain;
+       const char *file;
+       int argc;
+       char **argv;
+} MainThreadArgs;
+
+static void main_thread_handler (gpointer user_data)
+{
+       MainThreadArgs *main_args=(MainThreadArgs *)user_data;
+       MonoAssembly *assembly;
+
+       assembly = mono_domain_assembly_open (main_args->domain,
+                                             main_args->file);
+       if (!assembly)
+               exit (2);
+       /*
+        * mono_jit_exec() will run the Main() method in the assembly.
+        * The return value needs to be looked up from
+        * System.Environment.ExitCode.
+        */
+       mono_jit_exec (main_args->domain, assembly, main_args->argc,
+                      main_args->argv);
+}
+
+
 int 
 main(int argc, char* argv[]) {
        MonoDomain *domain;
-       MonoAssembly *assembly;
        const char *file;
        int retval;
-
-       if (argc < 2)
+       MainThreadArgs main_args;
+       
+       if (argc < 2){
+               fprintf (stderr, "Please provide an assembly to load");
                return 1;
+       }
        file = argv [1];
        /*
         * mono_jit_init() creates a domain: each assembly is
@@ -33,15 +63,18 @@ main(int argc, char* argv[]) {
         * We add our special internal call, so that C# code
         * can call us back.
         */
-       mono_add_internal_call ("Mono::gimme", gimme);
-       assembly = mono_domain_assembly_open (domain, file);
-       if (!assembly)
-               return 2;
-       /*
-        * mono_jit_exec() will run the Main() method in the assembly
-        * and return the value.
-        */
-       retval = mono_jit_exec (domain, assembly, argc - 1, argv + 1);
+       mono_add_internal_call ("MonoEmbed::gimme", gimme);
+
+       main_args.domain=domain;
+       main_args.file=file;
+       main_args.argc=argc-1;
+       main_args.argv=argv+1;
+       
+       mono_runtime_exec_managed_code (domain, main_thread_handler,
+                                       &main_args);
+       
+       retval=mono_environment_exitcode_get ();
+       
        mono_jit_cleanup (domain);
        return retval;
 }