"Committed_by_peb"

4 files changed, 38 insertions, 38 deletions

diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs
index 21e4b21e5..3c2d5b479 100644
--- a/src/GF/Speech/PrGSL.hs
+++ b/src/GF/Speech/PrGSL.hs
@@ -1,20 +1,19 @@
 ----------------------------------------------------------------------
 -- |
 -- Module      : PrGSL
--- Maintainer  : Bjorn Bringert (bringert@cs.chalmers.se)
+-- Maintainer  : BB
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date $ 
--- > CVS $Author $
--- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:21 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.10 $
 --
 -- This module prints a CFG as a Nuance GSL 2.0 grammar.
 --
------------------------------------------------------------------------------
-
--- FIXME: remove / warn / fail if there are int / string literal
+-- FIXME: remove \/ warn \/ fail if there are int \/ string literal
 -- categories in the grammar
+-----------------------------------------------------------------------------
 
 module PrGSL (gslPrinter) where
 
diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs
index 761a59d2e..86aa8311c 100644
--- a/src/GF/Speech/PrJSGF.hs
+++ b/src/GF/Speech/PrJSGF.hs
@@ -1,15 +1,20 @@
 ----------------------------------------------------------------------
 -- |
--- Module      : (Module)
--- Maintainer  : (Maintainer)
+-- Module      : PrJSGF
+-- Maintainer  : BB
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date $ 
--- > CVS $Author $
--- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:21 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.3 $
 --
--- (Description of the module)
+-- This module prints a CFG as a JSGF grammar.
+--
+-- FIXME: remove \/ warn \/ fail if there are int \/ string literal
+-- categories in the grammar
+--
+-- FIXME: convert to UTF-8
 -----------------------------------------------------------------------------
 
 {- 
@@ -28,11 +33,6 @@
    ************************************************************** 
 -}
 
--- FIXME: remove / warn / fail if there are int / string literal
--- categories in the grammar
-
--- FIXME: convert to UTF-8
-
 module PrJSGF (jsgfPrinter) where
 
 import SRG
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs
index 890b4de81..ca91a4139 100644
--- a/src/GF/Speech/SRG.hs
+++ b/src/GF/Speech/SRG.hs
@@ -1,15 +1,21 @@
 ----------------------------------------------------------------------
 -- |
--- Module      : (Module)
--- Maintainer  : (Maintainer)
+-- Module      : SRG
+-- Maintainer  : BB
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date $ 
--- > CVS $Author $
--- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:21 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
--- (Description of the module)
+-- Representation of, conversion to, and utilities for 
+-- printing of a general Speech Recognition Grammar. 
+--
+-- FIXME: remove \/ warn \/ fail if there are int \/ string literal
+-- categories in the grammar
+--
+-- FIXME: figure out name prefix from grammar name
 -----------------------------------------------------------------------------
 
 {- 
@@ -30,11 +36,6 @@
    ************************************************************** 
 -}
 
--- FIXME: remove / warn / fail if there are int / string literal
--- categories in the grammar
-
--- FIXME: figure out name prefix from grammar name
-
 module SRG where
 
 import Ident
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs
index 2fa797089..b61b3aa67 100644
--- a/src/GF/Speech/TransformCFG.hs
+++ b/src/GF/Speech/TransformCFG.hs
@@ -1,15 +1,17 @@
 ----------------------------------------------------------------------
 -- |
--- Module      : (Module)
--- Maintainer  : (Maintainer)
+-- Module      : TransformCFG
+-- Maintainer  : BB
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date $ 
--- > CVS $Author $
--- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:21 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.3 $
 --
--- (Description of the module)
+--  This module does some useful transformations on CFGs.
+--
+-- FIXME: remove cycles
 -----------------------------------------------------------------------------
 
 {- 
@@ -43,10 +45,8 @@ import Data.Maybe (fromJust)
 
 import Debug.Trace
 
--- FIXME: remove cycles
-
 
--- not very nice to get replace the structured CFCat type with a simple string
+-- | not very nice to get replace the structured CFCat type with a simple string
 type CFRule_ = Rule CFName String Token
 
 type CFRules = FiniteMap String [CFRule_]