Record-delimiting stream adapter.

* regex.c (read_until_match): New function.
(regex_init): Registered read-until-match intrinsic.

* regex.h (read_until_match): Declared.

* stream.c (struct delegate_base): New struct type.
(delegate_base_mark, delegate_put_string, delegate_put_char,
delegate_put_byte, delegate_get_char, delegate_get_byte,
delegate_unget_char, delegate_unget_byte, delegate_close,
delegate_flush, delegate_seek, delegate_truncate,
delegate_get_prop, delegate_set_prop, delegate_get_error,
delegate_get_error_str, delegate_clear_error,
make_delegate_stream): New static functions.
(struct record_adapter_base): New struct type.
(record_adapter_base_mark, record_adapter_mark_op,
record_adapter_get_line): New static functions.
(record_adapter_ops): New static structure.
(record_adapter): New function.
(stream_init): Registered record-adapter intrinsic.

* stream.h (record_adapter): Declared.

* txr.1: Documented read-until-match and record-adapter.

1 files changed, 1 insertions, 0 deletions

diff --git a/regex.h b/regex.h
index 51d24eea..ac84af26 100644
--- a/regex.h
+++ b/regex.h
@@ -39,5 +39,6 @@ val search_regst(val haystack, val needle_regex, val start_num, val from_end);
 val match_regst(val str, val regex, val pos);
 val match_regst_right(val str, val regex, val end);
 val regsub(val regex, val repl, val str);
+val read_until_match(val regex, val stream);
 int wide_display_char_p(wchar_t ch);
 void regex_init(void);