#include "EST_String.h"
#include "EST_string_aux.h"
#include "EST_error.h"
#include "EST_Val.h"
#include "siod_defs.h"
#include "siod_est.h"
Go to the source code of this file.
Macros | |
#define | siod_error() (errjmp_ok ? longjmp(*est_errjmp,1) : exit(-1)) |
Functions | |
int | siod_init (int heap_size=DEFAULT_HEAP_SIZE) |
int | siod_repl (int interactive) |
void | siod_print_welcome (EST_String extra_info) |
void | siod_print_welcome (void) |
const char * | get_c_string (LISP x) |
long int | get_c_int (LISP x) |
double | get_c_double (LISP x) |
float | get_c_float (LISP x) |
LISP | flocons (double x) |
FILE * | get_c_file (LISP p, FILE *deflt) |
LISP | siod_make_typed_cell (long type, void *s) |
LISP | cintern (const char *name) |
LISP | rintern (const char *name) |
LISP | strintern (const char *data) |
LISP | strcons (long length, const char *data) |
LISP | cstrcons (const char *data) |
void | init_subr (const char *name, long type, SUBR_FUNC fcn, const char *doc) |
void | init_subr_0 (const char *name, LISP(*fcn)(void), const char *doc) |
void | init_subr_1 (const char *name, LISP(*fcn)(LISP), const char *doc) |
void | init_subr_2 (const char *name, LISP(*fcn)(LISP, LISP), const char *doc) |
void | init_subr_3 (const char *name, LISP(*fcn)(LISP, LISP, LISP), const char *doc) |
void | init_subr_4 (const char *name, LISP(*fcn)(LISP, LISP, LISP, LISP), const char *doc) |
void | init_lsubr (const char *name, LISP(*fcn)(LISP), const char *doc) |
void | init_fsubr (const char *name, LISP(*fcn)(LISP, LISP), const char *doc) |
void | init_msubr (const char *name, LISP(*fcn)(LISP *, LISP *), const char *doc) |
void | setdoc (LISP name, LISP doc) |
int | siod_register_user_type (const char *name) |
void | set_gc_hooks (long type, int gc_free_once, LISP(*rel)(LISP), LISP(*mark)(LISP), void(*scan)(LISP), void(*free)(LISP), void(*clear)(LISP), long *kind) |
void | set_eval_hooks (long type, LISP(*fcn)(LISP, LISP *, LISP *)) |
void | set_type_hooks (long type, long(*c_sxhash)(LISP, long), LISP(*equal)(LISP, LISP)) |
void | set_print_hooks (long type, void(*prin1)(LISP, FILE *), void(*print_string)(LISP, char *)) |
void | set_io_hooks (long type, LISP(*fast_print)(LISP, LISP), LISP(*fast_read)(int, LISP)) |
void | set_fatal_exit_hook (void(*fcn)(void)) |
void | siod_reset_prompt (void) |
LISP | siod_get_lval (const char *name, const char *message) |
LISP | siod_set_lval (const char *name, LISP val) |
LISP | siod_assoc_str (const char *key, LISP alist) |
LISP | siod_member_str (const char *key, LISP list) |
LISP | siod_regex_member_str (const EST_String &key, LISP list) |
EST_Regex & | make_regex (const char *r) |
LISP | siod_member_int (const int key, LISP list) |
LISP | siod_nth (int nth, LISP list) |
LISP | siod_last (LISP list) |
int | siod_llength (LISP list) |
int | siod_atomic_list (LISP list) |
LISP | siod_flatten (LISP tree) |
int | siod_eof (LISP item) |
EST_String | siod_sprint (LISP exp) |
LISP | symbol_boundp (LISP x, LISP env) |
LISP | get_param_lisp (const char *name, LISP params, LISP defval) |
int | get_param_int (const char *name, LISP params, int defval) |
float | get_param_float (const char *name, LISP params, float defval) |
const char * | get_param_str (const char *name, LISP params, const char *defval) |
LISP | make_param_int (const char *name, int val) |
LISP | make_param_float (const char *name, float val) |
LISP | make_param_str (const char *name, const char *val) |
LISP | make_param_lisp (const char *name, LISP val) |
LISP | apply_hooks (LISP hook, LISP arg) |
LISP | apply_hooks_right (LISP hook, LISP args) |
LISP | apply (LISP func, LISP args) |
int | parse_url (const EST_String &url, EST_String &protocol, EST_String &host, EST_String &port, EST_String &path) |
void | err (const char *message, LISP x) EST_NORETURN |
void | err (const char *message, const char *s) EST_NORETURN |
void | errswitch (void) EST_NORETURN |
void | siod_list_to_strlist (LISP l, EST_StrList &a) |
LISP | siod_strlist_to_list (EST_StrList &a) |
void | siod_tidy_up () |
LISP | siod_quit (void) |
const char * | siod_version (void) |
void | gc_protect (LISP *location) |
void | gc_unprotect (LISP *location) |
void | gc_protect_n (LISP *location, long n) |
void | gc_protect_sym (LISP *location, const char *st) |
LISP | user_gc (LISP args) |
LISP | equal (LISP, LISP) |
LISP | eql (LISP x, LISP y) |
LISP | reverse (LISP obj) |
LISP | append (LISP l1, LISP l2) |
LISP | cons (LISP x, LISP y) |
LISP | car (LISP x) |
LISP | cdr (LISP x) |
LISP | consp (LISP x) |
LISP | numberp (LISP x) |
LISP | atomp (LISP x) |
LISP | assoc (LISP x, LISP alist) |
LISP | setcar (LISP cell, LISP value) |
LISP | setcdr (LISP cell, LISP value) |
LISP | assq (LISP x, LISP alist) |
LISP | delq (LISP elem, LISP l) |
LISP | leval (LISP x, LISP env) |
LISP | symbol_value (LISP x, LISP env) |
LISP | setvar (LISP var, LISP val, LISP env) |
LISP | copy_list (LISP x) |
LISP | quote (LISP item) |
LISP | read_from_lstring (LISP x) |
LISP | symbolexplode (LISP name) |
LISP | fopen_c (const char *name, const char *how) |
LISP | fclose_l (LISP p) |
LISP | lprin1f (LISP exp, FILE *f) |
void | pprint (LISP exp) |
LISP | lprint (LISP exp) |
void | pprint_to_fd (FILE *fd, LISP exp) |
LISP | lread (void) |
LISP | lreadtk (long j) |
LISP | lreadf (FILE *f) |
void | set_read_hooks (char *all_set, char *end_set, LISP(*fcn1)(int, struct gen_readio *), LISP(*fcn2)(char *, long, int *)) |
LISP | vload (const char *fname, long cflag) |
LISP | read_from_string (const char *) |
long | repl_c_string (char *, long want_sigint, long want_init, long want_print) |
long | repl_from_socket (int fd) |
void | init_subrs (void) |
LISP | stringexplode (const char *str) |
void | fput_st (FILE *f, const char *st) |
LISP | get_eof_val (void) |
Variables | |
long | nointerrupt |
LISP | current_env |
LISP | truth |
int | audsp_mode |
int | siod_ctrl_c |
const char * | siod_prog_name |
const char * | siod_primary_prompt |
const char * | siod_secondary_prompt |
#define siod_error | ( | ) | (errjmp_ok ? longjmp(*est_errjmp,1) : exit(-1)) |
int siod_init | ( | int | heap_size = DEFAULT_HEAP_SIZE | ) |
Definition at line 44 of file slib_repl.cc.
void siod_print_welcome | ( | EST_String | extra_info | ) |
FILE* get_c_file | ( | LISP | p, |
FILE * | deflt | ||
) |
Definition at line 349 of file slib_file.cc.
LISP strintern | ( | const char * | data | ) |
Definition at line 22 of file slib_str.cc.
LISP strcons | ( | long | length, |
const char * | data | ||
) |
Definition at line 27 of file slib_str.cc.
LISP cstrcons | ( | const char * | data | ) |
Definition at line 40 of file slib_str.cc.
void init_subr | ( | const char * | name, |
long | type, | ||
SUBR_FUNC | fcn, | ||
const char * | doc | ||
) |
void init_subr_0 | ( | const char * | name, |
LISP(*)(void) | fcn, | ||
const char * | doc | ||
) |
void init_subr_1 | ( | const char * | name, |
LISP(*)(LISP) | fcn, | ||
const char * | doc | ||
) |
void init_subr_2 | ( | const char * | name, |
LISP(*)(LISP, LISP) | fcn, | ||
const char * | doc | ||
) |
void init_subr_3 | ( | const char * | name, |
LISP(*)(LISP, LISP, LISP) | fcn, | ||
const char * | doc | ||
) |
void init_subr_4 | ( | const char * | name, |
LISP(*)(LISP, LISP, LISP, LISP) | fcn, | ||
const char * | doc | ||
) |
void init_lsubr | ( | const char * | name, |
LISP(*)(LISP) | fcn, | ||
const char * | doc | ||
) |
void init_fsubr | ( | const char * | name, |
LISP(*)(LISP, LISP) | fcn, | ||
const char * | doc | ||
) |
void init_msubr | ( | const char * | name, |
LISP(*)(LISP *, LISP *) | fcn, | ||
const char * | doc | ||
) |
void setdoc | ( | LISP | name, |
LISP | doc | ||
) |
Definition at line 20 of file slib_doc.cc.
void set_gc_hooks | ( | long | type, |
int | gc_free_once, | ||
LISP(*)(LISP) | rel, | ||
LISP(*)(LISP) | mark, | ||
void(*)(LISP) | scan, | ||
void(*)(LISP) | free, | ||
void(*)(LISP) | clear, | ||
long * | kind | ||
) |
void set_eval_hooks | ( | long | type, |
LISP(*)(LISP, LISP *, LISP *) | fcn | ||
) |
void set_type_hooks | ( | long | type, |
long(*)(LISP, long) | c_sxhash, | ||
LISP(*)(LISP, LISP) | equal | ||
) |
void set_print_hooks | ( | long | type, |
void(*)(LISP, FILE *) | prin1, | ||
void(*)(LISP, char *) | print_string | ||
) |
void set_io_hooks | ( | long | type, |
LISP(*)(LISP, LISP) | fast_print, | ||
LISP(*)(int, LISP) | fast_read | ||
) |
LISP siod_get_lval | ( | const char * | name, |
const char * | message | ||
) |
LISP siod_regex_member_str | ( | const EST_String & | key, |
LISP | list | ||
) |
LISP siod_flatten | ( | LISP | tree | ) |
Definition at line 87 of file slib_list.cc.
EST_String siod_sprint | ( | LISP | exp | ) |
Definition at line 208 of file slib_file.cc.
LISP symbol_boundp | ( | LISP | x, |
LISP | env | ||
) |
Definition at line 222 of file slib_core.cc.
LISP get_param_lisp | ( | const char * | name, |
LISP | params, | ||
LISP | defval | ||
) |
float get_param_float | ( | const char * | name, |
LISP | params, | ||
float | defval | ||
) |
const char* get_param_str | ( | const char * | name, |
LISP | params, | ||
const char * | defval | ||
) |
int parse_url | ( | const EST_String & | url, |
EST_String & | protocol, | ||
EST_String & | host, | ||
EST_String & | port, | ||
EST_String & | path | ||
) |
void siod_list_to_strlist | ( | LISP | l, |
EST_StrList & | a | ||
) |
LISP siod_strlist_to_list | ( | EST_StrList & | a | ) |
LISP equal | ( | LISP | , |
LISP | |||
) |
Definition at line 133 of file slib_list.cc.
LISP eql | ( | LISP | x, |
LISP | y | ||
) |
Definition at line 77 of file slib_list.cc.
LISP reverse | ( | LISP | obj | ) |
Definition at line 171 of file slib_list.cc.
LISP append | ( | LISP | l1, |
LISP | l2 | ||
) |
Definition at line 177 of file slib_list.cc.
LISP cons | ( | LISP | x, |
LISP | y | ||
) |
Definition at line 97 of file slib_list.cc.
LISP car | ( | LISP | x | ) |
Definition at line 115 of file slib_list.cc.
LISP cdr | ( | LISP | x | ) |
Definition at line 124 of file slib_list.cc.
LISP consp | ( | LISP | x | ) |
Definition at line 112 of file slib_list.cc.
LISP numberp | ( | LISP | x | ) |
Definition at line 15 of file slib_math.cc.
LISP atomp | ( | LISP | x | ) |
Definition at line 104 of file slib_list.cc.
LISP assoc | ( | LISP | x, |
LISP | alist | ||
) |
Definition at line 36 of file slib_list.cc.
LISP setcar | ( | LISP | cell, |
LISP | value | ||
) |
Definition at line 54 of file slib_list.cc.
LISP setcdr | ( | LISP | cell, |
LISP | value | ||
) |
Definition at line 58 of file slib_list.cc.
LISP assq | ( | LISP | x, |
LISP | alist | ||
) |
Definition at line 45 of file slib_list.cc.
LISP delq | ( | LISP | elem, |
LISP | l | ||
) |
Definition at line 62 of file slib_list.cc.
LISP symbol_value | ( | LISP | x, |
LISP | env | ||
) |
Definition at line 229 of file slib_core.cc.
LISP setvar | ( | LISP | var, |
LISP | val, | ||
LISP | env | ||
) |
Definition at line 18 of file slib_core.cc.
LISP copy_list | ( | LISP | x | ) |
Definition at line 69 of file slib_list.cc.
LISP read_from_lstring | ( | LISP | x | ) |
Definition at line 62 of file slib_str.cc.
LISP symbolexplode | ( | LISP | name | ) |
Definition at line 251 of file slib_str.cc.
LISP fopen_c | ( | const char * | name, |
const char * | how | ||
) |
Definition at line 254 of file slib_file.cc.
LISP fclose_l | ( | LISP | p | ) |
Definition at line 329 of file slib_file.cc.
LISP lprin1f | ( | LISP | exp, |
FILE * | f | ||
) |
Definition at line 471 of file slib_file.cc.
void pprint | ( | LISP | exp | ) |
Definition at line 95 of file slib_file.cc.
LISP lprint | ( | LISP | exp | ) |
Definition at line 548 of file slib_file.cc.
void pprint_to_fd | ( | FILE * | fd, |
LISP | exp | ||
) |
Definition at line 74 of file slib_file.cc.
LISP lread | ( | void | ) |
Definition at line 553 of file slib_file.cc.
void set_read_hooks | ( | char * | all_set, |
char * | end_set, | ||
LISP(*)(int, struct gen_readio *) | fcn1, | ||
LISP(*)(char *, long, int *) | fcn2 | ||
) |
LISP vload | ( | const char * | fname, |
long | cflag | ||
) |
Definition at line 632 of file slib_file.cc.
LISP read_from_string | ( | const char * | ) |
Definition at line 65 of file slib_str.cc.
long repl_c_string | ( | char * | , |
long | want_sigint, | ||
long | want_init, | ||
long | want_print | ||
) |
long repl_from_socket | ( | int | fd | ) |
Definition at line 92 of file slib_server.cc.
LISP get_eof_val | ( | void | ) |
Definition at line 556 of file slib_file.cc.