mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-11 19:53:52 -08:00
75 lines
1.7 KiB
D
75 lines
1.7 KiB
D
/*
|
|
init.c -- Lisp Initialization.
|
|
*/
|
|
/*
|
|
Copyright (c) 1990, Giuseppe Attardi.
|
|
Copyright (c) 2001, Juan Jose Garcia Ripoll.
|
|
|
|
ECL is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
See file '../Copyright' for full details.
|
|
*/
|
|
|
|
#include "ecl.h"
|
|
#include "internal.h"
|
|
|
|
extern cl_object
|
|
cl_array_dimensions(cl_narg narg, cl_object array, ...)
|
|
{
|
|
return funcall(2, @'ARRAY-DIMENSIONS', array);
|
|
}
|
|
|
|
static cl_object si_simple_toplevel ()
|
|
{
|
|
cl_object sentence;
|
|
int i;
|
|
|
|
/* Simple minded top level loop */
|
|
printf(";*** Lisp core booted ****\nECL (Embeddable Common Lisp) %d pages\n", MAXPAGE);
|
|
fflush(stdout);
|
|
#ifdef TK
|
|
StdinResume();
|
|
#endif
|
|
for (i = 1; i<fix(si_argc()); i++) {
|
|
cl_object arg = si_argv(MAKE_FIXNUM(i));
|
|
cl_load(1, arg);
|
|
}
|
|
while (1) {
|
|
printf("\n> ");
|
|
sentence = @read(3, Cnil, Cnil, OBJNULL);
|
|
if (sentence == OBJNULL)
|
|
@(return);
|
|
prin1(si_eval_with_env(1, sentence), Cnil);
|
|
#ifdef TK
|
|
StdinResume();
|
|
#endif
|
|
}
|
|
}
|
|
|
|
int
|
|
main(int argc, char **args)
|
|
{
|
|
cl_object top_level;
|
|
|
|
/* This should be always the first call */
|
|
cl_boot(argc, args);
|
|
|
|
#ifdef ECL_CMU_FORMAT
|
|
SYM_VAL(@'*load-verbose*') = Cnil;
|
|
#endif
|
|
SYM_VAL(@'*package*') = cl_core.system_package;
|
|
SYM_VAL(@'*features*') = CONS(make_keyword("ECL-MIN"), SYM_VAL(@'*features*'));
|
|
top_level = _intern("TOP-LEVEL", cl_core.system_package);
|
|
cl_def_c_function(top_level, si_simple_toplevel, 0);
|
|
funcall(1, top_level);
|
|
return(0);
|
|
}
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" void init_LSP(cl_object);
|
|
#endif
|
|
|
|
void init_LSP(cl_object o) {}
|