diff options
| author | krasimir <krasimir@chalmers.se> | 2009-12-13 18:50:29 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-12-13 18:50:29 +0000 |
| commit | f85232947e74ee7ef8c7b0ad2338212e7e68f1be (patch) | |
| tree | 667b886a5e3a4b026a63d4e3597f32497d824761 /src/GF/Compile/Export.hs | |
| parent | d88a865faff59c98fc91556ff8700b10ee5f2df8 (diff) | |
reorganize the directories under src, and rescue the JavaScript interpreter from deprecated
Diffstat (limited to 'src/GF/Compile/Export.hs')
| -rw-r--r-- | src/GF/Compile/Export.hs | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/src/GF/Compile/Export.hs b/src/GF/Compile/Export.hs deleted file mode 100644 index d03eb947e..000000000 --- a/src/GF/Compile/Export.hs +++ /dev/null @@ -1,64 +0,0 @@ -module GF.Compile.Export where - -import PGF.CId -import PGF.Data (PGF(..)) -import GF.Compile.GFCCtoHaskell -import GF.Compile.GFCCtoProlog -import GF.Compile.GFCCtoJS -import GF.Compile.PGFPretty -import GF.Infra.Option -import GF.Speech.CFG -import GF.Speech.PGFToCFG -import GF.Speech.SRGS_ABNF -import GF.Speech.SRGS_XML -import GF.Speech.JSGF -import GF.Speech.GSL -import GF.Speech.SRG -import GF.Speech.VoiceXML -import GF.Speech.SLF -import GF.Speech.PrRegExp - -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 - FmtPGFPretty -> multi "txt" prPGFPretty - FmtPMCFGPretty -> single "pmcfg" prPMCFGPretty - FmtJavaScript -> multi "js" pgf2js - FmtHaskell -> multi "hs" (grammar2haskell opts name) - FmtProlog -> multi "pl" grammar2prolog - FmtProlog_Abs -> multi "pl" grammar2prolog_abs - FmtBNF -> single "bnf" bnfPrinter - FmtEBNF -> single "ebnf" (ebnfPrinter opts) - FmtSRGS_XML -> single "grxml" (srgsXmlPrinter opts) - FmtSRGS_XML_NonRec -> single "grxml" (srgsXmlNonRecursivePrinter opts) - FmtSRGS_ABNF -> single "gram" (srgsAbnfPrinter opts) - FmtSRGS_ABNF_NonRec -> single "gram" (srgsAbnfNonRecursivePrinter opts) - FmtJSGF -> single "jsgf" (jsgfPrinter opts) - FmtGSL -> single "gsl" (gslPrinter opts) - FmtVoiceXML -> single "vxml" grammar2vxml - FmtSLF -> single "slf" slfPrinter - FmtRegExp -> single "rexp" regexpPrinter - FmtFA -> single "dot" slfGraphvizPrinter - where - name = fromMaybe (showCId (absname pgf)) (flag optName opts) - - multi :: String -> (PGF -> String) -> [(FilePath,String)] - multi ext pr = [(name <.> ext, pr pgf)] - - single :: String -> (PGF -> CId -> String) -> [(FilePath,String)] - single ext pr = [(showCId 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 |