From e9e80fc389365e24d4300d7d5390c7d833a96c50 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:54:35 +0000
Subject: changed names of resource-1.3; added a note on homepage on release

---
 src-3.0/GF/Compile/Export.hs | 61 --------------------------------------------
 1 file changed, 61 deletions(-)
 delete mode 100644 src-3.0/GF/Compile/Export.hs

(limited to 'src-3.0/GF/Compile/Export.hs')

diff --git a/src-3.0/GF/Compile/Export.hs b/src-3.0/GF/Compile/Export.hs
deleted file mode 100644
index 9e9a99e99..000000000
--- a/src-3.0/GF/Compile/Export.hs
+++ /dev/null
@@ -1,61 +0,0 @@
-module GF.Compile.Export where
-
-import PGF.CId
-import PGF.Data (PGF(..))
-import PGF.Raw.Print (printTree)
-import PGF.Raw.Convert (fromPGF)
-import GF.Compile.GFCCtoHaskell
-import GF.Compile.GFCCtoJS
-import GF.Infra.Option
-import GF.Speech.CFG
-import GF.Speech.PGFToCFG
-import GF.Speech.SRGS_XML
-import GF.Speech.JSGF
-import GF.Speech.GSL
-import GF.Speech.VoiceXML
-import GF.Speech.SLF
-import GF.Speech.PrRegExp
-import GF.Text.UTF8
-
-import Data.Maybe
-import System.FilePath
-
--- top-level access to code generation
-
-exportPGF :: Options
-          -> OutputFormat 
-          -> PGF 
-          -> [(FilePath,String)] -- ^ List of recommended file names and contents.
-exportPGF opts fmt pgf = 
-    case fmt of
-      FmtPGF          -> multi "pgf" printPGF
-      FmtJavaScript   -> multi "js"  pgf2js
-      FmtHaskell      -> multi "hs"  (grammar2haskell name)
-      FmtHaskell_GADT -> multi "hs"  (grammar2haskellGADT name)
-      FmtBNF          -> single "bnf"   bnfPrinter
-      FmtSRGS_XML     -> single "grxml" (srgsXmlPrinter sisr)
-      FmtJSGF         -> single "jsgf"  (jsgfPrinter sisr)
-      FmtGSL          -> single "gsl"   gslPrinter
-      FmtVoiceXML     -> single "vxml"  grammar2vxml
-      FmtSLF          -> single ".slf"  slfPrinter
-      FmtRegExp       -> single ".rexp" regexpPrinter
-      FmtFA           -> single ".dot"  slfGraphvizPrinter
- where
-   name = fromMaybe (prCId (absname pgf)) (moduleFlag optName opts)
-   sisr = flag optSISR opts
-
-   multi :: String -> (PGF -> String) -> [(FilePath,String)]
-   multi ext pr = [(name <.> ext, pr pgf)]
-
-   single :: String -> (PGF -> CId -> String) -> [(FilePath,String)]
-   single ext pr = [(prCId cnc <.> ext, pr pgf cnc) | cnc <- cncnames pgf]
-
--- | Get the name of the concrete syntax to generate output from.
--- FIXME: there should be an option to change this.
-outputConcr :: PGF -> CId
-outputConcr pgf = case cncnames pgf of
-                    []     -> error "No concrete syntax."
-                    cnc:_  -> cnc
-
-printPGF :: PGF -> String
-printPGF = encodeUTF8 . printTree . fromPGF
-- 
cgit v1.2.3