sys/dev/disk/vn/vn.c

   1 /*
   2  * Copyright (c) 1988 University of Utah.
   3  * Copyright (c) 1990, 1993
   4  *      The Regents of the University of California.  All rights reserved.
   5  *
   6  * This code is derived from software contributed to Berkeley by
   7  * the Systems Programming Group of the University of Utah Computer
   8  * Science Department.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  * 3. All advertising materials mentioning features or use of this software
  19  *    must display the following acknowledgement:
  20  *      This product includes software developed by the University of
  21  *      California, Berkeley and its contributors.
  22  * 4. Neither the name of the University nor the names of its contributors
  23  *    may be used to endorse or promote products derived from this software
  24  *    without specific prior written permission.
  25  *
  26  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  27  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  28  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  29  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  30  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  31  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  32  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  33  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  34  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  35  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  36  * SUCH DAMAGE.
  37  *
  38  * from: Utah Hdr: vn.c 1.13 94/04/02
  39  *
  40  *      from: @(#)vn.c  8.6 (Berkeley) 4/1/94
  41  * $FreeBSD: src/sys/dev/vn/vn.c,v 1.105.2.4 2001/11/18 07:11:00 dillon Exp $
  42  */
  43
  44 /*
  45  * Vnode disk driver.
  46  *
  47  * Block/character interface to a vnode.  Allows one to treat a file
  48  * as a disk (e.g. build a filesystem in it, mount it, etc.).
  49  *
  50  * NOTE 1: This uses the VOP_BMAP/VOP_STRATEGY interface to the vnode
  51  * instead of a simple VOP_RDWR.  We do this to avoid distorting the
  52  * local buffer cache.
  53  *
  54  * NOTE 2: There is a security issue involved with this driver.
  55  * Once mounted all access to the contents of the "mapped" file via
  56  * the special file is controlled by the permissions on the special
  57  * file, the protection of the mapped file is ignored (effectively,
  58  * by using root credentials in all transactions).
  59  *
  60  * NOTE 3: Doesn't interact with leases, should it?
  61  */
  62
  63 #include <sys/param.h>
  64 #include <sys/systm.h>
  65 #include <sys/kernel.h>
  66 #include <sys/namei.h>
  67 #include <sys/proc.h>
  68 #include <sys/buf.h>
  69 #include <sys/malloc.h>
  70 #include <sys/mount.h>
  71 #include <sys/vnode.h>
  72 #include <sys/fcntl.h>
  73 #include <sys/conf.h>
  74 #include <sys/disklabel.h>
  75 #include <sys/diskslice.h>
  76 #include <sys/stat.h>
  77 #include <sys/conf.h>
  78 #include <sys/module.h>
  79 #include <sys/vnioctl.h>
  80
  81 #include <vm/vm.h>
  82 #include <vm/vm_object.h>
  83 #include <vm/vm_page.h>
  84 #include <vm/vm_pager.h>
  85 #include <vm/vm_pageout.h>
  86 #include <vm/swap_pager.h>
  87 #include <vm/vm_extern.h>
  88 #include <vm/vm_zone.h>
  89
  90 static  d_ioctl_t       vnioctl;
  91 static  d_open_t        vnopen;
  92 static  d_close_t       vnclose;
  93 static  d_psize_t       vnsize;
  94 static  d_strategy_t    vnstrategy;
  95
  96 #define CDEV_MAJOR 43
  97 #define BDEV_MAJOR 15
  98
  99 #define VN_BSIZE_BEST   8192
 100
 101 /*
 102  * cdevsw
 103  *      D_DISK          we want to look like a disk
 104  *      D_CANFREE       We support B_FREEBUF
 105  */
 106
 107 static struct cdevsw vn_cdevsw = {
 108         /* open */      vnopen,
 109         /* close */     vnclose,
 110         /* read */      physread,
 111         /* write */     physwrite,
 112         /* ioctl */     vnioctl,
 113         /* poll */      nopoll,
 114         /* mmap */      nommap,
 115         /* strategy */  vnstrategy,
 116         /* name */      "vn",
 117         /* maj */       CDEV_MAJOR,
 118         /* dump */      nodump,
 119         /* psize */     vnsize,
 120         /* flags */     D_DISK|D_CANFREE,
 121         /* bmaj */      BDEV_MAJOR
 122 };
 123
 124 #define getvnbuf()      \
 125         ((struct buf *)malloc(sizeof(struct buf), M_DEVBUF, M_WAITOK))
 126
 127 #define putvnbuf(bp)    \
 128         free((caddr_t)(bp), M_DEVBUF)
 129
 130 struct vn_softc {
 131         int             sc_unit;
 132         int             sc_flags;       /* flags                        */
 133         int             sc_size;        /* size of vn, sc_secsize scale */
 134         int             sc_secsize;     /* sector size                  */
 135         struct diskslices *sc_slices;
 136         struct vnode    *sc_vp;         /* vnode if not NULL            */
 137         vm_object_t     sc_object;      /* backing object if not NULL   */
 138         struct ucred    *sc_cred;       /* credentials                  */
 139         int              sc_maxactive;  /* max # of active requests     */
 140         struct buf       sc_tab;        /* transfer queue               */
 141         u_long           sc_options;    /* options                      */
 142         dev_t            sc_devlist;    /* devices that refer to this unit */
 143         SLIST_ENTRY(vn_softc) sc_list;
 144 };
 145
 146 static SLIST_HEAD(, vn_softc) vn_list;
 147
 148 /* sc_flags */
 149 #define VNF_INITED      0x01
 150 #define VNF_READONLY    0x02
 151
 152 static u_long   vn_options;
 153
 154 #define IFOPT(vn,opt) if (((vn)->sc_options|vn_options) & (opt))
 155 #define TESTOPT(vn,opt) (((vn)->sc_options|vn_options) & (opt))
 156
 157 static int      vnsetcred (struct vn_softc *vn, struct ucred *cred);
 158 static void     vnclear (struct vn_softc *vn);
 159 static int      vn_modevent (module_t, int, void *);
 160 static int      vniocattach_file (struct vn_softc *, struct vn_ioctl *, dev_t dev, int flag, struct proc *p);
 161 static int      vniocattach_swap (struct vn_softc *, struct vn_ioctl *, dev_t dev, int flag, struct proc *p);
 162
 163 static  int
 164 vnclose(dev_t dev, int flags, int mode, struct proc *p)
 165 {
 166         struct vn_softc *vn = dev->si_drv1;
 167
 168         IFOPT(vn, VN_LABELS)
 169                 if (vn->sc_slices != NULL)
 170                         dsclose(dev, mode, vn->sc_slices);
 171         return (0);
 172 }
 173
 174 static struct vn_softc *
 175 vnfindvn(dev_t dev)
 176 {
 177         int unit;
 178         struct vn_softc *vn;
 179
 180         unit = dkunit(dev);
 181         vn = dev->si_drv1;
 182         if (!vn) {
 183                 SLIST_FOREACH(vn, &vn_list, sc_list) {
 184                         if (vn->sc_unit == unit) {
 185                                 dev->si_drv2 = vn->sc_devlist;
 186                                 vn->sc_devlist = dev;
 187                                 dev->si_drv1 = vn;
 188                                 break;
 189                         }
 190                 }
 191         }
 192         if (!vn) {
 193                 vn = malloc(sizeof *vn, M_DEVBUF, M_WAITOK);
 194                 if (!vn)
 195                         return (NULL);
 196                 bzero(vn, sizeof *vn);
 197                 vn->sc_unit = unit;
 198                 dev->si_drv1 = vn;
 199                 vn->sc_devlist = make_dev(&vn_cdevsw, 0,
 200                     UID_ROOT, GID_OPERATOR, 0640, "vn%d", unit);
 201                 vn->sc_devlist->si_drv1 = vn;
 202                 vn->sc_devlist->si_drv2 = NULL;
 203                 if (vn->sc_devlist != dev) {
 204                         dev->si_drv2 = vn->sc_devlist;
 205                         vn->sc_devlist = dev;
 206                 }
 207                 SLIST_INSERT_HEAD(&vn_list, vn, sc_list);
 208         }
 209         return (vn);
 210 }
 211
 212 static  int
 213 vnopen(dev_t dev, int flags, int mode, struct proc *p)
 214 {
 215         struct vn_softc *vn;
 216
 217         /*
 218          * Locate preexisting device
 219          */
 220
 221         if ((vn = dev->si_drv1) == NULL)
 222                 vn = vnfindvn(dev);
 223
 224         /*
 225          * Update si_bsize fields for device.  This data will be overriden by
 226          * the slice/parition code for vn accesses through partitions, and
 227          * used directly if you open the 'whole disk' device.
 228          *
 229          * si_bsize_best must be reinitialized in case VN has been
 230          * reconfigured, plus make it at least VN_BSIZE_BEST for efficiency.
 231          */
 232         dev->si_bsize_phys = vn->sc_secsize;
 233         dev->si_bsize_best = vn->sc_secsize;
 234         if (dev->si_bsize_best < VN_BSIZE_BEST)
 235                 dev->si_bsize_best = VN_BSIZE_BEST;
 236
 237         if ((flags & FWRITE) && (vn->sc_flags & VNF_READONLY))
 238                 return (EACCES);
 239
 240         IFOPT(vn, VN_FOLLOW)
 241                 printf("vnopen(%s, 0x%x, 0x%x, %p)\n",
 242                     devtoname(dev), flags, mode, (void *)p);
 243
 244         /*
 245          * Initialize label
 246          */
 247
 248         IFOPT(vn, VN_LABELS) {
 249                 if (vn->sc_flags & VNF_INITED) {
 250                         struct disklabel label;
 251
 252                         /* Build label for whole disk. */
 253                         bzero(&label, sizeof label);
 254                         label.d_secsize = vn->sc_secsize;
 255                         label.d_nsectors = 32;
 256                         label.d_ntracks = 64 / (vn->sc_secsize / DEV_BSIZE);
 257                         label.d_secpercyl = label.d_nsectors * label.d_ntracks;
 258                         label.d_ncylinders = vn->sc_size / label.d_secpercyl;
 259                         label.d_secperunit = vn->sc_size;
 260                         label.d_partitions[RAW_PART].p_size = vn->sc_size;
 261
 262                         return (dsopen(dev, mode, 0, &vn->sc_slices, &label));
 263                 }
 264                 if (dkslice(dev) != WHOLE_DISK_SLICE ||
 265                     dkpart(dev) != RAW_PART ||
 266                     mode != S_IFCHR) {
 267                         return (ENXIO);
 268                 }
 269         }
 270         return(0);
 271 }
 272
 273 /*
 274  *      vnstrategy:
 275  *
 276  *      Run strategy routine for VN device.  We use VOP_READ/VOP_WRITE calls
 277  *      for vnode-backed vn's, and the new vm_pager_strategy() call for
 278  *      vm_object-backed vn's.
 279  *
 280  *      Currently B_ASYNC is only partially handled - for OBJT_SWAP I/O only.
 281  *
 282  *      NOTE: bp->b_blkno is DEV_BSIZE'd.  We must generate bp->b_pblkno for
 283  *      our uio or vn_pager_strategy() call that is vn->sc_secsize'd
 284  */
 285
 286 static  void
 287 vnstrategy(struct buf *bp)
 288 {
 289         int unit;
 290         struct vn_softc *vn;
 291         int error;
 292
 293         unit = dkunit(bp->b_dev);
 294         vn = bp->b_dev->si_drv1;
 295         if (!vn)
 296                 vn = vnfindvn(bp->b_dev);
 297
 298         IFOPT(vn, VN_DEBUG)
 299                 printf("vnstrategy(%p): unit %d\n", bp, unit);
 300
 301         if ((vn->sc_flags & VNF_INITED) == 0) {
 302                 bp->b_error = ENXIO;
 303                 bp->b_flags |= B_ERROR;
 304                 biodone(bp);
 305                 return;
 306         }
 307
 308         bp->b_resid = bp->b_bcount;
 309
 310         IFOPT(vn, VN_LABELS) {
 311                 if (vn->sc_slices != NULL && dscheck(bp, vn->sc_slices) <= 0) {
 312                         bp->b_flags |= B_INVAL;
 313                         biodone(bp);
 314                         return;
 315                 }
 316         } else {
 317                 int pbn;        /* in sc_secsize chunks */
 318                 long sz;        /* in sc_secsize chunks */
 319
 320                 /*
 321                  * Check for required alignment.  Transfers must be a valid
 322                  * multiple of the sector size.
 323                  */
 324                 if (bp->b_bcount % vn->sc_secsize != 0 ||
 325                     bp->b_blkno % (vn->sc_secsize / DEV_BSIZE) != 0) {
 326                         bp->b_error = EINVAL;
 327                         bp->b_flags |= B_ERROR | B_INVAL;
 328                         biodone(bp);
 329                         return;
 330                 }
 331
 332                 pbn = bp->b_blkno / (vn->sc_secsize / DEV_BSIZE);
 333                 sz = howmany(bp->b_bcount, vn->sc_secsize);
 334
 335                 /*
 336                  * If out of bounds return an error.  If at the EOF point,
 337                  * simply read or write less.
 338                  */
 339                 if (pbn < 0 || pbn >= vn->sc_size) {
 340                         if (pbn != vn->sc_size) {
 341                                 bp->b_error = EINVAL;
 342                                 bp->b_flags |= B_ERROR | B_INVAL;
 343                         }
 344                         biodone(bp);
 345                         return;
 346                 }
 347
 348                 /*
 349                  * If the request crosses EOF, truncate the request.
 350                  */
 351                 if (pbn + sz > vn->sc_size) {
 352                         bp->b_bcount = (vn->sc_size - pbn) * vn->sc_secsize;
 353                         bp->b_resid = bp->b_bcount;
 354                 }
 355                 bp->b_pblkno = pbn;
 356         }
 357
 358         if (vn->sc_vp && (bp->b_flags & B_FREEBUF)) {
 359                 /*
 360                  * Not handled for vnode-backed element yet.
 361                  */
 362                 biodone(bp);
 363         } else if (vn->sc_vp) {
 364                 /*
 365                  * VNODE I/O
 366                  *
 367                  * If an error occurs, we set B_ERROR but we do not set
 368                  * B_INVAL because (for a write anyway), the buffer is
 369                  * still valid.
 370                  */
 371                 struct uio auio;
 372                 struct iovec aiov;
 373
 374                 bzero(&auio, sizeof(auio));
 375
 376                 aiov.iov_base = bp->b_data;
 377                 aiov.iov_len = bp->b_bcount;
 378                 auio.uio_iov = &aiov;
 379                 auio.uio_iovcnt = 1;
 380                 auio.uio_offset = (vm_ooffset_t)bp->b_pblkno * vn->sc_secsize;
 381                 auio.uio_segflg = UIO_SYSSPACE;
 382                 if( bp->b_flags & B_READ)
 383                         auio.uio_rw = UIO_READ;
 384                 else
 385                         auio.uio_rw = UIO_WRITE;
 386                 auio.uio_resid = bp->b_bcount;
 387                 auio.uio_procp = curproc;
 388                 vn_lock(vn->sc_vp, LK_EXCLUSIVE | LK_RETRY, curproc);
 389                 if (bp->b_flags & B_READ)
 390                         error = VOP_READ(vn->sc_vp, &auio, IO_DIRECT, vn->sc_cred);
 391                 else
 392                         error = VOP_WRITE(vn->sc_vp, &auio, IO_NOWDRAIN, vn->sc_cred);
 393                 VOP_UNLOCK(vn->sc_vp, 0, curproc);
 394                 bp->b_resid = auio.uio_resid;
 395
 396                 if (error) {
 397                         bp->b_error = error;
 398                         bp->b_flags |= B_ERROR;
 399                 }
 400                 biodone(bp);
 401         } else if (vn->sc_object) {
 402                 /*
 403                  * OBJT_SWAP I/O
 404                  *
 405                  * ( handles read, write, freebuf )
 406                  *
 407                  * Note: if we pre-reserved swap, B_FREEBUF is disabled
 408                  */
 409                 KASSERT((bp->b_bufsize & (vn->sc_secsize - 1)) == 0,
 410                     ("vnstrategy: buffer %p too small for physio", bp));
 411
 412                 if ((bp->b_flags & B_FREEBUF) && TESTOPT(vn, VN_RESERVE)) {
 413                         biodone(bp);
 414                 } else {
 415                         vm_pager_strategy(vn->sc_object, bp);
 416                 }
 417         } else {
 418                 bp->b_flags |= B_ERROR;
 419                 bp->b_error = EINVAL;
 420                 biodone(bp);
 421         }
 422 }
 423
 424 /* ARGSUSED */
 425 static  int
 426 vnioctl(dev_t dev, u_long cmd, caddr_t data, int flag, struct proc *p)
 427 {
 428         struct vn_softc *vn;
 429         struct vn_ioctl *vio;
 430         int error;
 431         u_long *f;
 432
 433         vn = dev->si_drv1;
 434         IFOPT(vn,VN_FOLLOW)
 435                 printf("vnioctl(%s, 0x%lx, %p, 0x%x, %p): unit %d\n",
 436                     devtoname(dev), cmd, (void *)data, flag, (void *)p,
 437                     dkunit(dev));
 438
 439         switch (cmd) {
 440         case VNIOCATTACH:
 441         case VNIOCDETACH:
 442         case VNIOCGSET:
 443         case VNIOCGCLEAR:
 444         case VNIOCUSET:
 445         case VNIOCUCLEAR:
 446                 goto vn_specific;
 447         }
 448
 449         IFOPT(vn,VN_LABELS) {
 450                 if (vn->sc_slices != NULL) {
 451                         error = dsioctl(dev, cmd, data, flag, &vn->sc_slices);
 452                         if (error != ENOIOCTL)
 453                                 return (error);
 454                 }
 455                 if (dkslice(dev) != WHOLE_DISK_SLICE ||
 456                     dkpart(dev) != RAW_PART)
 457                         return (ENOTTY);
 458         }
 459
 460     vn_specific:
 461
 462         error = suser(p);
 463         if (error)
 464                 return (error);
 465
 466         vio = (struct vn_ioctl *)data;
 467         f = (u_long*)data;
 468         switch (cmd) {
 469
 470         case VNIOCATTACH:
 471                 if (vn->sc_flags & VNF_INITED)
 472                         return(EBUSY);
 473
 474                 if (vio->vn_file == NULL)
 475                         error = vniocattach_swap(vn, vio, dev, flag, p);
 476                 else
 477                         error = vniocattach_file(vn, vio, dev, flag, p);
 478                 break;
 479
 480         case VNIOCDETACH:
 481                 if ((vn->sc_flags & VNF_INITED) == 0)
 482                         return(ENXIO);
 483                 /*
 484                  * XXX handle i/o in progress.  Return EBUSY, or wait, or
 485                  * flush the i/o.
 486                  * XXX handle multiple opens of the device.  Return EBUSY,
 487                  * or revoke the fd's.
 488                  * How are these problems handled for removable and failing
 489                  * hardware devices? (Hint: They are not)
 490                  */
 491                 vnclear(vn);
 492                 IFOPT(vn, VN_FOLLOW)
 493                         printf("vnioctl: CLRed\n");
 494                 break;
 495
 496         case VNIOCGSET:
 497                 vn_options |= *f;
 498                 *f = vn_options;
 499                 break;
 500
 501         case VNIOCGCLEAR:
 502                 vn_options &= ~(*f);
 503                 *f = vn_options;
 504                 break;
 505
 506         case VNIOCUSET:
 507                 vn->sc_options |= *f;
 508                 *f = vn->sc_options;
 509                 break;
 510
 511         case VNIOCUCLEAR:
 512                 vn->sc_options &= ~(*f);
 513                 *f = vn->sc_options;
 514                 break;
 515
 516         default:
 517                 error = ENOTTY;
 518                 break;
 519         }
 520         return(error);
 521 }
 522
 523 /*
 524  *      vniocattach_file:
 525  *
 526  *      Attach a file to a VN partition.  Return the size in the vn_size
 527  *      field.
 528  */
 529
 530 static int
 531 vniocattach_file(vn, vio, dev, flag, p)
 532         struct vn_softc *vn;
 533         struct vn_ioctl *vio;
 534         dev_t dev;
 535         int flag;
 536         struct proc *p;
 537 {
 538         struct vattr vattr;
 539         struct nameidata nd;
 540         int error, flags;
 541
 542         flags = FREAD|FWRITE;
 543         NDINIT(&nd, LOOKUP, FOLLOW, UIO_USERSPACE, vio->vn_file, p);
 544         error = vn_open(&nd, flags, 0);
 545         if (error) {
 546                 if (error != EACCES && error != EPERM && error != EROFS)
 547                         return (error);
 548                 flags &= ~FWRITE;
 549                 NDINIT(&nd, LOOKUP, FOLLOW, UIO_USERSPACE, vio->vn_file, p);
 550                 error = vn_open(&nd, flags, 0);
 551                 if (error)
 552                         return (error);
 553         }
 554         NDFREE(&nd, NDF_ONLY_PNBUF);
 555         if (nd.ni_vp->v_type != VREG ||
 556             (error = VOP_GETATTR(nd.ni_vp, &vattr, p->p_ucred, p))) {
 557                 VOP_UNLOCK(nd.ni_vp, 0, p);
 558                 (void) vn_close(nd.ni_vp, flags, p->p_ucred, p);
 559                 return (error ? error : EINVAL);
 560         }
 561         VOP_UNLOCK(nd.ni_vp, 0, p);
 562         vn->sc_secsize = DEV_BSIZE;
 563         vn->sc_vp = nd.ni_vp;
 564
 565         /*
 566          * If the size is specified, override the file attributes.  Note that
 567          * the vn_size argument is in PAGE_SIZE sized blocks.
 568          */
 569         if (vio->vn_size)
 570                 vn->sc_size = (quad_t)vio->vn_size * PAGE_SIZE / vn->sc_secsize;
 571         else
 572                 vn->sc_size = vattr.va_size / vn->sc_secsize;
 573         error = vnsetcred(vn, p->p_ucred);
 574         if (error) {
 575                 (void) vn_close(nd.ni_vp, flags, p->p_ucred, p);
 576                 return(error);
 577         }
 578         vn->sc_flags |= VNF_INITED;
 579         if (flags == FREAD)
 580                 vn->sc_flags |= VNF_READONLY;
 581         IFOPT(vn, VN_LABELS) {
 582                 /*
 583                  * Reopen so that `ds' knows which devices are open.
 584                  * If this is the first VNIOCSET, then we've
 585                  * guaranteed that the device is the cdev and that
 586                  * no other slices or labels are open.  Otherwise,
 587                  * we rely on VNIOCCLR not being abused.
 588                  */
 589                 error = vnopen(dev, flag, S_IFCHR, p);
 590                 if (error)
 591                         vnclear(vn);
 592         }
 593         IFOPT(vn, VN_FOLLOW)
 594                 printf("vnioctl: SET vp %p size %x blks\n",
 595                        vn->sc_vp, vn->sc_size);
 596         return(0);
 597 }
 598
 599 /*
 600  *      vniocattach_swap:
 601  *
 602  *      Attach swap backing store to a VN partition of the size specified
 603  *      in vn_size.
 604  */
 605
 606 static int
 607 vniocattach_swap(vn, vio, dev, flag, p)
 608         struct vn_softc *vn;
 609         struct vn_ioctl *vio;
 610         dev_t dev;
 611         int flag;
 612         struct proc *p;
 613 {
 614         int error;
 615
 616         /*
 617          * Range check.  Disallow negative sizes or any size less then the
 618          * size of a page.  Then round to a page.
 619          */
 620
 621         if (vio->vn_size <= 0)
 622                 return(EDOM);
 623
 624         /*
 625          * Allocate an OBJT_SWAP object.
 626          *
 627          * sc_secsize is PAGE_SIZE'd
 628          *
 629          * vio->vn_size is in PAGE_SIZE'd chunks.
 630          * sc_size must be in PAGE_SIZE'd chunks.
 631          * Note the truncation.
 632          */
 633
 634         vn->sc_secsize = PAGE_SIZE;
 635         vn->sc_size = vio->vn_size;
 636         vn->sc_object =
 637          vm_pager_allocate(OBJT_SWAP, NULL, vn->sc_secsize * (vm_ooffset_t)vio->vn_size, VM_PROT_DEFAULT, 0);
 638         IFOPT(vn, VN_RESERVE) {
 639                 if (swap_pager_reserve(vn->sc_object, 0, vn->sc_size) < 0) {
 640                         vm_pager_deallocate(vn->sc_object);
 641                         vn->sc_object = NULL;
 642                         return(EDOM);
 643                 }
 644         }
 645         vn->sc_flags |= VNF_INITED;
 646
 647         error = vnsetcred(vn, p->p_ucred);
 648         if (error == 0) {
 649                 IFOPT(vn, VN_LABELS) {
 650                         /*
 651                          * Reopen so that `ds' knows which devices are open.
 652                          * If this is the first VNIOCSET, then we've
 653                          * guaranteed that the device is the cdev and that
 654                          * no other slices or labels are open.  Otherwise,
 655                          * we rely on VNIOCCLR not being abused.
 656                          */
 657                         error = vnopen(dev, flag, S_IFCHR, p);
 658                 }
 659         }
 660         if (error == 0) {
 661                 IFOPT(vn, VN_FOLLOW) {
 662                         printf("vnioctl: SET vp %p size %x\n",
 663                                vn->sc_vp, vn->sc_size);
 664                 }
 665         }
 666         if (error)
 667                 vnclear(vn);
 668         return(error);
 669 }
 670
 671 /*
 672  * Duplicate the current processes' credentials.  Since we are called only
 673  * as the result of a SET ioctl and only root can do that, any future access
 674  * to this "disk" is essentially as root.  Note that credentials may change
 675  * if some other uid can write directly to the mapped file (NFS).
 676  */
 677 int
 678 vnsetcred(struct vn_softc *vn, struct ucred *cred)
 679 {
 680         char *tmpbuf;
 681         int error = 0;
 682
 683         /*
 684          * Set credits in our softc
 685          */
 686
 687         if (vn->sc_cred)
 688                 crfree(vn->sc_cred);
 689         vn->sc_cred = crdup(cred);
 690
 691         /*
 692          * Horrible kludge to establish credentials for NFS  XXX.
 693          */
 694
 695         if (vn->sc_vp) {
 696                 struct uio auio;
 697                 struct iovec aiov;
 698
 699                 tmpbuf = malloc(vn->sc_secsize, M_TEMP, M_WAITOK);
 700                 bzero(&auio, sizeof(auio));
 701
 702                 aiov.iov_base = tmpbuf;
 703                 aiov.iov_len = vn->sc_secsize;
 704                 auio.uio_iov = &aiov;
 705                 auio.uio_iovcnt = 1;
 706                 auio.uio_offset = 0;
 707                 auio.uio_rw = UIO_READ;
 708                 auio.uio_segflg = UIO_SYSSPACE;
 709                 auio.uio_resid = aiov.iov_len;
 710                 vn_lock(vn->sc_vp, LK_EXCLUSIVE | LK_RETRY, curproc);
 711                 error = VOP_READ(vn->sc_vp, &auio, 0, vn->sc_cred);
 712                 VOP_UNLOCK(vn->sc_vp, 0, curproc);
 713                 free(tmpbuf, M_TEMP);
 714         }
 715         return (error);
 716 }
 717
 718 void
 719 vnclear(struct vn_softc *vn)
 720 {
 721         struct proc *p = curproc;               /* XXX */
 722
 723         IFOPT(vn, VN_FOLLOW)
 724                 printf("vnclear(%p): vp=%p\n", vn, vn->sc_vp);
 725         if (vn->sc_slices != NULL)
 726                 dsgone(&vn->sc_slices);
 727         vn->sc_flags &= ~VNF_INITED;
 728         if (vn->sc_vp != NULL) {
 729                 (void)vn_close(vn->sc_vp, vn->sc_flags & VNF_READONLY ?
 730                     FREAD : (FREAD|FWRITE), vn->sc_cred, p);
 731                 vn->sc_vp = NULL;
 732         }
 733         vn->sc_flags &= ~VNF_READONLY;
 734         if (vn->sc_cred) {
 735                 crfree(vn->sc_cred);
 736                 vn->sc_cred = NULL;
 737         }
 738         if (vn->sc_object != NULL) {
 739                 vm_pager_deallocate(vn->sc_object);
 740                 vn->sc_object = NULL;
 741         }
 742         vn->sc_size = 0;
 743 }
 744
 745 static  int
 746 vnsize(dev_t dev)
 747 {
 748         struct vn_softc *vn;
 749
 750         vn = dev->si_drv1;
 751         if (!vn)
 752                 return(-1);
 753         if ((vn->sc_flags & VNF_INITED) == 0)
 754                 return(-1);
 755
 756         return(vn->sc_size);
 757 }
 758
 759 static int
 760 vn_modevent(module_t mod, int type, void *data)
 761 {
 762         struct vn_softc *vn;
 763         dev_t dev;
 764
 765         switch (type) {
 766         case MOD_LOAD:
 767                 cdevsw_add(&vn_cdevsw);
 768                 break;
 769
 770         case MOD_UNLOAD:
 771                 /* fall through */
 772         case MOD_SHUTDOWN:
 773                 for (;;) {
 774                         vn = SLIST_FIRST(&vn_list);
 775                         if (!vn)
 776                                 break;
 777                         SLIST_REMOVE_HEAD(&vn_list, sc_list);
 778                         if (vn->sc_flags & VNF_INITED)
 779                                 vnclear(vn);
 780                         /* Cleanup all dev_t's that refer to this unit */
 781                         while ((dev = vn->sc_devlist) != NULL) {
 782                                 vn->sc_devlist = dev->si_drv2;
 783                                 dev->si_drv1 = dev->si_drv2 = NULL;
 784                                 /* If the last one, destroy it. */
 785                                 if (vn->sc_devlist == NULL)
 786                                         destroy_dev(dev);
 787                         }
 788                         free(vn, M_DEVBUF);
 789                 }
 790                 cdevsw_remove(&vn_cdevsw);
 791                 break;
 792         default:
 793                 break;
 794         }
 795         return 0;
 796 }
 797
 798 DEV_MODULE(vn, vn_modevent, 0);