Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added prims

Browse source
This commit is contained in:
Justin Ethier 2015-02-25 17:51:31 -05:00
parent 6da4067027
commit e62ee3f742
1 changed files with 46 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

64
runtime.h
View file

@ -320,6 +320,7 @@ static void Cyc_apply(int argc, closure cont, object prim, ...);
static list mcons(object,object); static list mcons(object,object);
static object terpri(void); static object terpri(void);
static object Cyc_display(object); static object Cyc_display(object);
static object Cyc_write(object);
static object Cyc_is_boolean(object o); static object Cyc_is_boolean(object o);
static object Cyc_is_cons(object o); static object Cyc_is_cons(object o);
static object Cyc_is_null(object o); static object Cyc_is_null(object o);
@ -1116,24 +1117,51 @@ static void _symbol_127(object cont, object args) {
// _assoc // _assoc
// _assq // _assq
// _member // _member
// _char_91_125integer //static void (object cont, object args) { return_funcall1(cont, );}
// _integer_91_125char static void _char_91_125integer(object cont, object args) {
// _string_91_125number integer_type i = Cyc_char2integer(car(args));
// _string_91append return_funcall1(cont, &i);}
// _string_91_125list static void _integer_91_125char(object cont, object args) {
// _list_91_125string return_funcall1(cont, Cyc_integer2char(car(args)));}
// _string_91_125symbol static void _string_91_125number(object cont, object args) {
// _symbol_91_125string integer_type i = Cyc_string2number(car(args));
// _number_91_125string return_funcall1(cont, &i);}
// _current_91input_91port static void _string_91append(object cont, object args) {
// _open_91input_91file // TODO: how to dispatch list as varargs?
// _close_91input_91port exit(1);
// _read_91char // string_type s = Cyc_string_append
// _peek_91char // return_funcall1(cont, );
// _write }
// _display static void _string_91_125list(object cont, object args) {
//static void (object cont, object args) { string2list(lst, car(args));
// return_funcall1(cont, );} return_funcall1(cont, &lst);}
static void _list_91_125string(object cont, object args) {
string_type s = Cyc_list2string(car(args));
return_funcall1(cont, &s);}
static void _string_91_125symbol(object cont, object args) {
return_funcall1(cont, Cyc_string2symbol(car(args)));}
static void _symbol_91_125string(object cont, object args) {
string_type s = Cyc_symbol2string(car(args));
return_funcall1(cont, &s);}
static void _number_91_125string(object cont, object args) {
string_type s = Cyc_number2string(car(args));
return_funcall1(cont, &s);}
static void _current_91input_91port(object cont, object args) {
port_type p = Cyc_io_current_input_port();
return_funcall1(cont, &p);}
static void _open_91input_91file(object cont, object args) {
port_type p = Cyc_io_open_input_file(car(args));
return_funcall1(cont, &p);}
static void _close_91input_91port(object cont, object args) {
return_funcall1(cont, Cyc_io_close_input_port(car(args)));}
static void _read_91char(object cont, object args) {
return_funcall1(cont, Cyc_io_read_char(car(args)));}
static void _peek_91char(object cont, object args) {
return_funcall1(cont, Cyc_io_peek_char(car(args)));}
static void _write(object cont, object args) {
return_funcall1(cont, Cyc_write(car(args))); }
static void _display(object cont, object args) {
return_funcall1(cont, Cyc_display(car(args)));}
/* This section is auto-generated via --autogen */ /* This section is auto-generated via --autogen */
defprimitive(Cyc_91global_91vars, &_Cyc_91global_91vars); /* Cyc-global-vars */ defprimitive(Cyc_91global_91vars, &_Cyc_91global_91vars); /* Cyc-global-vars */