Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kcc-4/lib/usys/fcntl.c
There are 6 other files named fcntl.c in the archive. Click here to see a list.
/*
* FCNTL - file control
*
* Copyright (C) 1987 by Ian Macky, SRI International
*/
#include "c-env.h"
#include "sys/usysio.h"
#include "sys/usysig.h"
#include "errno.h"
#include "fcntl.h"
int
fcntl(fd, cmd, arg)
int fd, cmd, arg;
{
int ufx, ret;
USYS_BEG();
if (fd < 0 || fd >= OPEN_MAX || !(ufx = _uioufx[fd]))
USYS_RETERR(EBADF); /* bad FD given */
switch (cmd) {
case F_GETFL: /* Get flags for FD */
ret = _uioflgs[ufx];
break;
case F_GETSYSFD: /* Get actual system "fd" */
ret = _uioch[ufx];
break;
case F_GETBYTESIZE: /* Get bytesize used for fd */
ret = _uiobsize[ufx];
break;
default:
USYS_RETERR(EINVAL);
}
USYS_RET(ret);
}