diff options
| author | bringert <unknown> | 2005-05-25 09:42:32 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-05-25 09:42:32 +0000 |
| commit | ef49f67b1c609cb98894c3aa9c986e0aaced55ba (patch) | |
| tree | e35734e11fe030b2a14ab260fc44c87c8101a5b2 | |
| parent | 65bc1948d4ebb432836996bee5dba246905c154a (diff) | |
Added very basic list test grammars.
| -rw-r--r-- | grammars/bringert/ListTest.gf | 8 | ||||
| -rw-r--r-- | grammars/bringert/ListTestEng.gf | 12 |
2 files changed, 20 insertions, 0 deletions
diff --git a/grammars/bringert/ListTest.gf b/grammars/bringert/ListTest.gf new file mode 100644 index 000000000..7f280b524 --- /dev/null +++ b/grammars/bringert/ListTest.gf @@ -0,0 +1,8 @@ +abstract ListTest = { + +cat A; [A]; B; [B]{1}; + +fun apa : A; +fun bepa : B; + +}
\ No newline at end of file diff --git a/grammars/bringert/ListTestEng.gf b/grammars/bringert/ListTestEng.gf new file mode 100644 index 000000000..05ae4ce25 --- /dev/null +++ b/grammars/bringert/ListTestEng.gf @@ -0,0 +1,12 @@ +concrete ListTestEng of ListTest = { + +lin BaseA = { s = "" } ; +lin ConsA a as = { s = a.s ++ "" ++ as.s } ; + +lin BaseB b = { s = b.s } ; +lin ConsB b bs = { s = b.s ++ "," ++ bs.s } ; + +lin apa = { s = "apa" } ; +lin bepa = { s = "bepa" } ; + +}
\ No newline at end of file |