From 44e30eb85147c413c7e4959c2d8e50cf1de673a8 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 22 Apr 2022 21:39:21 -0700
Subject: fields: new parameters to select subrange.

---
 testcases-cons | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)

(limited to 'testcases-cons')

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
-- 
cgit v1.2.3