cSEP, pp_cSEP,
- stringToC, charToC, pprFSInCStyle,
+ stringToC, charToC, pprFSInCStyle, pprStringInCStyle,
charToEasyHaskell
) where
pprFSInCStyle :: FAST_STRING -> SDoc
pprFSInCStyle fs = doubleQuotes (text (stringToC (_UNPK_ fs)))
+pprStringInCStyle :: String -> SDoc
+pprStringInCStyle s = doubleQuotes (text (stringToC s))
+
stringToC :: String -> String
-- Convert a string to the form required by C in a C literal string
-- Tthe hassle is what to do w/ strings like "ESC 0"...