Significant advances in Maltese verb morphology

lib/src/maltese/NounMlt.gf

@@ -5,7 +5,49 @@
 -- Licensed under LGPL
 
 concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
-  flags optimize=noexpand ;
+
+  flags
+    optimize=noexpand ;
+
+  lin
+    -- Det -> CN -> NP
+    DetCN det cn = {
+      s = \\c => det.s ++ cn.s ! numnum2nounnum det.n ! NRegular ; 
+      a = case (numnum2nounnum det.n) of {
+	Singular _ => AgP3Sg cn.g ;
+	_ => AgP3Pl
+      }
+      -- s = \\c => det.s ++ cn.s ! det.n ! npcase2case c ; 
+      -- a = agrgP3 det.n cn.g
+    } ;
+
+    -- Quant -> Num -> Det
+    DetQuant quant num = {
+      s  = quant.s ! num.hasCard ! num.n ++ num.s ! NumNominative;
+      -- sp = \\c => case num.hasCard of {
+      --                False => quant.sp ! num.hasCard ! num.n ! c ++ num.s ! Nom ;
+      --                True  => quant.sp ! num.hasCard ! num.n ! npNom ++ num.s ! npcase2case c
+      --             } ;
+      n  = num.n ;
+      hasNum = num.hasCard
+    } ;
+
+    -- Quant
+    DefArt = {
+      s  = \\hasCard,n => artDef ;
+      -- sp = \\hasCard,n => case <n,hasCard> of {
+      --   <Sg,False> => table { NCase Gen => "its"; _ => "it" } ;
+      --   <Pl,False> => table { NCase Nom => "they"; NPAcc => "them"; NCase Gen => "theirs" } ;
+      --   _          => \\c => artDef
+      --   }
+    } ;
+
+    -- Num
+    NumSg = {s = \\c => []; n = Num_Sg ; hasCard = False} ;
+    NumPl = {s = \\c => []; n = Num_Pl ; hasCard = False} ;
+
+    UseN n = n ;
+    UseN2 n = n ;
 
 -- Card
 -- CN