diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2009-11-02 15:57:40 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2009-11-02 15:57:40 -0800 |
commit | f6c4f253681b576f39d939e602e9de7bc1b8892b (patch) | |
tree | b0cde10be55dfb779106fc6e2fb387d0741fd3e8 /lib.h | |
parent | 69a1cbeccd0834937a46c95da08948d684868c17 (diff) | |
download | txr-f6c4f253681b576f39d939e602e9de7bc1b8892b.tar.gz txr-f6c4f253681b576f39d939e602e9de7bc1b8892b.tar.bz2 txr-f6c4f253681b576f39d939e602e9de7bc1b8892b.zip |
Implement custom separator and limit in freeform.
Diffstat (limited to 'lib.h')
-rw-r--r-- | lib.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -121,6 +121,7 @@ struct lazy_string { type_t type; obj_t *prefix; /* actual string part */ obj_t *list; /* remaining list */ + obj_t *opts; /* ( limit . sepstring ) */ }; struct cobj { @@ -288,7 +289,7 @@ obj_t *vec_set_fill(obj_t *vec, obj_t *fill); obj_t **vecref_l(obj_t *vec, obj_t *ind); obj_t *vec_push(obj_t *vec, obj_t *item); obj_t *lazy_stream_cons(obj_t *stream); -obj_t *lazy_str(obj_t *list); +obj_t *lazy_str(obj_t *list, obj_t *sep, obj_t *limit); obj_t *lazy_str_force_upto(obj_t *lstr, obj_t *index); obj_t *lazy_str_force(obj_t *lstr); obj_t *lazy_str_get_trailing_list(obj_t *lstr, obj_t *index); |