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.
17 #include <sys/types.h>
21 #include <sys/param.h>
32 #include "interrupt.h"
50 /* SIGINT handler that invokes the monitor (for when Lisp isn't up to it) */
52 static void sigint_handler(int signal, siginfo_t *info, void *void_context)
54 printf("\nSIGINT hit at 0x%08lX\n",
55 (unsigned long) *os_context_pc_addr(void_context));
59 /* (This is not static, because we want to be able to call it from
61 void sigint_init(void)
63 install_handler(SIGINT, sigint_handler);
67 * helper functions for dealing with command line args
71 successful_malloc(size_t size)
73 void* result = malloc(size);
75 lose("malloc failure");
79 return (void *) NULL; /* dummy value: return something ... */
83 copied_string(char *string)
85 return strcpy(successful_malloc(1+strlen(string)), string);
89 copied_existing_filename_or_null(char *filename)
91 struct stat filename_stat;
92 if (stat(filename, &filename_stat)) { /* if failure */
95 return copied_string(filename);
99 /* Convert a null-terminated array of null-terminated strings (e.g.
100 * argv or envp) into a Lisp list of Lisp strings. */
102 alloc_string_list(char *array_ptr[])
105 return alloc_cons(alloc_string(*array_ptr),
106 alloc_string_list(1 + array_ptr));
113 main(int argc, char *argv[], char *envp[])
115 /* the name of the core file we're to execute. Note that this is
116 * a malloc'ed string which should be freed eventually. */
119 /* other command line options */
120 boolean noinform = 0;
121 boolean end_runtime_options = 0;
123 lispobj initial_function;
125 /* KLUDGE: os_vm_page_size is set by os_init(), and on some
126 * systems (e.g. Alpha) arch_init() needs need os_vm_page_size, so
127 * it must follow os_init(). -- WHN 2000-01-26 */
133 /* Parse our part of the command line (aka "runtime options"),
134 * stripping out those options that we handle. */
137 while (argi < argc) {
138 char *arg = argv[argi];
139 if (0 == strcmp(arg, "--noinform")) {
142 } else if (0 == strcmp(arg, "--core")) {
144 lose("more than one core file specified");
147 core = copied_string(argv[argi]);
149 lose("missing filename for --core argument");
153 } else if (0 == strcmp(arg, "--end-runtime-options")) {
154 end_runtime_options = 1;
158 /* This option was unrecognized as a runtime option,
159 * so it must be a toplevel option or a user option,
160 * so we must be past the end of the runtime option
165 /* This is where we strip out those options that we handle. We
166 * also take this opportunity to make sure that we don't find
167 * an out-of-place "--end-runtime-options" option. */
169 char *argi0 = argv[argi];
171 while (argi < argc) {
172 char *arg = argv[argi++];
173 /* If we encounter --end-runtime-options for the first
174 * time after the point where we had to give up on
175 * runtime options, then the point where we had to
176 * give up on runtime options must've been a user
178 if (!end_runtime_options &&
179 0 == strcmp(arg, "--end-runtime-options")) {
180 lose("bad runtime option \"%s\"", argi0);
189 /* If no core file was specified, look for one. */
191 char *sbcl_home = getenv("SBCL_HOME");
194 lookhere = (char *) calloc(strlen("/sbcl.core") + strlen(sbcl_home) + 1,
196 sprintf(lookhere, "%s/sbcl.core", sbcl_home);
197 core = copied_existing_filename_or_null(lookhere);
200 core = copied_existing_filename_or_null("/usr/lib/sbcl.core");
202 core = copied_existing_filename_or_null("/usr/local/lib/sbcl.core");
206 lose("can't find core file");
212 "This is SBCL " SBCL_VERSION_STRING ", an implementation of ANSI Common Lisp.
214 SBCL is derived from the CMU CL system created at Carnegie Mellon University.
215 Besides software and documentation originally created at Carnegie Mellon
216 University, SBCL contains some software originally from the Massachusetts
217 Institute of Technology, Symbolics Incorporated, and Xerox Corporation, and
218 material contributed by volunteers since the release of CMU CL into the
219 public domain. See the CREDITS file in the distribution for more information.
221 SBCL is a free software system, provided as is, with absolutely no warranty.
222 It is mostly in the public domain, but also includes some software copyrighted
223 Massachusetts Institute of Technology, 1986;
224 Symbolics, Inc., 1989, 1990, 1991, 1992; and
225 Xerox Corporation, 1985, 1986, 1987, 1988, 1989, 1990
226 used under BSD-style licenses allowing copying only under certain conditions.
227 See the COPYING file in the distribution for more information.
229 More information on SBCL is available at <http://sbcl.sourceforge.net/>.
237 #if defined(SVR4) || defined(__linux__)
241 define_var("nil", NIL, 1);
242 define_var("t", T, 1);
244 set_lossage_handler(ldb_monitor);
253 initial_function = load_core_file(core);
254 if (initial_function == NIL) {
255 lose("couldn't find initial function");
260 gencgc_pickup_dynamic();
262 #if defined WANT_CGC && defined X86_CGC_ACTIVE_P
264 extern int use_cgc_p;
265 lispobj x = SymbolValue(X86_CGC_ACTIVE_P);
266 if (x != type_UnboundMarker && x != NIL) {
267 /* Enable allocator. */
274 #ifdef BINDING_STACK_POINTER
275 SetSymbolValue(BINDING_STACK_POINTER, BINDING_STACK_START);
277 #if defined INTERNAL_GC_TRIGGER && !defined __i386__
278 SetSymbolValue(INTERNAL_GC_TRIGGER, make_fixnum(-1));
283 arch_install_interrupt_handlers();
284 os_install_interrupt_handlers();
286 #ifdef PSEUDO_ATOMIC_ATOMIC
287 /* Turn on pseudo atomic for when we call into Lisp. */
288 SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, make_fixnum(1));
289 SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(0));
292 /* Convert remaining argv values to something that Lisp can grok. */
293 SetSymbolValue(POSIX_ARGV, alloc_string_list(argv));
295 /* Install a handler to pick off SIGINT until the Lisp system gets
296 * far enough along to install its own handler. */
299 funcall0(initial_function);
301 /* initial_function() is not supposed to return. */
302 lose("Lisp initial_function gave up control.");
303 return 0; /* dummy value: return something */