diff options
| author | peb <unknown> | 2005-05-13 11:40:18 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-05-13 11:40:18 +0000 |
| commit | 20eae7786f420ce02e8043c43c82e31e49c5af72 (patch) | |
| tree | 9396d462d993cfb499703cf7a05ef3a553588c16 /src/GF/Parsing | |
| parent | 0853d7bcfb64b683d7d8b4f6d912717f11bdd4a7 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Parsing')
| -rw-r--r-- | src/GF/Parsing/GFC.hs | 6 | ||||
| -rw-r--r-- | src/GF/Parsing/MCFG/Incremental2.hs | 4 | ||||
| -rw-r--r-- | src/GF/Parsing/MCFG/PInfo.hs | 8 | ||||
| -rw-r--r-- | src/GF/Parsing/MCFG/ViaCFG.hs | 2 |
4 files changed, 10 insertions, 10 deletions
diff --git a/src/GF/Parsing/GFC.hs b/src/GF/Parsing/GFC.hs index ec2409515..8f79bab01 100644 --- a/src/GF/Parsing/GFC.hs +++ b/src/GF/Parsing/GFC.hs @@ -4,9 +4,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/05/11 10:28:16 $ +-- > CVS $Date: 2005/05/13 12:40:19 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.8 $ +-- > CVS $Revision: 1.9 $ -- -- The main parsing module, parsing GFC grammars -- by translating to simpler formats, such as PMCFG and CFG @@ -58,7 +58,7 @@ instance Print PInfo where ---------------------------------------------------------------------- -- main parsing function -parse :: String -- ^ parsing algorithm (mcfg/cfg) +parse :: String -- ^ parsing algorithm (mcfg or cfg) -> String -- ^ parsing strategy -> PInfo -- ^ compiled grammars (mcfg and cfg) -> Ident.Ident -- ^ abstract module name diff --git a/src/GF/Parsing/MCFG/Incremental2.hs b/src/GF/Parsing/MCFG/Incremental2.hs index 0ae6eb926..9d95f0fb0 100644 --- a/src/GF/Parsing/MCFG/Incremental2.hs +++ b/src/GF/Parsing/MCFG/Incremental2.hs @@ -92,12 +92,12 @@ data Item c n l t = Active (Abstract c n) (LinRec c l t) [RangeRec l] | Final (Abstract c n) (RangeRec l) [RangeRec l] - -- | Passive c (RangeRec l) + ---- | Passive c (RangeRec l) deriving (Eq, Ord, Show) data IKey c l t = Act c l | ActTok t - -- | Useless + ---- | Useless | Pass | Fin deriving (Eq, Ord, Show) diff --git a/src/GF/Parsing/MCFG/PInfo.hs b/src/GF/Parsing/MCFG/PInfo.hs index 3b2603a20..4fbe3e736 100644 --- a/src/GF/Parsing/MCFG/PInfo.hs +++ b/src/GF/Parsing/MCFG/PInfo.hs @@ -4,9 +4,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/05/09 09:28:46 $ +-- > CVS $Date: 2005/05/13 12:40:19 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.4 $ +-- > CVS $Revision: 1.5 $ -- -- MCFG parsing, parser information ----------------------------------------------------------------------------- @@ -76,7 +76,7 @@ rangeRestrictPInfo (pinfo{-::MCFPInfo c n l t-}) inp = , leftcornerTokens = lctokens , grammarCats = grammarCats pinfo , rulesByToken = emptyAssoc -- error "MCFG.PInfo.rulesByToken - no range restriction" - , rulesWithoutTokens = [] -- error "MCFG.PInfo.rulesByToken - no range restriction" + , rulesWithoutTokens = [] -- error "MCFG.PInfo.rulesByToken - no range restriction" , allRules = allrules -- rrRules (allRules pinfo) } @@ -114,7 +114,7 @@ buildMCFPInfo grammar = namerules = accumAssoc id [ (name, rule) | rule@(Rule (Abs _ _ name) _) <- allrules ] topdownrules = accumAssoc id - [ (cat, rule) | rule@(Rule (Abs cat _ _) _) <- allrules ] + [ (cat, rule) | rule@(Rule (Abs cat _ _) _) <- allrules ] emptyrules = [ rule | rule@(Rule (Abs _ [] _) _) <- allrules ] leftcorncats = accumAssoc id [ (cat, rule) | diff --git a/src/GF/Parsing/MCFG/ViaCFG.hs b/src/GF/Parsing/MCFG/ViaCFG.hs index 5007eec20..00fff83e0 100644 --- a/src/GF/Parsing/MCFG/ViaCFG.hs +++ b/src/GF/Parsing/MCFG/ViaCFG.hs @@ -161,7 +161,7 @@ convert _ _ = [] ----------------------------------------------------------------------------------} -- FULKOD ! -nrOfCats :: Eq c => MCFG.Lin c l t -> Int +nrOfCats :: Eq c => MCFG.Lin c l t -> Int nrOfCats (MCFG.Lin l syms) = length $ nub [(c, i) | Cat (c, l, i) <- syms] |