X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=includes%2Frts%2FFileLock.h;fp=includes%2Frts%2FFileLock.h;h=9a35ecc581e0b2e9207425a75399a0c42b0096b9;hb=a2a67cd520b9841114d69a87a423dabcb3b4368e;hp=0000000000000000000000000000000000000000;hpb=5d379cbe65e406d5c3a848fe7fcd090cafbfeb78;p=ghc-hetmet.git

diff --git a/includes/rts/FileLock.h b/includes/rts/FileLock.h
new file mode 100644
index 0000000..9a35ecc
--- /dev/null
+++ b/includes/rts/FileLock.h
@@ -0,0 +1,15 @@
+/* -----------------------------------------------------------------------------
+ *
+ * (c) The GHC Team, 2007
+ *
+ * File locking support as required by Haskell 98
+ *
+ * ---------------------------------------------------------------------------*/
+
+#ifndef RTS_FILELOCK_H
+#define RTS_FILELOCK_H
+
+int  lockFile(int fd, dev_t dev, ino_t ino, int for_writing);
+int  unlockFile(int fd);
+
+#endif /* RTS_FILELOCK_H */