diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-20 11:46:50 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-20 11:46:50 +0000 |
| commit | 35cd3af6614663e6374e5af5527a301c40b85cd8 (patch) | |
| tree | 657f84bb1a7524d351519e1c1dcbbf4a934b197c /examples/peacekeeping/PeaceKeepI.gf | |
| parent | 72dbe753e053f25d331cb0564652bb72670fdc9f (diff) | |
Added Quest category to PeaceKeep grammar.
Diffstat (limited to 'examples/peacekeeping/PeaceKeepI.gf')
| -rw-r--r-- | examples/peacekeeping/PeaceKeepI.gf | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/examples/peacekeeping/PeaceKeepI.gf b/examples/peacekeeping/PeaceKeepI.gf index 37cfe6fb6..a1a06c2d4 100644 --- a/examples/peacekeeping/PeaceKeepI.gf +++ b/examples/peacekeeping/PeaceKeepI.gf @@ -5,15 +5,18 @@ incomplete concrete PeaceKeepI of PeaceKeep = open Lang in { unlexer = text ; lexer = text ; lincat - Sent = {s : SForm => Str} ; MassCN = CN ; + Sent = {s : SForm => Str} ; + Quest = { s : Str } ; + MassCN = CN ; lin PhrPos sent = {s = sent.s ! SPos ++ "."} ; PhrNeg sent = {s = sent.s ! SNeg ++ "."} ; - PhrQuest sent = {s = sent.s ! SQuest ++ "?"} ; + PhrQuest q = {s = q.s ++ "?" } ; PhrImp imp = {s = (PhrUtt NoPConj (UttImpSg PPos imp) NoVoc).s ++ "!"} ; PhrImpNeg imp = {s = (PhrUtt NoPConj (UttImpSg PNeg imp) NoVoc).s ++ "!"} ; + QuestSent sent = {s = sent.s ! SQuest } ; QuestIP_V v ip = mkQuest (QuestVP ip (UseV v)) ; QuestIP_V2 v ip x = mkQuest (QuestVP ip (ComplV2 v x)) ; QuestIP_V2Mass v ip x = mkQuest (QuestVP ip (ComplV2 v (massNP x))) ; @@ -68,8 +71,8 @@ incomplete concrete PeaceKeepI of PeaceKeep = open Lang in { massNP : CN -> NP = \mcn -> DetCN (DetSg MassDet NoOrd) mcn ; - mkQuest : QCl -> Phr ; - mkQuest q = { s = (Predef.toStr QS (UseQCl TPres ASimul PPos q)) ++ "?"; - lock_Phr = <> } ; + mkQuest : QCl -> Quest ; + mkQuest q = { s = Predef.toStr QS (UseQCl TPres ASimul PPos q); + lock_Quest = <> } ; } |