Useful second argument in skip directive for skipping

a minimum number of lines.

* match.c (match_files): New behavior in skip_s case.

* txr.1: Documented.

1 files changed, 16 insertions, 2 deletions

diff --git a/match.c b/match.c
index ce981a4e..b75c0766 100644
--- a/match.c
+++ b/match.c
@@ -924,8 +924,9 @@ repeat_spec_same_data:
 
       if (sym == skip_s) {
         val max = first(rest(first_spec));
+        val min = second(rest(first_spec));
         cnum cmax = nump(max) ? c_num(max) : 0;
-        cnum reps = 0;
+        cnum cmin = nump(min) ? c_num(min) : 0;
 
         if (rest(specline))
           sem_error(spec_linenum,
@@ -935,9 +936,22 @@ repeat_spec_same_data:
           break;
 
         {
+          cnum reps_max = 0, reps_min = 0;
+          cnum old_lineno = data_lineno;
           uw_block_begin(nil, result);
 
-          while (data && (!max || reps++ < cmax)) {
+          while (data && min && reps_min++ < cmin) {
+            data = rest(data);
+            data_lineno++;
+          }
+
+          if (min) {
+            debuglf(spec_linenum, lit("skipped ~a lines to ~a:~a"),
+                    num(data_lineno - old_lineno), first(files),
+                    num(data_lineno), nao);
+          }
+
+          while (data && (!max || reps_max++ < cmax)) {
             result = match_files(spec, files, bindings,
                                  data, num(data_lineno));