(Som) Add ImpVP and UttImp{Sg,Pl,Pol}

src/somali/CatSom.gf

@@ -16,7 +16,7 @@ concrete CatSom of Cat = CommonX - [Adv,IAdv] ** open ResSom, Prelude in {
     Cl = ResSom.ClSlash ;
     ClSlash = ResSom.ClSlash ;
     SSlash  = ResSom.Sentence ; -- sentence missing NP; e.g. "she has looked at"
-    Imp     = SS ;              -- imperative             e.g. "look at this"
+    Imp     = {s : Number => Polarity => Str} ; -- imperative             e.g. "look at this"
 
 --2 Questions and interrogatives
 

src/somali/PhraseSom.gf

@@ -8,9 +8,11 @@ concrete PhraseSom of Phrase = CatSom ** open Prelude, ResSom in {
     UttIAdv iadv = iadv ;
 
     UttImpSg pol imp =
-      let ma = case pol.p of { Pos => [] ; Neg => "ma" }
-      in { s = ma ++ imp.s } ;
-    UttImpPl = UttImpSg ;
+      let ha = case pol.p of {Pos => [] ; Neg => "ha"}
+      in {s = ha ++ imp.s ! Sg ! pol.p} ;
+    UttImpPl pol imp =
+      let ha = case pol.p of {Pos => [] ; Neg => "ha"}
+       in {s = ha ++ imp.s ! Pl ! pol.p} ;
     UttImpPol = UttImpSg ;
 
     UttIP ip = {s = ip.s ! Abs} ;

src/somali/SentenceSom.gf

@@ -29,12 +29,12 @@ lin
   --  : Temp -> Pol -> ClSlash -> SSlash ; -- (that) she had not seen
   UseSlash t p cls = {
     s = \\isSubord => let cl = cl2sentence isSubord cls in
-        t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p 
+        t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
     } ;
 
 --2 Imperatives
   -- : VP -> Imp ;
- --ImpVP vp = { s = linVP vp } ;
+  ImpVP vp = {s = \\num,pol => linVP (VImp num pol) Statement vp} ;
 
 --2 Embedded sentences
 
@@ -54,7 +54,7 @@ lin
   -- : Temp -> Pol -> Cl -> S ;
   UseCl t p cls = {
     s = \\isSubord => let cl = cl2sentence isSubord cls in
-        t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p 
+        t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
     } ;
 
   -- : Temp -> Pol -> QCl -> QS ;