From 1d2bd650195403a999767091ac6d7c77f018348e Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 25 Aug 2017 14:43:55 +0300
Subject: [PATCH] Small fixes in order to make Extensions and Translate grammar
 and Chunk to work

---
 src/basque/ResEus.gf    | 10 +++++++---
 src/basque/SymbolEus.gf | 22 +++++++++++++++-------
 2 files changed, 22 insertions(+), 10 deletions(-)

diff --git a/src/basque/ResEus.gf b/src/basque/ResEus.gf
index 5dc60db1..32019b73 100644
--- a/src/basque/ResEus.gf
+++ b/src/basque/ResEus.gf
@@ -199,8 +199,12 @@ oper
 ---      { Abs => "hargle"; Erg => "bargle" }
 -- the field .agr. is of type Agr.   
 
-  buru_NP : NounPhrase = { s = \\_ => "buru" ;
-                           stem = "buru" ;
+  buru_NP : NounPhrase = 
+    empty_NP ** { s = \\_ => "buru" ;
+                  stem = "buru" } ;
+
+  empty_NP : NounPhrase = { s = \\_ => [] ;
+                           stem = [] ;
                            agr = Hau ; 
                            anim = Anim ; 
                            isDef = True } ;
@@ -472,7 +476,7 @@ oper
   clFromSlash : NounPhrase -> ClSlash -> Clause = \o,cls -> 
     let obj = o ** { s = mkDObj o } ;
         vp = cls ** { dobj = obj } ; --Insert the object's agr into the cls's dobj!
-        subj = buru_NP ** cls.subj ; -- Just a dummy NP, we won't use more than is in cls.subj
+        subj = empty_NP ** cls.subj ; -- Just a dummy NP, we won't use more than is in cls.subj
      in mkClause True subj vp ;
 
   mkClause : (isIP : Bool) -> NounPhrase -> VerbPhrase -> Clause = \isIP,subj,vp ->
diff --git a/src/basque/SymbolEus.gf b/src/basque/SymbolEus.gf
index afa90821..ec622a2a 100644
--- a/src/basque/SymbolEus.gf
+++ b/src/basque/SymbolEus.gf
@@ -5,17 +5,25 @@ concrete SymbolEus of Symbol = CatEus ** open Prelude, ParadigmsEus, ResEus, (NE
 lin
 
   --  : Symb -> PN ;                -- x
-  SymbPN i = mkPNoun i.s ; 
+  SymbPN i = symbPN i.s ; 
 
-  -- : Int -> PN ;                 -- 27
-  IntPN i  = mkPNoun i.s ;
+  ---- : Int -> PN ;                 -- 27
+  IntPN i  = symbPN i.s ;
 
-  -- : Float -> PN ;               -- 3.14159
-  FloatPN i = mkPNoun i.s ;
+  ---- : Float -> PN ;               -- 3.14159
+  FloatPN i = symbPN i.s ;
 
-  -- : Card -> PN ;                -- twelve [as proper name]
-  NumPN i = mkPNoun i.s ;
+  ---- : Card -> PN ;                -- twelve [as proper name]
+  NumPN i = symbPN i.s ;
 
+oper
+  symbPN : Str -> PN = \symb -> lin PN 
+    { s = symb ;
+      ph = FinalCons ;
+      anim = Inan ;
+      nbr = Pl } ;
+
+lin
 --  CNIntNP cn i = {} ;
 
   -- : Det -> CN -> [Symb] -> NP ; -- (the) (2) numbers x and y