summaryrefslogtreecommitdiff
path: root/src/GF/Canon/CanonToGFCC.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:43:48 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:43:48 +0000
commitb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch)
tree0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/Canon/CanonToGFCC.hs
parentfe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff)
removed src for 2.9
Diffstat (limited to 'src/GF/Canon/CanonToGFCC.hs')
-rw-r--r--src/GF/Canon/CanonToGFCC.hs45
1 files changed, 0 insertions, 45 deletions
diff --git a/src/GF/Canon/CanonToGFCC.hs b/src/GF/Canon/CanonToGFCC.hs
deleted file mode 100644
index 044ea3669..000000000
--- a/src/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
--}
-