Newer
Older
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.4 1993/04/28 01:58:33 wlott Exp $
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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
*
*/
#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 "interrupt.h"
#include "core.h"
#include "save.h"
#include "lispregs.h"
/* SIGINT handler that invokes the monitor. */
static void sigint_handler(int signal, int code, struct sigcontext *context)
{
printf("\nSIGINT hit at 0x%08X\n", SC_PC(context));
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;
83
84
85
86
87
88
89
90
91
92
93
94
95
96
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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
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";
/* Note: the /usr/misc/.cmucl/lib/ default path is also wired into */
/* the lisp code in .../code/save.lisp. */
if (core == NULL) {
extern char *getenv(char *var);
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) {
strcpy(buf, "/usr/misc/.cmucl/lib/");
strcat(buf, default_core);
core = buf;
}
}
os_init();
gc_init();
validate();
globals_init();
initial_function = load_core_file(core);
SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack);
SetSymbolValue(INTERNAL_GC_TRIGGER, 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
/* Turn on pseudo atomic for when we call into lisp. */
SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, fixnum(1));
SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, fixnum(0));
#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);