Tense to Common ; Idiom ; Text

lib/resource-1.0/italian/DiffIta.gf

@@ -100,6 +100,20 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
        in
        <pdat ++ pacc, []> ;
 
+    mkImperative vp = {
+      s = \\pol,aag => 
+        let 
+          agr   = aag ** {p = P2} ;
+          verb  = case <aag.n, pol> of {
+            <Sg,Neg> => (vp.s ! VPInfinit Simul).inf ! aag ;
+            _ => (vp.s ! VPImperat).fin ! agr
+            } ;
+          neg   = vp.neg ! pol ;
+          clpr  = pronArg agr.n agr.p vp.clAcc vp.clDat ;
+          compl = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! pol
+        in
+        neg.p1 ++ verb ++ clpr.p1 ++ compl ;
+      } ;
 
     negation : Polarity => (Str * Str) = table {
       Pos => <[],[]> ;