msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

remove some redundant dependencies from FCFG

Browse Source
This commit is contained in:
kr.angelov
2007-09-23 20:01:25 +00:00
parent 0285771c41
commit 9efddd16ce
12 changed files with 13 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/GF/Conversion/SimpleToFCFG.hs
View File

@@ -13,11 +13,9 @@
module GF.Conversion.SimpleToFCFG
(convertGrammar,convertGrammarCId,FCat(..)) where
(convertGrammar,FCat(..)) where
import GF.System.Tracing
import GF.Infra.PrintClass
import GF.Infra.Ident
import Control.Monad
@@ -42,13 +40,8 @@ import Data.Maybe
type FToken = String
convertGrammar :: Grammar -> [(Ident,FCFGrammar FCat FName FToken)]
convertGrammar g = [(IC c, f) | (CId c,f) <- convertGrammarCId (mkGFCC g)]
-- this is more native for GFCC
convertGrammarCId :: GFCC -> [(CId,FCFGrammar FCat FName FToken)]
convertGrammarCId gfcc = [(cncname,convert abs_defs conc) |
convertGrammar :: GFCC -> [(CId,FCFGrammar FCat FName FToken)]
convertGrammar gfcc = [(cncname,convert abs_defs conc) |
cncname <- cncnames gfcc, conc <- Map.lookup cncname (concretes gfcc)]
where