forked from GitHub/gf-core
38 lines
945 B
Haskell
38 lines
945 B
Haskell
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module : ParseMCFG
|
|
-- Maintainer : PL
|
|
-- Stability : (stable)
|
|
-- Portability : (portable)
|
|
--
|
|
-- > CVS $Date: 2005/04/21 16:22:52 $
|
|
-- > CVS $Author: bringert $
|
|
-- > CVS $Revision: 1.2 $
|
|
--
|
|
-- Main module for MCFG parsing
|
|
-----------------------------------------------------------------------------
|
|
|
|
|
|
module GF.OldParsing.ParseMCFG (parse) where
|
|
|
|
import Data.Char (toLower)
|
|
import GF.OldParsing.Utilities
|
|
import GF.OldParsing.MCFGrammar
|
|
import qualified GF.OldParsing.ParseMCFG.Basic as PBas
|
|
import GF.Printing.PrintParser
|
|
---- import qualified MCFParserBasic2 as PBas2 -- file not found AR
|
|
|
|
|
|
parse :: (Ord n, Ord c, Ord l, Ord t,
|
|
Print n, Print c, Print l, Print t) =>
|
|
String -> MCFParser n c l t
|
|
parse str = decodeParser (map toLower str)
|
|
|
|
decodeParser "b" = PBas.parse
|
|
---- decodeParser "c" = PBas2.parse
|
|
decodeParser _ = decodeParser "b"
|
|
|
|
|
|
|
|
|