96 lines
2.5 KiB
C
96 lines
2.5 KiB
C
/**
|
|
* init.c
|
|
*
|
|
* Start up and initialise the environement - just enough to get working
|
|
* and (ultimately) hand off to the executive.
|
|
*
|
|
*
|
|
* (c) 2017 Simon Brooke <simon@journeyman.cc>
|
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
|
*/
|
|
|
|
#include <stdbool.h>
|
|
#include <stdio.h>
|
|
#include <unistd.h>
|
|
#include <wchar.h>
|
|
|
|
#include "version.h"
|
|
#include "conspage.h"
|
|
#include "consspaceobject.h"
|
|
#include "intern.h"
|
|
#include "lispops.h"
|
|
#include "repl.h"
|
|
|
|
void bind_function( char* name, struct cons_pointer (*executable)
|
|
(struct stack_frame*, struct cons_pointer)) {
|
|
deep_bind( intern( c_string_to_lisp_symbol( name), oblist ),
|
|
make_function( NIL, executable));
|
|
}
|
|
|
|
void bind_special( char* name, struct cons_pointer (*executable)
|
|
(struct cons_pointer s_expr, struct cons_pointer env,
|
|
struct stack_frame* frame)) {
|
|
deep_bind( intern( c_string_to_lisp_symbol( name), oblist ),
|
|
make_special( NIL, executable));
|
|
}
|
|
|
|
int main (int argc, char *argv[]) {
|
|
/* attempt to set wide character acceptance on all streams */
|
|
fwide(stdin, 1);
|
|
fwide(stdout, 1);
|
|
fwide(stderr, 1);
|
|
int option;
|
|
bool dump_at_end = false;
|
|
bool show_prompt = false;
|
|
|
|
while ((option = getopt (argc, argv, "pd")) != -1)
|
|
{
|
|
switch (option)
|
|
{
|
|
case 'd':
|
|
dump_at_end = true;
|
|
break;
|
|
case 'p':
|
|
show_prompt = true;
|
|
break;
|
|
default:
|
|
fprintf( stderr, "Unexpected option %c\n", option);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (show_prompt) {
|
|
fprintf( stdout, "Post scarcity software environment version %s\n\n", VERSION);
|
|
}
|
|
|
|
initialise_cons_pages();
|
|
|
|
/* privileged variables (keywords) */
|
|
deep_bind( intern( c_string_to_lisp_string( "nil"), oblist), NIL);
|
|
deep_bind( intern( c_string_to_lisp_string( "t"), oblist), TRUE);
|
|
|
|
/* primitive function operations */
|
|
bind_function( "assoc", &lisp_assoc);
|
|
bind_function( "car", &lisp_car);
|
|
bind_function( "cdr", &lisp_cdr);
|
|
bind_function( "cons", &lisp_cons);
|
|
bind_function( "eq", &lisp_eq);
|
|
bind_function( "equal", &lisp_equal);
|
|
bind_function( "read", &lisp_read);
|
|
bind_function( "print", &lisp_print);
|
|
|
|
/* primitive special forms */
|
|
bind_special( "apply", &lisp_apply);
|
|
bind_special( "eval", &lisp_eval);
|
|
bind_special( "quote", &lisp_quote);
|
|
|
|
repl(stdin, stdout, stderr, show_prompt);
|
|
// print( stdout, lisp_eval( input, oblist, NULL));
|
|
|
|
if ( dump_at_end) {
|
|
dump_pages(stderr);
|
|
}
|
|
|
|
return(0);
|
|
}
|