1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
{-# LANGUAGE NoImplicitPrelude #-}
module Text.Show where
import Foreign.String
import Data.List
import Data.Function
class Show a where
show :: a -> [Char]
showList :: [a] -> [Char]
showList [] = "[]"
showList (x:y) = "["++show x++show' y++"]" where show' [] = ""
show' (x:y) = ","++show x++show' y
instance Show Char where
show c = ['\'',c,'\'']
showList s = "\"" ++ s ++ "\""
instance Show Int where
show i = unpack_cpp_string $ show_int i
instance Show Integer where
show i = unpack_cpp_string $ show_integer i
instance Show Double where
show d = unpack_cpp_string $ show_double d
instance Show () where
show _ = "()"
instance (Show a, Show b) => Show (a,b) where
show (x,y) = "(" ++ show x ++ "," ++ show y ++ ")"
instance (Show a, Show b, Show c) => Show (a,b,c) where
show (x,y,z) = "(" ++ show x ++ "," ++ show y ++ "," ++ show z ++ ")"
instance (Show a, Show b, Show c, Show d) => Show (a,b,c,d) where
show (x,y,z,w) = "(" ++ show x ++ "," ++ show y ++ "," ++ show z ++ "," ++ show w ++ ")"
instance Show a => Show [a] where
show s = showList s
|
