starting GFCC format

src/GF/UseGrammar/Custom.hs

@@ -34,6 +34,7 @@ import GF.Grammar.Values
 import qualified GF.Grammar.Grammar as G
 import qualified GF.Canon.AbsGFC as A
 import qualified GF.Canon.GFC as C
+import qualified GF.Canon.CanonToGFCC as GFCC
 import qualified GF.Source.AbsGF as GF
 import qualified GF.Grammar.MMacros as MM
 import GF.Grammar.AbsCompute
@@ -341,6 +342,7 @@ customMultiGrammarPrinter =
   customData "Printers for multiple grammars, selected by option -printer=x" $
   [
    (strCI "gfcm", const MC.prCanon)
+  ,(strCI "gfcc", const GFCC.prCanon2gfcc)
   ,(strCI "header", const (MC.prCanonMGr . unoptimizeCanon))
   ,(strCI "cfgm", prCanonAsCFGM)
   ,(strCI "graph", visualizeCanonGrammar)

src/GF/UseGrammar/Linear.hs

@@ -153,6 +153,7 @@ unoptimizeCanonMod g = convMod where
       ps  <- mapM term2patt vs
       return $ T ty [Cas [p] t | (p,t) <- zip ps ts]
     FV ts -> liftM FV $ mapM exp ts
+    I _ -> comp t
     _ -> composOp exp t
    where
      alls = allParamValues g