sys/fs/hpfs/hpfs_vnops.c

   1 /*-
   2  * Copyright (c) 1998, 1999 Semen Ustimenko (semenu@FreeBSD.org)
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  24  * SUCH DAMAGE.
  25  *
  26  * $FreeBSD$
  27  */
  28
  29 #include <sys/param.h>
  30 #include <sys/systm.h>
  31 #include <sys/kernel.h>
  32 #include <sys/proc.h>
  33 #include <sys/conf.h>
  34 #include <sys/time.h>
  35 #include <sys/types.h>
  36 #include <sys/stat.h>
  37 #include <sys/vnode.h>
  38 #include <sys/mount.h>
  39 #include <sys/namei.h>
  40 #include <sys/malloc.h>
  41 #include <sys/bio.h>
  42 #include <sys/buf.h>
  43 #include <sys/dirent.h>
  44
  45 #include <vm/vm.h>
  46 #include <vm/vm_param.h>
  47 #include <vm/vm_page.h>
  48 #include <vm/vm_object.h>
  49 #include <vm/vm_pager.h>
  50 #include <vm/vnode_pager.h>
  51 #include <vm/vm_extern.h>
  52
  53 #include <sys/unistd.h> /* for pathconf(2) constants */
  54
  55 #include <fs/hpfs/hpfs.h>
  56 #include <fs/hpfs/hpfsmount.h>
  57 #include <fs/hpfs/hpfs_subr.h>
  58 #include <fs/hpfs/hpfs_ioctl.h>
  59
  60 static int      hpfs_de_uiomove(struct hpfsmount *, struct hpfsdirent *,
  61                                      struct uio *);
  62 static vop_ioctl_t      hpfs_ioctl;
  63 static vop_read_t       hpfs_read;
  64 static vop_write_t      hpfs_write;
  65 static vop_getattr_t    hpfs_getattr;
  66 static vop_setattr_t    hpfs_setattr;
  67 static vop_inactive_t   hpfs_inactive;
  68 static vop_print_t      hpfs_print;
  69 static vop_reclaim_t    hpfs_reclaim;
  70 static vop_strategy_t   hpfs_strategy;
  71 static vop_access_t     hpfs_access;
  72 static vop_open_t       hpfs_open;
  73 static vop_close_t      hpfs_close;
  74 static vop_readdir_t    hpfs_readdir;
  75 static vop_cachedlookup_t       hpfs_lookup;
  76 static vop_create_t     hpfs_create;
  77 static vop_remove_t     hpfs_remove;
  78 static vop_bmap_t       hpfs_bmap;
  79 static vop_fsync_t      hpfs_fsync;
  80 static vop_pathconf_t   hpfs_pathconf;
  81 static vop_vptofh_t     hpfs_vptofh;
  82
  83 static int
  84 hpfs_fsync(ap)
  85         struct vop_fsync_args /* {
  86                 struct vnode *a_vp;
  87                 struct ucred *a_cred;
  88                 int a_waitfor;
  89                 struct thread *a_td;
  90         } */ *ap;
  91 {
  92         /*
  93          * Flush our dirty buffers.
  94          */
  95         vop_stdfsync(ap);
  96
  97         /*
  98          * Write out the on-disc version of the vnode.
  99          */
 100         return hpfs_update(VTOHP(ap->a_vp));
 101 }
 102
 103 static int
 104 hpfs_ioctl (
 105         struct vop_ioctl_args /* {
 106                 struct vnode *a_vp;
 107                 u_long a_command;
 108                 caddr_t a_data;
 109                 int a_fflag;
 110                 struct ucred *a_cred;
 111                 struct thread *a_td;
 112         } */ *ap)
 113 {
 114         register struct vnode *vp = ap->a_vp;
 115         register struct hpfsnode *hp = VTOHP(vp);
 116         int error;
 117
 118         printf("hpfs_ioctl(0x%x, 0x%lx, 0x%p, 0x%x): ",
 119                 hp->h_no, ap->a_command, ap->a_data, ap->a_fflag);
 120
 121         switch (ap->a_command) {
 122         case HPFSIOCGEANUM: {
 123                 u_long eanum;
 124                 u_long passed;
 125                 struct ea *eap;
 126
 127                 eanum = 0;
 128
 129                 if (hp->h_fn.fn_ealen > 0) {
 130                         eap = (struct ea *)&(hp->h_fn.fn_int);
 131                         passed = 0;
 132
 133                         while (passed < hp->h_fn.fn_ealen) {
 134
 135                                 printf("EAname: %s\n", EA_NAME(eap));
 136
 137                                 eanum++;
 138                                 passed += sizeof(struct ea) +
 139                                           eap->ea_namelen + 1 + eap->ea_vallen;
 140                                 eap = (struct ea *)((caddr_t)hp->h_fn.fn_int +
 141                                                 passed);
 142                         }
 143                         error = 0;
 144                 } else {
 145                         error = ENOENT;
 146                 }
 147
 148                 printf("%lu eas\n", eanum);
 149
 150                 *(u_long *)ap->a_data = eanum;
 151
 152                 break;
 153         }
 154         case HPFSIOCGEASZ: {
 155                 u_long eanum;
 156                 u_long passed;
 157                 struct ea *eap;
 158
 159                 printf("EA%ld\n", *(u_long *)ap->a_data);
 160
 161                 eanum = 0;
 162                 if (hp->h_fn.fn_ealen > 0) {
 163                         eap = (struct ea *)&(hp->h_fn.fn_int);
 164                         passed = 0;
 165
 166                         error = ENOENT;
 167                         while (passed < hp->h_fn.fn_ealen) {
 168                                 printf("EAname: %s\n", EA_NAME(eap));
 169
 170                                 if (eanum == *(u_long *)ap->a_data) {
 171                                         *(u_long *)ap->a_data =
 172                                                 eap->ea_namelen + 1 +
 173                                                 eap->ea_vallen;
 174
 175                                         error = 0;
 176                                         break;
 177                                 }
 178
 179                                 eanum++;
 180                                 passed += sizeof(struct ea) +
 181                                           eap->ea_namelen + 1 + eap->ea_vallen;
 182                                 eap = (struct ea *)((caddr_t)hp->h_fn.fn_int +
 183                                                 passed);
 184                         }
 185                 } else {
 186                         error = ENOENT;
 187                 }
 188
 189                 break;
 190         }
 191         case HPFSIOCRDEA: {
 192                 u_long eanum;
 193                 u_long passed;
 194                 struct hpfs_rdea *rdeap;
 195                 struct ea *eap;
 196
 197                 rdeap = (struct hpfs_rdea *)ap->a_data;
 198                 printf("EA%ld\n", rdeap->ea_no);
 199
 200                 eanum = 0;
 201                 if (hp->h_fn.fn_ealen > 0) {
 202                         eap = (struct ea *)&(hp->h_fn.fn_int);
 203                         passed = 0;
 204
 205                         error = ENOENT;
 206                         while (passed < hp->h_fn.fn_ealen) {
 207                                 printf("EAname: %s\n", EA_NAME(eap));
 208
 209                                 if (eanum == rdeap->ea_no) {
 210                                         rdeap->ea_sz = eap->ea_namelen + 1 +
 211                                                         eap->ea_vallen;
 212                                         copyout(EA_NAME(eap),rdeap->ea_data,
 213                                                 rdeap->ea_sz);
 214                                         error = 0;
 215                                         break;
 216                                 }
 217
 218                                 eanum++;
 219                                 passed += sizeof(struct ea) +
 220                                           eap->ea_namelen + 1 + eap->ea_vallen;
 221                                 eap = (struct ea *)((caddr_t)hp->h_fn.fn_int +
 222                                                 passed);
 223                         }
 224                 } else {
 225                         error = ENOENT;
 226                 }
 227
 228                 break;
 229         }
 230         default:
 231                 error = ENOTTY;
 232                 break;
 233         }
 234         return (error);
 235 }
 236
 237 /*
 238  * Map file offset to disk offset.
 239  */
 240 int
 241 hpfs_bmap(ap)
 242         struct vop_bmap_args /* {
 243                 struct vnode *a_vp;
 244                 daddr_t  a_bn;
 245                 struct bufobj **a_bop;
 246                 daddr_t *a_bnp;
 247                 int *a_runp;
 248                 int *a_runb;
 249         } */ *ap;
 250 {
 251         register struct hpfsnode *hp = VTOHP(ap->a_vp);
 252         daddr_t blkno;
 253         int error;
 254
 255         if (ap->a_bop != NULL)
 256                 *ap->a_bop = &hp->h_devvp->v_bufobj;
 257         if (ap->a_runb != NULL)
 258                 *ap->a_runb = 0;
 259         if (ap->a_bnp == NULL)
 260                 return (0);
 261
 262         dprintf(("hpfs_bmap(0x%x, 0x%x): ",hp->h_no, ap->a_bn));
 263
 264         error = hpfs_hpbmap (hp, ap->a_bn, &blkno, ap->a_runp);
 265         *ap->a_bnp = blkno;
 266
 267         return (error);
 268 }
 269
 270 static int
 271 hpfs_read(ap)
 272         struct vop_read_args /* {
 273                 struct vnode *a_vp;
 274                 struct uio *a_uio;
 275                 int a_ioflag;
 276                 struct ucred *a_cred;
 277         } */ *ap;
 278 {
 279         register struct vnode *vp = ap->a_vp;
 280         register struct hpfsnode *hp = VTOHP(vp);
 281         struct uio *uio = ap->a_uio;
 282         struct buf *bp;
 283         u_int xfersz, toread;
 284         u_int off;
 285         daddr_t lbn, bn;
 286         int resid;
 287         int runl;
 288         int error = 0;
 289
 290         resid = min (uio->uio_resid, hp->h_fn.fn_size - uio->uio_offset);
 291
 292         dprintf(("hpfs_read(0x%x, off: %d resid: %d, segflg: %d): [resid: 0x%x]\n",hp->h_no,(u_int32_t)uio->uio_offset,uio->uio_resid,uio->uio_segflg, resid));
 293
 294         while (resid) {
 295                 lbn = uio->uio_offset >> DEV_BSHIFT;
 296                 off = uio->uio_offset & (DEV_BSIZE - 1);
 297                 dprintf(("hpfs_read: resid: 0x%x lbn: 0x%x off: 0x%x\n",
 298                         uio->uio_resid, lbn, off));
 299                 error = hpfs_hpbmap(hp, lbn, &bn, &runl);
 300                 if (error)
 301                         return (error);
 302
 303                 toread = min(off + resid, min(DFLTPHYS, (runl+1)*DEV_BSIZE));
 304                 xfersz = (toread + DEV_BSIZE - 1) & ~(DEV_BSIZE - 1);
 305                 dprintf(("hpfs_read: bn: 0x%x (0x%x) toread: 0x%x (0x%x)\n",
 306                         bn, runl, toread, xfersz));
 307
 308                 if (toread == 0)
 309                         break;
 310
 311                 error = bread(hp->h_devvp, bn, xfersz, NOCRED, &bp);
 312                 if (error) {
 313                         brelse(bp);
 314                         break;
 315                 }
 316
 317                 error = uiomove(bp->b_data + off, toread - off, uio);
 318                 if(error) {
 319                         brelse(bp);
 320                         break;
 321                 }
 322                 brelse(bp);
 323                 resid -= toread;
 324         }
 325         dprintf(("hpfs_read: successful\n"));
 326         return (error);
 327 }
 328
 329 static int
 330 hpfs_write(ap)
 331         struct vop_write_args /* {
 332                 struct vnode *a_vp;
 333                 struct uio *a_uio;
 334                 int  a_ioflag;
 335                 struct ucred *a_cred;
 336         } */ *ap;
 337 {
 338         register struct vnode *vp = ap->a_vp;
 339         register struct hpfsnode *hp = VTOHP(vp);
 340         struct uio *uio = ap->a_uio;
 341         struct buf *bp;
 342         u_int xfersz, towrite;
 343         u_int off;
 344         daddr_t lbn, bn;
 345         int runl;
 346         int error = 0;
 347
 348         dprintf(("hpfs_write(0x%x, off: %d resid: %d, segflg: %d):\n",hp->h_no,(u_int32_t)uio->uio_offset,uio->uio_resid,uio->uio_segflg));
 349
 350         if (ap->a_ioflag & IO_APPEND) {
 351                 dprintf(("hpfs_write: APPEND mode\n"));
 352                 uio->uio_offset = hp->h_fn.fn_size;
 353         }
 354         if (uio->uio_offset + uio->uio_resid > hp->h_fn.fn_size) {
 355                 error = hpfs_extend (hp, uio->uio_offset + uio->uio_resid);
 356                 if (error) {
 357                         printf("hpfs_write: hpfs_extend FAILED %d\n", error);
 358                         return (error);
 359                 }
 360         }
 361
 362         while (uio->uio_resid) {
 363                 lbn = uio->uio_offset >> DEV_BSHIFT;
 364                 off = uio->uio_offset & (DEV_BSIZE - 1);
 365                 dprintf(("hpfs_write: resid: 0x%x lbn: 0x%x off: 0x%x\n",
 366                         uio->uio_resid, lbn, off));
 367                 error = hpfs_hpbmap(hp, lbn, &bn, &runl);
 368                 if (error)
 369                         return (error);
 370
 371                 towrite = min(off + uio->uio_resid, min(DFLTPHYS, (runl+1)*DEV_BSIZE));
 372                 xfersz = (towrite + DEV_BSIZE - 1) & ~(DEV_BSIZE - 1);
 373                 dprintf(("hpfs_write: bn: 0x%x (0x%x) towrite: 0x%x (0x%x)\n",
 374                         bn, runl, towrite, xfersz));
 375
 376                 if ((off == 0) && (towrite == xfersz)) {
 377                         bp = getblk(hp->h_devvp, bn, xfersz, 0, 0, 0);
 378                         clrbuf(bp);
 379                 } else {
 380                         error = bread(hp->h_devvp, bn, xfersz, NOCRED, &bp);
 381                         if (error) {
 382                                 brelse(bp);
 383                                 return (error);
 384                         }
 385                 }
 386
 387                 error = uiomove(bp->b_data + off, towrite - off, uio);
 388                 if(error) {
 389                         brelse(bp);
 390                         return (error);
 391                 }
 392
 393                 if (ap->a_ioflag & IO_SYNC)
 394                         bwrite(bp);
 395                 else
 396                         bawrite(bp);
 397         }
 398
 399         dprintf(("hpfs_write: successful\n"));
 400         return (0);
 401 }
 402
 403 /*
 404  * XXXXX do we need hpfsnode locking inside?
 405  */
 406 static int
 407 hpfs_getattr(ap)
 408         struct vop_getattr_args /* {
 409                 struct vnode *a_vp;
 410                 struct vattr *a_vap;
 411                 struct ucred *a_cred;
 412         } */ *ap;
 413 {
 414         register struct vnode *vp = ap->a_vp;
 415         register struct hpfsnode *hp = VTOHP(vp);
 416         register struct vattr *vap = ap->a_vap;
 417         int error;
 418
 419         dprintf(("hpfs_getattr(0x%x):\n", hp->h_no));
 420
 421         vap->va_fsid = dev2udev(hp->h_dev);
 422         vap->va_fileid = hp->h_no;
 423         vap->va_mode = hp->h_mode;
 424         vap->va_nlink = 1;
 425         vap->va_uid = hp->h_uid;
 426         vap->va_gid = hp->h_gid;
 427         vap->va_rdev = NODEV;
 428         vap->va_size = hp->h_fn.fn_size;
 429         vap->va_bytes = ((hp->h_fn.fn_size + DEV_BSIZE-1) & ~(DEV_BSIZE-1)) +
 430                         DEV_BSIZE;
 431
 432         if (!(hp->h_flag & H_PARVALID)) {
 433                 error = hpfs_validateparent(hp);
 434                 if (error)
 435                         return (error);
 436         }
 437         vap->va_atime = hpfstimetounix(hp->h_atime);
 438         vap->va_mtime = hpfstimetounix(hp->h_mtime);
 439         vap->va_ctime = hpfstimetounix(hp->h_ctime);
 440
 441         vap->va_flags = 0;
 442         vap->va_gen = 0;
 443         vap->va_blocksize = DEV_BSIZE;
 444         vap->va_type = vp->v_type;
 445         vap->va_filerev = 0;
 446
 447         return (0);
 448 }
 449
 450 /*
 451  * XXXXX do we need hpfsnode locking inside?
 452  */
 453 static int
 454 hpfs_setattr(ap)
 455         struct vop_setattr_args /* {
 456                 struct vnode *a_vp;
 457                 struct vattr *a_vap;
 458                 struct ucred *a_cred;
 459         } */ *ap;
 460 {
 461         struct vnode *vp = ap->a_vp;
 462         struct hpfsnode *hp = VTOHP(vp);
 463         struct vattr *vap = ap->a_vap;
 464         struct ucred *cred = ap->a_cred;
 465         struct thread *td = curthread;
 466         int error;
 467
 468         dprintf(("hpfs_setattr(0x%x):\n", hp->h_no));
 469
 470         /*
 471          * Check for unsettable attributes.
 472          */
 473         if ((vap->va_type != VNON) || (vap->va_nlink != VNOVAL) ||
 474             (vap->va_fsid != VNOVAL) || (vap->va_fileid != VNOVAL) ||
 475             (vap->va_blocksize != VNOVAL) || (vap->va_rdev != VNOVAL) ||
 476             (vap->va_bytes != VNOVAL) || (vap->va_gen != VNOVAL)) {
 477                 dprintf(("hpfs_setattr: changing nonsettable attr\n"));
 478                 return (EINVAL);
 479         }
 480
 481         /* Can't change flags XXX Could be implemented */
 482         if (vap->va_flags != VNOVAL) {
 483                 printf("hpfs_setattr: FLAGS CANNOT BE SET\n");
 484                 return (EINVAL);
 485         }
 486
 487         /* Can't change uid/gid XXX Could be implemented */
 488         if (vap->va_uid != (uid_t)VNOVAL || vap->va_gid != (gid_t)VNOVAL) {
 489                 printf("hpfs_setattr: UID/GID CANNOT BE SET\n");
 490                 return (EINVAL);
 491         }
 492
 493         /* Can't change mode XXX Could be implemented */
 494         if (vap->va_mode != (mode_t)VNOVAL) {
 495                 printf("hpfs_setattr: MODE CANNOT BE SET\n");
 496                 return (EINVAL);
 497         }
 498
 499         /* Update times */
 500         if (vap->va_atime.tv_sec != VNOVAL || vap->va_mtime.tv_sec != VNOVAL) {
 501                 if (vp->v_mount->mnt_flag & MNT_RDONLY)
 502                         return (EROFS);
 503                 if (vap->va_vaflags & VA_UTIMES_NULL) {
 504                         error = VOP_ACCESS(vp, VADMIN, cred, td);
 505                         if (error)
 506                                 error = VOP_ACCESS(vp, VWRITE, cred, td);
 507                 } else
 508                         error = VOP_ACCESS(vp, VADMIN, cred, td);
 509                 if (vap->va_atime.tv_sec != VNOVAL)
 510                         hp->h_atime = vap->va_atime.tv_sec;
 511                 if (vap->va_mtime.tv_sec != VNOVAL)
 512                         hp->h_mtime = vap->va_mtime.tv_sec;
 513
 514                 hp->h_flag |= H_PARCHANGE;
 515         }
 516
 517         if (vap->va_size != VNOVAL) {
 518                 switch (vp->v_type) {
 519                 case VDIR:
 520                         return (EISDIR);
 521                 case VREG:
 522                         if (vp->v_mount->mnt_flag & MNT_RDONLY)
 523                                 return (EROFS);
 524                         break;
 525                 default:
 526                         printf("hpfs_setattr: WRONG v_type\n");
 527                         return (EINVAL);
 528                 }
 529
 530                 if (vap->va_size < hp->h_fn.fn_size) {
 531                         error = vtruncbuf(vp, cred, td, vap->va_size, DEV_BSIZE);
 532                         if (error)
 533                                 return (error);
 534                         error = hpfs_truncate(hp, vap->va_size);
 535                         if (error)
 536                                 return (error);
 537
 538                 } else if (vap->va_size > hp->h_fn.fn_size) {
 539                         vnode_pager_setsize(vp, vap->va_size);
 540                         error = hpfs_extend(hp, vap->va_size);
 541                         if (error)
 542                                 return (error);
 543                 }
 544         }
 545
 546         return (0);
 547 }
 548
 549 /*
 550  * Last reference to a node.  If necessary, write or delete it.
 551  */
 552 int
 553 hpfs_inactive(ap)
 554         struct vop_inactive_args /* {
 555                 struct vnode *a_vp;
 556         } */ *ap;
 557 {
 558         register struct vnode *vp = ap->a_vp;
 559         register struct hpfsnode *hp = VTOHP(vp);
 560         int error;
 561
 562         dprintf(("hpfs_inactive(0x%x): \n", hp->h_no));
 563
 564         if (hp->h_flag & H_CHANGE) {
 565                 dprintf(("hpfs_inactive: node changed, update\n"));
 566                 error = hpfs_update (hp);
 567                 if (error)
 568                         return (error);
 569         }
 570
 571         if (hp->h_flag & H_PARCHANGE) {
 572                 dprintf(("hpfs_inactive: parent node changed, update\n"));
 573                 error = hpfs_updateparent (hp);
 574                 if (error)
 575                         return (error);
 576         }
 577
 578         if (prtactive && vrefcnt(vp) != 0)
 579                 vprint("hpfs_inactive: pushing active", vp);
 580
 581         if (hp->h_flag & H_INVAL) {
 582                 vrecycle(vp, ap->a_td);
 583                 return (0);
 584         }
 585
 586         return (0);
 587 }
 588
 589 /*
 590  * Reclaim an inode so that it can be used for other purposes.
 591  */
 592 int
 593 hpfs_reclaim(ap)
 594         struct vop_reclaim_args /* {
 595                 struct vnode *a_vp;
 596         } */ *ap;
 597 {
 598         register struct vnode *vp = ap->a_vp;
 599         register struct hpfsnode *hp = VTOHP(vp);
 600
 601         dprintf(("hpfs_reclaim(0x%x0): \n", hp->h_no));
 602
 603         /*
 604          * Destroy the vm object and flush associated pages.
 605          */
 606         vnode_destroy_vobject(vp);
 607
 608         vfs_hash_remove(vp);
 609
 610         mtx_destroy(&hp->h_interlock);
 611
 612         vp->v_data = NULL;
 613
 614         free(hp, M_HPFSNO);
 615
 616         return (0);
 617 }
 618
 619 static int
 620 hpfs_print(ap)
 621         struct vop_print_args /* {
 622                 struct vnode *a_vp;
 623         } */ *ap;
 624 {
 625         register struct vnode *vp = ap->a_vp;
 626         register struct hpfsnode *hp = VTOHP(vp);
 627
 628         printf("\tino 0x%x\n", hp->h_no);
 629         return (0);
 630 }
 631
 632 /*
 633  * Calculate the logical to physical mapping if not done already,
 634  * then call the device strategy routine.
 635  *
 636  * In order to be able to swap to a file, the hpfs_hpbmap operation may not
 637  * deadlock on memory.  See hpfs_bmap() for details. XXXXXXX (not impl)
 638  */
 639 int
 640 hpfs_strategy(ap)
 641         struct vop_strategy_args /* {
 642                 struct buf *a_bp;
 643         } */ *ap;
 644 {
 645         register struct buf *bp = ap->a_bp;
 646         register struct vnode *vp = ap->a_vp;
 647         register struct hpfsnode *hp = VTOHP(ap->a_vp);
 648         daddr_t blkno;
 649         struct bufobj *bo;
 650         int error;
 651
 652         dprintf(("hpfs_strategy(): \n"));
 653
 654         if (vp->v_type == VBLK || vp->v_type == VCHR)
 655                 panic("hpfs_strategy: spec");
 656         if (bp->b_blkno == bp->b_lblkno) {
 657                 error = hpfs_hpbmap (hp, bp->b_lblkno, &blkno, NULL);
 658                 bp->b_blkno = blkno;
 659                 if (error) {
 660                         printf("hpfs_strategy: hpfs_bpbmap FAILED %d\n", error);
 661                         bp->b_error = error;
 662                         bp->b_ioflags |= BIO_ERROR;
 663                         bufdone(bp);
 664                         return (0);
 665                 }
 666                 if ((long)bp->b_blkno == -1)
 667                         vfs_bio_clrbuf(bp);
 668         }
 669         if ((long)bp->b_blkno == -1) {
 670                 bufdone(bp);
 671                 return (0);
 672         }
 673         bp->b_iooffset = dbtob(bp->b_blkno);
 674         bo = hp->h_hpmp->hpm_bo;
 675         BO_STRATEGY(bo, bp);
 676         return (0);
 677 }
 678
 679 /*
 680  * XXXXX do we need hpfsnode locking inside?
 681  */
 682 int
 683 hpfs_access(ap)
 684         struct vop_access_args /* {
 685                 struct vnode *a_vp;
 686                 accmode_t a_accmode;
 687                 struct ucred *a_cred;
 688                 struct thread *a_td;
 689         } */ *ap;
 690 {
 691         struct vnode *vp = ap->a_vp;
 692         struct hpfsnode *hp = VTOHP(vp);
 693         accmode_t accmode = ap->a_accmode;
 694
 695         dprintf(("hpfs_access(0x%x):\n", hp->h_no));
 696
 697         /*
 698          * Disallow write attempts on read-only filesystems;
 699          * unless the file is a socket, fifo, or a block or
 700          * character device resident on the filesystem.
 701          */
 702         if (accmode & VWRITE) {
 703                 switch ((int)vp->v_type) {
 704                 case VDIR:
 705                 case VLNK:
 706                 case VREG:
 707                         if (vp->v_mount->mnt_flag & MNT_RDONLY)
 708                                 return (EROFS);
 709                         break;
 710                 }
 711         }
 712
 713         return (vaccess(vp->v_type, hp->h_mode, hp->h_uid, hp->h_gid,
 714             ap->a_accmode, ap->a_cred, NULL));
 715 }
 716
 717 /*
 718  * Open called.
 719  *
 720  * Nothing to do.
 721  */
 722 /* ARGSUSED */
 723 static int
 724 hpfs_open(ap)
 725         struct vop_open_args /* {
 726                 struct vnode *a_vp;
 727                 int  a_mode;
 728                 struct ucred *a_cred;
 729                 struct thread *a_td;
 730         } */ *ap;
 731 {
 732 #ifdef HPFS_DEBUG
 733         register struct vnode *vp = ap->a_vp;
 734         register struct hpfsnode *hp = VTOHP(vp);
 735
 736         printf("hpfs_open(0x%x):\n",hp->h_no);
 737 #endif
 738
 739         /*
 740          * Files marked append-only must be opened for appending.
 741          */
 742
 743         return (0);
 744 }
 745
 746 /*
 747  * Close called.
 748  *
 749  * Update the times on the inode.
 750  */
 751 /* ARGSUSED */
 752 static int
 753 hpfs_close(ap)
 754         struct vop_close_args /* {
 755                 struct vnode *a_vp;
 756                 int  a_fflag;
 757                 struct ucred *a_cred;
 758                 struct thread *a_td;
 759         } */ *ap;
 760 {
 761 #ifdef HPFS_DEBUG
 762         register struct vnode *vp = ap->a_vp;
 763         register struct hpfsnode *hp = VTOHP(vp);
 764
 765         printf("hpfs_close: %d\n",hp->h_no);
 766 #endif
 767
 768         return (0);
 769 }
 770
 771 static int
 772 hpfs_de_uiomove (
 773         struct hpfsmount *hpmp,
 774         struct hpfsdirent *dep,
 775         struct uio *uio)
 776 {
 777         struct dirent cde;
 778         int i, error;
 779
 780         dprintf(("[no: 0x%x, size: %d, name: %2d:%.*s, flag: 0x%x] ",
 781                 dep->de_fnode, dep->de_size, dep->de_namelen,
 782                 dep->de_namelen, dep->de_name, dep->de_flag));
 783
 784         /*strncpy(cde.d_name, dep->de_name, dep->de_namelen);*/
 785         for (i=0; i<dep->de_namelen; i++)
 786                 cde.d_name[i] = hpfs_d2u(hpmp, dep->de_name[i]);
 787
 788         cde.d_name[dep->de_namelen] = '\0';
 789         cde.d_namlen = dep->de_namelen;
 790         cde.d_fileno = dep->de_fnode;
 791         cde.d_type = (dep->de_flag & DE_DIR) ? DT_DIR : DT_REG;
 792         cde.d_reclen = sizeof(struct dirent);
 793
 794         error = uiomove((char *)&cde, sizeof(struct dirent), uio);
 795         if (error)
 796                 return (error);
 797
 798         dprintf(("[0x%x] ", uio->uio_resid));
 799         return (error);
 800 }
 801
 802
 803 static struct dirent hpfs_de_dot =
 804         { 0, sizeof(struct dirent), DT_DIR, 1, "." };
 805 static struct dirent hpfs_de_dotdot =
 806         { 0, sizeof(struct dirent), DT_DIR, 2, ".." };
 807 int
 808 hpfs_readdir(ap)
 809         struct vop_readdir_args /* {
 810                 struct vnode *a_vp;
 811                 struct uio *a_uio;
 812                 struct ucred *a_cred;
 813                 int *a_ncookies;
 814                 u_int **cookies;
 815         } */ *ap;
 816 {
 817         register struct vnode *vp = ap->a_vp;
 818         register struct hpfsnode *hp = VTOHP(vp);
 819         struct hpfsmount *hpmp = hp->h_hpmp;
 820         struct uio *uio = ap->a_uio;
 821         int ncookies = 0, i, num, cnum;
 822         int error = 0;
 823         off_t off;
 824         struct buf *bp;
 825         struct dirblk *dp;
 826         struct hpfsdirent *dep;
 827         lsn_t olsn;
 828         lsn_t lsn;
 829         int level;
 830
 831         dprintf(("hpfs_readdir(0x%x, 0x%x, 0x%x): ",hp->h_no,(u_int32_t)uio->uio_offset,uio->uio_resid));
 832
 833         off = uio->uio_offset;
 834
 835         if( uio->uio_offset < sizeof(struct dirent) ) {
 836                 dprintf((". faked, "));
 837                 hpfs_de_dot.d_fileno = hp->h_no;
 838                 error = uiomove((char *)&hpfs_de_dot,sizeof(struct dirent),uio);
 839                 if(error) {
 840                         return (error);
 841                 }
 842
 843                 ncookies ++;
 844         }
 845
 846         if( uio->uio_offset < 2 * sizeof(struct dirent) ) {
 847                 dprintf((".. faked, "));
 848                 hpfs_de_dotdot.d_fileno = hp->h_fn.fn_parent;
 849
 850                 error = uiomove((char *)&hpfs_de_dotdot, sizeof(struct dirent),
 851                                 uio);
 852                 if(error) {
 853                         return (error);
 854                 }
 855
 856                 ncookies ++;
 857         }
 858
 859         num = uio->uio_offset / sizeof(struct dirent) - 2;
 860         cnum = 0;
 861
 862         lsn = ((alleaf_t *)hp->h_fn.fn_abd)->al_lsn;
 863
 864         olsn = 0;
 865         level = 1;
 866
 867 dive:
 868         dprintf(("[dive 0x%x] ", lsn));
 869         error = bread(hp->h_devvp, lsn, D_BSIZE, NOCRED, &bp);
 870         if (error) {
 871                 brelse(bp);
 872                 return (error);
 873         }
 874
 875         dp = (struct dirblk *) bp->b_data;
 876         if (dp->d_magic != D_MAGIC) {
 877                 printf("hpfs_readdir: MAGIC DOESN'T MATCH\n");
 878                 brelse(bp);
 879                 return (EINVAL);
 880         }
 881
 882         dep = D_DIRENT(dp);
 883
 884         if (olsn) {
 885                 dprintf(("[restore 0x%x] ", olsn));
 886
 887                 while(!(dep->de_flag & DE_END) ) {
 888                         if((dep->de_flag & DE_DOWN) &&
 889                            (olsn == DE_DOWNLSN(dep)))
 890                                          break;
 891                         dep = (hpfsdirent_t *)((caddr_t)dep + dep->de_reclen);
 892                 }
 893
 894                 if((dep->de_flag & DE_DOWN) && (olsn == DE_DOWNLSN(dep))) {
 895                         if (dep->de_flag & DE_END)
 896                                 goto blockdone;
 897
 898                         if (!(dep->de_flag & DE_SPECIAL)) {
 899                                 if (num <= cnum) {
 900                                         if (uio->uio_resid < sizeof(struct dirent)) {
 901                                                 brelse(bp);
 902                                                 dprintf(("[resid] "));
 903                                                 goto readdone;
 904                                         }
 905
 906                                         error = hpfs_de_uiomove(hpmp, dep, uio);
 907                                         if (error) {
 908                                                 brelse (bp);
 909                                                 return (error);
 910                                         }
 911                                         ncookies++;
 912
 913                                         if (uio->uio_resid < sizeof(struct dirent)) {
 914                                                 brelse(bp);
 915                                                 dprintf(("[resid] "));
 916                                                 goto readdone;
 917                                         }
 918                                 }
 919                                 cnum++;
 920                         }
 921
 922                         dep = (hpfsdirent_t *)((caddr_t)dep + dep->de_reclen);
 923                 } else {
 924                         printf("hpfs_readdir: ERROR! oLSN not found\n");
 925                         brelse(bp);
 926                         return (EINVAL);
 927                 }
 928         }
 929
 930         olsn = 0;
 931
 932         while(!(dep->de_flag & DE_END)) {
 933                 if(dep->de_flag & DE_DOWN) {
 934                         lsn = DE_DOWNLSN(dep);
 935                         brelse(bp);
 936                         level++;
 937                         goto dive;
 938                 }
 939
 940                 if (!(dep->de_flag & DE_SPECIAL)) {
 941                         if (num <= cnum) {
 942                                 if (uio->uio_resid < sizeof(struct dirent)) {
 943                                         brelse(bp);
 944                                         dprintf(("[resid] "));
 945                                         goto readdone;
 946                                 }
 947
 948                                 error = hpfs_de_uiomove(hpmp, dep, uio);
 949                                 if (error) {
 950                                         brelse (bp);
 951                                         return (error);
 952                                 }
 953                                 ncookies++;
 954
 955                                 if (uio->uio_resid < sizeof(struct dirent)) {
 956                                         brelse(bp);
 957                                         dprintf(("[resid] "));
 958                                         goto readdone;
 959                                 }
 960                         }
 961                         cnum++;
 962                 }
 963
 964                 dep = (hpfsdirent_t *)((caddr_t)dep + dep->de_reclen);
 965         }
 966
 967         if(dep->de_flag & DE_DOWN) {
 968                 dprintf(("[enddive] "));
 969                 lsn = DE_DOWNLSN(dep);
 970                 brelse(bp);
 971                 level++;
 972                 goto dive;
 973         }
 974
 975 blockdone:
 976         dprintf(("[EOB] "));
 977         olsn = lsn;
 978         lsn = dp->d_parent;
 979         brelse(bp);
 980         level--;
 981
 982         dprintf(("[level %d] ", level));
 983
 984         if (level > 0)
 985                 goto dive;      /* undive really */
 986
 987         if (ap->a_eofflag) {
 988             dprintf(("[EOF] "));
 989             *ap->a_eofflag = 1;
 990         }
 991
 992 readdone:
 993         dprintf(("[readdone]\n"));
 994         if (!error && ap->a_ncookies != NULL) {
 995                 struct dirent* dpStart;
 996                 struct dirent* dp;
 997                 u_long *cookies;
 998                 u_long *cookiep;
 999
1000                 dprintf(("%d cookies, ",ncookies));
1001                 if (uio->uio_segflg != UIO_SYSSPACE || uio->uio_iovcnt != 1)
1002                         panic("hpfs_readdir: unexpected uio from NFS server");
1003                 dpStart = (struct dirent *)
1004                      ((caddr_t)uio->uio_iov->iov_base -
1005                          (uio->uio_offset - off));
1006                 cookies = malloc(ncookies * sizeof(u_long),
1007                        M_TEMP, M_WAITOK);
1008                 for (dp = dpStart, cookiep = cookies, i=0;
1009                      i < ncookies;
1010                      dp = (struct dirent *)((caddr_t) dp + dp->d_reclen), i++) {
1011                         off += dp->d_reclen;
1012                         *cookiep++ = (u_int) off;
1013                 }
1014                 *ap->a_ncookies = ncookies;
1015                 *ap->a_cookies = cookies;
1016         }
1017
1018         return (0);
1019 }
1020
1021 int
1022 hpfs_lookup(ap)
1023         struct vop_cachedlookup_args /* {
1024                 struct vnode *a_dvp;
1025                 struct vnode **a_vpp;
1026                 struct componentname *a_cnp;
1027         } */ *ap;
1028 {
1029         register struct vnode *dvp = ap->a_dvp;
1030         register struct hpfsnode *dhp = VTOHP(dvp);
1031         struct hpfsmount *hpmp = dhp->h_hpmp;
1032         struct componentname *cnp = ap->a_cnp;
1033         struct ucred *cred = cnp->cn_cred;
1034         int error;
1035         int nameiop = cnp->cn_nameiop;
1036         int flags = cnp->cn_flags;
1037         dprintf(("hpfs_lookup(0x%x, %s, %ld):\n",
1038                 dhp->h_no, cnp->cn_nameptr, cnp->cn_namelen));
1039
1040         if (nameiop != CREATE && nameiop != DELETE && nameiop != LOOKUP) {
1041                 printf("hpfs_lookup: LOOKUP, DELETE and CREATE are only supported\n");
1042                 return (EOPNOTSUPP);
1043         }
1044
1045         error = VOP_ACCESS(dvp, VEXEC, cred, cnp->cn_thread);
1046         if(error)
1047                 return (error);
1048
1049         if( (cnp->cn_namelen == 1) &&
1050             !strncmp(cnp->cn_nameptr,".",1) ) {
1051                 dprintf(("hpfs_lookup(0x%x,...): . faked\n",dhp->h_no));
1052
1053                 VREF(dvp);
1054                 *ap->a_vpp = dvp;
1055
1056                 return (0);
1057         } else if( (cnp->cn_namelen == 2) &&
1058             !strncmp(cnp->cn_nameptr,"..",2) && (flags & ISDOTDOT) ) {
1059                 dprintf(("hpfs_lookup(0x%x,...): .. faked (0x%x)\n",
1060                         dhp->h_no, dhp->h_fn.fn_parent));
1061
1062                 if (VFS_VGET(hpmp->hpm_mp, dhp->h_fn.fn_parent,
1063                     LK_NOWAIT | LK_EXCLUSIVE, ap->a_vpp)) {
1064                         VOP_UNLOCK(dvp,0);
1065                         error = VFS_VGET(hpmp->hpm_mp,
1066                                  dhp->h_fn.fn_parent, LK_EXCLUSIVE, ap->a_vpp);
1067                         vn_lock(dvp, LK_EXCLUSIVE|LK_RETRY);
1068                         if (error)
1069                                 return(error);
1070                 }
1071                 return (0);
1072         } else {
1073                 struct buf *bp;
1074                 struct hpfsdirent *dep;
1075                 struct hpfsnode *hp;
1076
1077                 error = hpfs_genlookupbyname(dhp,
1078                                 cnp->cn_nameptr, cnp->cn_namelen, &bp, &dep);
1079                 if (error) {
1080                         if ((error == ENOENT) && (flags & ISLASTCN) &&
1081                             (nameiop == CREATE || nameiop == RENAME)) {
1082                                 cnp->cn_flags |= SAVENAME;
1083                                 return (EJUSTRETURN);
1084                         }
1085
1086                         return (error);
1087                 }
1088
1089                 dprintf(("hpfs_lookup: fnode: 0x%x, CPID: 0x%x\n",
1090                          dep->de_fnode, dep->de_cpid));
1091
1092                 if (nameiop == DELETE && (flags & ISLASTCN)) {
1093                         error = VOP_ACCESS(dvp, VWRITE, cred, cnp->cn_thread);
1094                         if (error) {
1095                                 brelse(bp);
1096                                 return (error);
1097                         }
1098                 }
1099
1100                 if (dhp->h_no == dep->de_fnode) {
1101                         brelse(bp);
1102                         VREF(dvp);
1103                         *ap->a_vpp = dvp;
1104                         return (0);
1105                 }
1106
1107                 error = VFS_VGET(hpmp->hpm_mp, dep->de_fnode, LK_EXCLUSIVE,
1108                                  ap->a_vpp);
1109                 if (error) {
1110                         printf("hpfs_lookup: VFS_VGET FAILED %d\n", error);
1111                         brelse(bp);
1112                         return(error);
1113                 }
1114
1115                 hp = VTOHP(*ap->a_vpp);
1116
1117                 hp->h_mtime = dep->de_mtime;
1118                 hp->h_ctime = dep->de_ctime;
1119                 hp->h_atime = dep->de_atime;
1120                 bcopy(dep->de_name, hp->h_name, dep->de_namelen);
1121                 hp->h_name[dep->de_namelen] = '\0';
1122                 hp->h_namelen = dep->de_namelen;
1123                 hp->h_flag |= H_PARVALID;
1124
1125                 brelse(bp);
1126
1127                 if ((flags & MAKEENTRY) &&
1128                     (!(flags & ISLASTCN) ||
1129                      (nameiop != DELETE && nameiop != CREATE)))
1130                         cache_enter(dvp, *ap->a_vpp, cnp);
1131         }
1132         return (error);
1133 }
1134
1135 int
1136 hpfs_remove(ap)
1137         struct vop_remove_args /* {
1138                 struct vnode *a_dvp;
1139                 struct vnode *a_vp;
1140                 struct componentname *a_cnp;
1141         } */ *ap;
1142 {
1143         int error;
1144
1145         dprintf(("hpfs_remove(0x%x, %s, %ld): \n", VTOHP(ap->a_vp)->h_no,
1146                 ap->a_cnp->cn_nameptr, ap->a_cnp->cn_namelen));
1147
1148         if (ap->a_vp->v_type == VDIR)
1149                 return (EPERM);
1150
1151         error = hpfs_removefnode (ap->a_dvp, ap->a_vp, ap->a_cnp);
1152         return (error);
1153 }
1154
1155 int
1156 hpfs_create(ap)
1157         struct vop_create_args /* {
1158                 struct vnode *a_dvp;
1159                 struct vnode **a_vpp;
1160                 struct componentname *a_cnp;
1161                 struct vattr *a_vap;
1162         } */ *ap;
1163 {
1164         int error;
1165
1166         dprintf(("hpfs_create(0x%x, %s, %ld): \n", VTOHP(ap->a_dvp)->h_no,
1167                 ap->a_cnp->cn_nameptr, ap->a_cnp->cn_namelen));
1168
1169         if (!(ap->a_cnp->cn_flags & HASBUF))
1170                 panic ("hpfs_create: no name\n");
1171
1172         error = hpfs_makefnode (ap->a_dvp, ap->a_vpp, ap->a_cnp, ap->a_vap);
1173
1174         return (error);
1175 }
1176
1177 /*
1178  * Return POSIX pathconf information applicable to NTFS filesystem
1179  */
1180 int
1181 hpfs_pathconf(ap)
1182         struct vop_pathconf_args /* {
1183                 struct vnode *a_vp;
1184                 int a_name;
1185                 register_t *a_retval;
1186         } */ *ap;
1187 {
1188         switch (ap->a_name) {
1189         case _PC_LINK_MAX:
1190                 *ap->a_retval = 1;
1191                 return (0);
1192         case _PC_NAME_MAX:
1193                 *ap->a_retval = HPFS_MAXFILENAME;
1194                 return (0);
1195         case _PC_PATH_MAX:
1196                 *ap->a_retval = PATH_MAX;
1197                 return (0);
1198         case _PC_CHOWN_RESTRICTED:
1199                 *ap->a_retval = 1;
1200                 return (0);
1201         case _PC_NO_TRUNC:
1202                 *ap->a_retval = 0;
1203                 return (0);
1204         default:
1205                 return (EINVAL);
1206         }
1207         /* NOTREACHED */
1208 }
1209
1210 int
1211 hpfs_vptofh(ap)
1212         struct vop_vptofh_args /* {
1213                 struct vnode *a_vp;
1214                 struct fid *a_fhp;
1215         } */ *ap;
1216 {
1217         register struct hpfsnode *hpp;
1218         register struct hpfid *hpfhp;
1219
1220         hpp = VTOHP(ap->a_vp);
1221         hpfhp = (struct hpfid *)ap->a_fhp;
1222         hpfhp->hpfid_len = sizeof(struct hpfid);
1223         hpfhp->hpfid_ino = hpp->h_no;
1224         /* hpfhp->hpfid_gen = hpp->h_gen; */
1225         return (0);
1226 }
1227
1228
1229 /*
1230  * Global vfs data structures
1231  */
1232 struct vop_vector hpfs_vnodeops = {
1233         .vop_default =          &default_vnodeops,
1234
1235         .vop_access =           hpfs_access,
1236         .vop_bmap =             hpfs_bmap,
1237         .vop_cachedlookup =     hpfs_lookup,
1238         .vop_close =            hpfs_close,
1239         .vop_create =           hpfs_create,
1240         .vop_fsync =            hpfs_fsync,
1241         .vop_getattr =          hpfs_getattr,
1242         .vop_inactive =         hpfs_inactive,
1243         .vop_ioctl =            hpfs_ioctl,
1244         .vop_lookup =           vfs_cache_lookup,
1245         .vop_open =             hpfs_open,
1246         .vop_pathconf =         hpfs_pathconf,
1247         .vop_print =            hpfs_print,
1248         .vop_read =             hpfs_read,
1249         .vop_readdir =          hpfs_readdir,
1250         .vop_reclaim =          hpfs_reclaim,
1251         .vop_remove =           hpfs_remove,
1252         .vop_setattr =          hpfs_setattr,
1253         .vop_strategy =         hpfs_strategy,
1254         .vop_write =            hpfs_write,
1255         .vop_vptofh =           hpfs_vptofh,
1256 };