msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Fixed module names and imports after giant file move.

Browse Source
This commit is contained in:
bringert
2005-04-21 15:21:02 +00:00
parent 8e44d9a8c1
commit 93af0c8535
209 changed files with 2038 additions and 2036 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/GF/Speech/PrGSL.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/15 09:45:32 $
-- > CVS $Date: 2005/04/21 16:23:31 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.17 $
-- > CVS $Revision: 1.18 $
--
-- This module prints a CFG as a Nuance GSL 2.0 grammar.
--
@@ -15,16 +15,16 @@
-- categories in the grammar
-----------------------------------------------------------------------------
module PrGSL (gslPrinter) where
module GF.Speech.PrGSL (gslPrinter) where
import SRG
import Ident
import GF.Speech.SRG
import GF.Infra.Ident
import GF.Formalism.CFG
import GF.Formalism.Utilities (Symbol(..))
import GF.Conversion.Types
import GF.Infra.Print
import Option
import GF.Infra.Option
import Data.Char (toUpper,toLower)

12
src/GF/Speech/PrJSGF.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/15 09:45:32 $
-- > CVS $Date: 2005/04/21 16:23:31 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.11 $
-- > CVS $Revision: 1.12 $
--
-- This module prints a CFG as a JSGF grammar.
--
@@ -17,15 +17,15 @@
-- FIXME: convert to UTF-8
-----------------------------------------------------------------------------
module PrJSGF (jsgfPrinter) where
module GF.Speech.PrJSGF (jsgfPrinter) where
import SRG
import Ident
import GF.Speech.SRG
import GF.Infra.Ident
import GF.Formalism.CFG
import GF.Formalism.Utilities (Symbol(..))
import GF.Conversion.Types
import GF.Infra.Print
import Option
import GF.Infra.Option
jsgfPrinter :: Ident -- ^ Grammar name
-> Options -> CGrammar -> String

14
src/GF/Speech/SRG.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/14 18:38:36 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.12 $
-- > CVS $Date: 2005/04/21 16:23:32 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.13 $
--
-- Representation of, conversion to, and utilities for
-- printing of a general Speech Recognition Grammar.
@@ -18,9 +18,9 @@
-- FIXME: figure out name prefix from grammar name
-----------------------------------------------------------------------------
module SRG where
module GF.Speech.SRG where
import Ident
import GF.Infra.Ident
-- import GF.OldParsing.CFGrammar
-- import GF.OldParsing.Utilities (Symbol(..))
-- import GF.OldParsing.GrammarTypes
@@ -29,8 +29,8 @@ import GF.Formalism.CFG
import GF.Formalism.Utilities (Symbol(..))
import GF.Conversion.Types
import GF.Infra.Print
import TransformCFG
import Option
import GF.Speech.TransformCFG
import GF.Infra.Option
import Data.List
import Data.Maybe (fromMaybe)

10
src/GF/Speech/TransformCFG.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/15 09:45:32 $
-- > CVS $Date: 2005/04/21 16:23:33 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.11 $
-- > CVS $Revision: 1.12 $
--
-- This module does some useful transformations on CFGs.
--
@@ -16,9 +16,9 @@
-- peb thinks: most of this module should be moved to GF.Conversion...
-----------------------------------------------------------------------------
module TransformCFG (makeNice, CFRule_) where
module GF.Speech.TransformCFG (makeNice, CFRule_) where
import Ident
import GF.Infra.Ident
import GF.Formalism.CFG
import GF.Formalism.Utilities (Symbol(..), mapSymbol)
import GF.Conversion.Types
@@ -100,4 +100,4 @@ fix f x = let x' = f x in if x' == x then x else fix f x'
nothingOrNull :: Maybe [a] -> Bool
nothingOrNull Nothing = True
nothingOrNull (Just xs) = null xs
nothingOrNull (Just xs) = null xs