Newer
Older
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.21 2000/10/24 17:45:57 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;
#ifdef DEFAULT_DYNAMIC_SPACE_SIZE
dynamic_space_size = DEFAULT_DYNAMIC_SPACE_SIZE;
#else
dynamic_space_size = DYNAMIC_SPACE_SIZE;
#endif
while ((arg = *++argptr) != NULL)
{
if (strcmp(arg, "-core") == 0)
{
if (core != NULL)
{
fprintf(stderr, "can only specify one core file.\n");
exit(1);
if (core == NULL)
{
fprintf(stderr, "-core must be followed by the name of the core file to use.\n");
}
}
else if (strcmp(arg, "-dynamic-space-size") == 0)
{
char *str = *++argptr;
if (str == NULL)
{
fprintf(stderr, "-dynamic-space-size must be followed by the size to use in MBytes.\n");
exit(1);
}
dynamic_space_size = atoi(str) * 1024 * 1024;
if (dynamic_space_size > DYNAMIC_SPACE_SIZE)
{
fprintf(stderr, "-dynamic-space-size must be no greater than %d MBytes.\n",
DYNAMIC_SPACE_SIZE / (1024 * 1024));
exit(1);
}
}
else if (strcmp(arg, "-monitor") == 0)
{
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();
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);