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