From 94f84584fcb35de610f3c2b7a82164da7f6bcc65 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 18 Apr 2022 06:41:44 -0700
Subject: cons: bags macro: document, test.

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

(limited to 'testcases-cons')

diff --git a/testcases-cons b/testcases-cons
index 76be7c8..e945478 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -849,3 +849,27 @@ nil
 3
 ("a" 1 2)
 ("a" 1 2 . 3)
+--
+44:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  bags (vals, squares, sums) {
+    acc = 0
+    for (i = 0; i < 5; i++) {
+      bag (vals, i)
+      bag (squares, i*i)
+      bag (sums, acc += i)
+    }
+  }
+
+  // the bags variables are now
+  print sexp(vals)
+  print sexp(squares)
+  print sexp(sums)
+}'
+:
+(0 1 2 3 4)
+(0 1 4 9 16)
+(0 1 3 6 10)
-- 
cgit v1.2.3