diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-17 19:08:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-17 19:08:09 +0000 |
| commit | 59052fd1b6e5b6ed76494aaf5ca8d6597a85d952 (patch) | |
| tree | 8cc390bc0028eb623adbce32181abd2578d8fd87 /examples/tutorial/syntax/GrammarEng.gf | |
| parent | 5028c62c669933464c24bd2989aca548b2f5dd1c (diff) | |
added coordination to tutorial grammar example.
Diffstat (limited to 'examples/tutorial/syntax/GrammarEng.gf')
| -rw-r--r-- | examples/tutorial/syntax/GrammarEng.gf | 7 |
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"}} ; + } |
