#include "utility.h"
#include <sys/stat.h>
#include <sys/errno.h>
#include <fcntl.h>

int lock(lock_file_name)
/*============================================================================*/
/* PURPOSE: ACQUIRE A SEMAPHORE TYPE FILE LOCK ON THE NAMED FILE.
/* WRITTEN: M.V.GRIESHABER
/* LAST MODIFICATION: 11 JUNE 1991 MVG
*/
   char lock_file_name[];	/* NAME OF LOCK FILE. */
   {
   int fd;			/* FILE DESCRIPTOR. */
   int ntry;			/* WHICH TRY WE ARE ON. */

   extern int errno;

   ntry=0;

   while ((fd=creat(lock_file_name,0))== -1 && errno==EACCES)
      {
      if (++ntry >= 3) return(FALSE);
      sleep(5);
      }

   if (fd== -1 || close(fd)== -1) return(FALSE);
   else return(TRUE);
   }