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

Use ebnf srg generation in PrSRGS.

Browse Source
This commit is contained in:
bringert
2006-12-12 14:01:42 +00:00
parent ebb3382418
commit 9e3500024b
3 changed files with 52 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Data/XML.hs
View File

@@ -8,7 +8,7 @@
-- Utilities for creating XML documents.
-----------------------------------------------------------------------------
module GF.Data.XML (XML(..), Attr, comments, showsXMLDoc, showsXML) where
module GF.Data.XML (XML(..), Attr, comments, showsXMLDoc, showsXML, bottomUpXML) where
import GF.Data.Utilities
@@ -48,3 +48,7 @@ escape = concatMap escChar
escChar '&' = "&"
escChar '"' = """
escChar c = [c]
bottomUpXML :: (XML -> XML) -> XML -> XML
bottomUpXML f (Tag n attrs cs) = f (Tag n attrs (map (bottomUpXML f) cs))
bottomUpXML f x = f x