2 * main() entry point for a stand-alone SBCL image
6 * This software is part of the SBCL system. See the README file for
9 * This software is derived from the CMU CL system, which was
10 * written at Carnegie Mellon University and released into the
11 * public domain. The software is in the public domain and is
12 * provided with absolutely no warranty. See the COPYING and CREDITS
13 * files for more information.
20 #ifndef LISP_FEATURE_WIN32
23 #include <sys/types.h>
24 #ifndef LISP_FEATURE_WIN32
30 #include <sys/param.h>
33 #ifndef LISP_FEATURE_WIN32
39 #if defined(SVR4) || defined(__linux__)
50 #include "interrupt.h"
60 #include "genesis/static-symbols.h"
61 #include "genesis/symbol.h"
70 #define SBCL_HOME "/usr/local/lib/sbcl/"
74 /* SIGINT handler that invokes the monitor (for when Lisp isn't up to it) */
76 sigint_handler(int signal, siginfo_t *info, void *void_context)
78 lose("\nSIGINT hit at 0x%08lX\n",
79 (unsigned long) *os_context_pc_addr(void_context));
82 /* (This is not static, because we want to be able to call it from
87 SHOW("entering sigint_init()");
88 install_handler(SIGINT, sigint_handler);
89 SHOW("leaving sigint_init()");
93 * helper functions for dealing with command line args
97 successful_malloc(size_t size)
99 void* result = malloc(size);
101 lose("malloc failure\n");
105 return (void *) NULL; /* dummy value: return something ... */
109 copied_string(char *string)
111 return strcpy(successful_malloc(1+strlen(string)), string);
115 copied_existing_filename_or_null(char *filename)
117 struct stat filename_stat;
118 if (stat(filename, &filename_stat)) { /* if failure */
121 return copied_string(filename);
125 /* Convert a null-terminated array of null-terminated strings (e.g.
126 * argv or envp) into a Lisp list of Lisp base-strings. */
128 alloc_base_string_list(char *array_ptr[])
131 return alloc_cons(alloc_base_string(*array_ptr),
132 alloc_base_string_list(1 + array_ptr));
138 /* miscellaneous chattiness */
144 "Usage: sbcl [runtime-options] [toplevel-options] [user-options]\n\
145 Common runtime options:\n\
146 --help Print this message and exit.\n\
147 --version Print version information and exit.\n\
148 --core <filename> Use the specified core file instead of the default.\n\
149 --dynamic-space-size <MiB> Size of reserved dynamic space in megabytes.\n\
150 --control-stack-size <MiB> Size of reserved control stack in megabytes.\n\
152 Common toplevel options:\n\
153 --sysinit <filename> System-wide init-file to use instead of default.\n\
154 --userinit <filename> Per-user init-file to use instead of default.\n\
155 --no-sysinit Inhibit processing of any system-wide init-file.\n\
156 --no-userinit Inhibit processing of any per-user init-file.\n\
158 User options are not processed by SBCL. All runtime options must\n\
159 appear before toplevel options, and all toplevel options must\n\
160 appear before user options.\n\
162 For more information please refer to the SBCL User Manual, which\n\
163 should be installed along with SBCL, and is also available from the\n\
164 website <http://www.sbcl.org/>.\n");
170 printf("SBCL %s\n", SBCL_VERSION_STRING);
177 "This is SBCL %s, an implementation of ANSI Common Lisp.\n\
178 More information about SBCL is available at <http://www.sbcl.org/>.\n\
180 SBCL is free software, provided as is, with absolutely no warranty.\n\
181 It is mostly in the public domain; some portions are provided under\n\
182 BSD-style licenses. See the CREDITS and COPYING files in the\n\
183 distribution for more information.\n\
184 ", SBCL_VERSION_STRING);
187 /* Look for a core file to load, first in the directory named by the
188 * SBCL_HOME environment variable, then in a hardcoded default
189 * location. Returns a malloced copy of the core filename. */
193 char *sbcl_home = getenv("SBCL_HOME");
195 char *stem = "/sbcl.core";
198 if (!(sbcl_home && *sbcl_home)) sbcl_home = SBCL_HOME;
199 lookhere = (char *) calloc(strlen(sbcl_home) +
203 sprintf(lookhere, "%s%s", sbcl_home, stem);
204 core = copied_existing_filename_or_null(lookhere);
207 lose("can't find core file at %s\n", lookhere);
220 main(int argc, char *argv[], char *envp[])
222 #ifdef LISP_FEATURE_WIN32
223 /* Exception handling support structure. Evil Win32 hack. */
224 struct lisp_exception_frame exception_frame;
227 /* the name of the core file we're to execute. Note that this is
228 * a malloc'ed string which should be freed eventually. */
230 char **sbcl_argv = 0;
231 os_vm_offset_t embedded_core_offset = 0;
233 /* other command line options */
234 boolean noinform = 0;
235 boolean end_runtime_options = 0;
237 lispobj initial_function;
238 const char *sbcl_home = getenv("SBCL_HOME");
241 block_blockable_signals();
243 setlocale(LC_ALL, "");
245 /* Parse our part of the command line (aka "runtime options"),
246 * stripping out those options that we handle. */
249 while (argi < argc) {
250 char *arg = argv[argi];
251 if (0 == strcmp(arg, "--noinform")) {
254 } else if (0 == strcmp(arg, "--core")) {
256 lose("more than one core file specified\n");
260 lose("missing filename for --core argument\n");
262 core = copied_string(argv[argi]);
265 } else if (0 == strcmp(arg, "--help")) {
266 /* I think this is the (or a) usual convention: upon
267 * seeing "--help" we immediately print our help
268 * string and exit, ignoring everything else. */
271 } else if (0 == strcmp(arg, "--version")) {
272 /* As in "--help" case, I think this is expected. */
275 } else if (0 == strcmp(arg, "--dynamic-space-size")) {
278 lose("missing argument for --dynamic-space-size");
280 dynamic_space_size = strtol(argv[argi++], 0, 0) << 20;
282 lose("argument to --dynamic-space-size is not a number");
283 } else if (0 == strcmp(arg, "--control-stack-size")) {
286 lose("missing argument for --control-stack-size");
288 thread_control_stack_size = strtol(argv[argi++], 0, 0) << 20;
290 lose("argument to --dynamic-space-size is not a number");
291 } else if (0 == strcmp(arg, "--debug-environment")) {
293 printf("; Commandline arguments:\n");
295 printf("; %2d: \"%s\"\n", n, argv[n]);
299 printf(";\n; Environment:\n");
301 printf("; %2d: \"%s\"\n", n, ENVIRON[n]);
305 } else if (0 == strcmp(arg, "--end-runtime-options")) {
306 end_runtime_options = 1;
310 /* This option was unrecognized as a runtime option,
311 * so it must be a toplevel option or a user option,
312 * so we must be past the end of the runtime option
317 /* This is where we strip out those options that we handle. We
318 * also take this opportunity to make sure that we don't find
319 * an out-of-place "--end-runtime-options" option. */
321 char *argi0 = argv[argi];
323 /* (argc - argi) for the arguments, one for the binary,
324 and one for the terminating NULL. */
325 sbcl_argv = successful_malloc((2 + argc - argi) * sizeof(char *));
326 sbcl_argv[0] = argv[0];
327 while (argi < argc) {
328 char *arg = argv[argi++];
329 /* If we encounter --end-runtime-options for the first
330 * time after the point where we had to give up on
331 * runtime options, then the point where we had to
332 * give up on runtime options must've been a user
334 if (!end_runtime_options &&
335 0 == strcmp(arg, "--end-runtime-options")) {
336 lose("bad runtime option \"%s\"\n", argi0);
338 sbcl_argv[argj++] = arg;
344 /* Align down to multiple of page_table page size, and to the appropriate
345 * stack alignment. */
346 dynamic_space_size &= ~(PAGE_BYTES-1);
347 thread_control_stack_size &= ~(CONTROL_STACK_ALIGNMENT_BYTES-1);
349 /* KLUDGE: os_vm_page_size is set by os_init(), and on some
350 * systems (e.g. Alpha) arch_init() needs need os_vm_page_size, so
351 * it must follow os_init(). -- WHN 2000-01-26 */
357 /* If no core file was specified, look for one. */
359 char *runtime_path = os_get_runtime_executable_path();
362 os_vm_offset_t offset = search_for_embedded_core(runtime_path);
365 embedded_core_offset = offset;
369 core = search_for_core();
372 core = search_for_core();
376 /* Make sure that SBCL_HOME is set and not the empty string,
377 unless loading an embedded core. */
378 if (!(sbcl_home && *sbcl_home) && embedded_core_offset == 0) {
379 char *envstring, *copied_core, *dir;
380 char *stem = "SBCL_HOME=";
381 copied_core = copied_string(core);
382 dir = dirname(copied_core);
383 envstring = (char *) calloc(strlen(stem) +
387 sprintf(envstring, "%s%s", stem, dir);
392 if (!noinform && embedded_core_offset == 0) {
397 #if defined(SVR4) || defined(__linux__)
401 define_var("nil", NIL, 1);
402 define_var("t", T, 1);
404 enable_lossage_handler();
408 initial_function = load_core_file(core, embedded_core_offset);
409 if (initial_function == NIL) {
410 lose("couldn't find initial function\n");
413 gc_initialize_pointers();
415 arch_install_interrupt_handlers();
416 #ifndef LISP_FEATURE_WIN32
417 os_install_interrupt_handlers();
419 /* wos_install_interrupt_handlers(handler); */
420 wos_install_interrupt_handlers(&exception_frame);
423 /* Pass core filename and the processed argv into Lisp. They'll
424 * need to be processed further there, to do locale conversion.
427 posix_argv = sbcl_argv;
429 FSHOW((stderr, "/funcalling initial_function=0x%lx\n",
430 (unsigned long)initial_function));
431 #ifdef LISP_FEATURE_WIN32
433 This is experimental prerelease support for the Windows platform: use\n\
434 at your own risk. \"Your Kitten of Death awaits!\"\n");
438 create_initial_thread(initial_function);
439 lose("CATS. CATS ARE NICE.\n");