[project @ 1997-03-17 20:34:25 by simonpj]

[ghc-hetmet.git] / ghc / lib / cbits / stgio.h

diff --git a/ghc/lib/cbits/stgio.h b/ghc/lib/cbits/stgio.h
index 82b223f..d6b9b02 100644 (file)
--- a/ghc/lib/cbits/stgio.h
+++ b/ghc/lib/cbits/stgio.h
@@ -50,14 +50,23 @@ StgInt      fileSize    PROTO((StgForeignObj, StgByteArray));
 /* flushFile.lc */
 StgInt flushFile   PROTO((StgForeignObj));
 
+/* freeFile.lc */
+void freeStdChannel PROTO((StgForeignObj));
+void freeFile PROTO((StgForeignObj));
+
 /* getBufferMode.lc */
 StgInt getBufferMode PROTO((StgForeignObj));
 
 /* getClockTime.lc */
 StgInt getClockTime PROTO((StgByteArray, StgByteArray));
+StgAddr        showTime     PROTO((I_, StgByteArray, StgByteArray));
+StgAddr        toClockSec   PROTO((I_, I_, I_, I_, I_, I_, I_, StgByteArray));
+StgAddr        toLocalTime  PROTO((I_, StgByteArray, StgByteArray));
+StgAddr        toUTCTime    PROTO((I_, StgByteArray, StgByteArray));
 
 /* getCPUTime.lc */
 StgByteArray getCPUTime PROTO((StgByteArray));
+StgInt clockTicks();
 
 /* getCurrentDirectory.lc */
 StgAddr getCurrentDirectory(STG_NO_ARGS);
@@ -76,10 +85,6 @@ StgInt       inputReady  PROTO((StgForeignObj));
 /* openFile.lc */
 StgAddr openFile PROTO((StgByteArray, StgByteArray));
 
-/* freeFile.lc */
-void freeStdChannel PROTO((StgForeignObj));
-void freeFile PROTO((StgForeignObj));
-
 /* readFile.lc */
 StgInt readBlock PROTO((StgAddr, StgForeignObj, StgInt));
 StgInt readLine PROTO((StgAddr,  StgForeignObj, StgInt));