/*      $OpenBSD: cd9660_vfsops.c,v 1.99 2025/09/20 13:53:36 mpi Exp $  */
/*      $NetBSD: cd9660_vfsops.c,v 1.26 1997/06/13 15:38:58 pk Exp $    */

/*-
 * Copyright (c) 1994
 *      The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley
 * by Pace Willisson (pace@blitz.com).  The Rock Ridge Extension
 * Support code is derived from software contributed to Berkeley
 * by Atsushi Murai (amurai@spec.co.jp).
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *      @(#)cd9660_vfsops.c     8.9 (Berkeley) 12/5/94
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/namei.h>
#include <sys/proc.h>
#include <sys/kernel.h>
#include <sys/vnode.h>
#include <sys/lock.h>
#include <sys/specdev.h>
#include <sys/mount.h>
#include <sys/buf.h>
#include <sys/fcntl.h>
#include <sys/disklabel.h>
#include <sys/ioctl.h>
#include <sys/cdio.h>
#include <sys/errno.h>
#include <sys/malloc.h>
#include <sys/stat.h>

#include <isofs/cd9660/iso.h>
#include <isofs/cd9660/cd9660_extern.h>
#include <isofs/cd9660/iso_rrip.h>
#include <isofs/cd9660/cd9660_node.h>

const struct vfsops cd9660_vfsops = {
        .vfs_mount      = cd9660_mount,
        .vfs_start      = cd9660_start,
        .vfs_unmount    = cd9660_unmount,
        .vfs_root       = cd9660_root,
        .vfs_quotactl   = cd9660_quotactl,
        .vfs_statfs     = cd9660_statfs,
        .vfs_sync       = cd9660_sync,
        .vfs_vget       = cd9660_vget,
        .vfs_fhtovp     = cd9660_fhtovp,
        .vfs_vptofh     = cd9660_vptofh,
        .vfs_init       = cd9660_init,
        .vfs_sysctl     = (void *)eopnotsupp,
        .vfs_checkexp   = cd9660_check_export,
};

/*
 * Called by vfs_mountroot when iso is going to be mounted as root.
 */

static  int iso_mountfs(struct vnode *devvp, struct mount *mp,
            struct proc *p, struct iso_args *argp);
int     iso_disklabelspoof(dev_t dev, void (*strat)(struct buf *),
            struct disklabel *lp);

int
cd9660_mountroot(void)
{
        struct mount *mp;
        extern struct vnode *rootvp;
        struct proc *p = curproc;       /* XXX */
        int error;
        struct iso_args args;

        /*
         * Get vnodes for swapdev and rootdev.
         */
        if ((error = bdevvp(swapdev, &swapdev_vp)) ||
            (error = bdevvp(rootdev, &rootvp))) {
                printf("cd9660_mountroot: can't setup bdevvp's");
                return (error);
        }

        if ((error = vfs_rootmountalloc("cd9660", "root_device", &mp)) != 0)
                return (error);
        args.flags = ISOFSMNT_ROOT;
        if ((error = iso_mountfs(rootvp, mp, p, &args)) != 0) {
                vfs_unbusy(mp);
                vfs_mount_free(mp);
                return (error);
        }

        TAILQ_INSERT_TAIL(&mountlist, mp, mnt_list);
        (void)cd9660_statfs(mp, &mp->mnt_stat, p);
        vfs_unbusy(mp);
        inittodr(0);

        return (0);
}

/*
 * VFS Operations.
 *
 * mount system call
 */
int
cd9660_mount(struct mount *mp, const char *path, void *data,
    struct nameidata *ndp, struct proc *p)
{
        struct iso_mnt *imp = NULL;
        struct iso_args *args = data;
        struct vnode *devvp;
        char fspec[MNAMELEN];
        int error;

        if ((mp->mnt_flag & MNT_RDONLY) == 0)
                return (EROFS);

        /*
         * If updating, check whether changing from read-only to
         * read/write; if there is no device name, that's all we do.
         */
        if (mp->mnt_flag & MNT_UPDATE) {
                imp = VFSTOISOFS(mp);
                if (args && args->fspec == NULL)
                        return (vfs_export(mp, &imp->im_export,
                            &args->export_info));
                return (0);
        }

