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

Started working on make_fa.

Browse Source
This commit is contained in:
bringert
2005-09-08 14:40:49 +00:00
parent 9508120dd1
commit 832a2219c5
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/09/08 15:39:12 $
-- > CVS $Date: 2005/09/08 15:40:49 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.17 $
-- > CVS $Revision: 1.18 $
--
-- This module does some useful transformations on CFGs.
--
@@ -148,8 +148,8 @@ make_fa :: State -> [Symbol Cat_ Token] -> State
-> CFRules -> FA () (Maybe Token) -> FA () (Maybe Token)
make_fa q0 a q1 g fa =
case a of
[] -> newTrans q0 Nothing q1 fa
[Tok t] -> newTrans q0 (Just t) q1 fa
[] -> newTrans q0 q1 Nothing fa
[Tok t] -> newTrans q0 q1 (Just t) fa
--
-- * CFG rule utilities