From e037fe087f5ebb90deab1624843d6d645749d5ac Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Wed, 9 Mar 2005 19:34:27 +0000
Subject: [PATCH] Fixed a number of error in swedish verbs, swadesh and
 stoneage grammars found by random generation and just talking to the system.

---
 examples/stoneage/StoneageEng.gf |  3 +++
 examples/stoneage/StoneageSwe.gf | 11 ++++++++---
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/examples/stoneage/StoneageEng.gf b/examples/stoneage/StoneageEng.gf
index ed5c1c3c0..2db6ac8c2 100644
--- a/examples/stoneage/StoneageEng.gf
+++ b/examples/stoneage/StoneageEng.gf
@@ -3,6 +3,9 @@ concrete StoneageEng of Stoneage
   = open SyntaxEng, ResourceEng, ParadigmsEng, SwadeshLexEng,
   StoneageResEng in {
 
+flags
+  startcat=S;
+
 lincat
   S = Phr ;
   NP = NP ;
diff --git a/examples/stoneage/StoneageSwe.gf b/examples/stoneage/StoneageSwe.gf
index d18027a87..4e90376bb 100644
--- a/examples/stoneage/StoneageSwe.gf
+++ b/examples/stoneage/StoneageSwe.gf
@@ -1,6 +1,9 @@
 --# -path=.:../../lib/resource/abstract:../../lib/prelude:../../lib/resource/swedish:../../lib/resource/scandinavian
 concrete StoneageSwe of Stoneage 
-  = open SyntaxSwe, ResourceSwe, ParadigmsSwe, SwadeshLexSwe, StoneageResSwe in {
+  = open SyntaxSwe, ResourceSwe, ParadigmsSwe, VerbsSwe, SwadeshLexSwe, StoneageResSwe in {
+
+flags
+  startcat=S;
 
 lincat
   S = Phr ;
@@ -17,10 +20,12 @@ lin
   Hear = PresVasV2 hear_V ;
   Know = PresVasV2 know_V ;
   Think = PresVasV2 think_V ;
-  Smell = PresVasV2 smell_V ;
+  Smell s o = PresCl (SPredV2 s (dirV2 känna_V) (DefOneNP 
+                           (AdvCN (UseN (mk2N "lukt" "lukter")) 
+                                  (PrepNP possess_Prep o)))) ;
   Fear = PresVasV2 fear_V ;
   Kill = PresVasV2 kill_V ;
-  Fight = PresVasV2 fight_V ;
+  Fight s o = PresCl (AdvCl (SPredV s fight_V) (AdvPP (PrepNP with_Prep o))) ;
   Hunt = PresVasV2 hunt_V ;
   Hit = PresVasV2 hit_V ;
   Cut = PresVasV2 cut_V ;