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 => <[],[]> ;

lib/resource-1.0/italian/IdiomIta.gf

@@ -0,0 +1,7 @@
+concrete IdiomIta of Idiom = CatIta ** 
+  open MorphoIta, ParadigmsIta, Prelude in {
+
+  flags optimize=all_subs ;
+
+}
+

lib/resource-1.0/italian/LangIta.gf

@@ -11,10 +11,12 @@ concrete LangIta of Lang =
   RelativeIta,
   ConjunctionIta,
   PhraseIta,
+  TextX,
+  IdiomIta,
   StructuralIta,
   LexiconIta
   ** {
 
-flags startcat = Phr ;
+flags startcat = Phr ; unlexer = text ; lexer = text ;
 
 } ;

lib/resource-1.0/italian/LexiconIta.gf

@@ -23,7 +23,7 @@ lin
   bike_N = regN "bicicletta" ;
   bird_N = regN "uccello" ;
   black_A = regADeg "nero" ;
-  blue_A = regADeg "blù" ;
+  blue_A = mkA "blù" "blù" "blù" "blù" "blumente" ;
   boat_N = regN "batello" ;
   book_N = regN "libro" ;
   boot_N = regN "stivale" ;