[htoolkit-cvs] port/src/Port PtrMap.hs,1.1.1.1,1.2

[<kr_...@us...>]

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv16950/src/Port

Modified Files:
	PtrMap.hs 
Log Message:
add update and adjust functions to PtrMap	


Index: PtrMap.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/PtrMap.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** PtrMap.hs	20 Jan 2003 11:56:25 -0000	1.1.1.1
--- PtrMap.hs	14 Mar 2003 15:13:56 -0000	1.2
***************
*** 21,24 ****
--- 21,25 ----
               , insertWith
               , elems, keys
+              , update, adjust
               ) where
  
***************
*** 69,70 ****
--- 70,77 ----
  keys m
    = map ptrFromInt (M.keys m)
+ 
+ update ::  (b -> Maybe b) -> Ptr a -> PtrMap a b -> PtrMap a b
+ update f k m = M.update f (intFromPtr k) m
+ 
+ adjust ::  (b -> b) -> Ptr a -> PtrMap a b -> PtrMap a b
+ adjust f k m = M.adjust f (intFromPtr k) m