Added swedish version of the peacekeeping grammar.

5 files changed, 53 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..8b0ce1346
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeaceCat_Swe.gf
@@ -0,0 +1,3 @@
+--# -path=.:present:prelude
+
+concrete PeaceCat_Swe of PeaceCat = CatSwe ** PeaceCatI with (Cat = CatSwe);
\ 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..c542eb4ef
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeaceLexExt_Swe.gf
@@ -0,0 +1,37 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexExt_Swe of PeaceLexExt = 
+  PeaceCat_Swe ** open LexiconSwe, ParadigmsSwe 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" ;
+    food_N = regN "mat";
+    friend_N = mkN "vän" "vännen" "vänner" "vännerna" ;
+    landmine_N = regN "landmina" ;
+    medicine_N = mk2N "medicin" "mediciner";
+    skin_N = mk2N "skinn" "skinn" ;
+    soldier_N = mk2N "soldat" "soldater" ;
+    weapon_N = mkN "vapen" "vapnet" "vapen" "vapnen" ;
+
+    -- Verbs
+    cough_V = regV "hostar" ;
+    need_V2 = dirV2 (regV "behöver");
+    own_V2 = dirV2 (regV "äger") ;
+    show_V3 = dirdirV3 (regV "visar") ;
+
+}
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..35f06228c
--- /dev/null
+++ b/examples/peacekeeping/swedish/Peace_Swe.gf
@@ -0,0 +1,3 @@
+--# -path=.:present:prelude
+
+concrete Peace_Swe of Peace = PeaceSyntax_Swe, PeaceLexCommon_Swe, PeaceLexExt_Swe ** {}
\ No newline at end of file