diff options
| author | bringert <unknown> | 2005-09-08 14:45:17 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-09-08 14:45:17 +0000 |
| commit | aa92464b1ce95f405bb1b30b0faa8cbf94fa1ac6 (patch) | |
| tree | 4667d19c7d01813c4f89ecc395a107bd87998d37 /src | |
| parent | 832a2219c55ba325011c9ba72969e1caa193cb26 (diff) | |
More work on make_fa.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index 26c5b0ad6..5f1e4fb97 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/09/08 15:40:49 $ +-- > CVS $Date: 2005/09/08 15:45:17 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.18 $ +-- > CVS $Revision: 1.19 $ -- -- This module does some useful transformations on CFGs. -- @@ -148,8 +148,13 @@ 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 q1 Nothing fa - [Tok t] -> newTrans q0 q1 (Just t) fa + [] -> newTrans q0 q1 Nothing fa + [Tok t] -> newTrans q0 q1 (Just t) fa + [Cat c] -> undefined + (x:beta) -> let (fa',q) = newState () fa + fa'' = make_fa q0 [x] q g fa' + fa''' = make_fa q beta q1 g fa'' + in fa''' -- -- * CFG rule utilities |