diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-10-08 20:04:19 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-10-08 20:04:19 -0700 |
commit | 47d79a4dc7d1a9ae8161dfd02a75a869169da73f (patch) | |
tree | 0938e191d8863a2ee187fbea982b5b9f8064fe3c /lisplib.c | |
parent | c7cb16a9b6ba4b6d9b7d4d68245d078e982accb8 (diff) | |
download | txr-47d79a4dc7d1a9ae8161dfd02a75a869169da73f.tar.gz txr-47d79a4dc7d1a9ae8161dfd02a75a869169da73f.tar.bz2 txr-47d79a4dc7d1a9ae8161dfd02a75a869169da73f.zip |
Various stream-related with- macros introduced.
* lisplib.c (with_stream_set_entries,
with_stream_instantiate): New static functions.
(lisplib_init): Register new functions in dl_table.
* share/txr/stdlib/with-stream.tl: New file.
* txr.1: Documented new macros.
Diffstat (limited to 'lisplib.c')
-rw-r--r-- | lisplib.c | 22 |
1 files changed, 22 insertions, 0 deletions
@@ -189,6 +189,27 @@ static val struct_instantiate(val set_fun) return nil; } +static val with_stream_set_entries(val dlt, val fun) +{ + val name[] = { + lit("with-out-string-stream"), + lit("with-out-strlist-stream"), + lit("with-in-string-stream"), + lit("with-in-string-byte-stream"), + lit("with-stream"), + nil + }; + set_dlt_entries(dlt, name, fun); + return nil; +} + +static val with_stream_instantiate(val set_fun) +{ + funcall1(set_fun, nil); + load(format(nil, lit("~a/with-stream.tl"), stdlib_path, nao)); + return nil; +} + val dlt_register(val dlt, val (*instantiate)(val), val (*set_entries)(val, val)) @@ -207,6 +228,7 @@ void lisplib_init(void) dlt_register(dl_table, with_resources_instantiate, with_resources_set_entries); dlt_register(dl_table, path_test_instantiate, path_test_set_entries); dlt_register(dl_table, struct_instantiate, struct_set_entries); + dlt_register(dl_table, with_stream_instantiate, with_stream_set_entries); } val lisplib_try_load(val sym) |