        /*
         * Not an update, or updating the name: look up the name
         * and verify that it refers to a sensible block device.
         */
        error = copyinstr(args->fspec, fspec, sizeof(fspec), NULL);
        if (error)
                return (error);
        NDINIT(ndp, LOOKUP, FOLLOW, UIO_SYSSPACE, fspec, p);
        if ((error = namei(ndp)) != 0)
                return (error);
        devvp = ndp->ni_vp;

        if (devvp->v_type != VBLK) {
                vrele(devvp);
                return (ENOTBLK);
        }
        if (major(devvp->v_rdev) >= nblkdev) {
                vrele(devvp);
                return (ENXIO);
        }

        if ((mp->mnt_flag & MNT_UPDATE) == 0)
                error = iso_mountfs(devvp, mp, p, args);
        else {
                if (devvp != imp->im_devvp)
                        error = EINVAL; /* needs translation */
                else
                        vrele(devvp);
        }
        if (error) {
                vrele(devvp);
                return (error);
        }

        bzero(mp->mnt_stat.f_mntonname, MNAMELEN);
        strlcpy(mp->mnt_stat.f_mntonname, path, MNAMELEN);
        bzero(mp->mnt_stat.f_mntfromname, MNAMELEN);
        strlcpy(mp->mnt_stat.f_mntfromname, fspec, MNAMELEN);
        bzero(mp->mnt_stat.f_mntfromspec, MNAMELEN);
        strlcpy(mp->mnt_stat.f_mntfromspec, fspec, MNAMELEN);
        bcopy(args, &mp->mnt_stat.mount_info.iso_args, sizeof(*args));

        cd9660_statfs(mp, &mp->mnt_stat, p);

        return (0);
}

/*
 * Common code for mount and mountroot
 */
static int
iso_mountfs(struct vnode *devvp, struct mount *mp, struct proc *p,
    struct iso_args *argp)
{
        struct iso_mnt *isomp = NULL;
        struct buf *bp = NULL;
        struct buf *pribp = NULL, *supbp = NULL;
        dev_t dev = devvp->v_rdev;
        int error = EINVAL;
        int ronly = (mp->mnt_flag & MNT_RDONLY) != 0;
        extern struct vnode *rootvp;
        int iso_bsize;
        int iso_blknum;
        int joliet_level;
        struct iso_volume_descriptor *vdp;
        struct iso_primary_descriptor *pri = NULL;
        struct iso_supplementary_descriptor *sup = NULL;
        struct iso_directory_record *rootp;
        int logical_block_size;
        int sess;

        if (!ronly)
                return (EROFS);

        /*
         * Disallow multiple mounts of the same device.
         * Disallow mounting of a device that is currently in use
         * (except for root, which might share swap device for miniroot).
         * Flush out any old buffers remaining from a previous use.
         */
        if ((error = vfs_mountedon(devvp)) != 0)
                return (error);
        if (vcount(devvp) > 1 && devvp != rootvp)
                return (EBUSY);
        vn_lock(devvp, LK_EXCLUSIVE | LK_RETRY);
        error = vinvalbuf(devvp, V_SAVE, p->p_ucred, p, 0, INFSLP);
        VOP_UNLOCK(devvp);
        if (error)
                return (error);

        error = VOP_OPEN(devvp, ronly ? FREAD : FREAD|FWRITE, FSCRED, p);
        if (error)
                return (error);

        /*
         * This is the "logical sector size".  The standard says this
         * should be 2048 or the physical sector size on the device,
         * whichever is greater.  For now, we'll just use a constant.
         */
        iso_bsize = ISO_DEFAULT_BLOCK_SIZE;

        if (argp->flags & ISOFSMNT_SESS) {
                sess = argp->sess;
                if (sess < 0)
                        sess = 0;
        } else {
                sess = 0;
                error = VOP_IOCTL(devvp, CDIOREADMSADDR, (caddr_t)&sess, 0,
                    FSCRED, p);
                if (error)
                        sess = 0;
        }

