diff options
| author | krasimir <krasimir@chalmers.se> | 2009-09-08 08:40:28 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-09-08 08:40:28 +0000 |
| commit | 28a7c4b5c7659dc18166e06e914fb0a81c1c43bc (patch) | |
| tree | 3d4a866f0fe37d8b45230581c44f459d7ac16e3d /src/PGF/Parsing/FCFG.hs | |
| parent | 9940c44259fe3ee4501e324b4d1816a50d77fa37 (diff) | |
now the datatype Tree is only internal. All API functions are working with Expr directly. Commands gt, gr, p and rf filter out the output via the typechecker
Diffstat (limited to 'src/PGF/Parsing/FCFG.hs')
| -rw-r--r-- | src/PGF/Parsing/FCFG.hs | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/src/PGF/Parsing/FCFG.hs b/src/PGF/Parsing/FCFG.hs deleted file mode 100644 index 088c9f480..000000000 --- a/src/PGF/Parsing/FCFG.hs +++ /dev/null @@ -1,39 +0,0 @@ ----------------------------------------------------------------------- --- | --- Maintainer : Krasimir Angelov --- Stability : (stable) --- Portability : (portable) --- --- FCFG parsing ------------------------------------------------------------------------------ - -module PGF.Parsing.FCFG - (ParserInfo,parseFCFG) where - -import GF.Data.ErrM -import GF.Data.Assoc -import GF.Data.SortedList - -import PGF.CId -import PGF.Data -import PGF.Macros -import PGF.Parsing.FCFG.Utilities -import qualified PGF.Parsing.FCFG.Active as Active -import qualified PGF.Parsing.FCFG.Incremental as Incremental - -import qualified Data.Map as Map - ----------------------------------------------------------------------- --- parsing - --- main parsing function - -parseFCFG :: String -- ^ parsing strategy - -> ParserInfo -- ^ compiled grammar (fcfg) - -> Type -- ^ start type - -> [String] -- ^ input tokens - -> Err [Tree] -- ^ resulting GF terms -parseFCFG "bottomup" pinfo typ toks = return $ Active.parse "b" pinfo typ toks -parseFCFG "topdown" pinfo typ toks = return $ Active.parse "t" pinfo typ toks -parseFCFG "incremental" pinfo typ toks = return $ Incremental.parse pinfo typ toks -parseFCFG strat pinfo typ toks = fail $ "FCFG parsing strategy not defined: " ++ strat |