Newer
Older
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.19 2000/10/24 11:02:49 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
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
88
89
90
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;
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
set_lossage_handler(ldb_monitor);
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();
/* This is the first use of malloc() and must come after the
* static memory layout is mmapped to avoid conflicts with possible
* use of mmap() by malloc().
*/
define_var("nil", NIL, TRUE);
define_var("t" , T, TRUE);
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();
#ifdef PSEUDO_ATOMIC_ATOMIC
/* 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
/* 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));
/*
* Parse the command line again, picking up values that override
* those loaded from the core.
*/
argptr = argv;
while ((arg = *++argptr) != NULL)
{
if (strcmp(arg, "-batch") == 0)
}
/*
* Pick off sigint until the lisp system gets far enough along to
* install it's own.
*/
if (monitor)
while (1)
else {
funcall0(initial_function);
printf("Initial function returned?\n");
exit(1);