        joliet_level = 0;
        for (iso_blknum = 16; iso_blknum < 100; iso_blknum++) {
                if ((error = bread(devvp,
                    (iso_blknum + sess) * btodb(iso_bsize),
                    iso_bsize, &bp)) != 0)
                        goto out;

                vdp = (struct iso_volume_descriptor *)bp->b_data;
                if (bcmp (vdp->id, ISO_STANDARD_ID, sizeof vdp->id) != 0) {
                        error = EINVAL;
                        goto out;
                }

                switch (isonum_711 (vdp->type)){
                case ISO_VD_PRIMARY:
                        if (pribp == NULL) {
                                pribp = bp;
                                bp = NULL;
                                pri = (struct iso_primary_descriptor *)vdp;
                        }
                        break;
                case ISO_VD_SUPPLEMENTARY:
                        if (supbp == NULL) {
                                supbp = bp;
                                bp = NULL;
                                sup = (struct iso_supplementary_descriptor *)vdp;

                                if (!(argp->flags & ISOFSMNT_NOJOLIET)) {
                                        if (bcmp(sup->escape, "%/@", 3) == 0)
                                                joliet_level = 1;
                                        if (bcmp(sup->escape, "%/C", 3) == 0)
                                                joliet_level = 2;
                                        if (bcmp(sup->escape, "%/E", 3) == 0)
                                                joliet_level = 3;

                                        if (isonum_711 (sup->flags) & 1)
                                                joliet_level = 0;
                                }
                        }
                        break;

                case ISO_VD_END:
                        goto vd_end;

                default:
                        break;
                }
                if (bp) {
                        brelse(bp);
                        bp = NULL;
                }
        }
    vd_end:
        if (bp) {
                brelse(bp);
                bp = NULL;
        }

        if (pri == NULL) {
                error = EINVAL;
                goto out;
        }

        logical_block_size = isonum_723 (pri->logical_block_size);

        if (logical_block_size < DEV_BSIZE || logical_block_size > MAXBSIZE
            || (logical_block_size & (logical_block_size - 1)) != 0) {
                error = EINVAL;
                goto out;
        }

        rootp = (struct iso_directory_record *)pri->root_directory_record;

        isomp = malloc(sizeof *isomp, M_ISOFSMNT, M_WAITOK);
        bzero((caddr_t)isomp, sizeof *isomp);
        isomp->logical_block_size = logical_block_size;
        isomp->volume_space_size = isonum_733 (pri->volume_space_size);
        bcopy (rootp, isomp->root, sizeof isomp->root);
        isomp->root_extent = isonum_733 (rootp->extent);
        isomp->root_size = isonum_733 (rootp->size);
        isomp->joliet_level = 0;
        /*
         * Since an ISO9660 multi-session CD can also access previous sessions,
         * we have to include them into the space considerations.
         */
        isomp->volume_space_size += sess;
        isomp->im_bmask = logical_block_size - 1;
        isomp->im_bshift = ffs(logical_block_size) - 1;

        brelse(pribp);
        pribp = NULL;

        mp->mnt_data = isomp;
        mp->mnt_stat.f_fsid.val[0] = (long)dev;
        mp->mnt_stat.f_fsid.val[1] = mp->mnt_vfc->vfc_typenum;
        mp->mnt_stat.f_namemax = NAME_MAX;
        mp->mnt_flag |= MNT_LOCAL;
        isomp->im_mountp = mp;
        isomp->im_dev = dev;
        isomp->im_devvp = devvp;

        /* Check the Rock Ridge Extension support */
        if (!(argp->flags & ISOFSMNT_NORRIP)) {
                if ((error = bread(isomp->im_devvp, (isomp->root_extent +
                    isonum_711(rootp->ext_attr_length)) <<
                    (isomp->im_bshift - DEV_BSHIFT),
                    isomp->logical_block_size, &bp)) != 0)
                        goto out;

                rootp = (struct iso_directory_record *)bp->b_data;

                if ((isomp->rr_skip = cd9660_rrip_offset(rootp,isomp)) < 0) {
                    argp->flags  |= ISOFSMNT_NORRIP;
                } else {
                    argp->flags  &= ~ISOFSMNT_GENS;
                }

                /*
                 * The contents are valid,
                 * but they will get reread as part of another vnode, so...
                 */
                brelse(bp);
                bp = NULL;
        }
        isomp->im_flags = argp->flags & (ISOFSMNT_NORRIP | ISOFSMNT_GENS |
            ISOFSMNT_EXTATT | ISOFSMNT_NOJOLIET);
        switch (isomp->im_flags & (ISOFSMNT_NORRIP | ISOFSMNT_GENS)) {
        default:
            isomp->iso_ftype = ISO_FTYPE_DEFAULT;
            break;
        case ISOFSMNT_GENS|ISOFSMNT_NORRIP:
            isomp->iso_ftype = ISO_FTYPE_9660;
            break;
        case 0:
            isomp->iso_ftype = ISO_FTYPE_RRIP;
            break;
        }

