extensions by Codex

src/spanish/ConstructionSpa.gf

@@ -31,6 +31,10 @@ lin
   is_wrong_VP = mkVP (mkVA I.estar_V) (mkAP (mkA "equivocado")) ;
 
   n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
+  n_units_of_NP card cn np =
+    mkNP card (lin CN (cn ** {
+      s = \\n => cn.s ! n ++ (np.s ! R.genitive).ton
+      })) ;
 
   bottle_of_CN np = mkCN (lin N2 (mkN2 (mkN "botella" feminine) part_Prep)) np ;
   cup_of_CN    np = mkCN (lin N2 (mkN2 (mkN "taza") part_Prep)) np ;
@@ -82,6 +86,7 @@ lin InLanguage l = SyntaxSpa.mkAdv (mkPrep "en") (mkNP l) ;
 
 lin
   weekdayN w = w ;
+  monthN m = m ;
 
   weekdayPN w = mkPN w ;
   monthPN m = mkPN m ;