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.
18 #include <sys/types.h>
22 #include <sys/param.h>
25 #if defined(SVR4) || defined(__linux__)
37 #include "interrupt.h"
52 /* SIGINT handler that invokes the monitor (for when Lisp isn't up to it) */
54 sigint_handler(int signal, siginfo_t *info, void *void_context)
56 lose("\nSIGINT hit at 0x%08lX\n",
57 (unsigned long) *os_context_pc_addr(void_context));
60 /* (This is not static, because we want to be able to call it from
65 SHOW("entering sigint_init()");
66 install_handler(SIGINT, sigint_handler);
67 SHOW("leaving sigint_init()");
71 * helper functions for dealing with command line args
75 successful_malloc(size_t size)
77 void* result = malloc(size);
79 lose("malloc failure");
83 return (void *) NULL; /* dummy value: return something ... */
87 copied_string(char *string)
89 return strcpy(successful_malloc(1+strlen(string)), string);
93 copied_existing_filename_or_null(char *filename)
95 struct stat filename_stat;
96 if (stat(filename, &filename_stat)) { /* if failure */
99 return copied_string(filename);
103 /* Convert a null-terminated array of null-terminated strings (e.g.
104 * argv or envp) into a Lisp list of Lisp strings. */
106 alloc_string_list(char *array_ptr[])
109 return alloc_cons(alloc_string(*array_ptr),
110 alloc_string_list(1 + array_ptr));
116 /* miscellaneous chattiness */
122 "SBCL is a Common Lisp programming environment. Ordinarily you shouldn't\n\
123 need command line options when you invoke it interactively: you can just\n\
124 start it and work with the customary Lisp READ-EVAL-PRINT loop.\n\
126 One option idiom which is sometimes useful interactively (e.g. when\n\
127 exercising a test case for a bug report) is\n\
128 sbcl --sysinit /dev/null --userinit /dev/null\n\
129 to keep SBCL from reading any initialization files at startup. And some\n\
130 people like to suppress the default startup message:\n\
133 Other options can be useful when you're running SBCL noninteractively,\n\
134 e.g. from a script, or if you have a strange system configuration, so\n\
135 that SBCL can't by default find one of the files it needs. For\n\
136 information on such options, see the sbcl(1) man page.\n\
138 More information on SBCL can be found on its man page, or at\n\
139 <http://sbcl.sf.net/>.\n");
145 printf("SBCL %s\n", SBCL_VERSION_STRING);
152 "This is SBCL %s, an implementation of ANSI Common Lisp.\n\
154 SBCL is derived from the CMU CL system created at Carnegie Mellon University.\n\
155 Besides software and documentation originally created at Carnegie Mellon\n\
156 University, SBCL contains some software originally from the Massachusetts\n\
157 Institute of Technology, Symbolics Incorporated, and Xerox Corporation, and\n\
158 material contributed by volunteers since the release of CMU CL into the\n\
159 public domain. See the CREDITS file in the distribution for more information.\n\
161 SBCL is a free software system, provided as is, with absolutely no warranty.\n\
162 It is mostly in the public domain, but also includes some software copyrighted\n\
163 Massachusetts Institute of Technology, 1986;\n\
164 Symbolics, Inc., 1989, 1990, 1991, 1992; and\n\
165 Xerox Corporation, 1985, 1986, 1987, 1988, 1989, 1990\n\
166 used under BSD-style licenses allowing copying only under certain conditions.\n\
167 See the COPYING file in the distribution for more information.\n\
169 More information about SBCL is available at <http://sbcl.sourceforge.net/>.\n\
170 ", SBCL_VERSION_STRING);
174 main(int argc, char *argv[], char *envp[])
176 /* the name of the core file we're to execute. Note that this is
177 * a malloc'ed string which should be freed eventually. */
180 /* other command line options */
181 boolean noinform = 0;
182 boolean end_runtime_options = 0;
184 lispobj initial_function;
186 /* KLUDGE: os_vm_page_size is set by os_init(), and on some
187 * systems (e.g. Alpha) arch_init() needs need os_vm_page_size, so
188 * it must follow os_init(). -- WHN 2000-01-26 */
194 /* Parse our part of the command line (aka "runtime options"),
195 * stripping out those options that we handle. */
198 while (argi < argc) {
199 char *arg = argv[argi];
200 if (0 == strcmp(arg, "--noinform")) {
203 } else if (0 == strcmp(arg, "--core")) {
205 lose("more than one core file specified");
209 lose("missing filename for --core argument");
211 core = copied_string(argv[argi]);
214 } else if (0 == strcmp(arg, "--help")) {
215 /* I think this is the (or a) usual convention: upon
216 * seeing "--help" we immediately print our help
217 * string and exit, ignoring everything else. */
220 } else if (0 == strcmp(arg, "--version")) {
221 /* As in "--help" case, I think this is expected. */
224 } else if (0 == strcmp(arg, "--end-runtime-options")) {
225 end_runtime_options = 1;
229 /* This option was unrecognized as a runtime option,
230 * so it must be a toplevel option or a user option,
231 * so we must be past the end of the runtime option
236 /* This is where we strip out those options that we handle. We
237 * also take this opportunity to make sure that we don't find
238 * an out-of-place "--end-runtime-options" option. */
240 char *argi0 = argv[argi];
242 while (argi < argc) {
243 char *arg = argv[argi++];
244 /* If we encounter --end-runtime-options for the first
245 * time after the point where we had to give up on
246 * runtime options, then the point where we had to
247 * give up on runtime options must've been a user
249 if (!end_runtime_options &&
250 0 == strcmp(arg, "--end-runtime-options")) {
251 lose("bad runtime option \"%s\"", argi0);
260 /* If no core file was specified, look for one. */
262 char *sbcl_home = getenv("SBCL_HOME");
265 char *stem = "/sbcl.core";
266 lookhere = (char *) calloc(strlen(sbcl_home) +
270 sprintf(lookhere, "%s%s", sbcl_home, stem);
271 core = copied_existing_filename_or_null(lookhere);
274 putenv("SBCL_HOME=/usr/local/lib/sbcl/");
275 core = copied_existing_filename_or_null("/usr/local/lib/sbcl/sbcl.core");
277 putenv("SBCL_HOME=/usr/lib/sbcl/");
279 copied_existing_filename_or_null("/usr/lib/sbcl/sbcl.core");
283 lose("can't find core file");
295 #if defined(SVR4) || defined(__linux__)
299 define_var("nil", NIL, 1);
300 define_var("t", T, 1);
302 set_lossage_handler(monitor_or_something);
306 initial_function = load_core_file(core);
307 if (initial_function == NIL) {
308 lose("couldn't find initial function");
310 SHOW("freeing core");
313 gc_initialize_pointers();
315 #ifdef BINDING_STACK_POINTER
316 SetSymbolValue(BINDING_STACK_POINTER, BINDING_STACK_START);
321 arch_install_interrupt_handlers();
322 os_install_interrupt_handlers();
324 #ifdef PSEUDO_ATOMIC_ATOMIC
325 /* Turn on pseudo atomic for when we call into Lisp. */
326 SHOW("turning on pseudo atomic");
327 SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, make_fixnum(1));
328 SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(0));
331 /* Convert remaining argv values to something that Lisp can grok. */
332 SHOW("setting POSIX-ARGV symbol value");
333 SetSymbolValue(POSIX_ARGV, alloc_string_list(argv));
335 /* Install a handler to pick off SIGINT until the Lisp system gets
336 * far enough along to install its own handler. */
339 FSHOW((stderr, "/funcalling initial_function=0x%lx\n", initial_function));
340 funcall0(initial_function);
342 /* initial_function() is not supposed to return. */
343 lose("Lisp initial_function gave up control.");
344 return 0; /* dummy value: return something */