        /* Decide whether to use the Joliet descriptor */

        if (isomp->iso_ftype != ISO_FTYPE_RRIP && joliet_level) {
                rootp = (struct iso_directory_record *)
                        sup->root_directory_record;
                bcopy(rootp, isomp->root, sizeof isomp->root);
                isomp->root_extent = isonum_733(rootp->extent);
                isomp->root_size = isonum_733(rootp->size);
                isomp->joliet_level = joliet_level;
        }

        if (supbp) {
                brelse(supbp);
                supbp = NULL;
        }

        devvp->v_specmountpoint = mp;

        return (0);
out:
        if (devvp->v_specinfo)
                devvp->v_specmountpoint = NULL;
        if (bp)
                brelse(bp);
        if (supbp)
                brelse(supbp);

        vn_lock(devvp, LK_EXCLUSIVE | LK_RETRY);
        VOP_CLOSE(devvp, ronly ? FREAD : FREAD|FWRITE, NOCRED, p);
        VOP_UNLOCK(devvp);

        if (isomp) {
                free((caddr_t)isomp, M_ISOFSMNT, 0);
                mp->mnt_data = NULL;
        }
        return (error);
}

/*
 * Test to see if the device is an ISOFS filesystem.
 */
int
iso_disklabelspoof(dev_t dev, void (*strat)(struct buf *), struct disklabel *lp)
{
        struct buf *bp = NULL;
        struct iso_volume_descriptor *vdp;
        struct iso_primary_descriptor *pri;
        int logical_block_size;
        int error = EINVAL;
        int iso_blknum;
        int i;

        bp = geteblk(ISO_DEFAULT_BLOCK_SIZE);
        bp->b_dev = dev;

        for (iso_blknum = 16; iso_blknum < 100; iso_blknum++) {
                bp->b_blkno = iso_blknum * btodb(ISO_DEFAULT_BLOCK_SIZE);
                bp->b_bcount = ISO_DEFAULT_BLOCK_SIZE;
                CLR(bp->b_flags, B_READ | B_WRITE | B_DONE);
                SET(bp->b_flags, B_BUSY | B_READ | B_RAW);

                /*printf("d_secsize %d iso_blknum %d b_blkno %d bcount %d\n",
                    lp->d_secsize, iso_blknum, bp->b_blkno, bp->b_bcount);*/

                (*strat)(bp);

                if (biowait(bp))
                        goto out;

                vdp = (struct iso_volume_descriptor *)bp->b_data;
                /*printf("%2x%2x%2x type %2x\n", vdp->id[0], vdp->id[1],
                    vdp->id[2], isonum_711(vdp->type));*/
                if (bcmp (vdp->id, ISO_STANDARD_ID, sizeof vdp->id) != 0 ||
                    isonum_711 (vdp->type) == ISO_VD_END)
                        goto out;

                if (isonum_711 (vdp->type) == ISO_VD_PRIMARY)
                        break;
        }

        if (isonum_711 (vdp->type) != ISO_VD_PRIMARY)
                goto out;

        pri = (struct iso_primary_descriptor *)vdp;
        logical_block_size = isonum_723 (pri->logical_block_size);
        if (logical_block_size < DEV_BSIZE || logical_block_size > MAXBSIZE ||
            (logical_block_size & (logical_block_size - 1)) != 0)
                goto out;

        /*
         * build a disklabel for the CD
         */
        strncpy(lp->d_typename, pri->volume_id, sizeof lp->d_typename);
        strncpy(lp->d_packname, pri->volume_id+16, sizeof lp->d_packname);
        for (i = 0; i < MAXPARTITIONS; i++) {
                DL_SETPSIZE(&lp->d_partitions[i], 0);
                DL_SETPOFFSET(&lp->d_partitions[i], 0);
        }
        DL_SETPOFFSET(&lp->d_partitions[0], 0);
        DL_SETPSIZE(&lp->d_partitions[0], DL_GETDSIZE(lp));
        lp->d_partitions[0].p_fstype = FS_ISO9660;
        DL_SETPOFFSET(&lp->d_partitions[RAW_PART], 0);
        DL_SETPSIZE(&lp->d_partitions[RAW_PART], DL_GETDSIZE(lp));
        lp->d_partitions[RAW_PART].p_fstype = FS_ISO9660;
        lp->d_npartitions = MAXPARTITIONS;
        lp->d_version = 1;

        lp->d_magic = DISKMAGIC;
        lp->d_magic2 = DISKMAGIC;
        lp->d_checksum = dkcksum(lp);
        error = 0;
out:
        bp->b_flags |= B_INVAL;
        brelse(bp);
        return (error);
}

