mcs/class/System.Windows.Forms/System.Windows.Forms/monostub.c

   1 #include <mono/jit/jit.h>
   2 #include <stdio.h>
   3 #include <semaphore.h>
   4 #include <string.h>
   5 #include <ctype.h>
   6 /*
   7  * The Mono and WINE header files have overlapping definitions in the
   8  * header files. Since we are only using a few functions and definitions
   9  * define them here to avoid conflicts.
  10  */
  11 #define __stdcall __attribute__((__stdcall__))
  12 #define PASCAL      __stdcall
  13
  14 typedef int INT;
  15 typedef unsigned int UINT;
  16 typedef char CHAR;
  17 typedef CHAR *LPSTR;
  18 typedef void* HINSTANCE;
  19
  20 HINSTANCE applicationInstance = NULL;
  21
  22 /*
  23  * unresolved symbols when linking w/o pthread (testing):
  24  *   pthread_kill
  25  *   sem_post
  26  *   sem_init
  27  *   sem_wait
  28  *   sem_destroy
  29  */
  30 #if 0
  31 int pthread_kill (pthread_t thread, int signo)
  32 {
  33   printf ("pthread_kill\n");
  34   return 0;
  35 }
  36
  37 int sem_init (sem_t *sem, int pshared, unsigned int value)
  38 {
  39   printf ("sem_init\n");
  40   return 0;
  41 }
  42
  43 int sem_post (sem_t * sem)
  44 {
  45   printf ("sem_post\n");
  46   return 0;
  47 }
  48
  49 int sem_wait (sem_t * sem)
  50 {
  51   printf ("sem_wait\n");
  52   return 0;
  53 }
  54
  55 int sem_destroy(sem_t * sem)
  56 {
  57   printf ("sem_destroy\n");
  58   return 0;
  59 }
  60 #endif
  61
  62 /* not defined in the public headers but we it to load the DLL mappings */
  63 void mono_config_parse (const char *filename);
  64
  65 typedef struct
  66 {
  67         MonoDomain *domain;
  68         const char *file;
  69         int argc;
  70         char **argv;
  71 } MainThreadArgs;
  72
  73 static void main_thread_handler (gpointer user_data)
  74 {
  75         MainThreadArgs *main_args=(MainThreadArgs *)user_data;
  76         MonoAssembly *assembly;
  77         int i;
  78
  79         printf ("opening assembly \"%s\", argc %d\n", main_args->file, main_args->argc);
  80         for( i = 0; i < main_args->argc; i++) {
  81                 printf ("param %d  = \"%s\"\n", i, main_args->argv[i]);
  82         }
  83         assembly = mono_domain_assembly_open (main_args->domain,
  84                                               main_args->file);
  85         if (!assembly) {
  86                 printf("error opening assembly\n");
  87                 return;
  88         }
  89         /*
  90          * mono_jit_exec() will run the Main() method in the assembly.
  91          * The return value needs to be looked up from
  92          * System.Environment.ExitCode.
  93          */
  94         printf ("executing assembly\n");
  95         mono_jit_exec (main_args->domain, assembly, main_args->argc,
  96                        main_args->argv);
  97 }
  98
  99 #define MAX_ARGV_IDX 1024
 100
 101 int PASCAL WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
 102                     LPSTR lpszCmdLine, int nCmdShow)
 103 {
 104         MonoDomain *domain = NULL;
 105         MainThreadArgs main_args;
 106         int retval = 0;
 107         size_t len;
 108         char *CommandLine;
 109         char *argv [MAX_ARGV_IDX] = { 0};
 110         int argc = 0;
 111         char *argv_ptr = 0;
 112         char *argv_start;
 113         char *argv_end;
 114         int isInsideQuote = 0;
 115
 116         applicationInstance = hInstance;
 117
 118         printf ("parsing configuration file\n");
 119         mono_config_parse (NULL);
 120
 121         printf ("initializing JIT engine\n");
 122         domain = mono_jit_init (lpszCmdLine);
 123
 124         printf ("parsing command line \"%s\"\n", lpszCmdLine);
 125         len = strlen(lpszCmdLine);
 126         CommandLine = (char*)malloc(len + 1);
 127         memset(CommandLine, 0,len + 1);
 128         strncpy(CommandLine, lpszCmdLine, len);
 129
 130         argv_start = CommandLine;
 131         argv_end = CommandLine + len;
 132
 133         // FIXME: remove "" from arguments
 134         for( argv_ptr = argv_start; argv_ptr < argv_end; ) {
 135                 if( argc == MAX_ARGV_IDX) {
 136                         break;
 137                 }
 138                 if( isspace(*argv_ptr)) {
 139                         if( !isInsideQuote){
 140                                 // parameter completed
 141                                 if( argv_start != argv_ptr) {
 142                                         argv[argc] = argv_start;
 143                                         ++argc;
 144                                         *argv_ptr = '\0';
 145                                         ++argv_ptr;
 146                                 }
 147                                 while( argv_ptr <= argv_end && isspace(*argv_ptr) ) ++argv_ptr;
 148                                 argv_start = argv_ptr;
 149                         }
 150                         else {
 151                                 ++argv_ptr;
 152                         }
 153                 }
 154                 else {
 155                         if(*argv_ptr == '\"') {
 156                                 isInsideQuote = isInsideQuote ? 0 : 1;
 157                         }
 158                         ++argv_ptr;
 159                 }
 160         }
 161         if( argv_start != argv_ptr && argc < MAX_ARGV_IDX) {
 162                 argv[argc] = argv_start;
 163                 ++argc;
 164                 *argv_ptr = '\0';
 165         }
 166
 167         if( argc > 0) {
 168                 main_args.domain=domain;
 169                 if( 0 == strcmp(argv[0],"debug")) {
 170                         argv[0] = "/usr/local/bin/Interpreter.exe";
 171                 }
 172                 main_args.file=argv[0];
 173                 main_args.argc=argc;
 174                 main_args.argv=argv;
 175                 printf ("runtime exec managed code\n");
 176
 177                 mono_runtime_exec_managed_code (domain, main_thread_handler,
 178                                                 &main_args);
 179         }
 180         else {
 181                 printf ("no command line parameters.\n");
 182         }
 183         free(CommandLine);
 184
 185         printf ("calling JIT cleanup\n");
 186         mono_jit_cleanup (domain);
 187
 188         return retval;
 189 }