GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 15:52:50 -06:00
Code Issues Packages Projects Releases Wiki 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

1
src/GF/Conversion/FTypes.hs
View File

@@ -1,6 +1,5 @@
module GF.Conversion.FTypes where
import qualified GF.Infra.Ident as Ident (Ident(..), wildIdent, isWildIdent)
import qualified GF.Canon.GFCC.AbsGFCC as AbsGFCC (CId(..))
import GF.Formalism.FCFG

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