diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-18 06:02:37 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-18 06:02:37 -0700 |
| commit | 0d1fef12970e5850be29d331d525a77195d6b40b (patch) | |
| tree | dcc6dbf7a68579bad2cc6dab369316b3664fa00e /testcases-cons | |
| parent | 08a6a0d241335e37bb5ff1b4f0007ed924b6ff48 (diff) | |
| download | cppawk-0d1fef12970e5850be29d331d525a77195d6b40b.tar.gz cppawk-0d1fef12970e5850be29d331d525a77195d6b40b.tar.bz2 cppawk-0d1fef12970e5850be29d331d525a77195d6b40b.zip | |
cons: list_begin, list_add, list_end: document, test.
Diffstat (limited to 'testcases-cons')
| -rw-r--r-- | testcases-cons | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testcases-cons b/testcases-cons index c80bb5d..76be7c8 100644 --- a/testcases-cons +++ b/testcases-cons @@ -828,3 +828,24 @@ BEGIN { nil 3 4 +-- +43: +$cppawk ' +#include <cons.h> + +BEGIN { + bag = list_begin() + print sexp(list_end(bag)) + print sexp(list_end_atom(bag, 3)) + bag = list_add(bag, "a") + bag = list_add(bag, 1) + bag = list_add(bag, 2) + + print sexp(list_end(bag)) + print sexp(list_end_atom(bag, 3)) +}' +: +nil +3 +("a" 1 2) +("a" 1 2 . 3) |