"Committed_by_peb"

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

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)

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) | 

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]