X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FFileLock.h;fp=includes%2FFileLock.h;h=3fc1a81aec02218748a38f7a3dec3f87b021c3fd;hb=1d026619ef5f098a0349ba2fa1b29d5697718bad;hp=0000000000000000000000000000000000000000;hpb=f22f248b88346df835b25f03f8d3372c7bb87950;p=ghc-hetmet.git

diff --git a/includes/FileLock.h b/includes/FileLock.h
new file mode 100644
index 0000000..3fc1a81
--- /dev/null
+++ b/includes/FileLock.h
@@ -0,0 +1,12 @@
+/* -----------------------------------------------------------------------------
+ *
+ * (c) The GHC Team, 2007
+ *
+ * File locking support as required by Haskell 98
+ *
+ * ---------------------------------------------------------------------------*/
+
+void initFileLocking(void);
+void freeFileLocking(void);
+int  lockFile(int fd, dev_t dev, ino_t ino, int for_writing);
+int  unlockFile(int fd);