diff options
Diffstat (limited to 'tests/008/configfile.txr')
| -rw-r--r-- | tests/008/configfile.txr | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/008/configfile.txr b/tests/008/configfile.txr new file mode 100644 index 00000000..257fdc07 --- /dev/null +++ b/tests/008/configfile.txr @@ -0,0 +1,24 @@ +@(collect) +@ (cases) +#@/.*/ +@ (or) +;@/.*/ +@ (or) +@{IDENT /[A-Z_][A-Z_0-9]+/}@/ */ +@(bind VAL ("true")) +@ (or) +@{IDENT /[A-Z_][A-Z_0-9]+/}@(coll)@/ */@{VAL /[^,]+/}@/ */@(end) +@ (or) +@{IDENT /[A-Z_][A-Z_0-9]+/}@(coll)@/ */@{VAL /[^, ]+/}@/,? */@(end) +@(flatten VAL) +@ (or) +@/ */ +@ (or) +@ (throw error "bad configuration syntax") +@ (end) +@(end) +@(output) +@ (repeat) +@IDENT = @(rep)@VAL, @(first){ @VAL, @(last)@VAL };@(single)@VAL;@(end) +@ (end) +@(end) |