* lib.c (eof_s): New symbol variable.

(obj_init): New variable initialized.

* lib.h (eof_s): Declared.

* match.c (match_files): New @(eof) directive explicitly
matches end of data.

* txr.1: Updated.

1 files changed, 8 insertions, 0 deletions

diff --git a/match.c b/match.c
index a7284f19..73435770 100644
--- a/match.c
+++ b/match.c
@@ -1707,6 +1707,14 @@ repeat_spec_same_data:
         if ((spec = rest(spec)) == nil)
           break;
         goto repeat_spec_same_data;
+      } else if (sym == eof_s) {
+        if (data) {
+          debugf(lit("eof failed to match at ~a"), num(data_lineno), nao);
+          return nil;
+        }
+        if ((spec = rest(spec)) == nil)
+          break;
+        goto repeat_spec_same_data;
       } else {
         val func = uw_get_func(sym);