Unicode. Batch transl into HTML.

This commit is contained in:
aarne
2004-01-28 12:42:20 +00:00
parent fdda9fac0a
commit dec8e76616
12 changed files with 84 additions and 12 deletions

View File

@@ -304,3 +304,8 @@ optEncodeUTF8 gr = case getOptVal (stateOptions gr) uniCoding of
Just "utf8" -> id
_ -> encodeUTF8
optDecodeUTF8 :: GFGrammar -> String -> String
optDecodeUTF8 gr = case getOptVal (stateOptions gr) uniCoding of
Just "utf8" -> decodeUTF8
_ -> id