From 08a6a0d241335e37bb5ff1b4f0007ed924b6ff48 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 16 Apr 2022 21:43:08 -0700
Subject: cons: push, pop: document, test.

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

(limited to 'testcases-cons')

diff --git a/testcases-cons b/testcases-cons
index 4dc2788..c80bb5d 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -799,3 +799,32 @@ BEGIN {
 (1 2 3 . 4)
 (2 3 . 4)
 (3 . 4)
+--
+42:
+$cppawk '
+#include <cons.h>
+
+function rev(li,
+             out)
+{
+  out = nil
+
+  while (!endp(li))
+    push(pop(li), out)
+
+  return out
+}
+
+BEGIN {
+  print sexp(rev(list(1, 2, 3)));
+  x = nil
+  print sexp(pop(x))
+  x = cons(3, 4)
+  print sexp(pop(x))
+  print x
+}'
+:
+(3 2 1)
+nil
+3
+4
-- 
cgit v1.2.3