Added peacekeeping example back in. Doesn't compile yet.

7 files changed, 91 insertions, 0 deletions

diff --git a/examples/peacekeeping/english/PeaceCat_Eng.gf b/examples/peacekeeping/english/PeaceCat_Eng.gf
new file mode 100644
index 000000000..d73e1d581
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceCat_Eng.gf
@@ -0,0 +1,3 @@
+--# -path=.:present:prelude
+
+concrete PeaceCat_Eng of PeaceCat = CatEng ** PeaceCatI with (Lang = LangEng);
\ No newline at end of file
diff --git a/examples/peacekeeping/english/PeaceLexCommon_Eng.gf b/examples/peacekeeping/english/PeaceLexCommon_Eng.gf
new file mode 100644
index 000000000..fc3ab664d
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceLexCommon_Eng.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexCommon_Eng of PeaceLexCommon = 
+  PeaceCat_Eng ** PeaceLexCommonI with (Lang = LangEng) ;
+
diff --git a/examples/peacekeeping/english/PeaceLexExt_Eng.gf b/examples/peacekeeping/english/PeaceLexExt_Eng.gf
new file mode 100644
index 000000000..6ecfcf341
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceLexExt_Eng.gf
@@ -0,0 +1,48 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexExt_Eng of PeaceLexExt = 
+  PeaceCat_Eng ** open ParadigmsEng, IrregEng, 
+                       LexiconEng, StructuralEng in {
+
+  lin
+
+    -- Adjectives
+    dangerous_A = regA "dangerous" ;
+    dead_A = regA "dead" ;
+    hungry_A = regA "hungry" ;
+    large_A = regA "large" ;
+    sick_A = regA "sick" ;
+
+    -- Nouns
+    air_N = regN "air" ;
+    arm_N = regN "arm" ;
+    building_N = regN "building" ;
+    car_N = regN "car" ;
+    corpse_N = regN "corpse" ;
+    doctor_N = regN "doctor";
+    enemy_N = regN "enemy";
+    face_N = regN "face" ;
+    food_N = regN "food";
+    friend_N = regN "friend";
+    ground_N = regN "ground" ;
+    knife_N = mk2N "knife" "knives" ;
+    landmine_N = regN "landmine" ;
+    map_N = regN "map" ;
+    medicine_N = regN "medicine" ;
+    police8officer_N = compoundN "police" (regN "officer") ;
+    skin_N = regN "skin" ;
+    soldier_N = regN "soldier" ;
+    toy_N = regN "toy" ;
+    translation8machine_N = compoundN "translation" (regN "machine") ;
+    weapon_N = regN "weapon";
+
+    -- Verbs
+    cooperate_V2 = mkV2 (regV "cooperate") (mkPrep "with") ;
+    cough_V = regV "cough" ;
+    drop_V2 = dirV2 (regDuplV "drop") ;
+    hurt_V = hurt_V ;
+    need_V2 = dirV2 (regV "need");
+    own_V2 = dirV2 (regV "own") ;
+    show_V3 = dirdirV3 (regV "show") ;
+
+}
diff --git a/examples/peacekeeping/english/PeacePhrases_Eng.gf b/examples/peacekeeping/english/PeacePhrases_Eng.gf
new file mode 100644
index 000000000..8bcf41ce0
--- /dev/null
+++ b/examples/peacekeeping/english/PeacePhrases_Eng.gf
@@ -0,0 +1,12 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Eng of PeacePhrases = 
+  PeaceCat_Eng ** open ResEng, PeaceRes in {
+
+lin
+    Hello = stop "hello" ;
+    GoodMorning = stop ["good morning"];
+    GoodEvening = stop ["good evening"] ;
+    WhatIsNamePron p = quest (["what is"] ++ p.s!Gen ++ "name") ;
+
+}
\ No newline at end of file
diff --git a/examples/peacekeeping/english/PeaceSpoken_Eng.gf b/examples/peacekeeping/english/PeaceSpoken_Eng.gf
new file mode 100644
index 000000000..bdd81bd9f
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceSpoken_Eng.gf
@@ -0,0 +1,8 @@
+--# -path=.:..:present:prelude
+
+concrete PeaceSpoken_Eng of PeaceSpoken = 
+  Peace_Eng ** {
+
+  flags startcat = PhraseSpoken ; 
+
+}
diff --git a/examples/peacekeeping/english/PeaceSyntax_Eng.gf b/examples/peacekeeping/english/PeaceSyntax_Eng.gf
new file mode 100644
index 000000000..674e1e123
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceSyntax_Eng.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete PeaceSyntax_Eng of PeaceSyntax = PeaceCat_Eng ** PeaceSyntaxI with
+  (Lang = LangEng) ;
+
diff --git a/examples/peacekeeping/english/Peace_Eng.gf b/examples/peacekeeping/english/Peace_Eng.gf
new file mode 100644
index 000000000..dff33298b
--- /dev/null
+++ b/examples/peacekeeping/english/Peace_Eng.gf
@@ -0,0 +1,10 @@
+--# -path=.:..:present:prelude
+
+concrete Peace_Eng of Peace = 
+  PeaceSyntax_Eng, PeaceLexCommon_Eng, 
+  PeaceLexExt_Eng, PeacePhrases_Eng
+  ** {
+
+  flags startcat = PhraseWritten ; 
+
+}