retoor/orchid
1
0
Fork 0
forked from Orchid/orchid
Code Pull Requests 1 Activity

Testcase for explicit exports

Browse Source 
Also extended conslist testcase with multi-token list items
This commit is contained in:
Lawrence Bethlenfalvy
2022-08-23 14:58:14 +02:00
parent a93311d2e1
commit e32b92eb89
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
examples/rule_demo/main.orc
View File

@@ -1,12 +1,18 @@
export main := [foo, bar, baz, quz] export ::(main, foo)
main := [foo, bar, baz, quz]
foo := steamed hams
[...$data] := (cons_start ...$data cons_carriage(none)) [...$data] := (cons_start ...$data cons_carriage(none))
[] := none [] := none
, $item cons_carriage($tail) := cons_carriage( ...$prefix:1 , ...$item cons_carriage(
(some (cons $item $tail)) $tail
) := ...$prefix cons_carriage(
(some (cons (...$item) $tail))
) )
cons_start $item cons_carriage($tail) := some (cons $item $tail) cons_start ...$item cons_carriage($tail) := some (cons (...$item) $tail)