[project @ 1998-04-10 11:33:12 by simonm]

[ghc-hetmet.git] / ghc / lib / std / cbits / setBuffering.lc

diff --git a/ghc/lib/std/cbits/setBuffering.c b/ghc/lib/std/cbits/setBuffering.lc
similarity index 89%
rename from ghc/lib/std/cbits/setBuffering.c
rename to ghc/lib/std/cbits/setBuffering.lc
index b8cf413..0169b50 100644 (file)
--- a/ghc/lib/std/cbits/setBuffering.c
+++ b/ghc/lib/std/cbits/setBuffering.lc
@@ -1,12 +1,11 @@
-/* 
- * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
- *
- * $Id: setBuffering.c,v 1.1 1998/04/10 10:54:51 simonm Exp $
- *
- * hSetBuffering Runtime Support
- */
-
-#include "Rts.h"
+%
+% (c) The GRASP/AQUA Project, Glasgow University, 1994
+%
+\subsection[setBuffering.lc]{hSetBuffering Runtime Support}
+
+\begin{code}
+
+#include "rtsdefs.h"
 #include "stgio.h"
 
 #ifdef HAVE_SYS_TYPES_H
@@ -30,7 +29,9 @@
 #define SB_BB (-2)
 
 StgInt
-setBuffering(StgAddr fp, StgInt size)
+setBuffering(fp, size)
+StgForeignObj fp;
+StgInt size;
 {
     int flags;
     int input;
@@ -118,3 +119,5 @@ setBuffering(StgAddr fp, StgInt size)
     }
     return 0;
 }
+
+\end{code}