summaryrefslogtreecommitdiff
path: root/grammars/testConversions/SimpleEng.gf
diff options
context:
space:
mode:
authorpeb <unknown>2004-04-29 08:11:20 +0000
committerpeb <unknown>2004-04-29 08:11:20 +0000
commit51da7e3c0f5e743f3508fa3e6b645f2ccacb81ab (patch)
treed748d69b1300cb3f17d3a9af37361f4c5fc0cc83 /grammars/testConversions/SimpleEng.gf
parentb5bb4fc2b5b1d7e8ce17eb87722ba11e46a2ab2b (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.gf29
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};
+
+}
+
+