1 files changed, 35 insertions, 0 deletions
diff --git a/utils/heap-view/common-bits b/utils/heap-view/common-bits
new file mode 100644
index 0000000000..f41223b7f4
--- /dev/null
+++ b/utils/heap-view/common-bits
@@ -0,0 +1,35 @@
+ -----------------------------------------------------------------------------
+
+ xInitialise :: [String] -> Int -> Int -> IO ()
+ xInitialise str x y = 
+	 _ccall_ haskXBegin x y (0::Int)	`seqPrimIO`
+	 return ()
+
+ xHandleEvent :: IO ()
+ xHandleEvent = 
+	 _ccall_ haskHandleEvent		`thenPrimIO` \ n ->
+	 case (n::Int) of
+		 0 -> return ()
+		 _ -> error "Unknown Message back from Handle Event"
+
+ xClose :: IO ()
+ xClose =
+	  _ccall_ haskXClose		`seqPrimIO`
+	  return ()
+
+ xCls :: IO ()
+ xCls = 
+	 _ccall_ haskXCls		`seqPrimIO`
+	 return ()
+
+ xDrawLine :: Int -> Int -> Int -> Int -> IO ()
+ xDrawLine x1 y1 x2 y2 =
+	 _ccall_ haskXDraw x1 y1 x2 y2	`seqPrimIO`
+	 return ()
+
+ ----------------------------------------------------------------
+
+ usleep :: Int -> IO ()
+ usleep t =
+	 _ccall_ usleep t		`seqPrimIO`
+	 return ()