Maltese: all functions implemented (though not necessarily correct)

Oh, and glad Valborg!

lib/src/maltese/IdiomMlt.gf

@@ -6,5 +6,72 @@
 
 concrete IdiomMlt of Idiom = CatMlt ** open Prelude, ResMlt in {
 
+  lin
+    -- VP -> Cl ;        -- it is hot
+    ImpersCl vp = mkClause "" (agrP3 Sg Masc) vp ;
+
+    -- VP -> Cl ;        -- one sleeps
+    GenericCl vp = mkClause "wieħed" (agrP3 Sg Masc) vp ;
+
+    -- NP -> RS -> Cl ; -- it is I who did it
+    CleftNP np rs = {
+      s = \\t,a,p,o => case p of {
+        Pos => np.s ! NPNom ++ kont ++ "li" ++ rs.s ! np.a ; -- jiena kont li qrajt il-ktieb
+        Neg => "mhux" ++ np.s ! NPNom ++ kont ++ "li" ++ rs.s ! np.a -- mhux jiena kont li qrajt il-ktieb
+        }
+      where {
+        kont : Str = case t of {
+          Pres => copula_kien.s ! VImpf (toVAgr np.a) ;
+          Past => copula_kien.s ! VPerf (toVAgr np.a) ;
+          Fut  => "ser" ++ copula_kien.s ! VImpf (toVAgr np.a) ;
+          Cond => "kieku" ++ copula_kien.s ! VPerf (toVAgr np.a)
+          } ;
+        }
+      } ;
+
+    -- Adv -> S -> Cl ; -- it is here she slept
+    CleftAdv adv s = {
+      s = \\t,a,p,o => adv.s ++ s.s ;
+      } ;
+
+    -- NP -> Cl ;        -- there is a house
+    ExistNP np = {
+      s = \\t,a,p,o => auxHemm.s ! t ! p ++ np.s ! NPAcc ;
+      } ;
+
+    -- IP -> QCl ;       -- which houses are there
+    ExistIP ip = {
+      s = \\t,a,p,o => ip.s ++ auxHemm.s ! t ! p ;
+      } ;
+
+    -- NP -> Adv -> Cl ;    -- there is a house in Paris
+    ExistNPAdv np adv = {
+      s = \\t,a,p,o => auxHemm.s ! t ! p ++ np.s ! NPAcc ++ adv.s ;
+      } ;
+
+    -- IP -> Adv -> QCl ;   -- which houses are there in Paris
+    ExistIPAdv ip adv = {
+      s = \\t,a,p,o => ip.s ++ auxHemm.s ! t ! p ++ adv.s ;
+      } ;
+
+    -- VP -> VP ;        -- be sleeping
+    ProgrVP vp = predV copula_kien ** {
+      s2 = \\agr => joinVParts (vp.s ! VPIndicat Pres agr ! Simul ! Pos)
+      } ;
+
+    -- VP -> Utt ;       -- let's go
+    ImpPl1 vp = {
+      s = "ejja" ++ infVP vp Simul Pos (mkAgr Pl P1 Masc)
+      } ;
+
+    -- NP -> VP -> Utt ; -- let John walk
+    ImpP3 np vp = {
+        s = halli ++ np.s ! NPAcc ++ infVP vp Simul Pos np.a
+      } where {
+        halli : Str = case np.a.n of {
+          Sg => "ħalli" ;
+          Pl => "ħallu"
+          }
+      } ;
 
 }