"quello" in next-resource Italian corrected

lib/next-resource/api/Combinators.gf

@@ -34,7 +34,11 @@ incomplete resource Combinators = open Grammar in {
       app : N2 -> NP -> NP ; 
       app : N3 -> NP -> NP -> NP ;
       app : N2 -> NP -> NP -> NP ;
-      app : N2 -> N -> CN
+      app : N2 -> N  -> CN ;
+
+      app : N2 -> NP -> CN ;         -- divisor of x
+      app : N3 -> NP -> NP -> CN ;   -- path from x to y
+      app : N2 -> NP -> NP -> CN ;   -- path between x and y
       } ;
 
 --2 Coordination
@@ -126,7 +130,12 @@ incomplete resource Combinators = open Grammar in {
       app : N2 -> NP -> NP -> NP
                                        = \n,x,y -> (DetArtSg DefArt (ComplN2 n (ConjNP and_Conj (BaseNP x y)))) ;
       app : N2 -> N -> CN
-                                       = \f,n -> ComplN2 f (DetArtPl (IndefArt) (UseN n))
+                                       = \f,n -> ComplN2 f (DetArtPl (IndefArt) (UseN n)) ;
+
+      app : N2 -> NP -> CN = ComplN2 ;
+      app : N3 -> NP -> NP -> CN = \n,x,y -> ComplN2 (ComplN3 n x) y ; 
+      app : N2 -> NP -> NP -> CN = \n,x,y -> 
+        ComplN2 n (ConjNP and_Conj (BaseNP x y)) ;
       } ;
 
     coord = overload {

lib/next-resource/api/CombinatorsAra.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsAra = Combinators with (Grammar = GrammarAra) ;

lib/next-resource/api/CombinatorsBul.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsBul = Combinators with (Grammar = GrammarBul) ;

lib/next-resource/api/CombinatorsCat.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsCat = Combinators with (Grammar = GrammarCat) ;

lib/next-resource/api/CombinatorsDan.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsDan = Combinators with (Grammar = GrammarDan) ;

lib/next-resource/api/CombinatorsFin.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsFin = Combinators with (Grammar = GrammarFin) ;

lib/next-resource/api/CombinatorsFre.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsFre = Combinators with (Grammar = GrammarFre) ;

lib/next-resource/api/CombinatorsGer.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsGer = Combinators with (Grammar = GrammarGer) ;

lib/next-resource/api/CombinatorsHin.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsHin = Combinators with (Grammar = GrammarHin) ;

lib/next-resource/api/CombinatorsIna.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsIna = Combinators with (Grammar = GrammarIna) ;

lib/next-resource/api/CombinatorsIta.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsIta = Combinators with (Grammar = GrammarIta) ;

lib/next-resource/api/CombinatorsNor.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsNor = Combinators with (Grammar = GrammarNor) ;

lib/next-resource/api/CombinatorsRus.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsRus = Combinators with (Grammar = GrammarRus) ;

lib/next-resource/api/CombinatorsSpa.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsSpa = Combinators with (Grammar = GrammarSpa) ;

lib/next-resource/api/CombinatorsSwe.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsSwe = Combinators with (Grammar = GrammarSwe) ;

lib/next-resource/api/CombinatorsTha.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsTha = Combinators with (Grammar = GrammarTha) ;

lib/next-resource/api/Syntax.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-interface Syntax = Constructors, Cat, Structural, Numeral ;
+interface Syntax = Constructors, Cat, Structural, Combinators ;
 

lib/next-resource/api/SyntaxBul.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxBul of Syntax = ConstructorsBul, CatBul, StructuralBul, NumeralBul ;
+instance SyntaxBul of Syntax = ConstructorsBul, CatBul, StructuralBul, CombinatorsBul ;
 

lib/next-resource/api/SyntaxCat.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxCat of Syntax = ConstructorsCat, CatCat, StructuralCat, NumeralCat ;
+instance SyntaxCat of Syntax = ConstructorsCat, CatCat, StructuralCat, CombinatorsCat ;
 

lib/next-resource/api/SyntaxDan.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxDan of Syntax = ConstructorsDan, CatDan, StructuralDan, NumeralDan ;
+instance SyntaxDan of Syntax = ConstructorsDan, CatDan, StructuralDan, CombinatorsDan ;
 

lib/next-resource/api/SyntaxEng.gf

@@ -1,4 +1,5 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxEng of Syntax = ConstructorsEng, CatEng, StructuralEng, NumeralEng ;
+instance SyntaxEng of Syntax = 
+  ConstructorsEng, CatEng, StructuralEng, CombinatorsEng ;
 

lib/next-resource/api/SyntaxFin.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxFin of Syntax = ConstructorsFin, CatFin, StructuralFin, NumeralFin ;
+instance SyntaxFin of Syntax = ConstructorsFin, CatFin, StructuralFin, CombinatorsFin ;
 

lib/next-resource/api/SyntaxFre.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxFre of Syntax = ConstructorsFre, CatFre, StructuralFre, NumeralFre ;
+instance SyntaxFre of Syntax = ConstructorsFre, CatFre, StructuralFre, CombinatorsFre ;
 

lib/next-resource/api/SyntaxGer.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxGer of Syntax = ConstructorsGer, CatGer, StructuralGer, NumeralGer ;
+instance SyntaxGer of Syntax = ConstructorsGer, CatGer, StructuralGer, CombinatorsGer ;
 

lib/next-resource/api/SyntaxIta.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxIta of Syntax = ConstructorsIta, CatIta, StructuralIta, NumeralIta ;
+instance SyntaxIta of Syntax = ConstructorsIta, CatIta, StructuralIta, CombinatorsIta ;
 

lib/next-resource/api/SyntaxNor.gf

@@ -1,5 +1,5 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxNor of Syntax = ConstructorsNor, CatNor, StructuralNor, NumeralNor
+instance SyntaxNor of Syntax = ConstructorsNor, CatNor, StructuralNor, CombinatorsNor
  ;
 

lib/next-resource/api/SyntaxRus.gf

@@ -1,4 +1,4 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxRus of Syntax = ConstructorsRus, CatRus, StructuralRus, NumeralRus ;
+instance SyntaxRus of Syntax = ConstructorsRus, CatRus, StructuralRus, CombinatorsRus ;
 

lib/next-resource/api/SyntaxSpa.gf

@@ -1,4 +1,5 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxSpa of Syntax = ConstructorsSpa, CatSpa, StructuralSpa, NumeralSpa ;
+instance SyntaxSpa of Syntax = 
+  ConstructorsSpa, CatSpa, StructuralSpa, CombinatorsSpa ;
 

lib/next-resource/api/SyntaxSwe.gf

@@ -1,4 +1,5 @@
 --# -path=.:alltenses:prelude
 
-instance SyntaxSwe of Syntax = ConstructorsSwe, CatSwe, StructuralSwe, NumeralSwe ;
+instance SyntaxSwe of Syntax = 
+  ConstructorsSwe, CatSwe, StructuralSwe, CombinatorsSwe ;
 

lib/next-resource/italian/StructuralIta.gf

@@ -82,13 +82,16 @@ lin
   something_NP = pn2np (mkPN ["qualche cosa"] Masc) ;
   somewhere_Adv = ss ["qualche parte"] ;
   that_Quant = let
-    quello : Number => Gender => Case => Str = table {
-      Sg => \\g,c => prepCase c ++ genForms "quello" "quella" ! g ;
-      Pl => \\g,c => prepCase c ++ genForms "quelli" "quelle" ! g ---- quegli
+    quello : Str -> Str -> Number => Gender => Case => Str = 
+     \quel, quelli -> table {
+      Sg => \\g,c => prepCase c ++ genForms quel "quella" ! g ;
+      Pl => \\g,c => prepCase c ++ genForms quelli "quelle" ! g ---- quegli
       }
     in {
-      s = \\_ => quello ;
-      sp = quello ;
+      s = \\_ => 
+        quello (elision "quel" "quell'" "quello") 
+               (elision "quelli" "quegli" "quegli")  ;
+      sp = quello "quello" "quelli" ;
       s2 = []
       } ;