PeaceKepp: added a bunch of examples. Added a few words. Added some missing syntax constructs.

1 files changed, 8 insertions, 0 deletions

diff --git a/examples/peacekeeping/PeaceKeepI.gf b/examples/peacekeeping/PeaceKeepI.gf
index a1a06c2d4..81459a68f 100644
--- a/examples/peacekeeping/PeaceKeepI.gf
+++ b/examples/peacekeeping/PeaceKeepI.gf
@@ -16,10 +16,15 @@ incomplete concrete PeaceKeepI of PeaceKeep = open Lang in {
     PhrImp imp = {s = (PhrUtt NoPConj (UttImpSg PPos imp) NoVoc).s ++ "!"} ;
     PhrImpNeg imp = {s = (PhrUtt NoPConj (UttImpSg PNeg imp) NoVoc).s ++ "!"} ;
     
+    PhrYes = { s = yes_Phr.s ++ "." } ;
+    PhrNo = { s = no_Phr.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))) ;
+    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))));
 
@@ -31,6 +36,7 @@ incomplete concrete PeaceKeepI of PeaceKeep = open Lang in {
     SentV2 v x y = mkSent x (ComplV2 v y) ;
     SentV2Mass v x y = mkSent x (ComplV2 v (massNP y)) ;
     SentV3 v x y z = mkSent x (ComplV3 v y z) ;
+    SentV3Mass v x y z = mkSent x (ComplV3 v (massNP y) z) ;
     SentA  a x = mkSent x (UseComp (CompAP (PositA a))) ;
     SentNP a x = mkSent x (UseComp (CompNP a)) ;
 
@@ -39,7 +45,9 @@ incomplete concrete PeaceKeepI of PeaceKeep = open Lang in {
 
     ImpV v = ImpVP (UseV v) ;
     ImpV2 v x = ImpVP (ComplV2 v x) ;
+    ImpV2Mass v x = ImpVP (ComplV2 v (massNP x)) ;
     ImpV3 v x y = ImpVP (ComplV3 v x y) ;
+    ImpV3Mass v x y = ImpVP (ComplV3 v (massNP x) y) ;
 
     UsePron p = UsePron p ;
     PossPronCNSg p n = DetCN (DetSg (SgQuant (PossPron p)) NoOrd) n;