GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added srgs_abnf_non_rec.

Browse Source
This commit is contained in:
bringert
2007-06-25 16:50:00 +00:00
parent 92db9f7268
commit 58dc4c30eb
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Speech/PrSRGS_ABNF.hs
View File

@@ -17,7 +17,7 @@
-- FIXME: convert to UTF-8 -- FIXME: convert to UTF-8
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module GF.Speech.PrSRGS_ABNF (srgsAbnfPrinter) where module GF.Speech.PrSRGS_ABNF (srgsAbnfPrinter, srgsAbnfNonRecursivePrinter) where
import GF.Conversion.Types import GF.Conversion.Types
import GF.Data.Utilities import GF.Data.Utilities
@@ -46,6 +46,9 @@ srgsAbnfPrinter :: Maybe SISRFormat
-> StateGrammar -> String -> StateGrammar -> String
srgsAbnfPrinter sisr probs opts s = show $ prABNF sisr probs $ makeSimpleSRG opts s srgsAbnfPrinter sisr probs opts s = show $ prABNF sisr probs $ makeSimpleSRG opts s
srgsAbnfNonRecursivePrinter :: Options -> StateGrammar -> String
srgsAbnfNonRecursivePrinter opts s = show $ prABNF Nothing False $ makeNonRecursiveSRG opts s
prABNF :: Maybe SISRFormat -> Bool -> SRG -> Doc prABNF :: Maybe SISRFormat -> Bool -> SRG -> Doc
prABNF sisr probs srg@(SRG{grammarName=name,grammarLanguage=ml, prABNF sisr probs srg@(SRG{grammarName=name,grammarLanguage=ml,
startCat=start,origStartCat=origStart,rules=rs}) startCat=start,origStartCat=origStart,rules=rs})

1
src/GF/UseGrammar/Custom.hs
View File

@@ -256,6 +256,7 @@ customGrammarPrinter =
,(strCI "srgs_xml_prob", srgsXmlPrinter Nothing True) ,(strCI "srgs_xml_prob", srgsXmlPrinter Nothing True)
,(strCI "srgs_xml_sisr_old", srgsXmlPrinter (Just SISR.SISROld) False) ,(strCI "srgs_xml_sisr_old", srgsXmlPrinter (Just SISR.SISROld) False)
,(strCI "srgs_abnf", srgsAbnfPrinter Nothing False) ,(strCI "srgs_abnf", srgsAbnfPrinter Nothing False)
,(strCI "srgs_abnf_non_rec", srgsAbnfNonRecursivePrinter)
,(strCI "srgs_abnf_sisr_old", srgsAbnfPrinter (Just SISR.SISROld) False) ,(strCI "srgs_abnf_sisr_old", srgsAbnfPrinter (Just SISR.SISROld) False)
,(strCI "vxml", grammar2vxml) ,(strCI "vxml", grammar2vxml)
,(strCI "slf", slfPrinter) ,(strCI "slf", slfPrinter)