X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FCharSeq.lhs;fp=ghc%2Fcompiler%2Futils%2FCharSeq.lhs;h=0000000000000000000000000000000000000000;hb=d03fd455b676500a40ce065c1b0b2b53e0849bfa;hp=d5e7c33de31f752fcb01ee3fd3ae5d1565c3e4f2;hpb=e4535f121199aa3bc4735d5d069cd2a6306e2970;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/CharSeq.lhs b/ghc/compiler/utils/CharSeq.lhs
deleted file mode 100644
index d5e7c33..0000000
--- a/ghc/compiler/utils/CharSeq.lhs
+++ /dev/null
@@ -1,203 +0,0 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1992-1995
-%
-\section[CharSeq]{Characters sequences: the @CSeq@ type}
-
-\begin{code}
-#if defined(COMPILING_GHC)
-# include "HsVersions.h"
-#else
-# define FAST_STRING String
-# define FAST_INT    Int
-# define ILIT(x)     (x)
-# define IBOX(x)     (x)
-# define _GE_	     >=
-# define _ADD_	     +
-# define _SUB_	     -
-# define FAST_BOOL   Bool
-# define _TRUE_	     True
-# define _FALSE_     False
-#endif
-
-module CharSeq (
-	CSeq,
-	cNil, cAppend, cIndent, cNL, cStr, cPStr, cCh, cInt,
-#if ! defined(COMPILING_GHC)
-	cLength,
-	cShows,
-#endif
-	cShow
-
-#if ! defined(COMPILING_GHC)
-   ) where
-#else
-	, cPutStr
-   ) where
-
-CHK_Ubiq() -- debugging consistency check
-IMPORT_1_3(IO)
-
-#endif
-\end{code}
-
-%************************************************
-%*						*
-	\subsection{The interface}
-%*						*
-%************************************************
-
-\begin{code}
-cShow	:: CSeq -> [Char]
-
-#if ! defined(COMPILING_GHC)
--- not used in GHC
-cShows	:: CSeq -> ShowS
-cLength	:: CSeq -> Int
-#endif
-
-cNil    :: CSeq
-cAppend :: CSeq -> CSeq -> CSeq
-cIndent :: Int -> CSeq -> CSeq
-cNL 	:: CSeq
-cStr 	:: [Char] -> CSeq
-cPStr	:: FAST_STRING -> CSeq
-cCh 	:: Char -> CSeq
-cInt	:: Int -> CSeq
-
-#if defined(COMPILING_GHC)
-cPutStr :: Handle -> CSeq -> IO ()
-#endif
-\end{code}
-
-%************************************************
-%*						*
-	\subsection{The representation}
-%*						*
-%************************************************
-
-\begin{code}
-data CSeq
-  = CNil
-  | CAppend	CSeq CSeq
-  | CIndent	Int  CSeq
-  | CNewline			-- Move to start of next line, unless we're
-				-- already at the start of a line.
-  | CStr	[Char]
-  | CCh		Char
-  | CInt	Int	-- equiv to "CStr (show the_int)"
-#if defined(COMPILING_GHC)
-  | CPStr	FAST_STRING
-#endif
-\end{code}
-
-The construction functions do pattern matching, to ensure that
-redundant CNils are eliminated.  This is bound to have some effect on
-evaluation order, but quite what I don't know.
-
-\begin{code}
-cNil = CNil
-\end{code}
-
-The following special cases were eating our lunch! They make the whole
-thing too strict.  A classic strictness bug!
-\begin{code}
--- cAppend CNil cs2  = cs2
--- cAppend cs1  CNil = cs1
-
-cAppend cs1 cs2 = CAppend cs1 cs2
-
-cIndent n cs = CIndent n cs
-
-cNL	= CNewline
-cStr	= CStr
-cCh	= CCh
-cInt	= CInt
-
-#if defined(COMPILING_GHC)
-cPStr	= CPStr
-#else
-cPStr	= CStr
-#endif
-
-cShow  seq	= flatten ILIT(0) _TRUE_ seq []
-
-#if ! defined(COMPILING_GHC)
-cShows seq rest = cShow seq ++ rest
-cLength seq = length (cShow seq) -- *not* the best way to do this!
-#endif
-\end{code}
-
-This code is {\em hammered}.  We are not above doing sleazy
-non-standard things.  (WDP 94/10)
-
-\begin{code}
-data WorkItem = WI FAST_INT CSeq -- indentation, and sequence
-
-flatten :: FAST_INT	-- Indentation
-	-> FAST_BOOL	-- True => just had a newline
-	-> CSeq		-- Current seq to flatten
-	-> [WorkItem]	-- Work list with indentation
-	-> String
-
-flatten n nlp CNil seqs = flattenS nlp seqs
-
-flatten n nlp (CAppend seq1 seq2) seqs = flatten n nlp seq1 ((WI n seq2) : seqs)
-flatten n nlp (CIndent IBOX(n2) seq) seqs = flatten (n2 _ADD_ n) nlp seq seqs
-
-flatten n _FALSE_ CNewline seqs = '\n' : flattenS _TRUE_ seqs
-flatten n _TRUE_  CNewline seqs = flattenS _TRUE_ seqs	-- Already at start of line
-
-flatten n _FALSE_ (CStr s) seqs = s ++ flattenS _FALSE_ seqs
-flatten n _FALSE_ (CCh  c) seqs = c :  flattenS _FALSE_ seqs
-flatten n _FALSE_ (CInt i) seqs = show i ++ flattenS _FALSE_ seqs
-#if defined(COMPILING_GHC)
-flatten n _FALSE_ (CPStr s) seqs = _UNPK_ s ++ flattenS _FALSE_ seqs
-#endif
-
-flatten n _TRUE_  (CStr s) seqs = mkIndent n (s ++ flattenS _FALSE_ seqs)
-flatten n _TRUE_  (CCh  c) seqs = mkIndent n (c :  flattenS _FALSE_ seqs)
-flatten n _TRUE_  (CInt i) seqs = mkIndent n (show i ++ flattenS _FALSE_ seqs)
-#if defined(COMPILING_GHC)
-flatten n _TRUE_ (CPStr s) seqs = mkIndent n ( _UNPK_ s ++ flattenS _FALSE_ seqs)
-#endif
-\end{code}
-
-\begin{code}
-flattenS :: FAST_BOOL -> [WorkItem] -> String
-flattenS nlp [] = ""
-flattenS nlp ((WI col seq):seqs) = flatten col nlp seq seqs
-\end{code}
-
-\begin{code}
-mkIndent :: FAST_INT -> String -> String
-mkIndent ILIT(0) s = s
-mkIndent n       s
-  = if (n _GE_ ILIT(8))
-    then '\t' : mkIndent (n _SUB_ ILIT(8)) s
-    else ' '  : mkIndent (n _SUB_ ILIT(1)) s
-    -- Hmm.. a little Unix-y.
-\end{code}
-
-Now the I/O version.
-This code is massively {\em hammered}.
-It {\em ignores} indentation.
-
-(NB: 1.3 compiler: efficiency hacks removed for now!)
-
-\begin{code}
-#if defined(COMPILING_GHC)
-
-cPutStr handle sq = flat sq
-  where
-    flat CNil		  = return ()
-    flat (CIndent n2 seq) = flat seq
-    flat (CAppend s1 s2)  = flat s1 >> flat s2
-    flat CNewline  	  = hPutChar handle '\n'
-    flat (CCh c)   	  = hPutChar handle c
-    flat (CInt i)  	  = hPutStr  handle (show i)
-    flat (CStr s)  	  = hPutStr  handle s
-    flat (CPStr s) 	  = hPutFS   handle s
-                            --hPutStr  handle (_UNPK_ s)
-
-#endif {- COMPILING_GHC -}
-\end{code}