/* ----------------------------------------------------------------------------- * * (c) The GHC Team, 2007-2009 * * File locking support as required by Haskell 98 * * Do not #include this file directly: #include "Rts.h" instead. * * To understand the structure of the RTS headers, see the wiki: * http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes * * ---------------------------------------------------------------------------*/ #ifndef RTS_FILELOCK_H #define RTS_FILELOCK_H #ifdef HAVE_SYS_TYPES_H #include #endif int lockFile(int fd, dev_t dev, ino_t ino, int for_writing); int unlockFile(int fd); #endif /* RTS_FILELOCK_H */