9f20680c0bccb34c79ee438f33add03b30598ff1
[dragonfly.git] / sys / vfs / gnu / ext2fs / ext2_vfsops.c
1 /*
2  *  modified for EXT2FS support in Lites 1.1
3  *
4  *  Aug 1995, Godmar Back (gback@cs.utah.edu)
5  *  University of Utah, Department of Computer Science
6  */
7 /*      
8  * Copyright (c) 1989, 1991, 1993, 1994 
9  *      The Regents of the University of California.  All rights reserved.
10  *
11  * Redistribution and use in source and binary forms, with or without
12  * modification, are permitted provided that the following conditions
13  * are met:
14  * 1. Redistributions of source code must retain the above copyright
15  *    notice, this list of conditions and the following disclaimer.
16  * 2. Redistributions in binary form must reproduce the above copyright
17  *    notice, this list of conditions and the following disclaimer in the
18  *    documentation and/or other materials provided with the distribution.
19  * 3. All advertising materials mentioning features or use of this software
20  *    must display the following acknowledgement:
21  *      This product includes software developed by the University of
22  *      California, Berkeley and its contributors.
23  * 4. Neither the name of the University nor the names of its contributors
24  *    may be used to endorse or promote products derived from this software
25  *    without specific prior written permission.
26  *
27  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37  * SUCH DAMAGE.
38  *
39  *      @(#)ffs_vfsops.c        8.8 (Berkeley) 4/18/94
40  *      $FreeBSD: src/sys/gnu/ext2fs/ext2_vfsops.c,v 1.63.2.7 2002/07/01 00:18:51 iedowse Exp $
41  *      $DragonFly: src/sys/vfs/gnu/ext2fs/ext2_vfsops.c,v 1.25 2004/12/29 02:42:14 dillon Exp $
42  */
43
44 #include "opt_quota.h"
45
46 #include <sys/param.h>
47 #include <sys/systm.h>
48 #include <sys/nlookup.h>
49 #include <sys/proc.h>
50 #include <sys/kernel.h>
51 #include <sys/vnode.h>
52 #include <sys/mount.h>
53 #include <sys/buf.h>
54 #include <sys/conf.h>
55 #include <sys/fcntl.h>
56 #include <sys/disklabel.h>
57 #include <sys/malloc.h>
58 #include <sys/stat.h>
59 #include <sys/buf2.h>
60
61 #include <vfs/ufs/quota.h>
62 #include <vfs/ufs/ufsmount.h>
63 #include <vfs/ufs/inode.h>
64 #include <vfs/ufs/ufs_extern.h>
65
66 #include <vm/vm_zone.h>
67
68 #include "fs.h"
69 #include "ext2_extern.h"
70 #include "ext2_fs.h"
71 #include "ext2_fs_sb.h"
72
73 extern struct vnodeopv_entry_desc ext2_vnodeop_entries[];
74 extern struct vnodeopv_entry_desc ext2_specop_entries[];
75 extern struct vnodeopv_entry_desc ext2_fifoop_entries[];
76
77 static int ext2_fhtovp (struct mount *, struct fid *, struct vnode **);
78 static int ext2_flushfiles (struct mount *mp, int flags, struct thread *td);
79 static int ext2_mount (struct mount *, char *, caddr_t, struct thread *);
80 static int ext2_mountfs (struct vnode *, struct mount *, struct thread *);
81 static int ext2_reload (struct mount *mountp, struct ucred *cred,
82                         struct thread *p);
83 static int ext2_sbupdate (struct ufsmount *, int);
84 static int ext2_statfs (struct mount *, struct statfs *, struct thread *);
85 static int ext2_sync (struct mount *, int, struct thread *);
86 static int ext2_unmount (struct mount *, int, struct thread *);
87 static int ext2_vget (struct mount *, ino_t, struct vnode **);
88 static int ext2_vptofh (struct vnode *, struct fid *);
89
90 static MALLOC_DEFINE(M_EXT2NODE, "EXT2 node", "EXT2 vnode private part");
91
92 static struct vfsops ext2fs_vfsops = {
93         ext2_mount,
94         ufs_start,              /* empty function */
95         ext2_unmount,
96         ufs_root,               /* root inode via vget */
97         ufs_quotactl,           /* does operations associated with quotas */
98         ext2_statfs,
99         ext2_sync,
100         ext2_vget,
101         ext2_fhtovp,
102         ufs_check_export,
103         ext2_vptofh,
104         ext2_init,
105         vfs_stduninit,
106         vfs_stdextattrctl,
107 };
108
109 VFS_SET(ext2fs_vfsops, ext2fs, 0);
110 #define bsd_malloc malloc
111 #define bsd_free free
112
113 static int ext2fs_inode_hash_lock;
114
115 static int      ext2_check_sb_compat (struct ext2_super_block *es,
116                                           dev_t dev, int ronly);
117 static int      compute_sb_data (struct vnode * devvp,
118                                      struct ext2_super_block * es,
119                                      struct ext2_sb_info * fs);
120
121 /*
122  * VFS Operations.
123  *
124  * mount system call
125  */
126 static int
127 ext2_mount(struct mount *mp, char *path,
128            caddr_t data,        /* this is actually a (struct ufs_args *) */
129            struct thread *td)
130 {
131         struct vnode *devvp;
132         struct ufs_args args;
133         struct ufsmount *ump = 0;
134         struct ext2_sb_info *fs;
135         size_t size;
136         int error, flags;
137         mode_t accessmode;
138         struct ucred *cred;
139         struct nlookupdata nd;
140
141         if ((error = copyin(data, (caddr_t)&args, sizeof (struct ufs_args))) != 0)
142                 return (error);
143
144         cred = td->td_proc->p_ucred;
145         /*
146          * If updating, check whether changing from read-only to
147          * read/write; if there is no device name, that's all we do.
148          */
149         if (mp->mnt_flag & MNT_UPDATE) {
150                 ump = VFSTOUFS(mp);
151                 fs = ump->um_e2fs;
152                 error = 0;
153                 if (fs->s_rd_only == 0 && (mp->mnt_flag & MNT_RDONLY)) {
154                         flags = WRITECLOSE;
155                         if (mp->mnt_flag & MNT_FORCE)
156                                 flags |= FORCECLOSE;
157                         if (vfs_busy(mp, LK_NOWAIT, NULL, td))
158                                 return (EBUSY);
159                         error = ext2_flushfiles(mp, flags, td);
160                         vfs_unbusy(mp, td);
161                         if (!error && fs->s_wasvalid) {
162                                 fs->s_es->s_state |= EXT2_VALID_FS;
163                                 ext2_sbupdate(ump, MNT_WAIT);
164                         }
165                         fs->s_rd_only = 1;
166                 }
167                 if (!error && (mp->mnt_flag & MNT_RELOAD))
168                         error = ext2_reload(mp, proc0.p_ucred, td);
169                 if (error)
170                         return (error);
171                 devvp = ump->um_devvp;
172                 if (ext2_check_sb_compat(fs->s_es, devvp->v_rdev,
173                     (mp->mnt_kern_flag & MNTK_WANTRDWR) == 0) != 0)
174                         return (EPERM);
175                 if (fs->s_rd_only && (mp->mnt_kern_flag & MNTK_WANTRDWR)) {
176                         /*
177                          * If upgrade to read-write by non-root, then verify
178                          * that user has necessary permissions on the device.
179                          */
180                         if (cred->cr_uid != 0) {
181                                 vn_lock(devvp, LK_EXCLUSIVE | LK_RETRY, td);
182                                 if ((error = VOP_ACCESS(devvp, VREAD | VWRITE,
183                                     cred, td)) != 0) {
184                                         VOP_UNLOCK(devvp, 0, td);
185                                         return (error);
186                                 }
187                                 VOP_UNLOCK(devvp, 0, td);
188                         }
189
190                         if ((fs->s_es->s_state & EXT2_VALID_FS) == 0 ||
191                             (fs->s_es->s_state & EXT2_ERROR_FS)) {
192                                 if (mp->mnt_flag & MNT_FORCE) {
193                                         printf(
194 "WARNING: %s was not properly dismounted\n",
195                                             fs->fs_fsmnt);
196                                 } else {
197                                         printf(
198 "WARNING: R/W mount of %s denied.  Filesystem is not clean - run fsck\n",
199                                             fs->fs_fsmnt);
200                                         return (EPERM);
201                                 }
202                         }
203                         fs->s_es->s_state &= ~EXT2_VALID_FS;
204                         ext2_sbupdate(ump, MNT_WAIT);
205                         fs->s_rd_only = 0;
206                 }
207                 if (args.fspec == 0) {
208                         /*
209                          * Process export requests.
210                          */
211                         return (vfs_export(mp, &ump->um_export, &args.export));
212                 }
213         }
214         /*
215          * Not an update, or updating the name: look up the name
216          * and verify that it refers to a sensible block device.
217          */
218         devvp = NULL;
219         error = nlookup_init(&nd, args.fspec, UIO_USERSPACE, NLC_FOLLOW);
220         if (error == 0)
221                 error = nlookup(&nd);
222         if (error == 0)
223                 error = cache_vref(nd.nl_ncp, nd.nl_cred, &devvp);
224         nlookup_done(&nd);
225         if (error)
226                 return (error);
227
228         if (!vn_isdisk(devvp, &error)) {
229                 vrele(devvp);
230                 return (error);
231         }
232
233         /*
234          * If mount by non-root, then verify that user has necessary
235          * permissions on the device.
236          */
237         if (cred->cr_uid != 0) {
238                 accessmode = VREAD;
239                 if ((mp->mnt_flag & MNT_RDONLY) == 0)
240                         accessmode |= VWRITE;
241                 vn_lock(devvp, LK_EXCLUSIVE | LK_RETRY, td);
242                 if ((error = VOP_ACCESS(devvp, accessmode, cred, td)) != 0) {
243                         vput(devvp);
244                         return (error);
245                 }
246                 VOP_UNLOCK(devvp, 0, td);
247         }
248
249         if ((mp->mnt_flag & MNT_UPDATE) == 0) {
250                 error = ext2_mountfs(devvp, mp, td);
251         } else {
252                 if (devvp != ump->um_devvp)
253                         error = EINVAL; /* needs translation */
254                 else
255                         vrele(devvp);
256         }
257         if (error) {
258                 vrele(devvp);
259                 return (error);
260         }
261         ump = VFSTOUFS(mp);
262         fs = ump->um_e2fs;
263         copyinstr(path, fs->fs_fsmnt, sizeof(fs->fs_fsmnt) - 1, &size);
264         bzero(fs->fs_fsmnt + size, sizeof(fs->fs_fsmnt) - size);
265         bcopy(fs->fs_fsmnt, mp->mnt_stat.f_mntonname, MNAMELEN);
266         copyinstr(args.fspec, mp->mnt_stat.f_mntfromname, MNAMELEN - 1, &size);
267         bzero(mp->mnt_stat.f_mntfromname + size, MNAMELEN - size);
268         ext2_statfs(mp, &mp->mnt_stat, td);
269         return (0);
270 }
271
272 /*
273  * checks that the data in the descriptor blocks make sense
274  * this is taken from ext2/super.c
275  */
276 static int ext2_check_descriptors(struct ext2_sb_info *sb)
277 {
278         int i;
279         int desc_block = 0;
280         unsigned long block = sb->s_es->s_first_data_block;
281         struct ext2_group_desc * gdp = NULL;
282
283         /* ext2_debug ("Checking group descriptors"); */
284
285         for (i = 0; i < sb->s_groups_count; i++)
286         {
287                 /* examine next descriptor block */
288                 if ((i % EXT2_DESC_PER_BLOCK(sb)) == 0)
289                         gdp = (struct ext2_group_desc *) 
290                                 sb->s_group_desc[desc_block++]->b_data;
291                 if (gdp->bg_block_bitmap < block ||
292                     gdp->bg_block_bitmap >= block + EXT2_BLOCKS_PER_GROUP(sb))
293                 {
294                         printf ("ext2_check_descriptors: "
295                                     "Block bitmap for group %d"
296                                     " not in group (block %lu)!\n",
297                                     i, (unsigned long) gdp->bg_block_bitmap);
298                         return 0;
299                 }
300                 if (gdp->bg_inode_bitmap < block ||
301                     gdp->bg_inode_bitmap >= block + EXT2_BLOCKS_PER_GROUP(sb))
302                 {
303                         printf ("ext2_check_descriptors: "
304                                     "Inode bitmap for group %d"
305                                     " not in group (block %lu)!\n",
306                                     i, (unsigned long) gdp->bg_inode_bitmap);
307                         return 0;
308                 }
309                 if (gdp->bg_inode_table < block ||
310                     gdp->bg_inode_table + sb->s_itb_per_group >=
311                     block + EXT2_BLOCKS_PER_GROUP(sb))
312                 {
313                         printf ("ext2_check_descriptors: "
314                                     "Inode table for group %d"
315                                     " not in group (block %lu)!\n",
316                                     i, (unsigned long) gdp->bg_inode_table);
317                         return 0;
318                 }
319                 block += EXT2_BLOCKS_PER_GROUP(sb);
320                 gdp++;
321         }
322         return 1;
323 }
324
325 static int
326 ext2_check_sb_compat(struct ext2_super_block *es, dev_t dev, int ronly)
327 {
328         if (es->s_magic != EXT2_SUPER_MAGIC) {
329                 printf("ext2fs: %s: wrong magic number %#x (expected %#x)\n",
330                     devtoname(dev), es->s_magic, EXT2_SUPER_MAGIC);
331                 return (1);
332         }
333         if (es->s_rev_level > EXT2_GOOD_OLD_REV) {
334                 if (es->s_feature_incompat & ~EXT2_FEATURE_INCOMPAT_SUPP) {
335                         printf(
336 "WARNING: mount of %s denied due to unsupported optional features\n",
337                             devtoname(dev));
338                         return (1);
339                 }
340                 if (!ronly &&
341                     (es->s_feature_ro_compat & ~EXT2_FEATURE_RO_COMPAT_SUPP)) {
342                         printf(
343 "WARNING: R/W mount of %s denied due to unsupported optional features\n",
344                             devtoname(dev));
345                         return (1);
346                 }
347         }
348         return (0);
349 }
350
351 /*
352  * this computes the fields of the  ext2_sb_info structure from the
353  * data in the ext2_super_block structure read in
354  */
355 static int
356 compute_sb_data(struct vnode *devvp, struct ext2_super_block *es,
357                 struct ext2_sb_info *fs)
358 {
359     int db_count, error;
360     int i, j;
361     int logic_sb_block = 1;     /* XXX for now */
362
363 #if 1
364 #define V(v)  
365 #else
366 #define V(v)  printf(#v"= %d\n", fs->v);
367 #endif
368
369     fs->s_blocksize = EXT2_MIN_BLOCK_SIZE << es->s_log_block_size; 
370     V(s_blocksize)
371     fs->s_bshift = EXT2_MIN_BLOCK_LOG_SIZE + es->s_log_block_size;
372     V(s_bshift)
373     fs->s_fsbtodb = es->s_log_block_size + 1;
374     V(s_fsbtodb)
375     fs->s_qbmask = fs->s_blocksize - 1;
376     V(s_bmask)
377     fs->s_blocksize_bits = EXT2_BLOCK_SIZE_BITS(es);
378     V(s_blocksize_bits)
379     fs->s_frag_size = EXT2_MIN_FRAG_SIZE << es->s_log_frag_size;
380     V(s_frag_size)
381     if (fs->s_frag_size)
382         fs->s_frags_per_block = fs->s_blocksize / fs->s_frag_size;
383     V(s_frags_per_block)
384     fs->s_blocks_per_group = es->s_blocks_per_group;
385     V(s_blocks_per_group)
386     fs->s_frags_per_group = es->s_frags_per_group;
387     V(s_frags_per_group)
388     fs->s_inodes_per_group = es->s_inodes_per_group;
389     V(s_inodes_per_group)
390     fs->s_inodes_per_block = fs->s_blocksize / EXT2_INODE_SIZE;
391     V(s_inodes_per_block)
392     fs->s_itb_per_group = fs->s_inodes_per_group /fs->s_inodes_per_block;
393     V(s_itb_per_group)
394     fs->s_desc_per_block = fs->s_blocksize / sizeof (struct ext2_group_desc);
395     V(s_desc_per_block)
396     /* s_resuid / s_resgid ? */
397     fs->s_groups_count = (es->s_blocks_count -
398                           es->s_first_data_block +
399                           EXT2_BLOCKS_PER_GROUP(fs) - 1) /
400                          EXT2_BLOCKS_PER_GROUP(fs);
401     V(s_groups_count)
402     db_count = (fs->s_groups_count + EXT2_DESC_PER_BLOCK(fs) - 1) /
403         EXT2_DESC_PER_BLOCK(fs);
404     fs->s_db_per_group = db_count;
405     V(s_db_per_group)
406
407     fs->s_group_desc = bsd_malloc(db_count * sizeof (struct buf *),
408                 M_UFSMNT, M_WAITOK);
409
410     /* adjust logic_sb_block */
411     if(fs->s_blocksize > SBSIZE) 
412         /* Godmar thinks: if the blocksize is greater than 1024, then
413            the superblock is logically part of block zero. 
414          */
415         logic_sb_block = 0;
416     
417     for (i = 0; i < db_count; i++) {
418         error = bread(devvp , fsbtodb(fs, logic_sb_block + i + 1), 
419                 fs->s_blocksize, &fs->s_group_desc[i]);
420         if(error) {
421             for (j = 0; j < i; j++)
422                 brelse(fs->s_group_desc[j]);
423             bsd_free(fs->s_group_desc, M_UFSMNT);
424             printf("EXT2-fs: unable to read group descriptors (%d)\n", error);
425             return EIO;
426         }
427         /* Set the B_LOCKED flag on the buffer, then brelse() it */
428         LCK_BUF(fs->s_group_desc[i])
429     }
430     if(!ext2_check_descriptors(fs)) {
431             for (j = 0; j < db_count; j++)
432                     ULCK_BUF(fs->s_group_desc[j])
433             bsd_free(fs->s_group_desc, M_UFSMNT);
434             printf("EXT2-fs: (ext2_check_descriptors failure) "
435                    "unable to read group descriptors\n");
436             return EIO;
437     }
438
439     for (i = 0; i < EXT2_MAX_GROUP_LOADED; i++) {
440             fs->s_inode_bitmap_number[i] = 0;
441             fs->s_inode_bitmap[i] = NULL;
442             fs->s_block_bitmap_number[i] = 0;
443             fs->s_block_bitmap[i] = NULL;
444     }
445     fs->s_loaded_inode_bitmaps = 0;
446     fs->s_loaded_block_bitmaps = 0;
447     return 0;
448 }
449
450 /*
451  * Reload all incore data for a filesystem (used after running fsck on
452  * the root filesystem and finding things to fix). The filesystem must
453  * be mounted read-only.
454  *
455  * Things to do to update the mount:
456  *      1) invalidate all cached meta-data.
457  *      2) re-read superblock from disk.
458  *      3) re-read summary information from disk.
459  *      4) invalidate all inactive vnodes.
460  *      5) invalidate all cached file data.
461  *      6) re-read inode data for all active vnodes.
462  */
463 static int ext2_reload_scan1(struct mount *mp, struct vnode *vp, void *rescan);
464 static int ext2_reload_scan2(struct mount *mp, struct vnode *vp, void *rescan);
465
466 struct scaninfo {
467         int rescan;
468         int allerror;
469         int waitfor;
470         thread_t td;
471         struct vnode *devvp;
472         struct ext2_sb_info *fs;
473 };
474
475 static int
476 ext2_reload(struct mount *mountp, struct ucred *cred, struct thread *td)
477 {
478         struct vnode *devvp;
479         struct buf *bp;
480         struct ext2_super_block * es;
481         struct ext2_sb_info *fs;
482         int error;
483         struct scaninfo scaninfo;
484
485         if ((mountp->mnt_flag & MNT_RDONLY) == 0)
486                 return (EINVAL);
487         /*
488          * Step 1: invalidate all cached meta-data.
489          */
490         devvp = VFSTOUFS(mountp)->um_devvp;
491         if (vinvalbuf(devvp, 0, td, 0, 0))
492                 panic("ext2_reload: dirty1");
493         /*
494          * Step 2: re-read superblock from disk.
495          * constants have been adjusted for ext2
496          */
497         if ((error = bread(devvp, SBLOCK, SBSIZE, &bp)) != 0)
498                 return (error);
499         es = (struct ext2_super_block *)bp->b_data;
500         if (ext2_check_sb_compat(es, devvp->v_rdev, 0) != 0) {
501                 brelse(bp);
502                 return (EIO);           /* XXX needs translation */
503         }
504         fs = VFSTOUFS(mountp)->um_e2fs;
505         bcopy(bp->b_data, fs->s_es, sizeof(struct ext2_super_block));
506
507         if((error = compute_sb_data(devvp, es, fs)) != 0) {
508                 brelse(bp);
509                 return error;
510         }
511 #ifdef UNKLAR
512         if (fs->fs_sbsize < SBSIZE)
513                 bp->b_flags |= B_INVAL;
514 #endif
515         brelse(bp);
516
517         scaninfo.rescan = 1;
518         scaninfo.td = td;
519         scaninfo.devvp = devvp;
520         scaninfo.fs = fs;
521         while (error == 0 && scaninfo.rescan) {
522             scaninfo.rescan = 0;
523             error = vmntvnodescan(mountp, VMSC_GETVX, ext2_reload_scan1, 
524                                 ext2_reload_scan2, &scaninfo);
525         }
526         return(error);
527 }
528
529 static int
530 ext2_reload_scan1(struct mount *mp, struct vnode *vp, void *data)
531 {
532         /*struct scaninfo *info = data;*/
533
534         return(0);
535 }
536
537 static int
538 ext2_reload_scan2(struct mount *mp, struct vnode *vp, void *data)
539 {
540         struct scaninfo *info = data;
541         struct inode *ip;
542         struct buf *bp;
543         int error;
544
545         /*
546          * Try to recycle
547          */
548         if (vrecycle(vp, curthread))
549                 return(0);
550
551         /*
552          * Step 5: invalidate all cached file data.
553          */
554         if (vinvalbuf(vp, 0, info->td, 0, 0))
555                 panic("ext2_reload: dirty2");
556         /*
557          * Step 6: re-read inode data for all active vnodes.
558          */
559         ip = VTOI(vp);
560         error = bread(info->devvp, fsbtodb(info->fs, ino_to_fsba(info->fs, ip->i_number)),
561                     (int)info->fs->s_blocksize, &bp);
562         if (error)
563                 return (error);
564         ext2_ei2di((struct ext2_inode *) ((char *)bp->b_data + 
565             EXT2_INODE_SIZE * ino_to_fsbo(info->fs, ip->i_number)), 
566             &ip->i_din);
567         brelse(bp);
568         return(0);
569 }
570
571 /*
572  * Common code for mount and mountroot
573  */
574 static int
575 ext2_mountfs(struct vnode *devvp, struct mount *mp, struct thread *td)
576 {
577         struct ufsmount *ump;
578         struct buf *bp;
579         struct ext2_sb_info *fs;
580         struct ext2_super_block * es;
581         dev_t dev;
582         struct partinfo dpart;
583         int havepart = 0;
584         int error, i, size;
585         int ronly;
586
587         /*
588          * Disallow multiple mounts of the same device.
589          * Disallow mounting of a device that is currently in use
590          * (except for root, which might share swap device for miniroot).
591          * Flush out any old buffers remaining from a previous use.
592          */
593         if ((error = vfs_mountedon(devvp)) != 0)
594                 return (error);
595         if (count_udev(devvp->v_udev) > 0)
596                 return (EBUSY);
597         if ((error = vinvalbuf(devvp, V_SAVE, td, 0, 0)) != 0)
598                 return (error);
599 #ifdef READONLY
600 /* turn on this to force it to be read-only */
601         mp->mnt_flag |= MNT_RDONLY;
602 #endif
603
604         ronly = (mp->mnt_flag & MNT_RDONLY) != 0;
605         vn_lock(devvp, LK_EXCLUSIVE | LK_RETRY, td);
606         error = VOP_OPEN(devvp, ronly ? FREAD : FREAD|FWRITE, FSCRED, NULL, td);
607         VOP_UNLOCK(devvp, 0, td);
608         if (error)
609                 return (error);
610         dev = devvp->v_rdev;
611         if (dev->si_iosize_max != 0)
612                 mp->mnt_iosize_max = dev->si_iosize_max;
613         if (mp->mnt_iosize_max > MAXPHYS)
614                 mp->mnt_iosize_max = MAXPHYS;
615         if (VOP_IOCTL(devvp, DIOCGPART, (caddr_t)&dpart, FREAD, NOCRED, td) != 0)
616                 size = DEV_BSIZE;
617         else {
618                 havepart = 1;
619                 size = dpart.disklab->d_secsize;
620         }
621
622         bp = NULL;
623         ump = NULL;
624         if ((error = bread(devvp, SBLOCK, SBSIZE, &bp)) != 0)
625                 goto out;
626         es = (struct ext2_super_block *)bp->b_data;
627         if (ext2_check_sb_compat(es, dev, ronly) != 0) {
628                 error = EINVAL;         /* XXX needs translation */
629                 goto out;
630         }
631         if ((es->s_state & EXT2_VALID_FS) == 0 ||
632             (es->s_state & EXT2_ERROR_FS)) {
633                 if (ronly || (mp->mnt_flag & MNT_FORCE)) {
634                         printf(
635 "WARNING: Filesystem was not properly dismounted\n");
636                 } else {
637                         printf(
638 "WARNING: R/W mount denied.  Filesystem is not clean - run fsck\n");
639                         error = EPERM;
640                         goto out;
641                 }
642         }
643         ump = bsd_malloc(sizeof *ump, M_UFSMNT, M_WAITOK);
644         bzero((caddr_t)ump, sizeof *ump);
645         ump->um_malloctype = M_EXT2NODE;
646         ump->um_blkatoff = ext2_blkatoff;
647         ump->um_truncate = ext2_truncate;
648         ump->um_update = ext2_update;
649         ump->um_valloc = ext2_valloc;
650         ump->um_vfree = ext2_vfree;
651         /* I don't know whether this is the right strategy. Note that
652            we dynamically allocate both a ext2_sb_info and a ext2_super_block
653            while Linux keeps the super block in a locked buffer
654          */
655         ump->um_e2fs = bsd_malloc(sizeof(struct ext2_sb_info), 
656                 M_UFSMNT, M_WAITOK);
657         ump->um_e2fs->s_es = bsd_malloc(sizeof(struct ext2_super_block), 
658                 M_UFSMNT, M_WAITOK);
659         bcopy(es, ump->um_e2fs->s_es, (u_int)sizeof(struct ext2_super_block));
660         if ((error = compute_sb_data(devvp, ump->um_e2fs->s_es, ump->um_e2fs)))
661                 goto out;
662         /*
663          * We don't free the group descriptors allocated by compute_sb_data()
664          * until ext2_unmount().  This is OK since the mount will succeed.
665          */
666         brelse(bp);
667         bp = NULL;
668         fs = ump->um_e2fs;
669         fs->s_rd_only = ronly;  /* ronly is set according to mnt_flags */
670         /* if the fs is not mounted read-only, make sure the super block is 
671            always written back on a sync()
672          */
673         fs->s_wasvalid = fs->s_es->s_state & EXT2_VALID_FS ? 1 : 0;
674         if (ronly == 0) {
675                 fs->s_dirt = 1;         /* mark it modified */
676                 fs->s_es->s_state &= ~EXT2_VALID_FS;    /* set fs invalid */
677         }
678         mp->mnt_data = (qaddr_t)ump;
679         mp->mnt_stat.f_fsid.val[0] = dev2udev(dev);
680         mp->mnt_stat.f_fsid.val[1] = mp->mnt_vfc->vfc_typenum;
681         mp->mnt_maxsymlinklen = EXT2_MAXSYMLINKLEN;
682         mp->mnt_flag |= MNT_LOCAL;
683         ump->um_mountp = mp;
684         ump->um_dev = dev;
685         ump->um_devvp = devvp;
686         /* setting those two parameters allows us to use 
687            ufs_bmap w/o changse !
688         */
689         ump->um_nindir = EXT2_ADDR_PER_BLOCK(fs);
690         ump->um_bptrtodb = fs->s_es->s_log_block_size + 1;
691         ump->um_seqinc = EXT2_FRAGS_PER_BLOCK(fs);
692         for (i = 0; i < MAXQUOTAS; i++)
693                 ump->um_quotas[i] = NULLVP; 
694         dev->si_mountpoint = mp;
695
696         vfs_add_vnodeops(mp, &mp->mnt_vn_norm_ops, ext2_vnodeop_entries);
697         vfs_add_vnodeops(mp, &mp->mnt_vn_spec_ops, ext2_specop_entries);
698         vfs_add_vnodeops(mp, &mp->mnt_vn_fifo_ops, ext2_fifoop_entries);
699
700         if (ronly == 0) 
701                 ext2_sbupdate(ump, MNT_WAIT);
702         return (0);
703 out:
704         if (bp)
705                 brelse(bp);
706         (void)VOP_CLOSE(devvp, ronly ? FREAD : FREAD|FWRITE, td);
707         if (ump) {
708                 bsd_free(ump->um_e2fs->s_es, M_UFSMNT);
709                 bsd_free(ump->um_e2fs, M_UFSMNT);
710                 bsd_free(ump, M_UFSMNT);
711                 mp->mnt_data = (qaddr_t)0;
712         }
713         return (error);
714 }
715
716 /*
717  * unmount system call
718  */
719 static int
720 ext2_unmount(struct mount *mp, int mntflags, struct thread *td)
721 {
722         struct ufsmount *ump;
723         struct ext2_sb_info *fs;
724         int error, flags, ronly, i;
725
726         flags = 0;
727         if (mntflags & MNT_FORCE) {
728                 if (mp->mnt_flag & MNT_ROOTFS)
729                         return (EINVAL);
730                 flags |= FORCECLOSE;
731         }
732         if ((error = ext2_flushfiles(mp, flags, td)) != 0)
733                 return (error);
734         ump = VFSTOUFS(mp);
735         fs = ump->um_e2fs;
736         ronly = fs->s_rd_only;
737         if (ronly == 0) {
738                 if (fs->s_wasvalid)
739                         fs->s_es->s_state |= EXT2_VALID_FS;
740                 ext2_sbupdate(ump, MNT_WAIT);
741         }
742
743         /* release buffers containing group descriptors */
744         for(i = 0; i < fs->s_db_per_group; i++) 
745                 ULCK_BUF(fs->s_group_desc[i])
746         bsd_free(fs->s_group_desc, M_UFSMNT);
747
748         /* release cached inode/block bitmaps */
749         for (i = 0; i < EXT2_MAX_GROUP_LOADED; i++)
750                 if (fs->s_inode_bitmap[i])
751                         ULCK_BUF(fs->s_inode_bitmap[i])
752
753         for (i = 0; i < EXT2_MAX_GROUP_LOADED; i++)
754                 if (fs->s_block_bitmap[i])
755                         ULCK_BUF(fs->s_block_bitmap[i])
756
757         ump->um_devvp->v_rdev->si_mountpoint = NULL;
758         error = VOP_CLOSE(ump->um_devvp, ronly ? FREAD : FREAD|FWRITE, td);
759         vrele(ump->um_devvp);
760         bsd_free(fs->s_es, M_UFSMNT);
761         bsd_free(fs, M_UFSMNT);
762         bsd_free(ump, M_UFSMNT);
763         mp->mnt_data = (qaddr_t)0;
764         mp->mnt_flag &= ~MNT_LOCAL;
765         return (error);
766 }
767
768 /*
769  * Flush out all the files in a filesystem.
770  */
771 static int
772 ext2_flushfiles(struct mount *mp, int flags, struct thread *td)
773 {
774         struct ufsmount *ump;
775         int error;
776 #if QUOTA
777         int i;
778 #endif
779
780         ump = VFSTOUFS(mp);
781 #if QUOTA
782         if (mp->mnt_flag & MNT_QUOTA) {
783                 if ((error = vflush(mp, 0, SKIPSYSTEM|flags)) != 0)
784                         return (error);
785                 for (i = 0; i < MAXQUOTAS; i++) {
786                         if (ump->um_quotas[i] == NULLVP)
787                                 continue;
788                         quotaoff(td, mp, i);
789                 }
790                 /*
791                  * Here we fall through to vflush again to ensure
792                  * that we have gotten rid of all the system vnodes.
793                  */
794         }
795 #endif
796         error = vflush(mp, 0, flags);
797         return (error);
798 }
799
800 /*
801  * Get file system statistics.
802  * taken from ext2/super.c ext2_statfs
803  */
804 static int
805 ext2_statfs(struct mount *mp, struct statfs *sbp, struct thread *td)
806 {
807         unsigned long overhead;
808         struct ufsmount *ump;
809         struct ext2_sb_info *fs;
810         struct ext2_super_block *es;
811         int i, nsb;
812
813         ump = VFSTOUFS(mp);
814         fs = ump->um_e2fs;
815         es = fs->s_es;
816
817         if (es->s_magic != EXT2_SUPER_MAGIC)
818                 panic("ext2_statfs - magic number spoiled");
819
820         /*
821          * Compute the overhead (FS structures)
822          */
823         if (es->s_feature_ro_compat & EXT2_FEATURE_RO_COMPAT_SPARSE_SUPER) {
824                 nsb = 0;
825                 for (i = 0 ; i < fs->s_groups_count; i++)
826                         if (ext2_group_sparse(i))
827                                 nsb++;
828         } else
829                 nsb = fs->s_groups_count;
830         overhead = es->s_first_data_block + 
831             /* Superblocks and block group descriptors: */
832             nsb * (1 + fs->s_db_per_group) +
833             /* Inode bitmap, block bitmap, and inode table: */
834             fs->s_groups_count * (1 + 1 + fs->s_itb_per_group);
835
836         sbp->f_bsize = EXT2_FRAG_SIZE(fs);      
837         sbp->f_iosize = EXT2_BLOCK_SIZE(fs);
838         sbp->f_blocks = es->s_blocks_count - overhead;
839         sbp->f_bfree = es->s_free_blocks_count; 
840         sbp->f_bavail = sbp->f_bfree - es->s_r_blocks_count; 
841         sbp->f_files = es->s_inodes_count; 
842         sbp->f_ffree = es->s_free_inodes_count; 
843         if (sbp != &mp->mnt_stat) {
844                 sbp->f_type = mp->mnt_vfc->vfc_typenum;
845                 bcopy((caddr_t)mp->mnt_stat.f_mntonname,
846                         (caddr_t)&sbp->f_mntonname[0], MNAMELEN);
847                 bcopy((caddr_t)mp->mnt_stat.f_mntfromname,
848                         (caddr_t)&sbp->f_mntfromname[0], MNAMELEN);
849         }
850         return (0);
851 }
852
853 /*
854  * Go through the disk queues to initiate sandbagged IO;
855  * go through the inodes to write those that have been modified;
856  * initiate the writing of the super block if it has been modified.
857  *
858  * Note: we are always called with the filesystem marked `MPBUSY'.
859  */
860
861 static int ext2_sync_scan(struct mount *mp, struct vnode *vp, void *data);
862
863 static int
864 ext2_sync(struct mount *mp, int waitfor, struct thread *td)
865 {
866         struct ufsmount *ump = VFSTOUFS(mp);
867         struct ext2_sb_info *fs;
868         struct scaninfo scaninfo;
869         int error;
870
871         fs = ump->um_e2fs;
872         if (fs->s_dirt != 0 && fs->s_rd_only != 0) {            /* XXX */
873                 printf("fs = %s\n", fs->fs_fsmnt);
874                 panic("ext2_sync: rofs mod");
875         }
876
877         /*
878          * Write back each (modified) inode.
879          */
880         scaninfo.allerror = 0;
881         scaninfo.rescan = 1;
882         scaninfo.waitfor = waitfor;
883         scaninfo.td = td;
884         while (scaninfo.rescan) {
885                 scaninfo.rescan = 0;
886                 vmntvnodescan(mp, VMSC_GETVP|VMSC_NOWAIT, 
887                                 NULL, ext2_sync_scan, &scaninfo);
888         }
889
890         /*
891          * Force stale file system control information to be flushed.
892          */
893         if (waitfor != MNT_LAZY) {
894                 vn_lock(ump->um_devvp, LK_EXCLUSIVE | LK_RETRY, td);
895                 if ((error = VOP_FSYNC(ump->um_devvp, waitfor, td)) != 0)
896                         scaninfo.allerror = error;
897                 VOP_UNLOCK(ump->um_devvp, 0, td);
898         }
899 #if QUOTA
900         qsync(mp);
901 #endif
902         /*
903          * Write back modified superblock.
904          */
905         if (fs->s_dirt != 0) {
906                 fs->s_dirt = 0;
907                 fs->s_es->s_wtime = time_second;
908                 if ((error = ext2_sbupdate(ump, waitfor)) != 0)
909                         scaninfo.allerror = error;
910         }
911         return (scaninfo.allerror);
912 }
913
914 static int
915 ext2_sync_scan(struct mount *mp, struct vnode *vp, void *data)
916 {
917         struct scaninfo *info = data;
918         struct inode *ip;
919         int error;
920
921         ip = VTOI(vp);
922         if (vp->v_type == VNON ||
923             ((ip->i_flag &
924             (IN_ACCESS | IN_CHANGE | IN_MODIFIED | IN_UPDATE)) == 0 &&
925             (TAILQ_EMPTY(&vp->v_dirtyblkhd) || info->waitfor == MNT_LAZY))) {
926                 return(0);
927         }
928         if ((error = VOP_FSYNC(vp, info->waitfor, info->td)) != 0)
929                 info->allerror = error;
930         return(0);
931 }
932
933 /*
934  * Look up a EXT2FS dinode number to find its incore vnode, otherwise read it
935  * in from disk.  If it is in core, wait for the lock bit to clear, then
936  * return the inode locked.  Detection and handling of mount points must be
937  * done by the calling routine.
938  */
939 static int
940 ext2_vget(struct mount *mp, ino_t ino, struct vnode **vpp)
941 {
942         struct ext2_sb_info *fs;
943         struct inode *ip;
944         struct ufsmount *ump;
945         struct buf *bp;
946         struct vnode *vp;
947         dev_t dev;
948         int i, error;
949         int used_blocks;
950
951         ump = VFSTOUFS(mp);
952         dev = ump->um_dev;
953 restart:
954         if ((*vpp = ufs_ihashget(dev, ino)) != NULL)
955                 return (0);
956
957         /*
958          * Lock out the creation of new entries in the FFS hash table in
959          * case getnewvnode() or MALLOC() blocks, otherwise a duplicate
960          * may occur!
961          */
962         if (ext2fs_inode_hash_lock) {
963                 while (ext2fs_inode_hash_lock) {
964                         ext2fs_inode_hash_lock = -1;
965                         tsleep(&ext2fs_inode_hash_lock, 0, "e2vget", 0);
966                 }
967                 goto restart;
968         }
969         ext2fs_inode_hash_lock = 1;
970
971         /*
972          * If this MALLOC() is performed after the getnewvnode()
973          * it might block, leaving a vnode with a NULL v_data to be
974          * found by ext2_sync() if a sync happens to fire right then,
975          * which will cause a panic because ext2_sync() blindly
976          * dereferences vp->v_data (as well it should).
977          */
978         MALLOC(ip, struct inode *, sizeof(struct inode), M_EXT2NODE, M_WAITOK);
979
980         /* Allocate a new vnode/inode. */
981         if ((error = getnewvnode(VT_UFS, mp, &vp, 0, LK_CANRECURSE)) != 0) {
982                 if (ext2fs_inode_hash_lock < 0)
983                         wakeup(&ext2fs_inode_hash_lock);
984                 ext2fs_inode_hash_lock = 0;
985                 *vpp = NULL;
986                 FREE(ip, M_EXT2NODE);
987                 return (error);
988         }
989         bzero((caddr_t)ip, sizeof(struct inode));
990         vp->v_data = ip;
991         ip->i_vnode = vp;
992         ip->i_e2fs = fs = ump->um_e2fs;
993         ip->i_dev = dev;
994         ip->i_number = ino;
995 #if QUOTA
996         for (i = 0; i < MAXQUOTAS; i++)
997                 ip->i_dquot[i] = NODQUOT;
998 #endif
999         /*
1000          * Put it onto its hash chain.  Since our vnode is locked, other
1001          * requests for this inode will block if they arrive while we are
1002          * sleeping waiting for old data structures to be purged or for the
1003          * contents of the disk portion of this inode to be read.
1004          */
1005         ufs_ihashins(ip);
1006
1007         if (ext2fs_inode_hash_lock < 0)
1008                 wakeup(&ext2fs_inode_hash_lock);
1009         ext2fs_inode_hash_lock = 0;
1010
1011         /* Read in the disk contents for the inode, copy into the inode. */
1012 #if 0
1013 printf("ext2_vget(%d) dbn= %d ", ino, fsbtodb(fs, ino_to_fsba(fs, ino)));
1014 #endif
1015         if ((error = bread(ump->um_devvp, fsbtodb(fs, ino_to_fsba(fs, ino)),
1016             (int)fs->s_blocksize, &bp)) != 0) {
1017                 /*
1018                  * The inode does not contain anything useful, so it would
1019                  * be misleading to leave it on its hash chain. With mode
1020                  * still zero, it will be unlinked and returned to the free
1021                  * list by vput().
1022                  */
1023                 vx_put(vp);
1024                 brelse(bp);
1025                 *vpp = NULL;
1026                 return (error);
1027         }
1028         /* convert ext2 inode to dinode */
1029         ext2_ei2di((struct ext2_inode *) ((char *)bp->b_data + EXT2_INODE_SIZE *
1030                         ino_to_fsbo(fs, ino)), &ip->i_din);
1031         ip->i_block_group = ino_to_cg(fs, ino);
1032         ip->i_next_alloc_block = 0;
1033         ip->i_next_alloc_goal = 0;
1034         ip->i_prealloc_count = 0;
1035         ip->i_prealloc_block = 0;
1036         /* now we want to make sure that block pointers for unused
1037            blocks are zeroed out - ext2_balloc depends on this 
1038            although for regular files and directories only
1039         */
1040         if(S_ISDIR(ip->i_mode) || S_ISREG(ip->i_mode)) {
1041                 used_blocks = (ip->i_size+fs->s_blocksize-1) / fs->s_blocksize;
1042                 for(i = used_blocks; i < EXT2_NDIR_BLOCKS; i++)
1043                         ip->i_db[i] = 0;
1044         }
1045 /*
1046         ext2_print_inode(ip);
1047 */
1048         brelse(bp);
1049
1050         /*
1051          * Initialize the vnode from the inode, check for aliases.
1052          * Note that the underlying vnode may have changed.
1053          */
1054         if ((error = ufs_vinit(mp, &vp)) != 0) {
1055                 vx_put(vp);
1056                 *vpp = NULL;
1057                 return (error);
1058         }
1059         /*
1060          * Finish inode initialization now that aliasing has been resolved.
1061          */
1062         ip->i_devvp = ump->um_devvp;
1063         vref(ip->i_devvp);
1064         /*
1065          * Set up a generation number for this inode if it does not
1066          * already have one. This should only happen on old filesystems.
1067          */
1068         if (ip->i_gen == 0) {
1069                 ip->i_gen = random() / 2 + 1;
1070                 if ((vp->v_mount->mnt_flag & MNT_RDONLY) == 0)
1071                         ip->i_flag |= IN_MODIFIED;
1072         }
1073         /*
1074          * Return the locked and refd vnode.
1075          */
1076         *vpp = vp;
1077         return (0);
1078 }
1079
1080 /*
1081  * File handle to vnode
1082  *
1083  * Have to be really careful about stale file handles:
1084  * - check that the inode number is valid
1085  * - call ext2_vget() to get the locked inode
1086  * - check for an unallocated inode (i_mode == 0)
1087  * - check that the given client host has export rights and return
1088  *   those rights via. exflagsp and credanonp
1089  */
1090 static int
1091 ext2_fhtovp(struct mount *mp, struct fid *fhp, struct vnode **vpp)
1092 {
1093         struct ufid *ufhp;
1094         struct ext2_sb_info *fs;
1095
1096         ufhp = (struct ufid *)fhp;
1097         fs = VFSTOUFS(mp)->um_e2fs;
1098         if (ufhp->ufid_ino < ROOTINO ||
1099             ufhp->ufid_ino > fs->s_groups_count * fs->s_es->s_inodes_per_group)
1100                 return (ESTALE);
1101         return (ufs_fhtovp(mp, ufhp, vpp));
1102 }
1103
1104 /*
1105  * Vnode pointer to File handle
1106  */
1107 /* ARGSUSED */
1108 static int
1109 ext2_vptofh(struct vnode *vp, struct fid *fhp)
1110 {
1111         struct inode *ip;
1112         struct ufid *ufhp;
1113
1114         ip = VTOI(vp);
1115         ufhp = (struct ufid *)fhp;
1116         ufhp->ufid_len = sizeof(struct ufid);
1117         ufhp->ufid_ino = ip->i_number;
1118         ufhp->ufid_gen = ip->i_gen;
1119         return (0);
1120 }
1121
1122 /*
1123  * Write a superblock and associated information back to disk.
1124  */
1125 static int
1126 ext2_sbupdate(struct ufsmount *mp, int waitfor)
1127 {
1128         struct ext2_sb_info *fs = mp->um_e2fs;
1129         struct ext2_super_block *es = fs->s_es;
1130         struct buf *bp;
1131         int error = 0;
1132 /*
1133 printf("\nupdating superblock, waitfor=%s\n", waitfor == MNT_WAIT ? "yes":"no");
1134 */
1135         bp = getblk(mp->um_devvp, SBLOCK, SBSIZE, 0, 0);
1136         bcopy((caddr_t)es, bp->b_data, (u_int)sizeof(struct ext2_super_block));
1137         if (waitfor == MNT_WAIT)
1138                 error = bwrite(bp);
1139         else
1140                 bawrite(bp);
1141
1142         /*
1143          * The buffers for group descriptors, inode bitmaps and block bitmaps
1144          * are not busy at this point and are (hopefully) written by the
1145          * usual sync mechanism. No need to write them here
1146          */
1147
1148         return (error);
1149 }