blob: 949776a521369a5c601e10d408fb8526a25119cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
----------------------------------------------------------------------
-- |
-- Maintainer : PL
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/19 10:46:07 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.1 $
--
-- MCFG parsing
-----------------------------------------------------------------------------
module GF.NewParsing.MCFG where
import GF.Formalism.Utilities
import GF.Formalism.GCFG
import GF.Formalism.MCFG
import qualified GF.NewParsing.MCFG.Naive as Naive
import qualified GF.NewParsing.MCFG.Range as Range (makeRange)
----------------------------------------------------------------------
-- parsing
--parseMCF :: (Ord n, Ord c, Ord t) => String -> CFParser c n t
parseMCF "n" = Naive.parse
-- default parser:
parseMCF _ = parseMCF "n"
makeFinalEdge cat lbl bnds = (cat, [(lbl, Range.makeRange bnds)])
|
