3 * The main entry point for the mono executable
5 * The main entry point does a few things:
7 * * It probes whether the executable has a bundle appended
8 * at the end, and if so, registers the various bundled
9 * resources with Mono and executes the contained bundle
11 * * Parses the MONO_ENV_OPTIONS variable to treat the
12 * contents of the variable as command line arguments for
15 * * Launches Mono, by calling mono_main.
22 #include <mono/metadata/assembly.h>
23 #include <mono/metadata/mono-config.h>
24 #include <mono/utils/mono-mmap.h>
25 #include <mono/utils/mono-dl.h>
27 #include "mini-runtime.h"
35 # ifndef BUILDVER_INCLUDED
36 # include "buildver-boehm.h"
41 * If the MONO_ENV_OPTIONS environment variable is set, it uses this as a
42 * source of command line arguments that are passed to Mono before the
43 * command line arguments specified in the command line.
46 mono_main_with_options (int argc
, char *argv
[])
48 mono_parse_env_options (&argc
, &argv
);
50 return mono_main (argc
, argv
);
54 * The Mono executable can initialize itself from a payload attached
55 * at the end of the main program. The payload contains the
56 * main assembly, one or more managed assemblies, configuration
57 * files and other assets that are used instead of launching a
58 * program from the command line.
60 * The startup sequence probes for a magical signature at the end of
61 * the executable, if the 16 characters "xmonkeysloveplay" are found,
62 * the code expects the 64-bits just before it to contain an offset
63 * within the executable with a directory of assets.
65 * All pointers in the file format are encoded as little-endian values
67 * The format of the file is thus:
71 * lenght-16 Optional "xmonkeysloveplay", indicating that a
72 * bundled payload is contained in the executable.
73 * length-24 pointer to the directory in the file, address DIR
75 * DIR 32-bit value with the number of entries in the directory
76 * DIR+4 First directory entry.
78 * Each directory entry is made up of:
79 * 4-bytes uint32_t containing the size of a string (STR)
80 * STRING UTF8 encoded and \0 terminated string
81 * 8-bytes uint64_t offset in the file with the payload associated with STRING
82 * 4-bytes uint32_t size of the asset
84 * The following are the known directory entries, without the quotes:
85 * "assembly:NAME" An assembly with the name NAME, assembly is in the payload
86 * "config:NAME" A configuration file (usually file.dll.config) in the payload that is
87 * loaded as the config file for an assembly
88 * "systemconfig:" Treats as a Mono system configuration, payload contains the config file.
89 * "options:" The payload contains command line options to initialize Mono, as if you
90 had set them on MONO_ENV_OPTIONS
91 * "config_dir:DIR" Configures the MONO_PATH to point to point to DIR
92 * "machineconfig:" The payload contains the machine.config file to use at runtime
93 * "env:" Sets the environment variable to the value encoded in the payload
94 * payload contains: 1-byte lenght for the \0 terminated variable,
95 * followed by the value.
96 * "library:NAME" Bundled dynamic library NAME, payload contains the dynamic library
98 #define STREAM_INT(x) GUINT32_TO_LE((*(uint32_t*)x))
99 #define STREAM_LONG(x) GUINT64_TO_LE((*(uint64_t*)x))
102 * Loads a chunk of data from the file pointed to by the
103 * @fd starting at the file offset @offset for @size bytes
104 * and returns an allocated version of that string, or NULL
108 load_from_region (int fd
, uint64_t offset
, uint64_t size
)
115 loc
= lseek (fd
, offset
, SEEK_SET
);
116 } while (loc
== -1 && errno
== EINTR
);
119 buffer
= g_malloc (size
+ 1);
124 status
= read (fd
, buffer
, size
);
125 } while (status
== -1 && errno
== EINTR
);
133 /* Did we initialize the temporary directory for dynamic libraries */
134 static int bundle_save_library_initialized
;
136 /* List of bundled libraries we unpacked */
137 static GSList
*bundle_library_paths
;
139 /* Directory where we unpacked dynamic libraries */
140 static char *bundled_dylibrary_directory
;
144 delete_bundled_libraries (void)
148 for (list
= bundle_library_paths
; list
!= NULL
; list
= list
->next
){
149 unlink ((const char*)list
->data
);
151 rmdir (bundled_dylibrary_directory
);
156 bundle_save_library_initialize (void)
158 bundle_save_library_initialized
= 1;
159 char *path
= g_build_filename (g_get_tmp_dir (), "mono-bundle-XXXXXX", NULL
);
160 bundled_dylibrary_directory
= g_mkdtemp (path
);
162 if (bundled_dylibrary_directory
== NULL
)
165 atexit (delete_bundled_libraries
);
170 save_library (int fd
, uint64_t offset
, uint64_t size
, const char *destfname
)
173 char *file
, *buffer
, *err
, *internal_path
;
174 if (!bundle_save_library_initialized
)
175 bundle_save_library_initialize ();
177 file
= g_build_filename (bundled_dylibrary_directory
, destfname
, NULL
);
178 buffer
= load_from_region (fd
, offset
, size
);
179 g_file_set_contents (file
, buffer
, size
, NULL
);
181 lib
= mono_dl_open (file
, MONO_DL_LAZY
, &err
);
183 fprintf (stderr
, "Error loading shared library: %s %s\n", file
, err
);
186 // Register the name with "." as this is how it will be found when embedded
187 internal_path
= g_build_filename (".", destfname
, NULL
);
188 mono_loader_register_module (internal_path
, lib
);
189 g_free (internal_path
);
190 bundle_library_paths
= g_slist_append (bundle_library_paths
, file
);
197 search_directories(const char *envPath
, const char *program
, char **new_program
)
199 gchar
**paths
= NULL
;
202 paths
= g_strsplit (envPath
, G_SEARCHPATH_SEPARATOR_S
, 0);
205 for (i
= 0; paths
[i
]; ++i
) {
206 gchar
*path
= paths
[i
];
207 gint path_len
= strlen (path
);
214 dir
= opendir (path
);
218 while ((ent
= readdir (dir
))){
219 if (!strcmp (ent
->d_name
, program
)){
220 *new_program
= g_strdup_printf ("%s%s%s", path
, path
[path_len
- 1] == '/' ? "" : "/", program
);
237 probe_embedded (const char *program
, int *ref_argc
, char **ref_argv
[])
239 MonoBundledAssembly last
= { NULL
, 0, 0 };
240 char sigbuffer
[16+sizeof (uint64_t)];
241 gboolean status
= FALSE
;
242 uint64_t directory_location
;
243 off_t sigstart
, baseline
= 0;
244 uint64_t directory_size
;
247 unsigned char *mapaddress
= NULL
;
248 void *maphandle
= NULL
;
250 char *entry_point
= NULL
;
254 int fd
= open (program
, O_RDONLY
);
257 // Also search through the PATH in case the program was run from a different directory
258 gchar
* envPath
= getenv ("PATH");
260 gchar
*new_program
= NULL
;
261 if (search_directories (envPath
, program
, &new_program
)){
262 fd
= open (new_program
, O_RDONLY
);
263 g_free (new_program
);
271 if ((sigstart
= lseek (fd
, -24, SEEK_END
)) == -1)
273 if (read (fd
, sigbuffer
, sizeof (sigbuffer
)) == -1)
275 if (memcmp (sigbuffer
+sizeof(uint64_t), "xmonkeysloveplay", 16) != 0)
277 directory_location
= GUINT64_FROM_LE ((*(uint64_t *) &sigbuffer
[0]));
278 if (lseek (fd
, directory_location
, SEEK_SET
) == -1)
280 directory_size
= sigstart
-directory_location
;
281 directory
= g_malloc (directory_size
);
282 if (directory
== NULL
)
284 if (read (fd
, directory
, directory_size
) == -1)
287 items
= STREAM_INT (directory
);
290 assemblies
= g_array_new (0, 0, sizeof (MonoBundledAssembly
*));
291 for (i
= 0; i
< items
; i
++){
293 int strsize
= STREAM_INT (p
);
298 offset
= STREAM_LONG(p
);
300 item_size
= STREAM_INT (p
);
303 if (mapaddress
== NULL
) {
304 char *error_message
= NULL
;
305 mapaddress
= (guchar
*)mono_file_map_error (directory_location
- offset
, MONO_MMAP_READ
| MONO_MMAP_PRIVATE
,
306 fd
, offset
, &maphandle
, program
, &error_message
);
307 if (mapaddress
== NULL
) {
309 fprintf (stderr
, "Error mapping file: %s\n", error_message
);
311 perror ("Error mapping file");
316 if (strncmp (kind
, "assembly:", strlen ("assembly:")) == 0){
317 char *aname
= kind
+ strlen ("assembly:");
318 MonoBundledAssembly mba
= { aname
, mapaddress
+ offset
- baseline
, item_size
}, *ptr
;
319 ptr
= g_new (MonoBundledAssembly
, 1);
320 memcpy (ptr
, &mba
, sizeof (MonoBundledAssembly
));
321 g_array_append_val (assemblies
, ptr
);
322 if (entry_point
== NULL
)
324 } else if (strncmp (kind
, "config:", strlen ("config:")) == 0){
325 char *config
= kind
+ strlen ("config:");
326 char *aname
= g_strdup (config
);
327 aname
[strlen(aname
)-strlen(".config")] = 0;
328 mono_register_config_for_assembly (aname
, load_from_region (fd
, offset
, item_size
));
329 } else if (strncmp (kind
, "systemconfig:", strlen ("systemconfig:")) == 0){
330 mono_config_parse_memory (load_from_region (fd
, offset
, item_size
));
331 } else if (strncmp (kind
, "options:", strlen ("options:")) == 0){
332 mono_parse_options_from (load_from_region (fd
, offset
, item_size
), ref_argc
, ref_argv
);
333 } else if (strncmp (kind
, "config_dir:", strlen ("config_dir:")) == 0){
334 char *mono_path_value
= g_getenv ("MONO_PATH");
335 mono_set_dirs (mono_path_value
, load_from_region (fd
, offset
, item_size
));
336 g_free (mono_path_value
);
337 } else if (strncmp (kind
, "machineconfig:", strlen ("machineconfig:")) == 0) {
338 mono_register_machine_config (load_from_region (fd
, offset
, item_size
));
339 } else if (strncmp (kind
, "env:", strlen ("env:")) == 0){
340 char *data
= load_from_region (fd
, offset
, item_size
);
341 uint8_t count
= *data
++;
342 char *value
= data
+ count
+ 1;
343 g_setenv (data
, value
, FALSE
);
344 } else if (strncmp (kind
, "library:", strlen ("library:")) == 0){
345 save_library (fd
, offset
, item_size
, kind
+ strlen ("library:"));
347 fprintf (stderr
, "Unknown stream on embedded package: %s\n", kind
);
351 g_array_append_val (assemblies
, last
);
353 mono_register_bundled_assemblies ((const MonoBundledAssembly
**) assemblies
->data
);
354 new_argv
= g_new (char *, (*ref_argc
)+1);
355 new_argv
[0] = (*ref_argv
)[0];
356 new_argv
[1] = entry_point
;
357 for (j
= 1; j
< *ref_argc
; j
++)
358 new_argv
[j
+1] = (*ref_argv
)[j
];
359 *ref_argv
= new_argv
;
374 #include <shellapi.h>
379 TCHAR szFileName
[MAX_PATH
];
386 argvw
= CommandLineToArgvW (GetCommandLine (), &argc
);
387 argv
= g_new0 (gchar
*, argc
+ 1);
388 for (i
= 0; i
< argc
; i
++)
389 argv
[i
] = g_utf16_to_utf8 (argvw
[i
], -1, NULL
, NULL
, NULL
);
394 if ((count
= GetModuleFileName (NULL
, szFileName
, MAX_PATH
)) != 0){
395 char *entry
= g_utf16_to_utf8 (szFileName
, count
, NULL
, NULL
, NULL
);
396 probe_embedded (entry
, &argc
, &argv
);
399 return mono_main_with_options (argc
, argv
);
405 main (int argc
, char* argv
[])
407 mono_build_date
= build_date
;
409 probe_embedded (argv
[0], &argc
, &argv
);
410 return mono_main_with_options (argc
, argv
);