mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-04 00:32:51 -06:00
44 lines
1.1 KiB
Haskell
44 lines
1.1 KiB
Haskell
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module : ParseCFG
|
|
-- Maintainer : PL
|
|
-- Stability : (stable)
|
|
-- Portability : (portable)
|
|
--
|
|
-- > CVS $Date: 2005/03/21 22:31:51 $
|
|
-- > CVS $Author: peb $
|
|
-- > CVS $Revision: 1.2 $
|
|
--
|
|
-- Main parsing module for context-free grammars
|
|
-----------------------------------------------------------------------------
|
|
|
|
|
|
module GF.Parsing.ParseCFG (parse) where
|
|
|
|
import Char (toLower)
|
|
import GF.Parsing.Utilities
|
|
import GF.Parsing.CFGrammar
|
|
import qualified GF.Parsing.ParseCFG.General as PGen
|
|
import qualified GF.Parsing.ParseCFG.Incremental as PInc
|
|
|
|
|
|
parse :: (Ord n, Ord c, Ord t, Show t) =>
|
|
String -> CFParser n c t
|
|
parse = decodeParser . map toLower
|
|
|
|
decodeParser ['g',s] = PGen.parse (decodeStrategy s)
|
|
decodeParser ['i',s,f] = PInc.parse (decodeStrategy s, decodeFilter f)
|
|
decodeParser _ = decodeParser "ibn"
|
|
|
|
decodeStrategy 'b' = (True, False)
|
|
decodeStrategy 't' = (False, True)
|
|
|
|
decodeFilter 'a' = (True, True)
|
|
decodeFilter 'b' = (True, False)
|
|
decodeFilter 't' = (False, True)
|
|
decodeFilter 'n' = (False, False)
|
|
|
|
|
|
|
|
|