diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 11:59:31 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 11:59:31 +0000 |
| commit | df0c4f81fa9c620d7c63af79c0b183a6beccf0bd (patch) | |
| tree | 0cdc80b29f8f5df0ad280f17be0ba9d46fbd948c /src-3.0/GF/Canon/CanonToGFCC.hs | |
| parent | 6394f3ccfbb9d14017393b433a38a3921f1083e5 (diff) | |
remove all files that aren't used in GF-3.0
Diffstat (limited to 'src-3.0/GF/Canon/CanonToGFCC.hs')
| -rw-r--r-- | src-3.0/GF/Canon/CanonToGFCC.hs | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/src-3.0/GF/Canon/CanonToGFCC.hs b/src-3.0/GF/Canon/CanonToGFCC.hs deleted file mode 100644 index 044ea3669..000000000 --- a/src-3.0/GF/Canon/CanonToGFCC.hs +++ /dev/null @@ -1,45 +0,0 @@ -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 --} - |