/*
 * Make a filesystem operational.
 * Nothing to do at the moment.
 */
int
cd9660_start(struct mount *mp, int flags, struct proc *p)
{
        return (0);
}

/*
 * unmount system call
 */
int
cd9660_unmount(struct mount *mp, int mntflags, struct proc *p)
{
        struct iso_mnt *isomp;
        int error, flags = 0;

        if (mntflags & MNT_FORCE)
                flags |= FORCECLOSE;
#if 0
        mntflushbuf(mp, 0);
        if (mntinvalbuf(mp))
                return (EBUSY);
#endif
        if ((error = vflush(mp, NULL, flags)) != 0)
                return (error);

        isomp = VFSTOISOFS(mp);

        isomp->im_devvp->v_specmountpoint = NULL;
        vn_lock(isomp->im_devvp, LK_EXCLUSIVE | LK_RETRY);
        (void)VOP_CLOSE(isomp->im_devvp, FREAD, NOCRED, p);
        vput(isomp->im_devvp);
        free((caddr_t)isomp, M_ISOFSMNT, 0);
        mp->mnt_data = NULL;
        mp->mnt_flag &= ~MNT_LOCAL;
        return (0);
}

/*
 * Return root of a filesystem
 */
int
cd9660_root(struct mount *mp, struct vnode **vpp)
{
        struct iso_mnt *imp = VFSTOISOFS(mp);
        struct iso_directory_record *dp =
            (struct iso_directory_record *)imp->root;
        cdino_t ino = isodirino(dp, imp);

        /*
         * With RRIP we must use the `.' entry of the root directory.
         * Simply tell vget, that it's a relocated directory.
         */
        return (cd9660_vget_internal(mp, ino, vpp,
            imp->iso_ftype == ISO_FTYPE_RRIP, dp));
}

/*
 * Do operations associated with quotas, not supported
 */
int
cd9660_quotactl(struct mount *mp, int cmd, uid_t uid, caddr_t arg,
    struct proc *p)
{

        return (EOPNOTSUPP);
}

/*
 * Get file system statistics.
 */
int
cd9660_statfs(struct mount *mp, struct statfs *sbp, struct proc *p)
{
        struct iso_mnt *isomp;

        isomp = VFSTOISOFS(mp);

        sbp->f_bsize = isomp->logical_block_size;
        sbp->f_iosize = sbp->f_bsize;   /* XXX */
        sbp->f_blocks = isomp->volume_space_size;
        sbp->f_bfree = 0; /* total free blocks */
        sbp->f_bavail = 0; /* blocks free for non superuser */
        sbp->f_files =  0; /* total files */
        sbp->f_ffree = 0; /* free file nodes */
        sbp->f_favail = 0; /* file nodes free for non superuser */
        copy_statfs_info(sbp, mp);

        return (0);
}

int
cd9660_sync(struct mount *mp, int waitfor, int stall, struct ucred *cred,
    struct proc *p)
{
        return (0);
}

/*
 * File handle to vnode
 *
 * Have to be really careful about stale file handles:
 * - check that the inode number is in range
 * - call iget() to get the locked inode
 * - check for an unallocated inode (i_mode == 0)
 * - check that the generation number matches
 */

struct ifid {
        ushort  ifid_len;
        ushort  ifid_pad;
        int     ifid_ino;
        long    ifid_start;
};

