peacekeeping: add a module with phrases which are very different in different languages, e.g. greetings. The english and swedish implementations do not yet use the resource grammars, and the finnish is empty.

examples/peacekeeping/Peace.gf

@@ -1 +1,4 @@
-abstract Peace = PeaceSyntax, PeaceLexCommon, PeaceLexExt ** {}
+abstract Peace = 
+  PeaceSyntax, PeaceLexCommon, 
+  PeaceLexExt, PeacePhrases 
+  ** {}

examples/peacekeeping/PeacePhrases.gf

@@ -0,0 +1,9 @@
+abstract PeacePhrases = Cat ** {
+
+  fun
+    Hello : Phr ;
+    GoodMorning : Phr ;
+    GoodEvening : Phr ;
+    WhatIsNamePron : Pron -> Phr ;
+
+}

examples/peacekeeping/english/PeacePhrases_Eng.gf

@@ -0,0 +1,12 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Eng of PeacePhrases = 
+  PeaceCat_Eng ** open ResEng in {
+
+lin
+    Hello = { s = "hello" ++ "." } ;
+    GoodMorning = { s = ["good morning"] ++ "." } ;
+    GoodEvening = { s = ["good evening"] ++ "." } ;
+    WhatIsNamePron p = { s = ["what is"] ++ p.s!Gen ++ "name" ++ "?"; };
+
+}

examples/peacekeeping/english/Peace_Eng.gf

@@ -1,3 +1,6 @@
 --# -path=.:..:present:prelude
 
-concrete Peace_Eng of Peace = PeaceSyntax_Eng, PeaceLexCommon_Eng, PeaceLexExt_Eng ** {}
+concrete Peace_Eng of Peace = 
+  PeaceSyntax_Eng, PeaceLexCommon_Eng, 
+  PeaceLexExt_Eng, PeacePhrases_Eng
+  ** {}

examples/peacekeeping/finnish/PeacePhrases_Fin.gf

@@ -0,0 +1,7 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Fin of PeacePhrases = 
+  PeaceCat_Fin ** {
+
+
+}

examples/peacekeeping/finnish/Peace_Fin.gf

@@ -1,3 +1,6 @@
 --# -path=.:..:present:prelude
 
-concrete Peace_Fin of Peace = PeaceSyntax_Fin, PeaceLexCommon_Fin, PeaceLexExt_Fin ** {}
+concrete Peace_Fin of Peace = 
+  PeaceSyntax_Fin, PeaceLexCommon_Fin, 
+  PeaceLexExt_Fin, PeacePhrases_Fin
+  ** {}

examples/peacekeeping/swedish/PeacePhrases_Swe.gf

@@ -0,0 +1,12 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Swe of PeacePhrases = 
+  PeaceCat_Swe ** open CommonScand in {
+
+lin
+    Hello = { s = "hej" ++ "." } ;
+    GoodMorning = { s = ["god morgon"] ++ "." } ;
+    GoodEvening = { s = ["god kväll"] ++ "." } ;
+    WhatIsNamePron p = { s = ["vad heter"] ++ p.s!NPNom ++ "?"; };
+
+}

examples/peacekeeping/swedish/Peace_Swe.gf

@@ -1,3 +1,6 @@
 --# -path=.:..:present:prelude
 
-concrete Peace_Swe of Peace = PeaceSyntax_Swe, PeaceLexCommon_Swe, PeaceLexExt_Swe ** {}
+concrete Peace_Swe of Peace = 
+  PeaceSyntax_Swe, PeaceLexCommon_Swe, 
+  PeaceLexExt_Swe, PeacePhrases_Swe
+  ** {}