Kernel - fix access checks
[dragonfly.git] / sys / vfs / 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: src/sys/fs/hpfs/hpfs_vnops.c,v 1.2.2.2 2002/01/15 18:35:09 semenu Exp $
27  * $DragonFly: src/sys/vfs/hpfs/hpfs_vnops.c,v 1.47 2008/06/19 23:27:39 dillon Exp $
28  */
29
30 #include <sys/param.h>
31 #include <sys/systm.h>
32 #include <sys/kernel.h>
33 #include <sys/proc.h>
34 #include <sys/priv.h>
35 #include <sys/time.h>
36 #include <sys/types.h>
37 #include <sys/stat.h>
38 #include <sys/vnode.h>
39 #include <sys/mount.h>
40 #include <sys/namei.h>
41 #include <sys/malloc.h>
42 #include <sys/buf.h>
43 #include <sys/dirent.h>
44
45 #include <machine/limits.h>
46
47 #include <vm/vm.h>
48 #include <vm/vm_param.h>
49 #if !defined(__DragonFly__)
50 #include <vm/vm_prot.h>
51 #endif
52 #include <vm/vm_page.h>
53 #include <vm/vm_object.h>
54 #include <vm/vm_pager.h>
55 #include <vm/vm_zone.h>
56 #if defined(__DragonFly__)
57 #include <vm/vnode_pager.h>
58 #endif
59 #include <vm/vm_extern.h>
60 #include <sys/buf2.h>
61
62 #if !defined(__DragonFly__)
63 #include <miscfs/specfs/specdev.h>
64 #include <miscfs/genfs/genfs.h>
65 #endif
66
67 #include <sys/unistd.h> /* for pathconf(2) constants */
68
69 #include "hpfs.h"
70 #include "hpfsmount.h"
71 #include "hpfs_subr.h"
72 #include "hpfs_ioctl.h"
73
74 static int      hpfs_de_uiomove (int *, struct hpfsmount *,
75                                  struct hpfsdirent *, struct uio *);
76 static int      hpfs_ioctl (struct vop_ioctl_args *ap);
77 static int      hpfs_read (struct vop_read_args *);
78 static int      hpfs_write (struct vop_write_args *ap);
79 static int      hpfs_getattr (struct vop_getattr_args *ap);
80 static int      hpfs_setattr (struct vop_setattr_args *ap);
81 static int      hpfs_inactive (struct vop_inactive_args *ap);
82 static int      hpfs_print (struct vop_print_args *ap);
83 static int      hpfs_reclaim (struct vop_reclaim_args *ap);
84 static int      hpfs_strategy (struct vop_strategy_args *ap);
85 static int      hpfs_access (struct vop_access_args *ap);
86 static int      hpfs_readdir (struct vop_readdir_args *ap);
87 static int      hpfs_lookup (struct vop_old_lookup_args *ap);
88 static int      hpfs_create (struct vop_old_create_args *);
89 static int      hpfs_remove (struct vop_old_remove_args *);
90 static int      hpfs_bmap (struct vop_bmap_args *ap);
91 #if defined(__DragonFly__)
92 static int      hpfs_fsync (struct vop_fsync_args *ap);
93 #endif
94 static int      hpfs_pathconf (struct vop_pathconf_args *ap);
95
96 #if defined(__DragonFly__)
97
98 /*
99  * hpfs_fsync(struct vnode *a_vp, int a_waitfor)
100  */
101 static int
102 hpfs_fsync(struct vop_fsync_args *ap)
103 {
104         struct vnode *vp = ap->a_vp;
105
106         /*
107          * Flush all dirty buffers associated with a vnode.
108          */
109 #ifdef DIAGNOSTIC
110 loop:
111 #endif
112         vfsync(vp, ap->a_waitfor, 0, NULL, NULL);
113 #ifdef DIAGNOSTIC
114         if (ap->a_waitfor == MNT_WAIT && !RB_EMPTY(&vp->v_rbdirty_tree)) {
115                 vprint("hpfs_fsync: dirty", vp);
116                 goto loop;
117         }
118 #endif
119
120         /*
121          * Write out the on-disc version of the vnode.
122          */
123         return hpfs_update(VTOHP(vp));
124 }
125
126 #endif
127
128 /*
129  * hpfs_ioctl(struct vnode *a_vp, u_long a_command, caddr_t a_data,
130  *            int a_fflag, struct ucred *a_cred)
131  */
132 static int
133 hpfs_ioctl(struct vop_ioctl_args *ap)
134 {
135         struct vnode *vp = ap->a_vp;
136         struct hpfsnode *hp = VTOHP(vp);
137         int error;
138
139         kprintf("hpfs_ioctl(0x%x, 0x%lx, 0x%p, 0x%x): ",
140                 hp->h_no, ap->a_command, ap->a_data, ap->a_fflag);
141
142         switch (ap->a_command) {
143         case HPFSIOCGEANUM: {
144                 u_long eanum;
145                 u_long passed;
146                 struct ea *eap;
147
148                 eanum = 0;
149
150                 if (hp->h_fn.fn_ealen > 0) {
151                         eap = (struct ea *)&(hp->h_fn.fn_int);
152                         passed = 0;
153
154                         while (passed < hp->h_fn.fn_ealen) {
155
156                                 kprintf("EAname: %s\n", EA_NAME(eap));
157
158                                 eanum++;
159                                 passed += sizeof(struct ea) +
160                                           eap->ea_namelen + 1 + eap->ea_vallen;
161                                 eap = (struct ea *)((caddr_t)hp->h_fn.fn_int +
162                                                 passed);
163                         }
164                         error = 0;
165                 } else {
166                         error = ENOENT;
167                 }
168
169                 kprintf("%lu eas\n", eanum);
170
171                 *(u_long *)ap->a_data = eanum;
172
173                 break;
174         }
175         case HPFSIOCGEASZ: {
176                 u_long eanum;
177                 u_long passed;
178                 struct ea *eap;
179
180                 kprintf("EA%ld\n", *(u_long *)ap->a_data);
181
182                 eanum = 0;
183                 if (hp->h_fn.fn_ealen > 0) {
184                         eap = (struct ea *)&(hp->h_fn.fn_int);
185                         passed = 0;
186
187                         error = ENOENT;
188                         while (passed < hp->h_fn.fn_ealen) {
189                                 kprintf("EAname: %s\n", EA_NAME(eap));
190
191                                 if (eanum == *(u_long *)ap->a_data) {
192                                         *(u_long *)ap->a_data =
193                                                 eap->ea_namelen + 1 +
194                                                 eap->ea_vallen;
195
196                                         error = 0;
197                                         break;
198                                 }
199
200                                 eanum++;
201                                 passed += sizeof(struct ea) +
202                                           eap->ea_namelen + 1 + eap->ea_vallen;
203                                 eap = (struct ea *)((caddr_t)hp->h_fn.fn_int +
204                                                 passed);
205                         }
206                 } else {
207                         error = ENOENT;
208                 }
209
210                 break;
211         }
212         case HPFSIOCRDEA: {
213                 u_long eanum;
214                 u_long passed;
215                 struct hpfs_rdea *rdeap;
216                 struct ea *eap;
217
218                 rdeap = (struct hpfs_rdea *)ap->a_data;
219                 kprintf("EA%ld\n", rdeap->ea_no);
220
221                 eanum = 0;
222                 if (hp->h_fn.fn_ealen > 0) {
223                         eap = (struct ea *)&(hp->h_fn.fn_int);
224                         passed = 0;
225
226                         error = ENOENT;
227                         while (passed < hp->h_fn.fn_ealen) {
228                                 kprintf("EAname: %s\n", EA_NAME(eap));
229
230                                 if (eanum == rdeap->ea_no) {
231                                         rdeap->ea_sz = eap->ea_namelen + 1 +
232                                                         eap->ea_vallen;
233                                         copyout(EA_NAME(eap),rdeap->ea_data,
234                                                 rdeap->ea_sz);
235                                         error = 0;
236                                         break;
237                                 }
238
239                                 eanum++;
240                                 passed += sizeof(struct ea) +
241                                           eap->ea_namelen + 1 + eap->ea_vallen;
242                                 eap = (struct ea *)((caddr_t)hp->h_fn.fn_int +
243                                                 passed);
244                         }
245                 } else {
246                         error = ENOENT;
247                 }
248
249                 break;
250         }
251         default:
252                 error = EOPNOTSUPP;
253                 break;
254         }
255         return (error);
256 }
257
258 /*
259  * Map file offset to disk offset.
260  *
261  * hpfs_bmap(struct vnode *a_vp, off_t a_loffset,
262  *           off_t *a_doffsetp, int *a_runp, int *a_runb)
263  */
264 int
265 hpfs_bmap(struct vop_bmap_args *ap)
266 {
267         struct hpfsnode *hp = VTOHP(ap->a_vp);
268         int error;
269         daddr_t lbn;
270         daddr_t dbn;
271
272         if (ap->a_runb != NULL)
273                 *ap->a_runb = 0;
274         if (ap->a_doffsetp == NULL)
275                 return (0);
276
277         dprintf(("hpfs_bmap(0x%x, 0x%x): ",hp->h_no, ap->a_bn));
278
279         lbn = ap->a_loffset >> DEV_BSHIFT;
280         KKASSERT(((int)ap->a_loffset & DEV_BMASK) == 0);
281
282         error = hpfs_hpbmap (hp, lbn, &dbn, ap->a_runp);
283         if (error || dbn == (daddr_t)-1) {
284                 *ap->a_doffsetp = NOOFFSET;
285         } else {
286                 *ap->a_doffsetp = (off_t)dbn << DEV_BSHIFT;
287         }
288         return (error);
289 }
290
291 /*
292  * hpfs_read(struct vnode *a_vp, struct uio *a_uio, int a_ioflag,
293  *           struct ucred *a_cred)
294  */
295 static int
296 hpfs_read(struct vop_read_args *ap)
297 {
298         struct vnode *vp = ap->a_vp;
299         struct hpfsnode *hp = VTOHP(vp);
300         struct uio *uio = ap->a_uio;
301         struct buf *bp;
302         u_int xfersz, toread;
303         u_int off;
304         daddr_t lbn, bn;
305         int resid;
306         int runl;
307         int error = 0;
308
309         resid = (int)szmin(uio->uio_resid, hp->h_fn.fn_size - uio->uio_offset);
310
311         dprintf(("hpfs_read(0x%x, off: %d resid: %d, segflg: %d): "
312                  "[resid: 0x%lx]\n",
313                  hp->h_no, (u_int32_t)uio->uio_offset,
314                  uio->uio_resid, uio->uio_segflg, resid));
315
316         while (resid) {
317                 lbn = uio->uio_offset >> DEV_BSHIFT;
318                 off = uio->uio_offset & (DEV_BSIZE - 1);
319                 dprintf(("hpfs_read: resid: 0x%lx lbn: 0x%x off: 0x%x\n",
320                         uio->uio_resid, lbn, off));
321                 error = hpfs_hpbmap(hp, lbn, &bn, &runl);
322                 if (error)
323                         return (error);
324
325                 toread = min(off + resid, min(DFLTPHYS, (runl+1)*DEV_BSIZE));
326                 xfersz = (toread + DEV_BSIZE - 1) & ~(DEV_BSIZE - 1);
327                 dprintf(("hpfs_read: bn: 0x%x (0x%x) toread: 0x%x (0x%x)\n",
328                         bn, runl, toread, xfersz));
329
330                 if (toread == 0) 
331                         break;
332
333                 error = bread(hp->h_devvp, dbtodoff(bn), xfersz, &bp);
334                 if (error) {
335                         brelse(bp);
336                         break;
337                 }
338
339                 error = uiomove(bp->b_data + off, (size_t)(toread - off), uio);
340                 if(error) {
341                         brelse(bp);
342                         break;
343                 }
344                 brelse(bp);
345                 resid -= toread;
346         }
347         dprintf(("hpfs_read: successful\n"));
348         return (error);
349 }
350
351 /*
352  * hpfs_write(struct vnode *a_vp, struct uio *a_uio, int a_ioflag,
353  *            struct ucred *a_cred)
354  */
355 static int
356 hpfs_write(struct vop_write_args *ap)
357 {
358         struct vnode *vp = ap->a_vp;
359         struct hpfsnode *hp = VTOHP(vp);
360         struct uio *uio = ap->a_uio;
361         struct buf *bp;
362         u_int xfersz, towrite;
363         u_int off;
364         daddr_t lbn, bn;
365         int runl;
366         int error = 0;
367
368         dprintf(("hpfs_write(0x%x, off: %d resid: %ld, segflg: %d):\n",
369                 hp->h_no, (u_int32_t)uio->uio_offset,
370                 uio->uio_resid, uio->uio_segflg));
371
372         if (ap->a_ioflag & IO_APPEND) {
373                 dprintf(("hpfs_write: APPEND mode\n"));
374                 uio->uio_offset = hp->h_fn.fn_size;
375         }
376         if (uio->uio_offset + uio->uio_resid > hp->h_fn.fn_size) {
377                 error = hpfs_extend (hp, uio->uio_offset + uio->uio_resid);
378                 if (error) {
379                         kprintf("hpfs_write: hpfs_extend FAILED %d\n", error);
380                         return (error);
381                 }
382         }
383
384         while (uio->uio_resid) {
385                 lbn = uio->uio_offset >> DEV_BSHIFT;
386                 off = uio->uio_offset & (DEV_BSIZE - 1);
387                 dprintf(("hpfs_write: resid: 0x%lx lbn: 0x%x off: 0x%x\n",
388                         uio->uio_resid, lbn, off));
389                 error = hpfs_hpbmap(hp, lbn, &bn, &runl);
390                 if (error)
391                         return (error);
392
393                 towrite = szmin(off + uio->uio_resid,
394                                 min(DFLTPHYS, (runl+1)*DEV_BSIZE));
395                 xfersz = (towrite + DEV_BSIZE - 1) & ~(DEV_BSIZE - 1);
396                 dprintf(("hpfs_write: bn: 0x%x (0x%x) towrite: 0x%x (0x%x)\n",
397                         bn, runl, towrite, xfersz));
398
399                 /*
400                  * We do not have to issue a read-before-write if the xfer
401                  * size does not cover the whole block.
402                  *
403                  * In the UIO_NOCOPY case, however, we are not overwriting
404                  * anything and must do a read-before-write to fill in
405                  * any missing pieces.
406                  */
407                 if (off == 0 && towrite == xfersz &&
408                     uio->uio_segflg != UIO_NOCOPY) {
409                         bp = getblk(hp->h_devvp, dbtodoff(bn), xfersz, 0, 0);
410                         clrbuf(bp);
411                 } else {
412                         error = bread(hp->h_devvp, dbtodoff(bn), xfersz, &bp);
413                         if (error) {
414                                 brelse(bp);
415                                 return (error);
416                         }
417                 }
418
419                 error = uiomove(bp->b_data + off, (size_t)(towrite - off), uio);
420                 if(error) {
421                         brelse(bp);
422                         return (error);
423                 }
424
425                 if (ap->a_ioflag & IO_SYNC)
426                         bwrite(bp);
427                 else
428                         bawrite(bp);
429         }
430
431         dprintf(("hpfs_write: successful\n"));
432         return (0);
433 }
434
435 /*
436  * XXXXX do we need hpfsnode locking inside?
437  *
438  * hpfs_getattr(struct vnode *a_vp, struct vattr *a_vap)
439  */
440 static int
441 hpfs_getattr(struct vop_getattr_args *ap)
442 {
443         struct vnode *vp = ap->a_vp;
444         struct hpfsnode *hp = VTOHP(vp);
445         struct vattr *vap = ap->a_vap;
446         int error;
447
448         dprintf(("hpfs_getattr(0x%x):\n", hp->h_no));
449
450 #if defined(__DragonFly__)
451         vap->va_fsid = dev2udev(hp->h_dev);
452 #else /* defined(__NetBSD__) */
453         vap->va_fsid = ip->i_dev;
454 #endif
455         vap->va_fileid = hp->h_no;
456         vap->va_mode = hp->h_mode;
457         vap->va_nlink = 1;
458         vap->va_uid = hp->h_uid;
459         vap->va_gid = hp->h_gid;
460         vap->va_rmajor = VNOVAL;
461         vap->va_rminor = VNOVAL;
462         vap->va_size = hp->h_fn.fn_size;
463         vap->va_bytes = ((hp->h_fn.fn_size + DEV_BSIZE-1) & ~(DEV_BSIZE-1)) +
464                         DEV_BSIZE;
465
466         if (!(hp->h_flag & H_PARVALID)) {
467                 error = hpfs_validateparent(hp);
468                 if (error) 
469                         return (error);
470         }
471         vap->va_atime = hpfstimetounix(hp->h_atime);
472         vap->va_mtime = hpfstimetounix(hp->h_mtime);
473         vap->va_ctime = hpfstimetounix(hp->h_ctime);
474
475         vap->va_flags = 0;
476         vap->va_gen = 0;
477         vap->va_blocksize = DEV_BSIZE;
478         vap->va_type = vp->v_type;
479         vap->va_filerev = 0;
480
481         return (0);
482 }
483
484 /*
485  * XXXXX do we need hpfsnode locking inside?
486  *
487  * hpfs_setattr(struct vnode *a_vp, struct vattr *a_vap, struct ucred *a_cred)
488  */
489 static int
490 hpfs_setattr(struct vop_setattr_args *ap)
491 {
492         struct vnode *vp = ap->a_vp;
493         struct hpfsnode *hp = VTOHP(vp);
494         struct vattr *vap = ap->a_vap;
495         struct ucred *cred = ap->a_cred;
496         int error;
497
498         dprintf(("hpfs_setattr(0x%x):\n", hp->h_no));
499
500         /*
501          * Check for unsettable attributes.
502          */
503         if ((vap->va_type != VNON) || (vap->va_nlink != VNOVAL) ||
504             (vap->va_fsid != VNOVAL) || (vap->va_fileid != VNOVAL) ||
505             (vap->va_blocksize != VNOVAL) || (vap->va_rmajor != VNOVAL) ||
506             (vap->va_bytes != VNOVAL) || (vap->va_gen != VNOVAL)) {
507                 dprintf(("hpfs_setattr: changing nonsettable attr\n"));
508                 return (EINVAL);
509         }
510
511         /* Can't change flags XXX Could be implemented */
512         if (vap->va_flags != VNOVAL) {
513                 kprintf("hpfs_setattr: FLAGS CANNOT BE SET\n");
514                 return (EINVAL);
515         }
516
517         /* Can't change uid/gid XXX Could be implemented */
518         if (vap->va_uid != (uid_t)VNOVAL || vap->va_gid != (gid_t)VNOVAL) {
519                 kprintf("hpfs_setattr: UID/GID CANNOT BE SET\n");
520                 return (EINVAL);
521         }
522
523         /* Can't change mode XXX Could be implemented */
524         if (vap->va_mode != (mode_t)VNOVAL) {
525                 kprintf("hpfs_setattr: MODE CANNOT BE SET\n");
526                 return (EINVAL);
527         }
528
529         /* Update times */
530         if (vap->va_atime.tv_sec != VNOVAL || vap->va_mtime.tv_sec != VNOVAL) {
531                 if (vp->v_mount->mnt_flag & MNT_RDONLY)
532                         return (EROFS);
533                 if (cred->cr_uid != hp->h_uid &&
534                     (error = priv_check_cred(cred, PRIV_VFS_SETATTR, 0)) &&
535                     ((vap->va_vaflags & VA_UTIMES_NULL) == 0 ||
536                     (error = VOP_EACCESS(vp, VWRITE, cred))))
537                         return (error);
538                 if (vap->va_atime.tv_sec != VNOVAL)
539                         hp->h_atime = vap->va_atime.tv_sec;
540                 if (vap->va_mtime.tv_sec != VNOVAL)
541                         hp->h_mtime = vap->va_mtime.tv_sec;
542
543                 hp->h_flag |= H_PARCHANGE;
544         }
545
546         if (vap->va_size != VNOVAL) {
547                 switch (vp->v_type) {
548                 case VDIR:
549                         return (EISDIR);
550                 case VREG:
551                         if (vp->v_mount->mnt_flag & MNT_RDONLY)
552                                 return (EROFS);
553                         break;
554                 default:
555                         kprintf("hpfs_setattr: WRONG v_type\n");
556                         return (EINVAL);
557                 }
558
559                 if (vap->va_size < hp->h_fn.fn_size) {
560 #if defined(__DragonFly__)
561                         error = vtruncbuf(vp, vap->va_size, DEV_BSIZE);
562                         if (error)
563                                 return (error);
564 #else /* defined(__NetBSD__) */
565 #error Need alternation for vtruncbuf()
566 #endif
567                         error = hpfs_truncate(hp, vap->va_size);
568                         if (error)
569                                 return (error);
570
571                 } else if (vap->va_size > hp->h_fn.fn_size) {
572 #if defined(__DragonFly__)
573                         vnode_pager_setsize(vp, vap->va_size);
574 #endif
575                         error = hpfs_extend(hp, vap->va_size);
576                         if (error)
577                                 return (error);
578                 }
579         }
580
581         return (0);
582 }
583
584 /*
585  * Last reference to an node.  If necessary, write or delete it.
586  *
587  * hpfs_inactive(struct vnode *a_vp)
588  */
589 int
590 hpfs_inactive(struct vop_inactive_args *ap)
591 {
592         struct vnode *vp = ap->a_vp;
593         struct hpfsnode *hp = VTOHP(vp);
594         int error;
595
596         dprintf(("hpfs_inactive(0x%x): \n", hp->h_no));
597
598         if (hp->h_flag & H_CHANGE) {
599                 dprintf(("hpfs_inactive: node changed, update\n"));
600                 error = hpfs_update (hp);
601                 if (error)
602                         return (error);
603         }
604
605         if (hp->h_flag & H_PARCHANGE) {
606                 dprintf(("hpfs_inactive: parent node changed, update\n"));
607                 error = hpfs_updateparent (hp);
608                 if (error)
609                         return (error);
610         }
611
612         if (prtactive && vp->v_sysref.refcnt > 1)
613                 vprint("hpfs_inactive: pushing active", vp);
614
615         if (hp->h_flag & H_INVAL) {
616 #if defined(__DragonFly__)
617                 vrecycle(vp);
618 #else /* defined(__NetBSD__) */
619                 vgone(vp);
620 #endif
621                 return (0);
622         }
623         return (0);
624 }
625
626 /*
627  * Reclaim an inode so that it can be used for other purposes.
628  *
629  * hpfs_reclaim(struct vnode *a_vp)
630  */
631 int
632 hpfs_reclaim(struct vop_reclaim_args *ap)
633 {
634         struct vnode *vp = ap->a_vp;
635         struct hpfsnode *hp = VTOHP(vp);
636
637         dprintf(("hpfs_reclaim(0x%x0): \n", hp->h_no));
638
639         hpfs_hphashrem(hp);
640
641         /* Purge old data structures associated with the inode. */
642         if (hp->h_devvp) {
643                 vrele(hp->h_devvp);
644                 hp->h_devvp = NULL;
645         }
646
647         vp->v_data = NULL;
648
649         FREE(hp, M_HPFSNO);
650
651         return (0);
652 }
653
654 /*
655  * hpfs_print(struct vnode *a_vp)
656  */
657 static int
658 hpfs_print(struct vop_print_args *ap)
659 {
660         struct vnode *vp = ap->a_vp;
661         struct hpfsnode *hp = VTOHP(vp);
662
663         kprintf("tag VT_HPFS, ino 0x%x",hp->h_no);
664         lockmgr_printinfo(&vp->v_lock);
665         kprintf("\n");
666         return (0);
667 }
668
669 /*
670  * Calculate the logical to physical mapping if not done already,
671  * then call the device strategy routine.
672  *
673  * In order to be able to swap to a file, the VOP_BMAP operation may not
674  * deadlock on memory.  See hpfs_bmap() for details. XXXXXXX (not impl)
675  *
676  * hpfs_strategy(struct vnode *a_vp, struct bio *a_bio)
677  */
678 int
679 hpfs_strategy(struct vop_strategy_args *ap)
680 {
681         struct bio *bio = ap->a_bio;
682         struct bio *nbio;
683         struct buf *bp = bio->bio_buf;
684         struct vnode *vp = ap->a_vp;
685         struct hpfsnode *hp;
686         int error;
687
688         dprintf(("hpfs_strategy(): \n"));
689
690         if (vp->v_type == VBLK || vp->v_type == VCHR)
691                 panic("hpfs_strategy: spec");
692
693         nbio = push_bio(bio);
694         if (nbio->bio_offset == NOOFFSET) {
695                 error = VOP_BMAP(vp, bio->bio_offset, &nbio->bio_offset,
696                                  NULL, NULL, bp->b_cmd);
697                 if (error) {
698                         kprintf("hpfs_strategy: VOP_BMAP FAILED %d\n", error);
699                         bp->b_error = error;
700                         bp->b_flags |= B_ERROR;
701                         /* I/O was never started on nbio, must biodone(bio) */
702                         biodone(bio);
703                         return (error);
704                 }
705                 if (nbio->bio_offset == NOOFFSET)
706                         vfs_bio_clrbuf(bp);
707         }
708         if (nbio->bio_offset == NOOFFSET) {
709                 /* I/O was never started on nbio, must biodone(bio) */
710                 biodone(bio);
711                 return (0);
712         }
713         hp = VTOHP(ap->a_vp);
714         vn_strategy(hp->h_devvp, nbio);
715         return (0);
716 }
717
718 /*
719  * XXXXX do we need hpfsnode locking inside?
720  *
721  * hpfs_access(struct vnode *a_vp, int a_mode, struct ucred *a_cred)
722  */
723 int
724 hpfs_access(struct vop_access_args *ap)
725 {
726         struct vnode *vp = ap->a_vp;
727         struct hpfsnode *hp = VTOHP(vp);
728
729         dprintf(("hpfs_access(0x%x):\n", hp->h_no));
730         return (vop_helper_access(ap, hp->h_uid, hp->h_gid, hp->h_mode, 0));
731 }
732
733 static int
734 hpfs_de_uiomove(int *error, struct hpfsmount *hpmp, struct hpfsdirent *dep,
735                 struct uio *uio)
736 {
737         char convname[HPFS_MAXFILENAME + 1];
738         int i, success;
739
740         dprintf(("[no: 0x%x, size: %d, name: %2d:%.*s, flag: 0x%x] ",
741                 dep->de_fnode, dep->de_size, dep->de_namelen,
742                 dep->de_namelen, dep->de_name, dep->de_flag));
743
744         /*strncpy(cde.d_name, dep->de_name, dep->de_namelen);*/
745         for (i=0; i<dep->de_namelen; i++) 
746                 convname[i] = hpfs_d2u(hpmp, dep->de_name[i]);
747         convname[dep->de_namelen] = '\0';
748
749         success = vop_write_dirent(error, uio, dep->de_fnode,
750                         (dep->de_flag & DE_DIR) ? DT_DIR : DT_REG,
751                         dep->de_namelen, convname);
752
753         dprintf(("[0x%lx] ", uio->uio_resid));
754         return (success);
755 }
756
757
758 /*
759  * hpfs_readdir(struct vnode *a_vp, struct uio *a_uio, struct ucred *a_cred,
760  *              int *a_ncookies, off_t **cookies)
761  */
762 int
763 hpfs_readdir(struct vop_readdir_args *ap)
764 {
765         struct vnode *vp = ap->a_vp;
766         struct hpfsnode *hp = VTOHP(vp);
767         struct hpfsmount *hpmp = hp->h_hpmp;
768         struct uio *uio = ap->a_uio;
769         int ncookies = 0, i, num, cnum;
770         int error = 0;
771         struct buf *bp;
772         struct dirblk *dp;
773         struct hpfsdirent *dep;
774         lsn_t olsn;
775         lsn_t lsn;
776         int level;
777
778         dprintf(("hpfs_readdir(0x%x, 0x%x, 0x%lx): ",
779                 hp->h_no, (u_int32_t)uio->uio_offset, uio->uio_resid));
780
781         /*
782          * As we need to fake up . and .., and the remaining directory structure
783          * can't be expressed in one off_t as well, we just increment uio_offset
784          * by 1 for each entry.
785          *
786          * num is the entry we need to start reporting
787          * cnum is the current entry
788          */
789         if (uio->uio_offset < 0 || uio->uio_offset > INT_MAX)
790                 return(EINVAL);
791         if ((error = vn_lock(vp, LK_EXCLUSIVE | LK_RETRY)) != 0)
792                 return (error);
793
794         num = uio->uio_offset;
795         cnum = 0;
796
797         if( num <= cnum ) {
798                 dprintf((". faked, "));
799                 if (vop_write_dirent(&error, uio, hp->h_no, DT_DIR, 1, "."))
800                         goto done;
801                 if (error)
802                         goto done;
803                 ncookies ++;
804         }
805         cnum++;
806
807         if( num <= cnum ) {
808                 dprintf((".. faked, "));
809                 if (vop_write_dirent(&error, uio, hp->h_fn.fn_parent, DT_DIR, 2, ".."))
810                         goto readdone;
811                 if (error)
812                         goto done;
813                 ncookies ++;
814         }
815         cnum++;
816
817         lsn = ((alleaf_t *)hp->h_fn.fn_abd)->al_lsn;
818
819         olsn = 0;
820         level = 1;
821
822 dive:
823         dprintf(("[dive 0x%x] ", lsn));
824         error = bread(hp->h_devvp, dbtodoff(lsn), D_BSIZE, &bp);
825         if (error) {
826                 brelse(bp);
827                 goto done;
828         }
829
830         dp = (struct dirblk *) bp->b_data;
831         if (dp->d_magic != D_MAGIC) {
832                 kprintf("hpfs_readdir: MAGIC DOESN'T MATCH\n");
833                 brelse(bp);
834                 error = EINVAL;
835                 goto done;
836         }
837
838         dep = D_DIRENT(dp);
839
840         if (olsn) {
841                 dprintf(("[restore 0x%x] ", olsn));
842
843                 while(!(dep->de_flag & DE_END) ) {
844                         if((dep->de_flag & DE_DOWN) &&
845                            (olsn == DE_DOWNLSN(dep)))
846                                          break;
847                         dep = (hpfsdirent_t *)((caddr_t)dep + dep->de_reclen);
848                 }
849
850                 if((dep->de_flag & DE_DOWN) && (olsn == DE_DOWNLSN(dep))) {
851                         if (dep->de_flag & DE_END)
852                                 goto blockdone;
853
854                         if (!(dep->de_flag & DE_SPECIAL)) {
855                                 if (num <= cnum) {
856                                         if (hpfs_de_uiomove(&error, hpmp, dep, uio)) {
857                                                 brelse(bp);
858                                                 dprintf(("[resid] "));
859                                                 goto readdone;
860                                         }
861                                         if (error) {
862                                                 brelse (bp);
863                                                 goto done;
864                                         }
865                                         ncookies++;
866                                 }
867                                 cnum++;
868                         }
869
870                         dep = (hpfsdirent_t *)((caddr_t)dep + dep->de_reclen);
871                 } else {
872                         kprintf("hpfs_readdir: ERROR! oLSN not found\n");
873                         brelse(bp);
874                         error = EINVAL;
875                         goto done;
876                 }
877         }
878
879         olsn = 0;
880
881         while(!(dep->de_flag & DE_END)) {
882                 if(dep->de_flag & DE_DOWN) {
883                         lsn = DE_DOWNLSN(dep);
884                         brelse(bp);
885                         level++;
886                         goto dive;
887                 }
888
889                 if (!(dep->de_flag & DE_SPECIAL)) {
890                         if (num <= cnum) {
891                                 if (hpfs_de_uiomove(&error, hpmp, dep, uio)) {
892                                         brelse(bp);
893                                         dprintf(("[resid] "));
894                                         goto readdone;
895                                 }
896                                 if (error) {
897                                         brelse (bp);
898                                         goto done;
899                                 }
900                                 ncookies++;
901                         }
902                         cnum++;
903                 }
904
905                 dep = (hpfsdirent_t *)((caddr_t)dep + dep->de_reclen);
906         }
907
908         if(dep->de_flag & DE_DOWN) {
909                 dprintf(("[enddive] "));
910                 lsn = DE_DOWNLSN(dep);
911                 brelse(bp);
912                 level++;
913                 goto dive;
914         }
915
916 blockdone:
917         dprintf(("[EOB] "));
918         olsn = lsn;
919         lsn = dp->d_parent;
920         brelse(bp);
921         level--;
922
923         dprintf(("[level %d] ", level));
924
925         if (level > 0)
926                 goto dive;      /* undive really */
927
928         if (ap->a_eofflag) {
929             dprintf(("[EOF] "));
930             *ap->a_eofflag = 1;
931         }
932
933 readdone:
934         uio->uio_offset = cnum;
935         dprintf(("[readdone]\n"));
936         if (!error && ap->a_ncookies != NULL) {
937                 off_t *cookies;
938                 off_t *cookiep;
939
940                 dprintf(("%d cookies, ",ncookies));
941                 if (uio->uio_segflg != UIO_SYSSPACE || uio->uio_iovcnt != 1)
942                         panic("hpfs_readdir: unexpected uio from NFS server");
943                 MALLOC(cookies, off_t *, ncookies * sizeof(off_t),
944                        M_TEMP, M_WAITOK);
945                 for (cookiep = cookies, i=0; i < ncookies; i++)
946                         *cookiep++ = ++num;
947
948                 *ap->a_ncookies = ncookies;
949                 *ap->a_cookies = cookies;
950         }
951
952 done:
953         vn_unlock(ap->a_vp);
954         return (error);
955 }
956
957 /*
958  * hpfs_lookup(struct vnode *a_dvp, struct vnode **a_vpp,
959  *              struct componentname *a_cnp)
960  */
961 int
962 hpfs_lookup(struct vop_old_lookup_args *ap)
963 {
964         struct vnode *dvp = ap->a_dvp;
965         struct hpfsnode *dhp = VTOHP(dvp);
966         struct hpfsmount *hpmp = dhp->h_hpmp;
967         struct componentname *cnp = ap->a_cnp;
968         struct ucred *cred = cnp->cn_cred;
969         int error;
970         int nameiop = cnp->cn_nameiop;
971         int flags = cnp->cn_flags;
972         int lockparent = flags & CNP_LOCKPARENT;
973 #if HPFS_DEBUG
974         int wantparent = flags & (CNP_LOCKPARENT | CNP_WANTPARENT);
975 #endif
976         dprintf(("hpfs_lookup(0x%x, %s, %ld, %d, %d): \n",
977                 dhp->h_no, cnp->cn_nameptr, cnp->cn_namelen,
978                 lockparent, wantparent));
979
980         if (nameiop != NAMEI_CREATE && nameiop != NAMEI_DELETE && nameiop != NAMEI_LOOKUP) {
981                 kprintf("hpfs_lookup: LOOKUP, DELETE and CREATE are only supported\n");
982                 return (EOPNOTSUPP);
983         }
984
985         error = VOP_EACCESS(dvp, VEXEC, cred);
986         if(error)
987                 return (error);
988
989         if( (cnp->cn_namelen == 1) &&
990             !strncmp(cnp->cn_nameptr,".",1) ) {
991                 dprintf(("hpfs_lookup(0x%x,...): . faked\n",dhp->h_no));
992
993                 vref(dvp);
994                 *ap->a_vpp = dvp;
995
996                 return (0);
997         } else if( (cnp->cn_namelen == 2) &&
998             !strncmp(cnp->cn_nameptr,"..",2) && (flags & CNP_ISDOTDOT) ) {
999                 dprintf(("hpfs_lookup(0x%x,...): .. faked (0x%x)\n",
1000                         dhp->h_no, dhp->h_fn.fn_parent));
1001
1002                 VOP__UNLOCK(dvp, 0);
1003
1004                 error = VFS_VGET(hpmp->hpm_mp, NULL,
1005                                  dhp->h_fn.fn_parent, ap->a_vpp); 
1006                 if (error) {
1007                         VOP__LOCK(dvp, 0);
1008                         return(error);
1009                 }
1010
1011                 if (lockparent && (error = VOP__LOCK(dvp, 0))) {
1012                         vput( *(ap->a_vpp) );
1013                         return (error);
1014                 }
1015                 return (error);
1016         } else {
1017                 struct buf *bp;
1018                 struct hpfsdirent *dep;
1019                 struct hpfsnode *hp;
1020
1021                 error = hpfs_genlookupbyname(dhp,
1022                                 cnp->cn_nameptr, cnp->cn_namelen, &bp, &dep);
1023                 if (error) {
1024                         if (error == ENOENT && 
1025                             (nameiop == NAMEI_CREATE || nameiop == NAMEI_RENAME)) {
1026                                 if(!lockparent)
1027                                         VOP__UNLOCK(dvp, 0);
1028                                 return (EJUSTRETURN);
1029                         }
1030
1031                         return (error);
1032                 }
1033
1034                 dprintf(("hpfs_lookup: fnode: 0x%x, CPID: 0x%x\n",
1035                          dep->de_fnode, dep->de_cpid));
1036
1037                 if (nameiop == NAMEI_DELETE) {
1038                         error = VOP_EACCESS(dvp, VWRITE, cred);
1039                         if (error) {
1040                                 brelse(bp);
1041                                 return (error);
1042                         }
1043                 }
1044
1045                 if (dhp->h_no == dep->de_fnode) {
1046                         brelse(bp);
1047                         vref(dvp);
1048                         *ap->a_vpp = dvp;
1049                         return (0);
1050                 }
1051
1052                 error = VFS_VGET(hpmp->hpm_mp, NULL, dep->de_fnode, ap->a_vpp);
1053                 if (error) {
1054                         kprintf("hpfs_lookup: VFS_VGET FAILED %d\n", error);
1055                         brelse(bp);
1056                         return(error);
1057                 }
1058
1059                 hp = VTOHP(*ap->a_vpp);
1060
1061                 hp->h_mtime = dep->de_mtime;
1062                 hp->h_ctime = dep->de_ctime;
1063                 hp->h_atime = dep->de_atime;
1064                 bcopy(dep->de_name, hp->h_name, dep->de_namelen);
1065                 hp->h_name[dep->de_namelen] = '\0';
1066                 hp->h_namelen = dep->de_namelen;
1067                 hp->h_flag |= H_PARVALID;
1068
1069                 brelse(bp);
1070
1071                 if(!lockparent)
1072                         VOP__UNLOCK(dvp, 0);
1073         }
1074         return (error);
1075 }
1076
1077 /*
1078  * hpfs_remove(struct vnode *a_dvp, struct vnode *a_vp,
1079  *              struct componentname *a_cnp)
1080  */
1081 int
1082 hpfs_remove(struct vop_old_remove_args *ap)
1083 {
1084         int error;
1085
1086         dprintf(("hpfs_remove(0x%x, %s, %ld): \n", VTOHP(ap->a_vp)->h_no,
1087                 ap->a_cnp->cn_nameptr, ap->a_cnp->cn_namelen));
1088
1089         if (ap->a_vp->v_type == VDIR)
1090                 return (EPERM);
1091
1092         error = hpfs_removefnode (ap->a_dvp, ap->a_vp, ap->a_cnp);
1093         return (error);
1094 }
1095
1096 /*
1097  * hpfs_create(struct vnode *a_dvp, struct vnode **a_vpp,
1098  *              struct componentname *a_cnp, struct vattr *a_vap)
1099  */
1100 int
1101 hpfs_create(struct vop_old_create_args *ap)
1102 {
1103         int error;
1104
1105         dprintf(("hpfs_create(0x%x, %s, %ld): \n", VTOHP(ap->a_dvp)->h_no,
1106                 ap->a_cnp->cn_nameptr, ap->a_cnp->cn_namelen));
1107
1108         error = hpfs_makefnode (ap->a_dvp, ap->a_vpp, ap->a_cnp, ap->a_vap);
1109
1110         return (error);
1111 }
1112
1113 /*
1114  * Return POSIX pathconf information applicable to NTFS filesystem
1115  *
1116  * hpfs_pathconf(struct vnode *a_vp, int a_name, t *a_retval)
1117  */
1118 int
1119 hpfs_pathconf(struct vop_pathconf_args *ap)
1120 {
1121         switch (ap->a_name) {
1122         case _PC_LINK_MAX:
1123                 *ap->a_retval = 1;
1124                 return (0);
1125         case _PC_NAME_MAX:
1126                 *ap->a_retval = HPFS_MAXFILENAME;
1127                 return (0);
1128         case _PC_PATH_MAX:
1129                 *ap->a_retval = PATH_MAX;
1130                 return (0);
1131         case _PC_CHOWN_RESTRICTED:
1132                 *ap->a_retval = 1;
1133                 return (0);
1134         case _PC_NO_TRUNC:
1135                 *ap->a_retval = 0;
1136                 return (0);
1137 #if defined(__NetBSD__)
1138         case _PC_SYNC_IO:
1139                 *ap->a_retval = 1;
1140                 return (0);
1141         case _PC_FILESIZEBITS:
1142                 *ap->a_retval = 32;
1143                 return (0);
1144 #endif
1145         default:
1146                 return (EINVAL);
1147         }
1148         /* NOTREACHED */
1149 }
1150
1151
1152 /*
1153  * Global vfs data structures
1154  */
1155
1156 struct vop_ops hpfs_vnode_vops = {
1157         .vop_default =          vop_defaultop,
1158         .vop_getattr =          hpfs_getattr,
1159         .vop_setattr =          hpfs_setattr,
1160         .vop_inactive =         hpfs_inactive,
1161         .vop_reclaim =          hpfs_reclaim,
1162         .vop_print =            hpfs_print,
1163         .vop_old_create =       hpfs_create,
1164         .vop_old_remove =       hpfs_remove,
1165         .vop_old_lookup =       hpfs_lookup,
1166         .vop_access =           hpfs_access,
1167         .vop_readdir =          hpfs_readdir,
1168         .vop_fsync =            hpfs_fsync,
1169         .vop_bmap =             hpfs_bmap,
1170         .vop_getpages =         vop_stdgetpages,
1171         .vop_putpages =         vop_stdputpages,
1172         .vop_strategy =         hpfs_strategy,
1173         .vop_read =             hpfs_read,
1174         .vop_write =            hpfs_write,
1175         .vop_ioctl =            hpfs_ioctl,
1176         .vop_pathconf =         hpfs_pathconf
1177 };
1178