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