diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
| commit | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch) | |
| tree | 0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/Canon/CanonToGFCC.hs | |
| parent | fe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff) | |
removed src for 2.9
Diffstat (limited to 'src/GF/Canon/CanonToGFCC.hs')
| -rw-r--r-- | src/GF/Canon/CanonToGFCC.hs | 45 |
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 --} - |
