diff options
| author | peb <unknown> | 2004-04-29 08:11:20 +0000 |
|---|---|---|
| committer | peb <unknown> | 2004-04-29 08:11:20 +0000 |
| commit | 51da7e3c0f5e743f3508fa3e6b645f2ccacb81ab (patch) | |
| tree | d748d69b1300cb3f17d3a9af37361f4c5fc0cc83 /grammars/testConversions/SimpleEng.gf | |
| parent | b5bb4fc2b5b1d7e8ce17eb87722ba11e46a2ab2b (diff) | |
29/4-04, peb: added directory 'testConversions' with a simple grammar
for testing grammar conversions
Diffstat (limited to 'grammars/testConversions/SimpleEng.gf')
| -rw-r--r-- | grammars/testConversions/SimpleEng.gf | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/grammars/testConversions/SimpleEng.gf b/grammars/testConversions/SimpleEng.gf new file mode 100644 index 000000000..dce5fb999 --- /dev/null +++ b/grammars/testConversions/SimpleEng.gf @@ -0,0 +1,29 @@ + +concrete SimpleEng of SimpleAbs = open SimpleEngRes in { + +lincat +S = {s : Str}; +VP = {s : Num => Str}; +NP = {s : Str ; n : Num}; +V = {s : Num => Str}; +N = {s : Num => Str}; +D = {s : Str ; n : Num}; + +lin +cyclic x = x; +mkS x y = {s = x.s ++ y.s ! x.n}; +mkVP x y = {s = table {n => x.s ! n ++ y.s}}; +mkNP1 x y = {s = x.s ++ y.s ! x.n ; n = x.n}; +mkNP2 x = {s = x.s ! Pl ; n = Pl}; + +robin = {s = "Robin" ; n = Sg}; +dog = {s = table {Sg => "dog" ; Pl => "dogs"}}; +child = {s = table {Sg => "child" ; Pl => "children"}}; +love = {s = table {Sg => "loves" ; Pl => "love"}}; +hate = {s = table {Sg => "hates" ; Pl => "hate"}}; +one = {s = "one" ; n = Sg}; +all = {s = "all" ; n = Pl}; + +} + + |
