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

7 files changed, 91 insertions, 0 deletions

diff --git a/examples/peacekeeping/swedish/PeaceCat_Swe.gf b/examples/peacekeeping/swedish/PeaceCat_Swe.gf
new file mode 100644
index 000000000..5ccfb2ed5
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeaceCat_Swe.gf
@@ -0,0 +1,3 @@
+--# -path=.:present:prelude
+
+concrete PeaceCat_Swe of PeaceCat = CatSwe ** PeaceCatI with (Lang = LangSwe);
\ No newline at end of file
diff --git a/examples/peacekeeping/swedish/PeaceLexCommon_Swe.gf b/examples/peacekeeping/swedish/PeaceLexCommon_Swe.gf
new file mode 100644
index 000000000..8f516ff7d
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeaceLexCommon_Swe.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexCommon_Swe of PeaceLexCommon = 
+  PeaceCat_Swe ** PeaceLexCommonI with (Lang = LangSwe) ;
+
diff --git a/examples/peacekeeping/swedish/PeaceLexExt_Swe.gf b/examples/peacekeeping/swedish/PeaceLexExt_Swe.gf
new file mode 100644
index 000000000..5f40fc6b6
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeaceLexExt_Swe.gf
@@ -0,0 +1,48 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexExt_Swe of PeaceLexExt = 
+  PeaceCat_Swe ** open ParadigmsSwe, IrregSwe, 
+                       LexiconSwe, StructuralSwe in {
+
+  lin
+
+    -- Adjectives
+    dangerous_A = regA "farlig" ;
+    dead_A = regA "död" ;
+    hungry_A = regA "hungrig" ;
+    large_A = big_A ;
+    sick_A = regA "sjuk" ;
+
+    -- Nouns
+    air_N = regN "luft" ;
+    arm_N = regN "arm" ;
+    building_N = mk2N "byggnad" "byggnader" ;
+    car_N = regN "bil" ;
+    corpse_N = mk2N "lik" "lik" ;
+    doctor_N = mkN "doktor" "doktorn" "doktorer" "doktorerna";
+    enemy_N = mk2N "fiende" "fiender" ;
+    face_N = regN "ansikte" ;
+    food_N = regN "mat";
+    friend_N = mkN "vän" "vännen" "vänner" "vännerna" ;
+    ground_N = mk2N "mark" "marker";
+    knife_N = regN "kniv" ;
+    landmine_N = regN "landmina" ;
+    map_N = regN "karta" ;
+    medicine_N = mk2N "medicin" "mediciner";
+    police8officer_N = mk2N "polis" "poliser" ;
+    skin_N = mk2N "skinn" "skinn" ;
+    soldier_N = mk2N "soldat" "soldater" ;
+    toy_N = regN "leksak" ;
+    translation8machine_N = mk2N "översättningsmaskin" "översättningsmaskiner";
+    weapon_N = mkN "vapen" "vapnet" "vapen" "vapnen" ;
+
+    -- Verbs
+    cooperate_V2 = mkV2 (regV "samarbetar") (mkPrep "med") ;
+    cough_V = regV "hostar" ;
+    drop_V2 = dirV2 (regV "släpper") ;
+    hurt_V = partV göra_V "ont" ; -- FIXME: "Gör ont ditt ben?"
+    need_V2 = dirV2 (regV "behöver");
+    own_V2 = dirV2 (regV "äger") ;
+    show_V3 = dirdirV3 (regV "visar") ;
+
+}
diff --git a/examples/peacekeeping/swedish/PeacePhrases_Swe.gf b/examples/peacekeeping/swedish/PeacePhrases_Swe.gf
new file mode 100644
index 000000000..7f9d88014
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeacePhrases_Swe.gf
@@ -0,0 +1,12 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Swe of PeacePhrases = 
+  PeaceCat_Swe ** open CommonScand, PeaceRes in {
+
+lin
+    Hello = stop "hej" ;
+    GoodMorning = stop ["god morgon"] ;
+    GoodEvening = stop ["god kväll"] ;
+    WhatIsNamePron p = stop (["vad heter"] ++ p.s!NPNom) ;
+
+}
\ No newline at end of file
diff --git a/examples/peacekeeping/swedish/PeaceSpoken_Swe.gf b/examples/peacekeeping/swedish/PeaceSpoken_Swe.gf
new file mode 100644
index 000000000..d622a1c07
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeaceSpoken_Swe.gf
@@ -0,0 +1,8 @@
+--# -path=.:..:present:prelude
+
+concrete PeaceSpoken_Swe of PeaceSpoken = 
+  Peace_Swe ** {
+
+  flags startcat = PhraseSpoken ; 
+
+}
diff --git a/examples/peacekeeping/swedish/PeaceSyntax_Swe.gf b/examples/peacekeeping/swedish/PeaceSyntax_Swe.gf
new file mode 100644
index 000000000..4fd59e564
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeaceSyntax_Swe.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete PeaceSyntax_Swe of PeaceSyntax = PeaceCat_Swe ** PeaceSyntaxI with
+  (Lang = LangSwe) ;
+
diff --git a/examples/peacekeeping/swedish/Peace_Swe.gf b/examples/peacekeeping/swedish/Peace_Swe.gf
new file mode 100644
index 000000000..c08e227d3
--- /dev/null
+++ b/examples/peacekeeping/swedish/Peace_Swe.gf
@@ -0,0 +1,10 @@
+--# -path=.:..:present:prelude
+
+concrete Peace_Swe of Peace = 
+  PeaceSyntax_Swe, PeaceLexCommon_Swe, 
+  PeaceLexExt_Swe, PeacePhrases_Swe
+  ** {
+
+  flags startcat = PhraseWritten ; 
+
+}