From cdc647e788ec694bdd9579cf473b7d2983af453a Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 25 Sep 2008 08:41:49 +0000
Subject: Added an FCFG output format (--output-format=fcfg). This now lives in
 GF.Speech.PGFToCFG, but should probably move somewhere else.

---
 src/GF/Compile/Export.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/Export.hs b/src/GF/Compile/Export.hs
index 739079c9c..b387a576f 100644
--- a/src/GF/Compile/Export.hs
+++ b/src/GF/Compile/Export.hs
@@ -37,6 +37,7 @@ exportPGF opts fmt pgf =
       FmtProlog       -> multi "pl"  grammar2prolog 
       FmtProlog_Abs   -> multi "pl"  grammar2prolog_abs 
       FmtBNF          -> single "bnf"   bnfPrinter
+      FmtFCFG         -> single "fcfg"  fcfgPrinter
       FmtSRGS_XML     -> single "grxml" (srgsXmlPrinter sisr)
       FmtSRGS_XML_NonRec -> single "grxml" srgsXmlNonRecursivePrinter
       FmtSRGS_ABNF    -> single "gram" (srgsAbnfPrinter sisr)
@@ -67,3 +68,4 @@ outputConcr pgf = case cncnames pgf of
 
 printPGF :: PGF -> String
 printPGF = encodeUTF8 . printTree . fromPGF
+
-- 
cgit v1.2.3