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

7 files changed, 89 insertions, 0 deletions

diff --git a/examples/peacekeeping/finnish/PeaceCat_Fin.gf b/examples/peacekeeping/finnish/PeaceCat_Fin.gf
new file mode 100644
index 000000000..b5e73aaf1
--- /dev/null
+++ b/examples/peacekeeping/finnish/PeaceCat_Fin.gf
@@ -0,0 +1,3 @@
+--# -path=.:present:prelude
+
+concrete PeaceCat_Fin of PeaceCat = CatFin ** PeaceCatI with (Lang = LangFin);
diff --git a/examples/peacekeeping/finnish/PeaceLexCommon_Fin.gf b/examples/peacekeeping/finnish/PeaceLexCommon_Fin.gf
new file mode 100644
index 000000000..aad047909
--- /dev/null
+++ b/examples/peacekeeping/finnish/PeaceLexCommon_Fin.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexCommon_Fin of PeaceLexCommon = 
+  PeaceCat_Fin ** PeaceLexCommonI with (Lang = LangFin) ;
+
diff --git a/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf b/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf
new file mode 100644
index 000000000..eade50a49
--- /dev/null
+++ b/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf
@@ -0,0 +1,44 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexExt_Fin of PeaceLexExt = 
+  PeaceCat_Fin ** open ParadigmsFin in {
+
+  lin
+
+    -- Adjectives
+    dangerous_A = regA "vaarallinen" ;
+    dead_A = mkA (nRae "kuollut" "kuolleena") ;
+    hungry_A = regA "nälkäinen" ;
+    large_A = regA "iso" ;
+    sick_A = regA "sairas" ;
+
+    -- Nouns
+    air_N = regN "ilma" ;
+    arm_N = reg3N "käsi" "käden" "käsiä" ;
+    building_N = regN "rakennus" ;
+    car_N = regN "auto" ;
+    corpse_N = regN "ruumis" ;
+    doctor_N = regN "lääkäri";
+    enemy_N = regN "vihollinen";
+    face_N = regN "naama" ; ---- kasvot
+    food_N = regN "ruoka";
+    friend_N = regN "ystävä";
+    ground_N = regN "maa" ;
+    knife_N = reg2N "veitsi" "veitsiä" ; ---- veistä
+    landmine_N = regN "maamiina" ;
+    map_N = regN "kartta" ;
+    medicine_N = regN "lääke" ;
+    police8officer_N = regN "poliisi" ;
+    skin_N = regN "iho" ;
+    soldier_N = regN "sotilas" ;
+    weapon_N = regN "ase";
+
+    -- Verbs
+    cough_V = regV "yskiä" ;
+    drop_V2 = dirV2 (regV "pudottaa") ;
+    hurt_V = regV "sattua" ;
+    need_V2 = dirV2 (regV "tarvita");
+    own_V2 = dirV2 (regV "omistaa") ;
+    show_V3 = dirdirV3 (regV "näyttää") ;
+
+}
diff --git a/examples/peacekeeping/finnish/PeacePhrases_Fin.gf b/examples/peacekeeping/finnish/PeacePhrases_Fin.gf
new file mode 100644
index 000000000..bd528c36b
--- /dev/null
+++ b/examples/peacekeeping/finnish/PeacePhrases_Fin.gf
@@ -0,0 +1,14 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Fin of PeacePhrases = 
+  PeaceCat_Fin ** open LangFin, ParadigmsFin, PeaceRes in {
+
+lin
+    Hello = stop "terve" ;
+    GoodMorning = stop ["hyvää huomenta"] ;
+    GoodEvening = stop ["hyvää iltaa"] ;
+    WhatIsNamePron p = quest (PhrUtt NoPConj (UttQS (UseQCl TPres ASimul PPos 
+      (QuestVP whatSg_IP (UseComp (CompNP (DetCN (DetSg (SgQuant (PossPron p)) NoOrd) 
+      (UseN (reg2N "nimi" "nimiä")))))))) NoVoc).s ;
+
+}
\ No newline at end of file
diff --git a/examples/peacekeeping/finnish/PeaceSpoken_Fin.gf b/examples/peacekeeping/finnish/PeaceSpoken_Fin.gf
new file mode 100644
index 000000000..98a23732b
--- /dev/null
+++ b/examples/peacekeeping/finnish/PeaceSpoken_Fin.gf
@@ -0,0 +1,8 @@
+--# -path=.:..:present:prelude
+
+concrete PeaceSpoken_Fin of PeaceSpoken = 
+  Peace_Fin ** {
+
+  flags startcat = PhraseSpoken ; 
+
+}
diff --git a/examples/peacekeeping/finnish/PeaceSyntax_Fin.gf b/examples/peacekeeping/finnish/PeaceSyntax_Fin.gf
new file mode 100644
index 000000000..80bd821c4
--- /dev/null
+++ b/examples/peacekeeping/finnish/PeaceSyntax_Fin.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete PeaceSyntax_Fin of PeaceSyntax = PeaceCat_Fin ** PeaceSyntaxI with
+  (Lang = LangFin) ;
+
diff --git a/examples/peacekeeping/finnish/Peace_Fin.gf b/examples/peacekeeping/finnish/Peace_Fin.gf
new file mode 100644
index 000000000..f8e19d2b6
--- /dev/null
+++ b/examples/peacekeeping/finnish/Peace_Fin.gf
@@ -0,0 +1,10 @@
+--# -path=.:..:present:prelude
+
+concrete Peace_Fin of Peace = 
+  PeaceSyntax_Fin, PeaceLexCommon_Fin, 
+  PeaceLexExt_Fin, PeacePhrases_Fin
+  ** {
+
+  flags startcat = PhraseWritten ; 
+	optimize = all_subs ;
+}