fields: new parameters to select subrange.

1 files changed, 64 insertions, 0 deletions

diff --git a/testcases-cons b/testcases-cons
index e945478..e5342c0 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -873,3 +873,67 @@ BEGIN {
 (0 1 2 3 4)
 (0 1 4 9 16)
 (0 1 3 6 10)
+--
+45:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  $0 = "the quick brown fox"
+  print sexp(fields(1))
+  print sexp(fields(2))
+  print sexp(fields(3))
+  print sexp(fields(4))
+  print sexp(fields(5))
+  print sexp(fields(1, 0))
+  print sexp(fields(2, 0))
+  print sexp(fields(3, 0))
+  print sexp(fields(4, 0))
+  print sexp(fields(5, 0))
+  print sexp(fields(1, 1))
+  print sexp(fields(2, 1))
+  print sexp(fields(3, 1))
+  print sexp(fields(4, 1))
+  print sexp(fields(5, 1))
+}'
+:
+("the" "quick" "brown" "fox")
+("quick" "brown" "fox")
+("brown" "fox")
+("fox")
+nil
+nil
+nil
+nil
+nil
+nil
+("the")
+("quick")
+("brown")
+("fox")
+nil
+--
+46:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  $0 = "the quick brown fox"
+  print sexp(fields(-10, 20))
+  print sexp(fields(-1, 2))
+  print sexp(fields(0, 2))
+  print sexp(fields(l, 2))
+  print sexp(fields(2, 2))
+  print sexp(fields(3, 2))
+  print sexp(fields(4, 2))
+  print sexp(fields(5, 2))
+}'
+:
+("the" "quick" "brown" "fox")
+nil
+("the")
+("the" "quick")
+("quick" "brown")
+("brown" "fox")
+("fox")
+nil