diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-21 21:53:20 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-21 21:53:20 +0000 |
| commit | 10bf3b1d9fda0cada5fb85c4bb803dfb46714948 (patch) | |
| tree | 42f8749b5c0b2b7d4f94daf38ad0efe50d475ede /examples/peacekeeping/PeaceSyntaxI.gf | |
| parent | 9a51ac6ebf70056c5d74d190aebab032d7a8d4c9 (diff) | |
Moved punctuation to a separate field, to allow spoken language grammars to omit it. Created top-level spoken language grammars. (all in peacekeeping)
Diffstat (limited to 'examples/peacekeeping/PeaceSyntaxI.gf')
| -rw-r--r-- | examples/peacekeeping/PeaceSyntaxI.gf | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/examples/peacekeeping/PeaceSyntaxI.gf b/examples/peacekeeping/PeaceSyntaxI.gf index 4864682d6..89517d735 100644 --- a/examples/peacekeeping/PeaceSyntaxI.gf +++ b/examples/peacekeeping/PeaceSyntaxI.gf @@ -1,4 +1,5 @@ -incomplete concrete PeaceSyntaxI of PeaceSyntax = PeaceCatI ** open Lang in { +incomplete concrete PeaceSyntaxI of PeaceSyntax = + PeaceCatI ** open Lang,PeaceRes in { flags -- optimize = all_subs ; @@ -11,22 +12,21 @@ incomplete concrete PeaceSyntaxI of PeaceSyntax = PeaceCatI ** open Lang in { MassCN = CN ; lin - PhrPos sent = {s = sent.s ! SPos ++ "."} ; - PhrNeg sent = {s = sent.s ! SNeg ++ "."} ; - 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 ++ "!"} ; + PhrPos sent = stop (sent.s!SPos) ; + PhrNeg sent = stop (sent.s!SNeg) ; + PhrQuest q = quest q.s ; + PhrImp imp = excl (PhrUtt NoPConj (UttImpSg PPos imp) NoVoc).s; + PhrImpNeg imp = excl (PhrUtt NoPConj (UttImpSg PNeg imp) NoVoc).s; - PhrYes = { s = yes_Phr.s ++ "." } ; - PhrNo = { s = no_Phr.s ++ "." } ; + PhrYes = stop yes_Phr.s ; + PhrNo = stop no_Phr.s ; - QuestSent sent = {s = sent.s ! SQuest } ; + 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))) ; QuestIP_V3 v ip x y = mkQuest (QuestVP ip (ComplV3 v x y)) ; QuestIP_V3Mass v ip x y = mkQuest (QuestVP ip (ComplV3 v (massNP x) y)) ; - QuestIP_A : A -> IP -> Phr ; QuestIP_A a ip = mkQuest (QuestVP ip (UseComp (CompAP (PositA a)))); QuestIAdv_NP x ia = mkQuest (QuestIComp (CompIAdv ia) x); |