From: Zoltan Varga Date: Tue, 17 Nov 2015 07:16:25 +0000 (-0500) Subject: Remove obsolete interpreter embedding sample. X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mono.git;a=commitdiff_plain;h=74527e03ddae3c63e5de7b8a54b8f4019b5bc581 Remove obsolete interpreter embedding sample. --- diff --git a/samples/embed/testi.c b/samples/embed/testi.c deleted file mode 100644 index a1ea82b633f..00000000000 --- a/samples/embed/testi.c +++ /dev/null @@ -1,81 +0,0 @@ -#include -#include - -/* - * Very simple mint embedding example. - * Compile with: - * gcc -o testi testi.c `pkg-config --cflags --libs mint` -lm - * mcs test.cs - * Run with: - * ./testi test.exe - */ - -static MonoString* -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_interp_exec (main_args->domain, assembly, main_args->argc, - main_args->argv); -} - - -int -main(int argc, char* argv[]) { - MonoDomain *domain; - const char *file; - int retval; - MainThreadArgs main_args; - - if (argc < 2){ - fprintf (stderr, "Please provide an assembly to load\n"); - return 1; - } - file = argv [1]; - /* - * mono_jit_init() creates a domain: each assembly is - * loaded and run in a MonoDomain. - */ - domain = mono_interp_init (file); - /* - * We add our special internal call, so that C# code - * can call us back. - */ - 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_interp_cleanup (domain); - return retval; -} -