Reorganized the peacekeeping grammar.

5 files changed, 53 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..ac1d9a7dd
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceCat_Eng.gf
@@ -0,0 +1,3 @@
+--# -path=.:present:prelude
+
+concrete PeaceCat_Eng of PeaceCat = CatEng ** PeaceCatI with (Cat = CatEng);
\ 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..413cb02e5
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceLexExt_Eng.gf
@@ -0,0 +1,37 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexExt_Eng of PeaceLexExt = 
+  PeaceCat_Eng ** open ParadigmsEng 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";
+    food_N = regN "food";
+    friend_N = regN "friend";
+    landmine_N = regN "landmine" ;
+    medicine_N = regN "medicine" ;
+    skin_N = regN "skin" ;
+    soldier_N = regN "soldier" ;
+    weapon_N = regN "weapon";
+
+    -- Verbs
+    cough_V = regV "cough" ;
+    need_V2 = dirV2 (regV "need");
+    own_V2 = dirV2 (regV "own") ;
+    show_V3 = dirdirV3 (regV "show") ;
+
+}
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..c4432a593
--- /dev/null
+++ b/examples/peacekeeping/english/Peace_Eng.gf
@@ -0,0 +1,3 @@
+--# -path=.:present:prelude
+
+concrete Peace_Eng of Peace = PeaceSyntax_Eng, PeaceLexCommon_Eng, PeaceLexExt_Eng ** {}
\ No newline at end of file