From: sof <unknown>
Date: Wed, 7 Nov 2001 18:19:49 +0000 (+0000)
Subject: [project @ 2001-11-07 18:19:49 by sof]
X-Git-Tag: Approximately_9120_patches~621
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8c936a8ec53bc2eb1636876615ba3c89125d79b7;p=ghc-hetmet.git

[project @ 2001-11-07 18:19:49 by sof]
cbits/PrelIOUtils.c
---

diff --git a/ghc/lib/std/cbits/PrelIOUtils.h b/ghc/lib/std/cbits/PrelIOUtils.h
new file mode 100644
index 0000000..bb1e5c5
--- /dev/null
+++ b/ghc/lib/std/cbits/PrelIOUtils.h
@@ -0,0 +1,28 @@
+/* 
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-
+ *
+ * IO / Handle support.
+ */
+#ifndef __PRELIOUTILS_H__
+#define __PRELIOUTILS_H__
+
+/* PrelIOUtils.c */
+extern HsBool prel_supportsTextMode();
+extern HsInt  prel_bufsiz();
+extern HsInt prel_seek_cur();
+extern HsInt prel_seek_set();
+extern HsInt prel_seek_end();
+
+extern HsInt prel_o_binary();
+
+extern HsInt prel_setmode(HsInt fd, HsBool isBin);
+
+extern HsInt prel_PrelHandle_write(HsInt fd, HsAddr ptr, HsInt off, HsInt sz);
+extern HsInt prel_PrelHandle_read(HsInt fd, HsAddr ptr, HsInt off, HsInt sz);
+
+extern void* prel_PrelIO_memcpy(char *dst, HsInt dst_off, const char *src, size_t sz);
+
+/* writeError.c */
+extern void writeErrString__(HsAddr msg_hdr, HsAddr msg, HsInt len);
+
+#endif /* __PRELIOUTILS_H__ */