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

[ghc-hetmet.git] / ghc / compiler / absCSyn / CStrings.lhs

diff --git a/ghc/compiler/absCSyn/CStrings.lhs b/ghc/compiler/absCSyn/CStrings.lhs
index 00d3739..dcbf165 100644 (file)
--- a/ghc/compiler/absCSyn/CStrings.lhs
+++ b/ghc/compiler/absCSyn/CStrings.lhs
@@ -1,46 +1,30 @@
-This module deals with printing (a) C string literals and (b) C labels.
+This module deals with printing C string literals 
 
 \begin{code}
 module CStrings(
+       cSEP, pp_cSEP,
 
-       cSEP,
-       pp_cSEP,
-
-       identToC, modnameToC,
-       stringToC, charToC,
+       stringToC, charToC, pprFSInCStyle,
        charToEasyHaskell
-
   ) where
 
 #include "HsVersions.h"
 
-import Char    ( isAlphanum, ord, chr )
+import Char    ( ord, chr )
 import Outputable
 \end{code}
 
 
-\begin{verbatim}
-_ is the main separator
-
-orig           becomes
-****           *******
-_              Zu
-'              Zq (etc for ops ??)
-<funny char>   Z[hex-digit][hex-digit]
-Prelude<x>     ZP<x>
-<std class>    ZC<?>
-<std tycon>    ZT<?>
-\end{verbatim}
-
 \begin{code}
 cSEP    = SLIT("_")    -- official C separator
 pp_cSEP = char '_'
 
-identToC    :: FAST_STRING -> SDoc
-modnameToC  :: FAST_STRING -> FAST_STRING
 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 ""  = ""
@@ -92,60 +76,5 @@ octify n
        [chr (n + ord '0')]
     else
        octify (n `quot` 8) ++ [chr (n `rem` 8 + ord '0')]
-
-identToC ps
-  = let
-       str = _UNPK_ ps
-    in
-    (<>)
-       (case str of
-          's':'t':'d':_ -> -- avoid "stdin", "stdout", and "stderr"...
-                           char 'Z'
-          _             -> empty)
-
-       (if (all isAlphanum str) -- we gamble that this test will succeed...
-        then ptext ps
-        else hcat (map char_to_c str))
-  where
-    char_to_c 'Z'  = ptext SLIT("ZZ")
-    char_to_c '&'  = ptext SLIT("Za")
-    char_to_c '|'  = ptext SLIT("Zb")
-    char_to_c ':'  = ptext SLIT("Zc")
-    char_to_c '/'  = ptext SLIT("Zd")
-    char_to_c '='  = ptext SLIT("Ze")
-    char_to_c '>'  = ptext SLIT("Zg")
-    char_to_c '#'  = ptext SLIT("Zh")
-    char_to_c '<'  = ptext SLIT("Zl")
-    char_to_c '-'  = ptext SLIT("Zm")
-    char_to_c '!'  = ptext SLIT("Zn")
-    char_to_c '.'  = ptext SLIT("_")
-    char_to_c '+'  = ptext SLIT("Zp")
-    char_to_c '\'' = ptext SLIT("Zq")
-    char_to_c '*'  = ptext SLIT("Zt")
-    char_to_c '_'  = ptext SLIT("_")
-
-    char_to_c c    = if isAlphanum c
-                    then char c
-                    else char 'Z' <> int (ord c)
-\end{code}
-
-For \tr{modnameToC}, we really only have to worry about \tr{'}s (quote
-chars) in the name.  Rare.
-\begin{code}
-modnameToC ps
-  = let
-       str = _UNPK_ ps
-    in
-    if not (any quote_here str) then
-       ps
-    else
-       _PK_ (concat (map char_to_c str))
-  where
-    quote_here '\'' = True
-    quote_here _    = False
-
-    char_to_c c
-      = if isAlphanum c then [c] else 'Z' : (show (ord c))
 \end{code}
 
-