home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 876 / hugs.sis / Addr.hs next >
Encoding:
Text File  |  2000-09-21  |  822 b   |  27 lines
  1. -----------------------------------------------------------------------------
  2. -- Machine Addresses:
  3. -- Suitable for use with Hugs 98 on 32 bit machines.
  4. -----------------------------------------------------------------------------
  5. module Addr
  6.     ( Addr
  7.     , nullAddr -- :: Addr
  8.      , plusAddr -- :: Addr -> Int -> Addr
  9.     , addrToInt -- :: Addr -> Int
  10.     -- instance Eq   Addr
  11.     -- instance Show Addr
  12.     ) where
  13.  
  14. -- data Addr -- in Prelude
  15.  
  16. instance Eq   Addr where (==)      = primEqAddr
  17. instance Show Addr where showsPrec = primShowsAddr
  18.  
  19. primitive nullAddr      :: Addr
  20. primitive plusAddr      :: Addr -> Int -> Addr
  21. primitive primShowsAddr :: Int -> Addr -> ShowS
  22. primitive primEqAddr    :: Addr -> Addr -> Bool
  23. primitive addrToInt     :: Addr -> Int
  24.  
  25.  
  26. -----------------------------------------------------------------------------
  27.