Newer
Older
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.12 1997/11/18 16:56:01 dtc Exp $
*
*/
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
#include <sys/file.h>
#include <sys/param.h>
#include <sys/stat.h>
#include "signal.h"
#include "lisp.h"
#include "internals.h"
#include "alloc.h"
#include "vars.h"
#include "globals.h"
#include "os.h"
#include "arch.h"
#include "gc.h"
#include "monitor.h"
#include "validate.h"
#include "core.h"
#include "save.h"
#include "lispregs.h"
#ifdef irix
#include <string.h>
#include "interr.h"
#endif
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
ldb_monitor();
}
/* Not static, because we want to be able to call it from lisp land. */
void sigint_init(void)
{
install_handler(SIGINT, sigint_handler);
}
/* Noise to convert argv and argp into lists. */
static lispobj alloc_str_list(char *list[])
{
lispobj result, newcons;
struct cons *ptr;
if (*list == NULL)
result = NIL;
else {
result = newcons = alloc_cons(alloc_string(*list++), NIL);
while (*list != NULL) {
ptr = (struct cons *)PTR(newcons);
newcons = alloc_cons(alloc_string(*list++), NIL);
ptr->cdr = newcons;
}
}
return result;
}
/* And here be main. */
void main(int argc, char *argv[], char *envp[])
{
char *arg, **argptr;
char *core = NULL, *default_core;
boolean monitor;
lispobj initial_function;
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
set_lossage_handler(ldb_monitor);
define_var("nil", NIL, TRUE);
define_var("t", T, TRUE);
monitor = FALSE;
argptr = argv;
while ((arg = *++argptr) != NULL) {
if (strcmp(arg, "-core") == 0) {
if (core != NULL) {
fprintf(stderr, "can only specify one core file.\n");
exit(1);
}
core = *++argptr;
if (core == NULL) {
fprintf(stderr, "-core must be followed by the name of the core file to use.\n");
exit(1);
}
}
else if (strcmp(arg, "-monitor") == 0) {
monitor = TRUE;
}
}
default_core = arch_init();
if (default_core == NULL)
default_core = "lisp.core";
if (core == NULL) {
#ifdef MACH
static char buf[MAXPATHLEN];
char *lib = getenv("CMUCLLIB");
if (lib != NULL) {
char *dst;
struct stat statbuf;
do {
dst = buf;
while (*lib != '\0' && *lib != ':')
*dst++ = *lib++;
if (dst != buf && dst[-1] != '/')
*dst++ = '/';
strcpy(dst, default_core);
if (stat(buf, &statbuf) == 0) {
core = buf;
break;
}
} while (*lib++ == ':');
}
if (core == NULL) {
/* Note: the /usr/misc/.cmucl/lib/ default path is also wired
#ifdef MACH
#else
strcpy(buf, "/usr/local/lib/cmucl/lib/");
strcat(buf, default_core);
core = buf;
}
}
os_init();
gc_init();
validate();
globals_init();
initial_function = load_core_file(core);
#if defined WANT_CGC && defined X86_CGC_ACTIVE_P
{
extern int use_cgc_p;
lispobj x = SymbolValue(X86_CGC_ACTIVE_P);
if(x != type_UnboundMarker && x != NIL)
use_cgc_p = 1; /* enable allocator */
}
#endif
SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack);
SetSymbolValue(INTERNAL_GC_TRIGGER, make_fixnum(-1));
#endif
interrupt_init();
arch_install_interrupt_handlers();
os_install_interrupt_handlers();
/* Convert the argv and envp to something Lisp can grok. */
SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv));
SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp));
#ifdef PSEUDO_ATOMIC_ATOMIC
SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, make_fixnum(0));
SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(0));
#else
/* Turn on pseudo atomic for when we call into lisp. */
SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, make_fixnum(1));
SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(0));
#endif
#endif
/* Pick off sigint until the lisp system gets far enough along to */
/* install it's own. */
sigint_init();
if (monitor)
while (1)
else {
funcall0(initial_function);
printf("Initial function returned?\n");
exit(1);