#include <sys/param.h>
#include <sys/systm.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/proc.h>
#include <sys/kernel.h>
#include <sys/resourcevar.h>
#include <sys/filedesc.h>
#include <sys/vnode.h>
#include <sys/malloc.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <sys/mount.h>
#include <sys/namei.h>
#include <sys/buf.h>
#include <sys/dirent.h>
#include <sys/ubc.h>
#include <miscfs/fdesc/fdesc.h>
#include <vfs/vfs_support.h>
#define cttyvp(p) ((p)->p_flag & P_CONTROLT ? (p)->p_session->s_ttyvp : NULL)
#define FDL_WANT 0x01
#define FDL_LOCKED 0x02
static int fdcache_lock;
dev_t devctty;
#if (FD_STDIN != FD_STDOUT-1) || (FD_STDOUT != FD_STDERR-1)
FD_STDIN, FD_STDOUT, FD_STDERR must be a sequence n, n+1, n+2
#endif
#define NFDCACHE 4
#define FD_NHASH(ix) \
(&fdhashtbl[(ix) & fdhash])
LIST_HEAD(fdhashhead, fdescnode) *fdhashtbl;
u_long fdhash;
fdesc_init(vfsp)
struct vfsconf *vfsp;
{
devctty = makedev(nchrdev, 0);
fdhashtbl = hashinit(NFDCACHE, M_CACHE, &fdhash);
}
int
fdesc_allocvp(ftype, ix, mp, vpp)
fdntype ftype;
int ix;
struct mount *mp;
struct vnode **vpp;
{
struct proc *p = current_proc();
struct fdhashhead *fc;
struct fdescnode *fd;
int error = 0;
fc = FD_NHASH(ix);
loop:
for (fd = fc->lh_first; fd != 0; fd = fd->fd_hash.le_next) {
if (fd->fd_ix == ix && fd->fd_vnode->v_mount == mp) {
if (vget(fd->fd_vnode, 0, p))
goto loop;
*vpp = fd->fd_vnode;
return (error);
}
}
if (fdcache_lock & FDL_LOCKED) {
fdcache_lock |= FDL_WANT;
sleep((caddr_t) &fdcache_lock, PINOD);
goto loop;
}
fdcache_lock |= FDL_LOCKED;
MALLOC(fd, void *, sizeof(struct fdescnode), M_TEMP, M_WAITOK);
error = getnewvnode(VT_FDESC, mp, fdesc_vnodeop_p, vpp);
if (error) {
FREE(fd, M_TEMP);
goto out;
}
(*vpp)->v_data = fd;
fd->fd_vnode = *vpp;
fd->fd_type = ftype;
fd->fd_fd = -1;
fd->fd_link = 0;
fd->fd_ix = ix;
LIST_INSERT_HEAD(fc, fd, fd_hash);
out:
fdcache_lock &= ~FDL_LOCKED;
if (fdcache_lock & FDL_WANT) {
fdcache_lock &= ~FDL_WANT;
wakeup((caddr_t) &fdcache_lock);
}
return (error);
}
int
fdesc_lookup(ap)
struct vop_lookup_args *ap;
{
struct vnode **vpp = ap->a_vpp;
struct vnode *dvp = ap->a_dvp;
struct componentname *cnp = ap->a_cnp;
char *pname = cnp->cn_nameptr;
struct proc *p = cnp->cn_proc;
int nfiles = p->p_fd->fd_nfiles;
unsigned fd;
int error;
struct vnode *fvp;
char *ln;
VOP_UNLOCK(dvp, 0, p);
if (cnp->cn_namelen == 1 && *pname == '.') {
*vpp = dvp;
VREF(dvp);
vn_lock(dvp, LK_SHARED | LK_RETRY, p);
return (0);
}
switch (VTOFDESC(dvp)->fd_type) {
default:
case Flink:
case Fdesc:
case Fctty:
error = ENOTDIR;
goto bad;
case Froot:
if (cnp->cn_namelen == 2 && bcmp(pname, "fd", 2) == 0) {
error = fdesc_allocvp(Fdevfd, FD_DEVFD, dvp->v_mount, &fvp);
if (error)
goto bad;
*vpp = fvp;
fvp->v_type = VDIR;
vn_lock(fvp, LK_SHARED | LK_RETRY, p);
return (0);
}
if (cnp->cn_namelen == 3 && bcmp(pname, "tty", 3) == 0) {
struct vnode *ttyvp = cttyvp(p);
if (ttyvp == NULL) {
error = ENXIO;
goto bad;
}
error = fdesc_allocvp(Fctty, FD_CTTY, dvp->v_mount, &fvp);
if (error)
goto bad;
*vpp = fvp;
fvp->v_type = VCHR;
vn_lock(fvp, LK_SHARED | LK_RETRY, p);
return (0);
}
ln = 0;
switch (cnp->cn_namelen) {
case 5:
if (bcmp(pname, "stdin", 5) == 0) {
ln = "fd/0";
fd = FD_STDIN;
}
break;
case 6:
if (bcmp(pname, "stdout", 6) == 0) {
ln = "fd/1";
fd = FD_STDOUT;
} else
if (bcmp(pname, "stderr", 6) == 0) {
ln = "fd/2";
fd = FD_STDERR;
}
break;
}
if (ln) {
error = fdesc_allocvp(Flink, fd, dvp->v_mount, &fvp);
if (error)
goto bad;
VTOFDESC(fvp)->fd_link = ln;
*vpp = fvp;
fvp->v_type = VLNK;
vn_lock(fvp, LK_SHARED | LK_RETRY, p);
return (0);
} else {
error = ENOENT;
goto bad;
}
case Fdevfd:
if (cnp->cn_namelen == 2 && bcmp(pname, "..", 2) == 0) {
if (error = fdesc_root(dvp->v_mount, vpp))
goto bad;
return (0);
}
fd = 0;
while (*pname >= '0' && *pname <= '9') {
fd = 10 * fd + *pname++ - '0';
if (fd >= nfiles)
break;
}
if (*pname != '\0') {
error = ENOENT;
goto bad;
}
if (fd >= nfiles ||
*fdfile(p, fd) == NULL ||
(*fdflags(p, fd) & UF_RESERVED)) {
error = EBADF;
goto bad;
}
error = fdesc_allocvp(Fdesc, FD_DESC+fd, dvp->v_mount, &fvp);
if (error)
goto bad;
VTOFDESC(fvp)->fd_fd = fd;
vn_lock(fvp, LK_SHARED | LK_RETRY, p);
*vpp = fvp;
return (0);
}
bad:;
vn_lock(dvp, LK_SHARED | LK_RETRY, p);
*vpp = NULL;
return (error);
}
int
fdesc_open(ap)
struct vop_open_args *ap;
{
struct vnode *vp = ap->a_vp;
int error = 0;
switch (VTOFDESC(vp)->fd_type) {
case Fdesc:
ap->a_p->p_dupfd = VTOFDESC(vp)->fd_fd;
error = ENODEV;
break;
case Fctty:
error = cttyopen(devctty, ap->a_mode, 0, ap->a_p);
break;
}
return (error);
}
static int
fdesc_attr(fd, vap, cred, p)
int fd;
struct vattr *vap;
struct ucred *cred;
struct proc *p;
{
struct file *fp;
struct stat stb;
int error;
if (error = fdgetf(p, fd, &fp))
return (error);
switch (fp->f_type) {
case DTYPE_VNODE:
error = VOP_GETATTR((struct vnode *) fp->f_data, vap, cred, p);
if (error == 0 && vap->va_type == VDIR) {
vap->va_mode &= ~((VEXEC)|(VEXEC>>3)|(VEXEC>>6));
}
break;
case DTYPE_SOCKET:
error = soo_stat((struct socket *)fp->f_data, &stb);
if (error == 0) {
vattr_null(vap);
vap->va_type = VSOCK;
vap->va_mode = stb.st_mode;
vap->va_nlink = stb.st_nlink;
vap->va_uid = stb.st_uid;
vap->va_gid = stb.st_gid;
vap->va_fsid = stb.st_dev;
vap->va_fileid = stb.st_ino;
vap->va_size = stb.st_size;
vap->va_blocksize = stb.st_blksize;
vap->va_atime = stb.st_atimespec;
vap->va_mtime = stb.st_mtimespec;
vap->va_ctime = stb.st_ctimespec;
vap->va_gen = stb.st_gen;
vap->va_flags = stb.st_flags;
vap->va_rdev = stb.st_rdev;
vap->va_bytes = stb.st_blocks * stb.st_blksize;
}
break;
default:
panic("fdesc attr");
break;
}
return (error);
}
int
fdesc_getattr(ap)
struct vop_getattr_args *ap;
{
struct vnode *vp = ap->a_vp;
struct vattr *vap = ap->a_vap;
unsigned fd;
int error = 0;
switch (VTOFDESC(vp)->fd_type) {
case Froot:
case Fdevfd:
case Flink:
case Fctty:
bzero((caddr_t) vap, sizeof(*vap));
vattr_null(vap);
vap->va_fileid = VTOFDESC(vp)->fd_ix;
vap->va_uid = 0;
vap->va_gid = 0;
vap->va_fsid = vp->v_mount->mnt_stat.f_fsid.val[0];
vap->va_blocksize = DEV_BSIZE;
vap->va_atime.tv_sec = boottime.tv_sec;
vap->va_atime.tv_nsec = 0;
vap->va_mtime = vap->va_atime;
vap->va_ctime = vap->va_mtime;
vap->va_gen = 0;
vap->va_flags = 0;
vap->va_rdev = 0;
vap->va_bytes = 0;
switch (VTOFDESC(vp)->fd_type) {
case Flink:
vap->va_mode = S_IRUSR|S_IXUSR|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH;
vap->va_type = VLNK;
vap->va_nlink = 1;
vap->va_size = strlen(VTOFDESC(vp)->fd_link);
break;
case Fctty:
vap->va_mode = S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH;
vap->va_type = VCHR;
vap->va_nlink = 1;
vap->va_size = 0;
vap->va_rdev = devctty;
break;
default:
vap->va_mode = S_IRUSR|S_IXUSR|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH;
vap->va_type = VDIR;
vap->va_nlink = 2;
vap->va_size = DEV_BSIZE;
break;
}
break;
case Fdesc:
fd = VTOFDESC(vp)->fd_fd;
error = fdesc_attr(fd, vap, ap->a_cred, ap->a_p);
break;
default:
panic("fdesc_getattr");
break;
}
if (error == 0) {
vp->v_type = vap->va_type;
}
return (error);
}
int
fdesc_setattr(ap)
struct vop_setattr_args *ap;
{
struct file *fp;
unsigned fd;
int error;
switch (VTOFDESC(ap->a_vp)->fd_type) {
case Fdesc:
break;
case Fctty:
return (0);
default:
return (EACCES);
}
fd = VTOFDESC(ap->a_vp)->fd_fd;
if (error = fdgetf(ap->a_p, fd, &fp))
return (error);
switch (fp->f_type) {
case DTYPE_VNODE:
error = VOP_SETATTR((struct vnode *) fp->f_data, ap->a_vap, ap->a_cred, ap->a_p);
break;
case DTYPE_SOCKET:
error = 0;
break;
default:
kprintf("fp->f_type = %d\n", fp->f_type);
error = EBADF;
break;
}
return (error);
}
#define UIO_MX 16
static struct dirtmp {
u_long d_fileno;
u_short d_reclen;
u_short d_namlen;
char d_name[8];
} rootent[] = {
{ FD_DEVFD, UIO_MX, 2, "fd" },
{ FD_STDIN, UIO_MX, 5, "stdin" },
{ FD_STDOUT, UIO_MX, 6, "stdout" },
{ FD_STDERR, UIO_MX, 6, "stderr" },
{ FD_CTTY, UIO_MX, 3, "tty" },
{ 0 }
};
int
fdesc_readdir(ap)
struct vop_readdir_args *ap;
{
struct uio *uio = ap->a_uio;
struct proc *p = uio->uio_procp;
int i, error;
if (ap->a_ncookies)
panic("fdesc_readdir: not hungry");
switch (VTOFDESC(ap->a_vp)->fd_type) {
case Fctty:
return (0);
case Fdesc:
return (ENOTDIR);
default:
break;
}
if (VTOFDESC(ap->a_vp)->fd_type == Froot) {
struct dirent d;
struct dirent *dp = &d;
struct dirtmp *dt;
int fd;
i = uio->uio_offset / UIO_MX;
error = 0;
while (uio->uio_resid > 0) {
dt = &rootent[i];
if (dt->d_fileno == 0) {
break;
}
i++;
switch (dt->d_fileno) {
case FD_CTTY:
if (cttyvp(uio->uio_procp) == NULL)
continue;
break;
case FD_STDIN:
case FD_STDOUT:
case FD_STDERR:
fd = dt->d_fileno - FD_STDIN;
if (fd >= p->p_fd->fd_nfiles)
continue;
if (*fdfile(p, fd) == NULL &&
!(*fdflags(p, fd) &
UF_RESERVED))
continue;
break;
}
bzero((caddr_t) dp, UIO_MX);
dp->d_fileno = dt->d_fileno;
dp->d_namlen = dt->d_namlen;
dp->d_type = DT_UNKNOWN;
dp->d_reclen = dt->d_reclen;
bcopy(dt->d_name, dp->d_name, dp->d_namlen+1);
error = uiomove((caddr_t) dp, UIO_MX, uio);
if (error)
break;
}
uio->uio_offset = i * UIO_MX;
return (error);
}
i = uio->uio_offset / UIO_MX;
error = 0;
while (uio->uio_resid > 0) {
if (i >= p->p_fd->fd_nfiles)
break;
if (*fdfile(p, i) != NULL && !(*fdflags(p, i) & UF_RESERVED)) {
struct dirent d;
struct dirent *dp = &d;
bzero((caddr_t) dp, UIO_MX);
dp->d_namlen = sprintf(dp->d_name, "%d", i);
dp->d_reclen = UIO_MX;
dp->d_type = DT_UNKNOWN;
dp->d_fileno = i + FD_STDIN;
error = uiomove((caddr_t) dp, UIO_MX, uio);
if (error)
break;
}
i++;
}
uio->uio_offset = i * UIO_MX;
return (error);
}
int
fdesc_readlink(ap)
struct vop_readlink_args *ap;
{
struct vnode *vp = ap->a_vp;
int error;
if (vp->v_type != VLNK)
return (EPERM);
if (VTOFDESC(vp)->fd_type == Flink) {
char *ln = VTOFDESC(vp)->fd_link;
error = uiomove(ln, strlen(ln), ap->a_uio);
} else {
error = EOPNOTSUPP;
}
return (error);
}
int
fdesc_read(ap)
struct vop_read_args *ap;
{
int error = EOPNOTSUPP;
switch (VTOFDESC(ap->a_vp)->fd_type) {
case Fctty:
error = cttyread(devctty, ap->a_uio, ap->a_ioflag);
break;
default:
error = EOPNOTSUPP;
break;
}
return (error);
}
int
fdesc_write(ap)
struct vop_write_args *ap;
{
int error = EOPNOTSUPP;
switch (VTOFDESC(ap->a_vp)->fd_type) {
case Fctty:
error = cttywrite(devctty, ap->a_uio, ap->a_ioflag);
break;
default:
error = EOPNOTSUPP;
break;
}
return (error);
}
int
fdesc_ioctl(ap)
struct vop_ioctl_args *ap;
{
int error = EOPNOTSUPP;
switch (VTOFDESC(ap->a_vp)->fd_type) {
case Fctty:
error = cttyioctl(devctty, ap->a_command, ap->a_data,
ap->a_fflag, ap->a_p);
break;
default:
error = EOPNOTSUPP;
break;
}
return (error);
}
int
fdesc_select(ap)
struct vop_select_args *ap;
{
int error = EOPNOTSUPP;
switch (VTOFDESC(ap->a_vp)->fd_type) {
case Fctty:
error = cttyselect(devctty, ap->a_fflags, ap->a_wql, ap->a_p);
break;
default:
error = EOPNOTSUPP;
break;
}
return (error);
}
int
fdesc_inactive(ap)
struct vop_inactive_args *ap;
{
struct vnode *vp = ap->a_vp;
VOP_UNLOCK(vp, 0, ap->a_p);
vp->v_type = VNON;
return (0);
}
int
fdesc_reclaim(ap)
struct vop_reclaim_args *ap;
{
struct vnode *vp = ap->a_vp;
struct fdescnode *fd = VTOFDESC(vp);
LIST_REMOVE(fd, fd_hash);
FREE(vp->v_data, M_TEMP);
vp->v_data = 0;
return (0);
}
fdesc_pathconf(ap)
struct vop_pathconf_args *ap;
{
switch (ap->a_name) {
case _PC_LINK_MAX:
*ap->a_retval = LINK_MAX;
return (0);
case _PC_MAX_CANON:
*ap->a_retval = MAX_CANON;
return (0);
case _PC_MAX_INPUT:
*ap->a_retval = MAX_INPUT;
return (0);
case _PC_PIPE_BUF:
*ap->a_retval = PIPE_BUF;
return (0);
case _PC_CHOWN_RESTRICTED:
*ap->a_retval = 1;
return (0);
case _PC_VDISABLE:
*ap->a_retval = _POSIX_VDISABLE;
return (0);
default:
return (EINVAL);
}
}
int
fdesc_print(ap)
struct vop_print_args *ap;
{
printf("tag VT_NON, fdesc vnode\n");
return (0);
}
int
fdesc_vfree(ap)
struct vop_vfree_args *ap;
{
return (0);
}
int
fdesc_badop()
{
panic("fdesc: bad op");
}
#define VOPFUNC int (*)(void *)
#define fdesc_create ((int (*) __P((struct vop_create_args *)))eopnotsupp)
#define fdesc_mknod ((int (*) __P((struct vop_mknod_args *)))eopnotsupp)
#define fdesc_close ((int (*) __P((struct vop_close_args *)))nullop)
#define fdesc_access ((int (*) __P((struct vop_access_args *)))nullop)
#define fdesc_mmap ((int (*) __P((struct vop_mmap_args *)))eopnotsupp)
#define fdesc_revoke vop_revoke
#define fdesc_fsync ((int (*) __P((struct vop_fsync_args *)))nullop)
#define fdesc_seek ((int (*) __P((struct vop_seek_args *)))nullop)
#define fdesc_remove ((int (*) __P((struct vop_remove_args *)))eopnotsupp)
#define fdesc_link ((int (*) __P((struct vop_link_args *)))eopnotsupp)
#define fdesc_rename ((int (*) __P((struct vop_rename_args *)))eopnotsupp)
#define fdesc_mkdir ((int (*) __P((struct vop_mkdir_args *)))eopnotsupp)
#define fdesc_rmdir ((int (*) __P((struct vop_rmdir_args *)))eopnotsupp)
#define fdesc_symlink ((int (*) __P((struct vop_symlink_args *)))eopnotsupp)
#define fdesc_abortop ((int (*) __P((struct vop_abortop_args *)))nullop)
#define fdesc_lock ((int (*) __P((struct vop_lock_args *)))vop_nolock)
#define fdesc_unlock ((int (*) __P((struct vop_unlock_args *)))vop_nounlock)
#define fdesc_bmap ((int (*) __P((struct vop_bmap_args *)))fdesc_badop)
#define fdesc_strategy ((int (*) __P((struct vop_strategy_args *)))fdesc_badop)
#define fdesc_islocked \
((int (*) __P((struct vop_islocked_args *)))vop_noislocked)
#define fdesc_advlock ((int (*) __P((struct vop_advlock_args *)))eopnotsupp)
#define fdesc_blkatoff \
((int (*) __P((struct vop_blkatoff_args *)))eopnotsupp)
#define fdesc_valloc ((int(*) __P(( \
struct vnode *pvp, \
int mode, \
struct ucred *cred, \
struct vnode **vpp))) eopnotsupp)
#define fdesc_truncate \
((int (*) __P((struct vop_truncate_args *)))eopnotsupp)
#define fdesc_update ((int (*) __P((struct vop_update_args *)))eopnotsupp)
#define fdesc_bwrite ((int (*) __P((struct vop_bwrite_args *)))eopnotsupp)
#define fdesc_blktooff ((int (*) __P((struct vop_blktooff_args *)))eopnotsupp)
#define fdesc_offtoblk ((int (*) __P((struct vop_offtoblk_args *)))eopnotsupp)
#define fdesc_cmap ((int (*) __P((struct vop_cmap_args *)))eopnotsupp)
int (**fdesc_vnodeop_p)(void *);
struct vnodeopv_entry_desc fdesc_vnodeop_entries[] = {
{ &vop_default_desc, (VOPFUNC)vn_default_error },
{ &vop_lookup_desc, (VOPFUNC)fdesc_lookup },
{ &vop_create_desc, (VOPFUNC)fdesc_create },
{ &vop_mknod_desc, (VOPFUNC)fdesc_mknod },
{ &vop_open_desc, (VOPFUNC)fdesc_open },
{ &vop_close_desc, (VOPFUNC)fdesc_close },
{ &vop_access_desc, (VOPFUNC)fdesc_access },
{ &vop_getattr_desc, (VOPFUNC)fdesc_getattr },
{ &vop_setattr_desc, (VOPFUNC)fdesc_setattr },
{ &vop_read_desc, (VOPFUNC)fdesc_read },
{ &vop_write_desc, (VOPFUNC)fdesc_write },
{ &vop_ioctl_desc, (VOPFUNC)fdesc_ioctl },
{ &vop_select_desc, (VOPFUNC)fdesc_select },
{ &vop_revoke_desc, (VOPFUNC)fdesc_revoke },
{ &vop_mmap_desc, (VOPFUNC)fdesc_mmap },
{ &vop_fsync_desc, (VOPFUNC)fdesc_fsync },
{ &vop_seek_desc, (VOPFUNC)fdesc_seek },
{ &vop_remove_desc, (VOPFUNC)fdesc_remove },
{ &vop_link_desc, (VOPFUNC)fdesc_link },
{ &vop_rename_desc, (VOPFUNC)fdesc_rename },
{ &vop_mkdir_desc, (VOPFUNC)fdesc_mkdir },
{ &vop_rmdir_desc, (VOPFUNC)fdesc_rmdir },
{ &vop_symlink_desc, (VOPFUNC)fdesc_symlink },
{ &vop_readdir_desc, (VOPFUNC)fdesc_readdir },
{ &vop_readlink_desc, (VOPFUNC)fdesc_readlink },
{ &vop_abortop_desc, (VOPFUNC)fdesc_abortop },
{ &vop_inactive_desc, (VOPFUNC)fdesc_inactive },
{ &vop_reclaim_desc, (VOPFUNC)fdesc_reclaim },
{ &vop_lock_desc, (VOPFUNC)fdesc_lock },
{ &vop_unlock_desc, (VOPFUNC)fdesc_unlock },
{ &vop_bmap_desc, (VOPFUNC)fdesc_bmap },
{ &vop_strategy_desc, (VOPFUNC)fdesc_strategy },
{ &vop_print_desc, (VOPFUNC)fdesc_print },
{ &vop_islocked_desc, (VOPFUNC)fdesc_islocked },
{ &vop_pathconf_desc, (VOPFUNC)fdesc_pathconf },
{ &vop_advlock_desc, (VOPFUNC)fdesc_advlock },
{ &vop_blkatoff_desc, (VOPFUNC)fdesc_blkatoff },
{ &vop_valloc_desc, (VOPFUNC)fdesc_valloc },
{ &vop_vfree_desc, (VOPFUNC)fdesc_vfree },
{ &vop_truncate_desc, (VOPFUNC)fdesc_truncate },
{ &vop_update_desc, (VOPFUNC)fdesc_update },
{ &vop_bwrite_desc, (VOPFUNC)fdesc_bwrite },
{ &vop_pagein_desc, (VOPFUNC)err_pagein },
{ &vop_pageout_desc, (VOPFUNC)err_pageout },
{ &vop_copyfile_desc, (VOPFUNC)err_copyfile },
{ &vop_blktooff_desc, (VOPFUNC)fdesc_blktooff },
{ &vop_blktooff_desc, (VOPFUNC)fdesc_offtoblk },
{ &vop_cmap_desc, (VOPFUNC)fdesc_cmap },
{ (struct vnodeop_desc*)NULL, (VOPFUNC)NULL }
};
struct vnodeopv_desc fdesc_vnodeop_opv_desc =
{ &fdesc_vnodeop_p, fdesc_vnodeop_entries };