F_LOCK
if (lockf(fileno(score_fp), F_LOCK, 1) < 0)
case F_LOCK:
if (lockf(fileno(fp), F_LOCK, (off_t)0) == -1)
error = dolock(fd, F_LOCK, 0, 1);
error = dolock(fd, F_LOCK, 1, 1);
dolock(fd, F_LOCK, 0, 1); /* will block */
error = dolock(fd, F_LOCK, 1, 1);
RL(lockf(fd, F_LOCK, 0));