1 /* -----------------------------------------------------------------------------
3 * (c) The GHC Team, 2007
5 * File locking support as required by Haskell 98
7 * ---------------------------------------------------------------------------*/
9 void initFileLocking(void);
10 void freeFileLocking(void);
11 int lockFile(int fd, dev_t dev, ino_t ino, int for_writing);
12 int unlockFile(int fd);