int
cd9660_fhtovp(struct mount *mp, struct fid *fhp, struct vnode **vpp)
{
        struct ifid *ifhp = (struct ifid *)fhp;
        struct iso_node *ip;
        struct vnode *nvp;
        int error;

#ifdef  ISOFS_DBG
        printf("fhtovp: ino %d, start %ld\n", ifhp->ifid_ino,
            ifhp->ifid_start);
#endif

        if ((error = VFS_VGET(mp, ifhp->ifid_ino, &nvp)) != 0) {
                *vpp = NULL;
                return (error);
        }
        ip = VTOI(nvp);
        if (ip->inode.iso_mode == 0) {
                vput(nvp);
                *vpp = NULL;
                return (ESTALE);
        }
        *vpp = nvp;
        return (0);
}

int
cd9660_vget(struct mount *mp, ino_t ino, struct vnode **vpp)
{

        if (ino > (cdino_t)-1)
                panic("cd9660_vget: alien ino_t %llu",
                    (unsigned long long)ino);

        /*
         * XXXX
         * It would be nice if we didn't always set the `relocated' flag
         * and force the extra read, but I don't want to think about fixing
         * that right now.
         */
        return (cd9660_vget_internal(mp, ino, vpp,
#if 0
            VFSTOISOFS(mp)->iso_ftype == ISO_FTYPE_RRIP,
#else
            0,
#endif
            NULL));
}

