1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
-----------------------------------------------------------------------------
-- Machine Addresses:
-- Suitable for use with Hugs 1.4 on 32 bit machines.
-----------------------------------------------------------------------------
module Addr
( Addr
, nullAddr -- :: Addr
, plusAddr -- :: Addr -> Int -> Addr
-- instance Eq Addr
-- instance Show Addr
) where
newtype Addr = Addr Int deriving ( Eq ) -- not portable!
instance Show Addr where
showsPrec p (Addr a) = showsPrec p a
nullAddr :: Addr
nullAddr = Addr 0
plusAddr :: Addr -> Int -> Addr
plusAddr (Addr a) o = Addr (a+o)
-----------------------------------------------------------------------------
|
