diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-16 12:34:29 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-16 12:34:29 -0700 |
| commit | 1f0275bfb7259f6f1e1239ab3dca07dac9e4b348 (patch) | |
| tree | 3acb6fd0c91c404bd53939440560578585eeb6f0 /testcases-cons | |
| parent | e199c1affde31338dbf7bd21b246e8bd5c3b08ce (diff) | |
| download | cppawk-1f0275bfb7259f6f1e1239ab3dca07dac9e4b348.tar.gz cppawk-1f0275bfb7259f6f1e1239ab3dca07dac9e4b348.tar.bz2 cppawk-1f0275bfb7259f6f1e1239ab3dca07dac9e4b348.zip | |
cons: dolist, dolisti, doconses: doc, test.
Diffstat (limited to 'testcases-cons')
| -rw-r--r-- | testcases-cons | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/testcases-cons b/testcases-cons index ec7e6cb..4dc2788 100644 --- a/testcases-cons +++ b/testcases-cons @@ -774,3 +774,28 @@ BEGIN { C1,1:12 foo Tfoo +-- +41: +$cppawk ' +#include <cons.h> + +BEGIN { + dolist (x, list(1, 2, 3)) + print x + print x + dolisti (x, i, list(1, 2, 3)) + print x, i + doconses (s, listar(1, 2, 3, 4)) + print sexp(s) +}' +: +1 +2 +3 +3 +1 0 +2 1 +3 2 +(1 2 3 . 4) +(2 3 . 4) +(3 . 4) |