--- /dev/null
+/* -----------------------------------------------------------------------------
+ *
+ * (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);