int
cd9660_vget_internal(struct mount *mp, cdino_t ino, struct vnode **vpp,
    int relocated, struct iso_directory_record *isodir)
{
        struct iso_mnt *imp;
        struct iso_node *ip;
        struct buf *bp;
        struct vnode *vp, *nvp;
        dev_t dev;
        int error;

retry:
        imp = VFSTOISOFS(mp);
        dev = imp->im_dev;
        if ((*vpp = cd9660_ihashget(dev, ino)) != NULL)
                return (0);

        /* Allocate a new vnode/iso_node. */
        if ((error = getnewvnode(VT_ISOFS, mp, &cd9660_vops, &vp)) != 0) {
                *vpp = NULL;
                return (error);
        }
        ip = malloc(sizeof(*ip), M_ISOFSNODE, M_WAITOK | M_ZERO);
        rrw_init_flags(&ip->i_lock, "isoinode", RWL_DUPOK | RWL_IS_VNODE);
        vp->v_data = ip;
        ip->i_vnode = vp;
        ip->i_dev = dev;
        ip->i_number = ino;

        /*
         * Put it onto its hash chain and lock it so that other requests for
         * this inode will block if they arrive while we are sleeping waiting
         * for old data structures to be purged or for the contents of the
         * disk portion of this inode to be read.
         */
        error = cd9660_ihashins(ip);

        if (error) {
                vrele(vp);

                if (error == EEXIST)
                        goto retry;

                return (error);
        }

        if (isodir == 0) {
                int lbn, off;

                lbn = lblkno(imp, ino);
                if (lbn >= imp->volume_space_size) {
                        vput(vp);
                        printf("fhtovp: lbn exceed volume space %d\n", lbn);
                        return (ESTALE);
                }

                off = blkoff(imp, ino);
                if (off + ISO_DIRECTORY_RECORD_SIZE > imp->logical_block_size)
                    {
                        vput(vp);
                        printf("fhtovp: crosses block boundary %d\n",
                            off + ISO_DIRECTORY_RECORD_SIZE);
                        return (ESTALE);
                }

                error = bread(imp->im_devvp,
                              lbn << (imp->im_bshift - DEV_BSHIFT),
                              imp->logical_block_size, &bp);
                if (error) {
                        vput(vp);
                        brelse(bp);
                        printf("fhtovp: bread error %d\n",error);
                        return (error);
                }
                isodir = (struct iso_directory_record *)(bp->b_data + off);

                if (off + isonum_711(isodir->length) >
                    imp->logical_block_size) {
                        vput(vp);
                        if (bp != 0)
                                brelse(bp);
                        printf("fhtovp: directory crosses block boundary %d[off=%d/len=%d]\n",
                            off +isonum_711(isodir->length), off,
                            isonum_711(isodir->length));
                        return (ESTALE);
                }

#if 0
                if (isonum_733(isodir->extent) +
                    isonum_711(isodir->ext_attr_length) != ifhp->ifid_start) {
                        if (bp != 0)
                                brelse(bp);
                        printf("fhtovp: file start miss %d vs %d\n",
                            isonum_733(isodir->extent) +
                            isonum_711(isodir->ext_attr_length),
                            ifhp->ifid_start);
                        return (ESTALE);
                }
#endif
        } else
                bp = 0;

        ip->i_mnt = imp;
        ip->i_devvp = imp->im_devvp;
        vref(ip->i_devvp);

        if (relocated) {
                /*
                 * On relocated directories we must
                 * read the `.' entry out of a dir.
                 */
                ip->iso_start = ino >> imp->im_bshift;
                if (bp != 0)
                        brelse(bp);
                if ((error = cd9660_bufatoff(ip, (off_t)0, NULL, &bp)) != 0) {
                        vput(vp);
                        return (error);
                }
                isodir = (struct iso_directory_record *)bp->b_data;
        }

        ip->iso_extent = isonum_733(isodir->extent);
        ip->i_size = (u_int32_t) isonum_733(isodir->size);
        ip->iso_start = isonum_711(isodir->ext_attr_length) + ip->iso_extent;

        /*
         * Setup time stamp, attribute
         */
        vp->v_type = VNON;
        switch (imp->iso_ftype) {
        default:        /* ISO_FTYPE_9660 */
            {
                struct buf *bp2;
                int off;
                if ((imp->im_flags & ISOFSMNT_EXTATT) &&
                    (off = isonum_711(isodir->ext_attr_length)))
                        cd9660_bufatoff(ip, (off_t)-(off << imp->im_bshift),
                            NULL, &bp2);
                else
                        bp2 = NULL;
                cd9660_defattr(isodir, ip, bp2);
                cd9660_deftstamp(isodir, ip, bp2);
                if (bp2)
                        brelse(bp2);
                break;
            }
        case ISO_FTYPE_RRIP:
                cd9660_rrip_analyze(isodir, ip, imp);
                break;
        }

        if (bp != 0)
                brelse(bp);

        /*
         * Initialize the associated vnode
         */
        switch (vp->v_type = IFTOVT(ip->inode.iso_mode)) {
        case VFIFO:
#ifdef  FIFO
                vp->v_op = &cd9660_fifovops;
                break;
#else
                vput(vp);
                return (EOPNOTSUPP);
#endif  /* FIFO */
        case VCHR:
        case VBLK:
                /*
                 * if device, look at device number table for translation
                 */
                vp->v_op = &cd9660_specvops;
                if ((nvp = checkalias(vp, ip->inode.iso_rdev, mp)) != NULL) {
                        /*
                         * Discard unneeded vnode, but save its iso_node.
                         * Note that the lock is carried over in the iso_node
                         */
                        nvp->v_data = vp->v_data;
                        vp->v_data = NULL;
                        vp->v_op = &spec_vops;
                        vrele(vp);
                        vgone(vp);
                        /*
                         * Reinitialize aliased inode.
                         */
                        vp = nvp;
                        ip->i_vnode = vp;
                }
                break;
        case VLNK:
        case VNON:
        case VSOCK:
        case VDIR:
        case VBAD:
                break;
        case VREG:
                uvm_vnp_setsize(vp, ip->i_size);
                break;
        }

        if (ip->iso_extent == imp->root_extent)
                vp->v_flag |= VROOT;

        /*
         * XXX need generation number?
         */

        *vpp = vp;
        return (0);
}

/*
 * Vnode pointer to File handle
 */
int
cd9660_vptofh(struct vnode *vp, struct fid *fhp)
{
        struct iso_node *ip = VTOI(vp);
        struct ifid *ifhp;

        ifhp = (struct ifid *)fhp;
        ifhp->ifid_len = sizeof(struct ifid);

        ifhp->ifid_ino = ip->i_number;
        ifhp->ifid_start = ip->iso_start;

#ifdef  ISOFS_DBG
        printf("vptofh: ino %d, start %ld\n",
            ifhp->ifid_ino,ifhp->ifid_start);
#endif
        return (0);
}

/*
 * Verify a remote client has export rights and return these rights via
 * exflagsp and credanonp.
 */
int
cd9660_check_export(struct mount *mp, struct mbuf *nam, int *exflagsp,
    struct ucred **credanonp)
{
        struct netcred *np;
        struct iso_mnt *imp = VFSTOISOFS(mp);

        /*
         * Get the export permission structure for this <mp, client> tuple.
         */
        np = vfs_export_lookup(mp, &imp->im_export, nam);
        if (np == NULL)
                return (EACCES);

        *exflagsp = np->netc_exflags;
        *credanonp = &np->netc_anon;
        return (0);
}