forked from GitHub/gf-core
46 lines
1.3 KiB
Haskell
46 lines
1.3 KiB
Haskell
module GF.Canon.CanonToGFCC where
|
|
|
|
import GF.Devel.GrammarToGFCC
|
|
import GF.Devel.PrintGFCC
|
|
import GF.GFCC.CheckGFCC (checkGFCCmaybe)
|
|
import GF.GFCC.OptimizeGFCC
|
|
import GF.Canon.AbsGFC
|
|
import GF.Canon.GFC
|
|
import GF.Canon.CanonToGrammar
|
|
import GF.Canon.Subexpressions
|
|
import GF.Devel.PrintGFCC
|
|
import GF.Grammar.PrGrammar
|
|
|
|
import qualified GF.Infra.Modules as M
|
|
import GF.Infra.Option
|
|
|
|
import GF.Data.Operations
|
|
import GF.Text.UTF8
|
|
|
|
canon2gfccPr opts = printGFCC . canon2gfcc opts
|
|
canon2gfcc opts = source2gfcc opts . canon2source ----
|
|
canon2source = err error id . canon2sourceGrammar . unSubelimCanon
|
|
|
|
source2gfcc opts gf =
|
|
let
|
|
(abs,gfcc) = mkCanon2gfcc opts (gfcabs gf) gf
|
|
gfcc1 = maybe undefined id $ checkGFCCmaybe gfcc
|
|
in addParsers $ if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1
|
|
|
|
gfcabs gfc =
|
|
prt $ head $ M.allConcretes gfc $ maybe (error "no abstract") id $
|
|
M.greatestAbstract gfc
|
|
|
|
{-
|
|
-- this variant makes utf8 conversion; used in back ends
|
|
mkCanon2gfcc :: CanonGrammar -> D.GFCC
|
|
mkCanon2gfcc =
|
|
-- canon2gfcc . reorder abs . utf8Conv . canon2canon abs
|
|
optGFCC . canon2gfcc . reorder . utf8Conv . canon2canon . normalize
|
|
|
|
-- this variant makes no utf8 conversion; used in ShellState
|
|
mkCanon2gfccNoUTF8 :: CanonGrammar -> D.GFCC
|
|
mkCanon2gfccNoUTF8 = optGFCC . canon2gfcc . reorder . canon2canon . normalize
|
|
-}
|
|
|