summaryrefslogtreecommitdiff
path: root/examples/tutorial/syntax/GrammarEng.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2007-10-17 19:08:09 +0000
committeraarne <aarne@cs.chalmers.se>2007-10-17 19:08:09 +0000
commit59052fd1b6e5b6ed76494aaf5ca8d6597a85d952 (patch)
tree8cc390bc0028eb623adbce32181abd2578d8fd87 /examples/tutorial/syntax/GrammarEng.gf
parent5028c62c669933464c24bd2989aca548b2f5dd1c (diff)
added coordination to tutorial grammar example.
Diffstat (limited to 'examples/tutorial/syntax/GrammarEng.gf')
-rw-r--r--examples/tutorial/syntax/GrammarEng.gf7
1 files changed, 7 insertions, 0 deletions
diff --git a/examples/tutorial/syntax/GrammarEng.gf b/examples/tutorial/syntax/GrammarEng.gf
index 1a9b1ac6e..d35b33fff 100644
--- a/examples/tutorial/syntax/GrammarEng.gf
+++ b/examples/tutorial/syntax/GrammarEng.gf
@@ -18,6 +18,7 @@ concrete GrammarEng of Grammar = open Prelude, MorphoEng in {
A = {s : Str} ;
V = Verb ;
V2 = Verb2 ;
+ Conj = {s : Str} ;
Pol = {s : Str ; p : Bool} ;
lin
@@ -52,6 +53,9 @@ concrete GrammarEng of Grammar = open Prelude, MorphoEng in {
IDetCN det cn = {s = det.s ++ cn.s ! det.n ; n = det.n} ;
+ ConjS c a b = {s = a.s ++ c.s ++ b.s} ;
+ ConjNP c a b = {s = a.s ++ c.s ++ b.s ; n = Pl} ;
+
UseN n = n ;
UseA a = a ;
UseV v = {s = \\q,b,n => predVerb v q b n} ;
@@ -71,6 +75,8 @@ concrete GrammarEng of Grammar = open Prelude, MorphoEng in {
which_IDet = {s = "which" ; n = Sg} ;
+ and_Conj = {s = "and"} ;
+
PPos = {s = [] ; p = True} ;
PNeg = {s = [] ; p = False} ;
@@ -113,4 +119,5 @@ concrete GrammarEng of Grammar = open Prelude, MorphoEng in {
artIndef : Str =
pre {"a" ; "an" / strs {"a" ; "e" ; "i" ; "o"}} ;
+
}