Initial import from FreeBSD RELENG_4:
[dragonfly.git] / sys / vfs / coda / coda_vfsops.c
1 /*
2  * 
3  *             Coda: an Experimental Distributed File System
4  *                              Release 3.1
5  * 
6  *           Copyright (c) 1987-1998 Carnegie Mellon University
7  *                          All Rights Reserved
8  * 
9  * Permission  to  use, copy, modify and distribute this software and its
10  * documentation is hereby granted,  provided  that  both  the  copyright
11  * notice  and  this  permission  notice  appear  in  all  copies  of the
12  * software, derivative works or  modified  versions,  and  any  portions
13  * thereof, and that both notices appear in supporting documentation, and
14  * that credit is given to Carnegie Mellon University  in  all  documents
15  * and publicity pertaining to direct or indirect use of this code or its
16  * derivatives.
17  * 
18  * CODA IS AN EXPERIMENTAL SOFTWARE SYSTEM AND IS  KNOWN  TO  HAVE  BUGS,
19  * SOME  OF  WHICH MAY HAVE SERIOUS CONSEQUENCES.  CARNEGIE MELLON ALLOWS
20  * FREE USE OF THIS SOFTWARE IN ITS "AS IS" CONDITION.   CARNEGIE  MELLON
21  * DISCLAIMS  ANY  LIABILITY  OF  ANY  KIND  FOR  ANY  DAMAGES WHATSOEVER
22  * RESULTING DIRECTLY OR INDIRECTLY FROM THE USE OF THIS SOFTWARE  OR  OF
23  * ANY DERIVATIVE WORK.
24  * 
25  * Carnegie  Mellon  encourages  users  of  this  software  to return any
26  * improvements or extensions that  they  make,  and  to  grant  Carnegie
27  * Mellon the rights to redistribute these changes without encumbrance.
28  * 
29  *      @(#) src/sys/cfs/coda_vfsops.c,v 1.1.1.1 1998/08/29 21:14:52 rvb Exp $
30  * $FreeBSD: src/sys/coda/coda_vfsops.c,v 1.24.2.1 2001/07/26 20:36:45 iedowse Exp $
31  * 
32  */
33
34 /* 
35  * Mach Operating System
36  * Copyright (c) 1989 Carnegie-Mellon University
37  * All rights reserved.  The CMU software License Agreement specifies
38  * the terms and conditions for use and redistribution.
39  */
40
41 /*
42  * This code was written for the Coda file system at Carnegie Mellon
43  * University.  Contributers include David Steere, James Kistler, and
44  * M. Satyanarayanan.  
45  */
46
47 #include <vcoda.h>
48
49 #include <sys/param.h>
50 #include <sys/systm.h>
51 #include <sys/kernel.h>
52 #include <sys/proc.h>
53 #include <sys/malloc.h>
54 #include <sys/conf.h>
55 #include <sys/namei.h>
56 #include <sys/mount.h>
57 #include <sys/select.h>
58
59 #include <vm/vm_zone.h>
60
61 #include <coda/coda.h>
62 #include <coda/cnode.h>
63 #include <coda/coda_vfsops.h>
64 #include <coda/coda_venus.h>
65 #include <coda/coda_subr.h>
66 #include <coda/coda_opstats.h>
67
68 MALLOC_DEFINE(M_CODA, "CODA storage", "Various Coda Structures");
69
70 int codadebug = 0;
71 int coda_vfsop_print_entry = 0;
72 #define ENTRY    if(coda_vfsop_print_entry) myprintf(("Entered %s\n",__FUNCTION__))
73
74 struct vnode *coda_ctlvp;
75 struct coda_mntinfo coda_mnttbl[NVCODA]; /* indexed by minor device number */
76
77 /* structure to keep statistics of internally generated/satisfied calls */
78
79 struct coda_op_stats coda_vfsopstats[CODA_VFSOPS_SIZE];
80
81 #define MARK_ENTRY(op) (coda_vfsopstats[op].entries++)
82 #define MARK_INT_SAT(op) (coda_vfsopstats[op].sat_intrn++)
83 #define MARK_INT_FAIL(op) (coda_vfsopstats[op].unsat_intrn++)
84 #define MRAK_INT_GEN(op) (coda_vfsopstats[op].gen_intrn++)
85
86 extern int coda_nc_initialized;     /* Set if cache has been initialized */
87 extern int vc_nb_open __P((dev_t, int, int, struct proc *));
88
89 int
90 coda_vfsopstats_init(void)
91 {
92         register int i;
93         
94         for (i=0;i<CODA_VFSOPS_SIZE;i++) {
95                 coda_vfsopstats[i].opcode = i;
96                 coda_vfsopstats[i].entries = 0;
97                 coda_vfsopstats[i].sat_intrn = 0;
98                 coda_vfsopstats[i].unsat_intrn = 0;
99                 coda_vfsopstats[i].gen_intrn = 0;
100         }
101         
102         return 0;
103 }
104
105 /*
106  * cfs mount vfsop
107  * Set up mount info record and attach it to vfs struct.
108  */
109 /*ARGSUSED*/
110 int
111 coda_mount(vfsp, path, data, ndp, p)
112     struct mount *vfsp;         /* Allocated and initialized by mount(2) */
113     char *path;                 /* path covered: ignored by the fs-layer */
114     caddr_t data;               /* Need to define a data type for this in netbsd? */
115     struct nameidata *ndp;      /* Clobber this to lookup the device name */
116     struct proc *p;             /* The ever-famous proc pointer */
117 {
118     struct vnode *dvp;
119     struct cnode *cp;
120     dev_t dev;
121     struct coda_mntinfo *mi;
122     struct vnode *rootvp;
123     ViceFid rootfid;
124     ViceFid ctlfid;
125     int error;
126
127     ENTRY;
128
129     coda_vfsopstats_init();
130     coda_vnodeopstats_init();
131     
132     MARK_ENTRY(CODA_MOUNT_STATS);
133     if (CODA_MOUNTED(vfsp)) {
134         MARK_INT_FAIL(CODA_MOUNT_STATS);
135         return(EBUSY);
136     }
137     
138     /* Validate mount device.  Similar to getmdev(). */
139     NDINIT(ndp, LOOKUP, FOLLOW, UIO_USERSPACE, data, p);
140     error = namei(ndp);
141     dvp = ndp->ni_vp;
142
143     if (error) {
144         MARK_INT_FAIL(CODA_MOUNT_STATS);
145         return (error);
146     }
147     if (dvp->v_type != VCHR) {
148         MARK_INT_FAIL(CODA_MOUNT_STATS);
149         vrele(dvp);
150         NDFREE(ndp, NDF_ONLY_PNBUF);
151         return(ENXIO);
152     }
153     dev = dvp->v_rdev;
154     vrele(dvp);
155     NDFREE(ndp, NDF_ONLY_PNBUF);
156
157     /*
158      * See if the device table matches our expectations.
159      */
160     if (devsw(dev)->d_open != vc_nb_open)
161     {
162         MARK_INT_FAIL(CODA_MOUNT_STATS);
163         return(ENXIO);
164     }
165     
166     if (minor(dev) >= NVCODA || minor(dev) < 0) {
167         MARK_INT_FAIL(CODA_MOUNT_STATS);
168         return(ENXIO);
169     }
170     
171     /*
172      * Initialize the mount record and link it to the vfs struct
173      */
174     mi = &coda_mnttbl[minor(dev)];
175     
176     if (!VC_OPEN(&mi->mi_vcomm)) {
177         MARK_INT_FAIL(CODA_MOUNT_STATS);
178         return(ENODEV);
179     }
180     
181     /* No initialization (here) of mi_vcomm! */
182     vfsp->mnt_data = (qaddr_t)mi;
183     vfs_getnewfsid (vfsp);
184
185     mi->mi_vfsp = vfsp;
186     
187     /*
188      * Make a root vnode to placate the Vnode interface, but don't
189      * actually make the CODA_ROOT call to venus until the first call
190      * to coda_root in case a server is down while venus is starting.
191      */
192     rootfid.Volume = 0;
193     rootfid.Vnode = 0;
194     rootfid.Unique = 0;
195     cp = make_coda_node(&rootfid, vfsp, VDIR);
196     rootvp = CTOV(cp);
197     rootvp->v_flag |= VROOT;
198         
199     ctlfid.Volume = CTL_VOL;
200     ctlfid.Vnode = CTL_VNO;
201     ctlfid.Unique = CTL_UNI;
202 /*  cp = make_coda_node(&ctlfid, vfsp, VCHR);
203     The above code seems to cause a loop in the cnode links.
204     I don't totally understand when it happens, it is caught
205     when closing down the system.
206  */
207     cp = make_coda_node(&ctlfid, 0, VCHR);
208
209     coda_ctlvp = CTOV(cp);
210
211     /* Add vfs and rootvp to chain of vfs hanging off mntinfo */
212     mi->mi_vfsp = vfsp;
213     mi->mi_rootvp = rootvp;
214     
215     /* set filesystem block size */
216     vfsp->mnt_stat.f_bsize = 8192;          /* XXX -JJK */
217
218     /* Set f_iosize.  XXX -- inamura@isl.ntt.co.jp. 
219        For vnode_pager_haspage() references. The value should be obtained 
220        from underlying UFS. */
221     /* Checked UFS. iosize is set as 8192 */
222     vfsp->mnt_stat.f_iosize = 8192;
223
224     /* error is currently guaranteed to be zero, but in case some
225        code changes... */
226     CODADEBUG(1,
227              myprintf(("coda_mount returned %d\n",error)););
228     if (error)
229         MARK_INT_FAIL(CODA_MOUNT_STATS);
230     else
231         MARK_INT_SAT(CODA_MOUNT_STATS);
232     
233     return(error);
234 }
235
236 int
237 coda_unmount(vfsp, mntflags, p)
238     struct mount *vfsp;
239     int mntflags;
240     struct proc *p;
241 {
242     struct coda_mntinfo *mi = vftomi(vfsp);
243     int active, error = 0;
244     
245     ENTRY;
246     MARK_ENTRY(CODA_UMOUNT_STATS);
247     if (!CODA_MOUNTED(vfsp)) {
248         MARK_INT_FAIL(CODA_UMOUNT_STATS);
249         return(EINVAL);
250     }
251     
252     if (mi->mi_vfsp == vfsp) {  /* We found the victim */
253         if (!IS_UNMOUNTING(VTOC(mi->mi_rootvp)))
254             return (EBUSY);     /* Venus is still running */
255
256 #ifdef  DEBUG
257         printf("coda_unmount: ROOT: vp %p, cp %p\n", mi->mi_rootvp, VTOC(mi->mi_rootvp));
258 #endif
259         vrele(mi->mi_rootvp);
260
261         active = coda_kill(vfsp, NOT_DOWNCALL);
262         mi->mi_rootvp->v_flag &= ~VROOT;
263         error = vflush(mi->mi_vfsp, 0, FORCECLOSE);
264         printf("coda_unmount: active = %d, vflush active %d\n", active, error);
265         error = 0;
266         /* I'm going to take this out to allow lookups to go through. I'm
267          * not sure it's important anyway. -- DCS 2/2/94
268          */
269         /* vfsp->VFS_DATA = NULL; */
270
271         /* No more vfsp's to hold onto */
272         mi->mi_vfsp = NULL;
273         mi->mi_rootvp = NULL;
274
275         if (error)
276             MARK_INT_FAIL(CODA_UMOUNT_STATS);
277         else
278             MARK_INT_SAT(CODA_UMOUNT_STATS);
279
280         return(error);
281     }
282     return (EINVAL);
283 }
284
285 /*
286  * find root of cfs
287  */
288 int
289 coda_root(vfsp, vpp)
290         struct mount *vfsp;
291         struct vnode **vpp;
292 {
293     struct coda_mntinfo *mi = vftomi(vfsp);
294     struct vnode **result;
295     int error;
296     struct proc *p = curproc;    /* XXX - bnoble */
297     ViceFid VFid;
298
299     ENTRY;
300     MARK_ENTRY(CODA_ROOT_STATS);
301     result = NULL;
302     
303     if (vfsp == mi->mi_vfsp) {
304         if ((VTOC(mi->mi_rootvp)->c_fid.Volume != 0) ||
305             (VTOC(mi->mi_rootvp)->c_fid.Vnode != 0) ||
306             (VTOC(mi->mi_rootvp)->c_fid.Unique != 0))
307             { /* Found valid root. */
308                 *vpp = mi->mi_rootvp;
309                 /* On Mach, this is vref.  On NetBSD, VOP_LOCK */
310 #if     1
311                 vref(*vpp);
312                 vn_lock(*vpp, LK_EXCLUSIVE, p);
313 #else
314                 vget(*vpp, LK_EXCLUSIVE, p);
315 #endif
316                 MARK_INT_SAT(CODA_ROOT_STATS);
317                 return(0);
318             }
319     }
320
321     error = venus_root(vftomi(vfsp), p->p_ucred, p, &VFid);
322
323     if (!error) {
324         /*
325          * Save the new rootfid in the cnode, and rehash the cnode into the
326          * cnode hash with the new fid key.
327          */
328         coda_unsave(VTOC(mi->mi_rootvp));
329         VTOC(mi->mi_rootvp)->c_fid = VFid;
330         coda_save(VTOC(mi->mi_rootvp));
331
332         *vpp = mi->mi_rootvp;
333 #if     1
334         vref(*vpp);
335         vn_lock(*vpp, LK_EXCLUSIVE, p);
336 #else
337         vget(*vpp, LK_EXCLUSIVE, p);
338 #endif
339
340         MARK_INT_SAT(CODA_ROOT_STATS);
341         goto exit;
342     } else if (error == ENODEV || error == EINTR) {
343         /* Gross hack here! */
344         /*
345          * If Venus fails to respond to the CODA_ROOT call, coda_call returns
346          * ENODEV. Return the uninitialized root vnode to allow vfs
347          * operations such as unmount to continue. Without this hack,
348          * there is no way to do an unmount if Venus dies before a 
349          * successful CODA_ROOT call is done. All vnode operations 
350          * will fail.
351          */
352         *vpp = mi->mi_rootvp;
353 #if     1
354         vref(*vpp);
355         vn_lock(*vpp, LK_EXCLUSIVE, p);
356 #else
357         vget(*vpp, LK_EXCLUSIVE, p);
358 #endif
359
360         MARK_INT_FAIL(CODA_ROOT_STATS);
361         error = 0;
362         goto exit;
363     } else {
364         CODADEBUG( CODA_ROOT, myprintf(("error %d in CODA_ROOT\n", error)); );
365         MARK_INT_FAIL(CODA_ROOT_STATS);
366                 
367         goto exit;
368     }
369
370  exit:
371     return(error);
372 }
373
374 /*
375  * Get file system statistics.
376  */
377 int
378 coda_nb_statfs(vfsp, sbp, p)
379     register struct mount *vfsp;
380     struct statfs *sbp;
381     struct proc *p;
382 {
383     ENTRY;
384 /*  MARK_ENTRY(CODA_STATFS_STATS); */
385     if (!CODA_MOUNTED(vfsp)) {
386 /*      MARK_INT_FAIL(CODA_STATFS_STATS);*/
387         return(EINVAL);
388     }
389     
390     bzero(sbp, sizeof(struct statfs));
391     /* XXX - what to do about f_flags, others? --bnoble */
392     /* Below This is what AFS does
393         #define NB_SFS_SIZ 0x895440
394      */
395     /* Note: Normal fs's have a bsize of 0x400 == 1024 */
396     sbp->f_type = vfsp->mnt_vfc->vfc_typenum;
397     sbp->f_bsize = 8192; /* XXX */
398     sbp->f_iosize = 8192; /* XXX */
399 #define NB_SFS_SIZ 0x8AB75D
400     sbp->f_blocks = NB_SFS_SIZ;
401     sbp->f_bfree = NB_SFS_SIZ;
402     sbp->f_bavail = NB_SFS_SIZ;
403     sbp->f_files = NB_SFS_SIZ;
404     sbp->f_ffree = NB_SFS_SIZ;
405     bcopy((caddr_t)&(vfsp->mnt_stat.f_fsid), (caddr_t)&(sbp->f_fsid), sizeof (fsid_t));
406     snprintf(sbp->f_mntonname, sizeof(sbp->f_mntonname), "/coda");
407     snprintf(sbp->f_mntfromname, sizeof(sbp->f_mntfromname), "CODA");
408 /*  MARK_INT_SAT(CODA_STATFS_STATS); */
409     return(0);
410 }
411
412 /*
413  * Flush any pending I/O.
414  */
415 int
416 coda_sync(vfsp, waitfor, cred, p)
417     struct mount *vfsp;
418     int    waitfor;
419     struct ucred *cred;
420     struct proc *p;
421 {
422     ENTRY;
423     MARK_ENTRY(CODA_SYNC_STATS);
424     MARK_INT_SAT(CODA_SYNC_STATS);
425     return(0);
426 }
427
428 /* 
429  * fhtovp is now what vget used to be in 4.3-derived systems.  For
430  * some silly reason, vget is now keyed by a 32 bit ino_t, rather than
431  * a type-specific fid.  
432  */
433 int
434 coda_fhtovp(vfsp, fhp, nam, vpp, exflagsp, creadanonp)
435     register struct mount *vfsp;    
436     struct fid *fhp;
437     struct mbuf *nam;
438     struct vnode **vpp;
439     int *exflagsp;
440     struct ucred **creadanonp;
441 {
442     struct cfid *cfid = (struct cfid *)fhp;
443     struct cnode *cp = 0;
444     int error;
445     struct proc *p = curproc; /* XXX -mach */
446     ViceFid VFid;
447     int vtype;
448
449     ENTRY;
450     
451     MARK_ENTRY(CODA_VGET_STATS);
452     /* Check for vget of control object. */
453     if (IS_CTL_FID(&cfid->cfid_fid)) {
454         *vpp = coda_ctlvp;
455         vref(coda_ctlvp);
456         MARK_INT_SAT(CODA_VGET_STATS);
457         return(0);
458     }
459     
460     error = venus_fhtovp(vftomi(vfsp), &cfid->cfid_fid, p->p_ucred, p, &VFid, &vtype);
461     
462     if (error) {
463         CODADEBUG(CODA_VGET, myprintf(("vget error %d\n",error));)
464             *vpp = (struct vnode *)0;
465     } else {
466         CODADEBUG(CODA_VGET, 
467                  myprintf(("vget: vol %lx vno %lx uni %lx type %d result %d\n",
468                         VFid.Volume, VFid.Vnode, VFid.Unique, vtype, error)); )
469             
470         cp = make_coda_node(&VFid, vfsp, vtype);
471         *vpp = CTOV(cp);
472     }
473     return(error);
474 }
475
476 /*
477  * To allow for greater ease of use, some vnodes may be orphaned when
478  * Venus dies.  Certain operations should still be allowed to go
479  * through, but without propagating ophan-ness.  So this function will
480  * get a new vnode for the file from the current run of Venus.  */
481  
482 int
483 getNewVnode(vpp)
484      struct vnode **vpp;
485 {
486     struct cfid cfid;
487     struct coda_mntinfo *mi = vftomi((*vpp)->v_mount);
488     
489     ENTRY;
490
491     cfid.cfid_len = (short)sizeof(ViceFid);
492     cfid.cfid_fid = VTOC(*vpp)->c_fid;  /* Structure assignment. */
493     /* XXX ? */
494
495     /* We're guessing that if set, the 1st element on the list is a
496      * valid vnode to use. If not, return ENODEV as venus is dead.
497      */
498     if (mi->mi_vfsp == NULL)
499         return ENODEV;
500     
501     return coda_fhtovp(mi->mi_vfsp, (struct fid*)&cfid, NULL, vpp,
502                       NULL, NULL);
503 }
504
505 #include <ufs/ufs/quota.h>
506 #include <ufs/ufs/ufsmount.h>
507 /* get the mount structure corresponding to a given device.  Assume 
508  * device corresponds to a UFS. Return NULL if no device is found.
509  */ 
510 struct mount *devtomp(dev)
511     dev_t dev;
512 {
513     struct mount *mp;
514    
515     TAILQ_FOREACH(mp, &mountlist, mnt_list) {
516         if (((VFSTOUFS(mp))->um_dev == dev)) {
517             /* mount corresponds to UFS and the device matches one we want */
518             return(mp); 
519         }
520     }
521     /* mount structure wasn't found */ 
522     return(NULL); 
523 }
524
525 struct vfsops coda_vfsops = {
526     coda_mount,
527     vfs_stdstart,
528     coda_unmount,
529     coda_root,
530     vfs_stdquotactl,
531     coda_nb_statfs,
532     coda_sync,
533     vfs_stdvget,
534     vfs_stdfhtovp,
535     vfs_stdcheckexp,
536     vfs_stdvptofh,
537     vfs_stdinit,
538     vfs_stduninit,
539     vfs_stdextattrctl,
540 };
541
542 VFS_SET(coda_vfsops, coda, VFCF_NETWORK);