hsp-0.2: HSP/Data/PCDATA.hs

module HSP.Data.PCDATA (
	toPCDATA
	) where


toPCDATA :: String -> String
toPCDATA [] = ""
toPCDATA (c:cs) = pChar c ++ toPCDATA cs

pChar :: Char -> String
pChar c = case lookup c escapes of
	   Nothing -> [c]
	   Just s  -> '&' : s ++ ";"

escapes :: [(Char, String)]
escapes = [
	('&',	"amp"	),
	('\"',	"quot"	),
	('\'',	"apos"	),
	('<',	"lt"	),
	('>',	"gt"	)
	]