From 7572cbf0c8e217adb8d1fc186b8519ebb47cd6fb Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Wed, 9 Mar 2005 16:24:53 +0000
Subject: [PATCH] Added mkStoneage script, added missing linearizations in
 swedish stoneage grammar

---
 examples/stoneage/StoneageEng.gf |  8 ++++----
 examples/stoneage/StoneageSwe.gf | 14 +++++++-------
 examples/stoneage/mkStoneage.gfs |  3 +++
 3 files changed, 14 insertions(+), 11 deletions(-)
 create mode 100644 examples/stoneage/mkStoneage.gfs

diff --git a/examples/stoneage/StoneageEng.gf b/examples/stoneage/StoneageEng.gf
index 25e9a3d13..ed5c1c3c0 100644
--- a/examples/stoneage/StoneageEng.gf
+++ b/examples/stoneage/StoneageEng.gf
@@ -105,8 +105,8 @@ lin
   Child = UseN child_N ;
   Wife = UseN wife_N ;
   Husband = UseN husband_N ;
-  Mother = UseN2 mother_N2 ;
-  Father = UseN2 father_N2 ;
+  Mother = UseN mother_N ;
+  Father = UseN father_N ;
   Animal = UseN animal_N ;
   Fish = UseN fish_N ;
   Bird = UseN bird_N ;
@@ -185,8 +185,8 @@ lin
   Name = UseN name_N ;
 
 --  NameOf = AppN2 name_N2 ;
-  MotherOf = AppN2 mother_N2 ;
-  FatherOf = AppN2 father_N2 ;
+  MotherOf = AppN2 (mkN2 mother_N "of") ;
+  FatherOf = AppN2 (mkN2 father_N "of") ;
 
   Big = ModPosA big_ADeg ;
   Long = ModPosA long_ADeg ;
diff --git a/examples/stoneage/StoneageSwe.gf b/examples/stoneage/StoneageSwe.gf
index d27f913bb..d18027a87 100644
--- a/examples/stoneage/StoneageSwe.gf
+++ b/examples/stoneage/StoneageSwe.gf
@@ -1,6 +1,6 @@
 --# -path=.:../../lib/resource/abstract:../../lib/prelude:../../lib/resource/swedish:../../lib/resource/scandinavian
 concrete StoneageSwe of Stoneage 
-  = open SyntaxSwe, ResourceSwe, SwadeshLexSwe, StoneageResSwe in {
+  = open SyntaxSwe, ResourceSwe, ParadigmsSwe, SwadeshLexSwe, StoneageResSwe in {
 
 lincat
   S = Phr ;
@@ -20,7 +20,7 @@ lin
   Smell = PresVasV2 smell_V ;
   Fear = PresVasV2 fear_V ;
   Kill = PresVasV2 kill_V ;
---  Fight = PresVasV2 fight_V ;
+  Fight = PresVasV2 fight_V ;
   Hunt = PresVasV2 hunt_V ;
   Hit = PresVasV2 hit_V ;
   Cut = PresVasV2 cut_V ;
@@ -41,7 +41,7 @@ lin
   Spit = PresV spit_V ;
   Vomit = PresV vomit_V ;
   Blow = PresV blow_V ;
---  Breathe = PresV breathe_V ;
+  Breathe = PresV breathe_V ;
   Laugh = PresV laugh_V ;
   Sleep = PresV sleep_V ;
   Live = PresV live_V ;
@@ -104,8 +104,8 @@ lin
   Child = UseN child_N ;
   Wife = UseN wife_N ;
   Husband = UseN husband_N ;
---  Mother = UseN2 mother_N2 ;
---  Father = UseN2 father_N2 ;
+  Mother = UseN mother_N ;
+  Father = UseN father_N ;
   Animal = UseN animal_N ;
   Fish = UseN fish_N ;
   Bird = UseN bird_N ;
@@ -184,8 +184,8 @@ lin
   Name = UseN name_N ;
 
 --  NameOf = AppN2 name_N2 ;
---  MotherOf = AppN2 mother_N2 ;
---  FatherOf = AppN2 father_N2 ;
+  MotherOf = AppN2 (mkN2 mother_N "till") ;
+  FatherOf = AppN2 (mkN2 father_N "till") ;
 
   Big = ModPosA big_ADeg ;
   Long = ModPosA long_ADeg ;
diff --git a/examples/stoneage/mkStoneage.gfs b/examples/stoneage/mkStoneage.gfs
new file mode 100644
index 000000000..ddbcedbad
--- /dev/null
+++ b/examples/stoneage/mkStoneage.gfs
@@ -0,0 +1,3 @@
+i -src -optimize=share examples/stoneage/StoneageEng.gf
+i -src -optimize=share examples/stoneage/StoneageSwe.gf
+pm -printer=gfcm | wf stoneage.gfcm
\ No newline at end of file