GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-11 20:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Generate monolithic FAs by expanding an MFA.

Browse Source
This commit is contained in:
bringert
2006-01-05 20:35:22 +00:00
parent 7faaa9772b
commit dc3f7e1d61
4 changed files with 72 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -78,7 +78,7 @@ renameSubs (MFA main subs) = MFA (renameLabels main) subs'
slfGraphvizPrinter :: Ident -> Options -> CGrammar -> String
slfGraphvizPrinter name opts cfg
= prFAGraphviz $ gvFA $ slfStyleFA $ cfgToFA opts cfg
= prFAGraphviz $ gvFA $ slfStyleFA $ cfgToFA' opts cfg
where
gvFA = mapStates (fromMaybe "") . mapTransitions (const "")
@@ -116,7 +116,7 @@ gvSLFFA n fa =
slfPrinter :: Ident -> Options -> CGrammar -> String
slfPrinter name opts cfg
= prSLF (automatonToSLF mkSLFNode $ slfStyleFA $ cfgToFA opts cfg) ""
= prSLF (automatonToSLF mkSLFNode $ slfStyleFA $ cfgToFA' opts cfg) ""
--
-- * SLF printing (with sub-networks)