blob: c32812eb2f630db71e62e70ae7e3cf0803a1aa9e (
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
|
----------------------------------------------------------------------
-- |
-- Module : ConvertGFCtoMCFG
-- Maintainer : PL
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/21 16:22:44 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.2 $
--
-- All different conversions from GFC to MCFG
-----------------------------------------------------------------------------
module GF.OldParsing.ConvertGFCtoMCFG
(convertGrammar) where
import GF.Canon.GFC (CanonGrammar)
import GF.OldParsing.GrammarTypes
import GF.Infra.Ident (Ident(..))
import GF.Infra.Option
import GF.System.Tracing
import qualified GF.OldParsing.ConvertGFCtoMCFG.Old as Old
import qualified GF.OldParsing.ConvertGFCtoMCFG.Nondet as Nondet
import qualified GF.OldParsing.ConvertGFCtoMCFG.Strict as Strict
import qualified GF.OldParsing.ConvertGFCtoMCFG.Coercions as Coerce
convertGrammar :: String -> (CanonGrammar, Ident) -> MCFGrammar
convertGrammar "nondet" = Coerce.addCoercions . Nondet.convertGrammar
convertGrammar "strict" = Strict.convertGrammar
convertGrammar "old" = Old.convertGrammar
|
