GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Renamed removeEmptyCats to bottomUpFilter.

Browse Source
This commit is contained in:
bringert
2007-03-20 21:15:59 +00:00
parent e31ccc4567
commit a473281c65
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/CFGToFiniteState.hs
View File

@@ -63,7 +63,7 @@ cfgToFA opts s = minimize $ compileAutomaton start $ makeSimpleRegular s
where start = getStartCatCF opts s where start = getStartCatCF opts s
makeSimpleRegular :: StateGrammar -> CFRules makeSimpleRegular :: StateGrammar -> CFRules
makeSimpleRegular = makeRegular . removeIdenticalRules . removeEmptyCats . cfgToCFRules makeSimpleRegular = makeRegular . removeIdenticalRules . bottomUpFilter . cfgToCFRules
-- --
-- * Approximate context-free grammars with regular grammars. -- * Approximate context-free grammars with regular grammars.

2
src/GF/Speech/SRG.hs
View File

@@ -96,7 +96,7 @@ makeSimpleSRG opt s =
l = fmap (replace '_' '-') $ getOptVal opts speechLanguage l = fmap (replace '_' '-') $ getOptVal opts speechLanguage
(cats,cfgRules) = unzip $ preprocess $ cfgToCFRules s (cats,cfgRules) = unzip $ preprocess $ cfgToCFRules s
preprocess = removeLeftRecursion origStart preprocess = removeLeftRecursion origStart
. removeEmptyCats . bottomUpFilter
. topDownFilter origStart . topDownFilter origStart
. removeIdenticalRules . removeIdenticalRules
. removeCycles . removeCycles

4
src/GF/Speech/TransformCFG.hs
View File

@@ -87,8 +87,8 @@ stateGFCC :: StateGrammar -> GFCC
stateGFCC = mkGFCC . mkCanon2gfcc . stateGrammarST stateGFCC = mkGFCC . mkCanon2gfcc . stateGrammarST
-- | Remove productions which use categories which have no productions -- | Remove productions which use categories which have no productions
removeEmptyCats :: CFRules -> CFRules bottomUpFilter :: CFRules -> CFRules
removeEmptyCats = fix removeEmptyCats' bottomUpFilter = fix removeEmptyCats'
where where
removeEmptyCats' :: CFRules -> CFRules removeEmptyCats' :: CFRules -> CFRules
removeEmptyCats' rs = k' removeEmptyCats' rs = k'