From 3d6565814f507615ff63375681530ca5351eff87 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Fri, 25 Feb 2005 12:59:05 +0000
Subject: [PATCH] Added some missing lincats needed to make SwadeshLexEng work.

---
 lib/resource/english/CategoriesEng.gf |  1 +
 lib/resource/english/NumeralsEng.gf   |  1 +
 lib/resource/english/SwadeshLexEng.gf | 16 ++++++++--------
 3 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/lib/resource/english/CategoriesEng.gf b/lib/resource/english/CategoriesEng.gf
index 100e5963e..4081d5c8b 100644
--- a/lib/resource/english/CategoriesEng.gf
+++ b/lib/resource/english/CategoriesEng.gf
@@ -90,6 +90,7 @@ lincat
 
   IP     = {s : NPForm => Str ; n : Number ; g : Gender} ;
   IDet   = {s : Str ; n : Number} ;
+  IAdv   = {s : Str } ;
   QCl    = {s : Bool => SForm => QuestForm => Str} ;
   QS     = {s :                  QuestForm => Str} ;
   Imp    = {s : Number => Str} ;
diff --git a/lib/resource/english/NumeralsEng.gf b/lib/resource/english/NumeralsEng.gf
index 5124fdc43..30fbe6fe9 100644
--- a/lib/resource/english/NumeralsEng.gf
+++ b/lib/resource/english/NumeralsEng.gf
@@ -1,5 +1,6 @@
 concrete NumeralsEng of Numerals = open Prelude, MorphoEng in {
 
+lincat Numeral = { s : Str } ;
 lincat Digit = {s : DForm => Str} ;
 lincat Sub10 = {s : DForm => Str} ;
 
diff --git a/lib/resource/english/SwadeshLexEng.gf b/lib/resource/english/SwadeshLexEng.gf
index f9d1b8001..8a7f6f494 100644
--- a/lib/resource/english/SwadeshLexEng.gf
+++ b/lib/resource/english/SwadeshLexEng.gf
@@ -34,20 +34,20 @@ concrete SwadeshLexEng of SwadeshLex = CategoriesEng
 
     here_Adv = here_Adv;
     there_Adv = there_Adv;
---    where_IAdv = where_IAdv;
---    when_IAdv = when_IAdv;
---    how_IAdv = how_IAdv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
 
     -- not : Adv ; -- ?
 
 
     -- Numerals
 
---    one_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01)))) ;
---    two_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
---    three_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
---    four_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
---    five_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+    one_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01)))) ;
+    two_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
 
     -- Adjectives