Commit 986cee9d authored by simonpj's avatar simonpj
Browse files

[project @ 2000-02-11 13:07:25 by simonpj]

Add pprFSInCStyle
parent 5a83cc6e
......@@ -4,7 +4,7 @@ This module deals with printing C string literals
module CStrings(
cSEP, pp_cSEP,
stringToC, charToC,
stringToC, charToC, pprFSInCStyle,
charToEasyHaskell
) where
......@@ -22,6 +22,9 @@ pp_cSEP = char '_'
stringToC :: String -> String
charToC, charToEasyHaskell :: Char -> String
pprFSInCStyle :: FAST_STRING -> SDoc
pprFSInCStyle fs = doubleQuotes (text (stringToC (_UNPK_ fs)))
-- stringToC: the hassle is what to do w/ strings like "ESC 0"...
stringToC "" = ""
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment