completed IdiomCat to compile api and math

lib/resource/Make.hs

@@ -52,7 +52,7 @@ langs = map fst langsCoding
 langsLang = langs `except` ["Ara"]
 
 -- languages for which to compile Try 
-langsAPI  = langsLang `except` ["Ara","Bul","Cat","Hin","Ina","Rus","Tha"]
+langsAPI  = langsLang `except` ["Ara","Bul","Hin","Ina","Rus","Tha"]
 
 -- languages for which to compile Mathematical 
 langsMath = langsAPI

lib/resource/catalan/IdiomCat.gf

@@ -21,4 +21,32 @@ concrete IdiomCat of Idiom = CatCat **
         )
         (predV (verbV (estar_54 "estar"))) ;
 
+----AR, for completeness
+
+    CleftNP np rs = mkClause [] True (agrP3 Masc Sg) 
+      (insertComplement (\\_ => rs.s ! Indic ! np.a)
+        (insertComplement (\\_ => np.s ! Ton rs.c) (predV copula))) ;
+
+
+    ExistIP ip = {
+      s = \\t,a,p,_ =>
+        ip.s ! Nom ++ 
+        (mkClause [] True 
+          (agrP3 Masc Sg) 
+          (insertClit2 "hi" (insertComplement (\\_ => ip.s ! Acc) (predV haver_V))))
+          .s ! DDir ! t ! a ! p ! Indic
+      } ;
+
+    ImpPl1 vpr = let vp = useVP vpr in {s =
+      (mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
+      } ;
+
+    CleftAdv ad s = mkClause [] True (agrP3 Masc Sg) 
+      (insertComplement (\\_ => conjThat ++ s.s ! Indic)
+        (insertComplement (\\_ => ad.s) (predV copula))) ;
+
+        
+
+
+
 }

lib/resource/mathematical/MathematicalCat.gf

@@ -0,0 +1,26 @@
+--# -path=.:present:prelude
+
+concrete MathematicalCat of Mathematical = 
+  NounCat - [ComplN2], --- to avoid ambiguity 
+--  VerbCat, 
+  AdjectiveCat,
+  AdverbCat,
+  NumeralCat,
+--  SentenceCat,
+  QuestionCat,
+  RelativeCat,
+  ConjunctionCat,
+  PhraseCat,
+  TextX - [Tense,TPres,TPast,TFut,TCond],
+  IdiomCat,
+  StructuralCat,
+
+  SymbolCat,
+  PredicationCat, --  - [predV3,predV2], --- gf bug
+
+  LexiconCat
+  ** {
+
+flags startcat = Phr ;
+
+} ;

lib/resource/mathematical/PredicationCat.gf

@@ -0,0 +1,4 @@
+concrete PredicationCat of Predication = CatCat ** PredicationI with
+  (Syntax = SyntaxCat),
+  (Lang = LangCat) ;
+

lib/resource/mathematical/SymbolCat.gf

@@ -0,0 +1,2 @@
+concrete SymbolCat of Symbol = CatCat ** SymbolRomance with
+  (ResRomance = ResCat) ;

lib/resource/mathematical/SymbolicCat.gf

@@ -0,0 +1,5 @@
+--# -path=.:present:mathematical:prelude
+
+resource SymbolicCat = Symbolic with 
+  (Symbol = SymbolCat),
+  (Grammar = GrammarCat) ;

src/GF/Compile/GrammarToGFCC.hs

@@ -33,8 +33,8 @@ import qualified Data.ByteString.Char8 as BS
 import Debug.Trace ----
 
 -- when developing, swap commenting
---traceD s t = trace s t 
-traceD s t = t 
+traceD s t = trace s t 
+--traceD s t = t 
 
 
 -- the main function: generate PGF from GF.