39 lines
941 B
C
39 lines
941 B
C
|
/* Scheme48/scsh Unix system interface.
|
||
|
|
** Routines that require custom C support.
|
||
|
|
** Copyright (c) 1995 by David Albertz.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* File locking routines */
|
||
|
|
|
||
|
|
#include <sys/types.h>
|
||
|
|
#include <unistd.h>
|
||
|
|
#include <fcntl.h>
|
||
|
|
|
||
|
|
int set_lock(int fd, int cmd, int type, int whence, int start, int len)
|
||
|
|
{
|
||
|
|
struct flock lock;
|
||
|
|
lock.l_type = type;
|
||
|
|
lock.l_whence = whence;
|
||
|
|
lock.l_start = start;
|
||
|
|
lock.l_len = len;
|
||
|
|
return(fcntl(fd, cmd, &lock));
|
||
|
|
}
|
||
|
|
|
||
|
|
int get_lock(int fd, int cmd, int type, int whence, int start, int len,
|
||
|
|
int *rtype, int *rwhence, int *rstart, int *rlen, int *rpid)
|
||
|
|
{
|
||
|
|
struct flock lock;
|
||
|
|
int ret;
|
||
|
|
lock.l_type = type;
|
||
|
|
lock.l_whence = whence;
|
||
|
|
lock.l_start = start;
|
||
|
|
lock.l_len = len;
|
||
|
|
ret = fcntl(fd, F_GETLK, &lock);
|
||
|
|
*rtype = lock.l_type;
|
||
|
|
*rwhence = lock.l_whence;
|
||
|
|
*rstart = lock.l_start;
|
||
|
|
*rlen = lock.l_len;
|
||
|
|
*rpid = lock.l_pid;
|
||
|
|
return(ret);
|
||
|
|
}
|