Home | History | Annotate | Line # | Download | only in libsa
ufs.c revision 1.33
      1  1.33      fvdl /*	$NetBSD: ufs.c,v 1.33 2003/04/02 10:39:34 fvdl Exp $	*/
      2   1.8       cgd 
      3   1.1    brezak /*-
      4   1.1    brezak  * Copyright (c) 1993
      5   1.1    brezak  *	The Regents of the University of California.  All rights reserved.
      6   1.1    brezak  *
      7   1.1    brezak  * This code is derived from software contributed to Berkeley by
      8   1.1    brezak  * The Mach Operating System project at Carnegie-Mellon University.
      9   1.1    brezak  *
     10   1.1    brezak  * Redistribution and use in source and binary forms, with or without
     11   1.1    brezak  * modification, are permitted provided that the following conditions
     12   1.1    brezak  * are met:
     13   1.1    brezak  * 1. Redistributions of source code must retain the above copyright
     14   1.1    brezak  *    notice, this list of conditions and the following disclaimer.
     15   1.1    brezak  * 2. Redistributions in binary form must reproduce the above copyright
     16   1.1    brezak  *    notice, this list of conditions and the following disclaimer in the
     17   1.1    brezak  *    documentation and/or other materials provided with the distribution.
     18   1.1    brezak  * 3. All advertising materials mentioning features or use of this software
     19   1.1    brezak  *    must display the following acknowledgement:
     20   1.1    brezak  *	This product includes software developed by the University of
     21   1.1    brezak  *	California, Berkeley and its contributors.
     22   1.1    brezak  * 4. Neither the name of the University nor the names of its contributors
     23   1.1    brezak  *    may be used to endorse or promote products derived from this software
     24   1.1    brezak  *    without specific prior written permission.
     25   1.1    brezak  *
     26   1.1    brezak  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     27   1.1    brezak  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     28   1.1    brezak  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     29   1.1    brezak  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     30   1.1    brezak  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     31   1.1    brezak  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     32   1.1    brezak  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     33   1.1    brezak  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     34   1.1    brezak  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     35   1.1    brezak  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     36   1.1    brezak  * SUCH DAMAGE.
     37  1.22    simonb  *
     38   1.1    brezak  *
     39   1.1    brezak  * Copyright (c) 1990, 1991 Carnegie Mellon University
     40   1.1    brezak  * All Rights Reserved.
     41   1.1    brezak  *
     42   1.1    brezak  * Author: David Golub
     43  1.22    simonb  *
     44   1.1    brezak  * Permission to use, copy, modify and distribute this software and its
     45   1.1    brezak  * documentation is hereby granted, provided that both the copyright
     46   1.1    brezak  * notice and this permission notice appear in all copies of the
     47   1.1    brezak  * software, derivative works or modified versions, and any portions
     48   1.1    brezak  * thereof, and that both notices appear in supporting documentation.
     49  1.22    simonb  *
     50   1.1    brezak  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
     51   1.1    brezak  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
     52   1.1    brezak  * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
     53  1.22    simonb  *
     54   1.1    brezak  * Carnegie Mellon requests users of this software to return to
     55  1.22    simonb  *
     56   1.1    brezak  *  Software Distribution Coordinator  or  Software.Distribution (at) CS.CMU.EDU
     57   1.1    brezak  *  School of Computer Science
     58   1.1    brezak  *  Carnegie Mellon University
     59   1.1    brezak  *  Pittsburgh PA 15213-3890
     60  1.22    simonb  *
     61   1.1    brezak  * any improvements or extensions that they make and grant Carnegie the
     62   1.1    brezak  * rights to redistribute these changes.
     63  1.27       cgd  */
     64  1.27       cgd 
     65  1.27       cgd /*
     66  1.27       cgd  * XXX NOTE: ufs.c (FFS) and lfs.c (LFS) should eventually use much common
     67  1.27       cgd  * XXX code.  until then, the two files should be easily diffable.
     68   1.1    brezak  */
     69   1.1    brezak 
     70   1.1    brezak /*
     71   1.1    brezak  *	Stand-alone file reading package.
     72   1.1    brezak  */
     73   1.1    brezak 
     74   1.1    brezak #include <sys/param.h>
     75   1.1    brezak #include <sys/time.h>
     76   1.1    brezak #include <ufs/ufs/dinode.h>
     77   1.1    brezak #include <ufs/ufs/dir.h>
     78  1.20      ross #include <ufs/ffs/fs.h>
     79  1.29   thorpej #ifdef _STANDALONE
     80  1.29   thorpej #include <lib/libkern/libkern.h>
     81  1.29   thorpej #else
     82  1.29   thorpej #include <string.h>
     83  1.29   thorpej #endif
     84   1.2     glass 
     85   1.1    brezak #include "stand.h"
     86  1.21        pk #include "ufs.h"
     87  1.23       cgd 
     88  1.23       cgd #if defined(LIBSA_FS_SINGLECOMPONENT) && !defined(LIBSA_NO_FS_SYMLINK)
     89  1.23       cgd #define LIBSA_NO_FS_SYMLINK
     90  1.25    simonb #endif
     91  1.25    simonb #if defined(COMPAT_UFS) && defined(LIBSA_NO_COMPAT_UFS)
     92  1.25    simonb #undef COMPAT_UFS
     93  1.23       cgd #endif
     94  1.23       cgd 
     95  1.33      fvdl union dinode {
     96  1.33      fvdl 	struct ufs1_dinode dp1;
     97  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
     98  1.33      fvdl 	struct ufs2_dinode dp2;
     99  1.33      fvdl #endif
    100  1.33      fvdl };
    101  1.33      fvdl 
    102  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    103  1.33      fvdl #define DIP(d,field) (is_ufs2 ? d.dp2.di_##field : d.dp1.di_##field)
    104  1.33      fvdl #else
    105  1.33      fvdl #define DIP(d,field) d.dp1.di_##field
    106  1.33      fvdl #endif
    107  1.23       cgd 
    108   1.1    brezak /*
    109   1.1    brezak  * In-core open file.
    110   1.1    brezak  */
    111   1.1    brezak struct file {
    112   1.1    brezak 	off_t		f_seekp;	/* seek pointer */
    113   1.1    brezak 	struct fs	*f_fs;		/* pointer to super-block */
    114  1.33      fvdl 	union dinode	f_di;		/* copy of on-disk inode */
    115  1.23       cgd 	unsigned int	f_nindir[NIADDR];
    116   1.1    brezak 					/* number of blocks mapped by
    117   1.1    brezak 					   indirect block at level i */
    118   1.1    brezak 	char		*f_blk[NIADDR];	/* buffer for indirect block at
    119   1.1    brezak 					   level i */
    120  1.13       cgd 	size_t		f_blksize[NIADDR];
    121   1.1    brezak 					/* size of buffer */
    122   1.1    brezak 	daddr_t		f_blkno[NIADDR];/* disk address of block in buffer */
    123   1.1    brezak 	char		*f_buf;		/* buffer for data block */
    124  1.13       cgd 	size_t		f_buf_size;	/* size of data block */
    125   1.1    brezak 	daddr_t		f_buf_blkno;	/* block number of data block */
    126   1.1    brezak };
    127   1.1    brezak 
    128  1.13       cgd static int	read_inode __P((ino_t, struct open_file *));
    129  1.13       cgd static int	block_map __P((struct open_file *, daddr_t, daddr_t *));
    130  1.13       cgd static int	buf_read_file __P((struct open_file *, char **, size_t *));
    131  1.13       cgd static int	search_directory __P((char *, struct open_file *, ino_t *));
    132  1.13       cgd static void	ffs_oldfscompat __P((struct fs *));
    133  1.33      fvdl 
    134  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    135  1.33      fvdl static int is_ufs2;
    136  1.33      fvdl static int	ffs_find_superblock __P((struct open_file *, struct fs *));
    137   1.7    brezak #endif
    138   1.7    brezak 
    139   1.1    brezak /*
    140   1.1    brezak  * Read a new inode into a file structure.
    141   1.1    brezak  */
    142   1.1    brezak static int
    143   1.1    brezak read_inode(inumber, f)
    144   1.1    brezak 	ino_t inumber;
    145   1.1    brezak 	struct open_file *f;
    146   1.1    brezak {
    147  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    148  1.30  augustss 	struct fs *fs = fp->f_fs;
    149   1.1    brezak 	char *buf;
    150  1.13       cgd 	size_t rsize;
    151   1.1    brezak 	int rc;
    152   1.1    brezak 
    153   1.1    brezak 	/*
    154   1.1    brezak 	 * Read inode and save it.
    155   1.1    brezak 	 */
    156   1.1    brezak 	buf = alloc(fs->fs_bsize);
    157  1.23       cgd #if !defined(LIBSA_NO_TWIDDLE)
    158  1.11   mycroft 	twiddle();
    159  1.23       cgd #endif
    160  1.23       cgd 	rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    161  1.13       cgd 		fsbtodb(fs, ino_to_fsba(fs, inumber)), fs->fs_bsize,
    162  1.13       cgd 		buf, &rsize);
    163   1.1    brezak 	if (rc)
    164   1.1    brezak 		goto out;
    165   1.1    brezak 	if (rsize != fs->fs_bsize) {
    166   1.1    brezak 		rc = EIO;
    167   1.1    brezak 		goto out;
    168   1.1    brezak 	}
    169   1.1    brezak 
    170   1.1    brezak 	{
    171  1.33      fvdl 		struct ufs1_dinode *dp1;
    172  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    173  1.33      fvdl 		struct ufs2_dinode *dp2;
    174  1.33      fvdl 
    175  1.33      fvdl 		if (is_ufs2) {
    176  1.33      fvdl 			dp2 = (struct ufs2_dinode *)buf;
    177  1.33      fvdl 			fp->f_di.dp2 = dp2[ino_to_fsbo(fs, inumber)];
    178  1.33      fvdl 		} else
    179  1.33      fvdl #endif
    180  1.33      fvdl 		{
    181  1.33      fvdl 			dp1 = (struct ufs1_dinode *)buf;
    182  1.33      fvdl 			fp->f_di.dp1 = dp1[ino_to_fsbo(fs, inumber)];
    183  1.33      fvdl 		}
    184   1.1    brezak 	}
    185   1.1    brezak 
    186   1.1    brezak 	/*
    187   1.1    brezak 	 * Clear out the old buffers
    188   1.1    brezak 	 */
    189   1.1    brezak 	{
    190  1.30  augustss 		int level;
    191   1.1    brezak 
    192   1.1    brezak 		for (level = 0; level < NIADDR; level++)
    193   1.1    brezak 			fp->f_blkno[level] = -1;
    194   1.1    brezak 		fp->f_buf_blkno = -1;
    195   1.1    brezak 	}
    196   1.1    brezak out:
    197   1.1    brezak 	free(buf, fs->fs_bsize);
    198  1.22    simonb 	return (rc);
    199   1.1    brezak }
    200   1.1    brezak 
    201   1.1    brezak /*
    202   1.1    brezak  * Given an offset in a file, find the disk block number that
    203   1.1    brezak  * contains that block.
    204   1.1    brezak  */
    205   1.1    brezak static int
    206   1.1    brezak block_map(f, file_block, disk_block_p)
    207   1.1    brezak 	struct open_file *f;
    208   1.1    brezak 	daddr_t file_block;
    209   1.1    brezak 	daddr_t *disk_block_p;	/* out */
    210   1.1    brezak {
    211  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    212  1.30  augustss 	struct fs *fs = fp->f_fs;
    213   1.1    brezak 	int level;
    214   1.1    brezak 	int idx;
    215   1.1    brezak 	daddr_t ind_block_num;
    216  1.33      fvdl 	int32_t *ind_p32 = NULL;
    217  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    218  1.33      fvdl 	int64_t *ind_p64 = NULL;
    219  1.33      fvdl #endif
    220   1.1    brezak 	int rc;
    221   1.1    brezak 
    222   1.1    brezak 	/*
    223   1.1    brezak 	 * Index structure of an inode:
    224   1.1    brezak 	 *
    225   1.1    brezak 	 * di_db[0..NDADDR-1]	hold block numbers for blocks
    226   1.1    brezak 	 *			0..NDADDR-1
    227   1.1    brezak 	 *
    228   1.1    brezak 	 * di_ib[0]		index block 0 is the single indirect block
    229   1.1    brezak 	 *			holds block numbers for blocks
    230   1.1    brezak 	 *			NDADDR .. NDADDR + NINDIR(fs)-1
    231   1.1    brezak 	 *
    232   1.1    brezak 	 * di_ib[1]		index block 1 is the double indirect block
    233   1.1    brezak 	 *			holds block numbers for INDEX blocks for blocks
    234   1.1    brezak 	 *			NDADDR + NINDIR(fs) ..
    235   1.1    brezak 	 *			NDADDR + NINDIR(fs) + NINDIR(fs)**2 - 1
    236   1.1    brezak 	 *
    237   1.1    brezak 	 * di_ib[2]		index block 2 is the triple indirect block
    238   1.1    brezak 	 *			holds block numbers for double-indirect
    239   1.1    brezak 	 *			blocks for blocks
    240   1.1    brezak 	 *			NDADDR + NINDIR(fs) + NINDIR(fs)**2 ..
    241   1.1    brezak 	 *			NDADDR + NINDIR(fs) + NINDIR(fs)**2
    242   1.1    brezak 	 *				+ NINDIR(fs)**3 - 1
    243   1.1    brezak 	 */
    244   1.1    brezak 
    245   1.1    brezak 	if (file_block < NDADDR) {
    246   1.1    brezak 		/* Direct block. */
    247  1.33      fvdl 		*disk_block_p = DIP(fp->f_di, db[file_block]);
    248   1.1    brezak 		return (0);
    249   1.1    brezak 	}
    250   1.1    brezak 
    251   1.1    brezak 	file_block -= NDADDR;
    252   1.1    brezak 
    253   1.1    brezak 	/*
    254   1.1    brezak 	 * nindir[0] = NINDIR
    255   1.1    brezak 	 * nindir[1] = NINDIR**2
    256   1.1    brezak 	 * nindir[2] = NINDIR**3
    257   1.1    brezak 	 *	etc
    258   1.1    brezak 	 */
    259   1.1    brezak 	for (level = 0; level < NIADDR; level++) {
    260   1.1    brezak 		if (file_block < fp->f_nindir[level])
    261   1.1    brezak 			break;
    262   1.1    brezak 		file_block -= fp->f_nindir[level];
    263   1.1    brezak 	}
    264   1.1    brezak 	if (level == NIADDR) {
    265   1.1    brezak 		/* Block number too high */
    266   1.1    brezak 		return (EFBIG);
    267   1.1    brezak 	}
    268   1.1    brezak 
    269  1.33      fvdl 	ind_block_num = DIP(fp->f_di, ib[level]);
    270   1.1    brezak 
    271   1.1    brezak 	for (; level >= 0; level--) {
    272   1.1    brezak 		if (ind_block_num == 0) {
    273   1.1    brezak 			*disk_block_p = 0;	/* missing */
    274   1.1    brezak 			return (0);
    275   1.1    brezak 		}
    276   1.1    brezak 
    277   1.1    brezak 		if (fp->f_blkno[level] != ind_block_num) {
    278   1.1    brezak 			if (fp->f_blk[level] == (char *)0)
    279   1.1    brezak 				fp->f_blk[level] =
    280   1.1    brezak 					alloc(fs->fs_bsize);
    281  1.23       cgd #if !defined(LIBSA_NO_TWIDDLE)
    282  1.11   mycroft 			twiddle();
    283  1.23       cgd #endif
    284  1.23       cgd 			rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    285   1.1    brezak 				fsbtodb(fp->f_fs, ind_block_num),
    286   1.1    brezak 				fs->fs_bsize,
    287   1.1    brezak 				fp->f_blk[level],
    288  1.13       cgd 				&fp->f_blksize[level]);
    289   1.1    brezak 			if (rc)
    290   1.1    brezak 				return (rc);
    291   1.1    brezak 			if (fp->f_blksize[level] != fs->fs_bsize)
    292   1.1    brezak 				return (EIO);
    293   1.1    brezak 			fp->f_blkno[level] = ind_block_num;
    294   1.1    brezak 		}
    295   1.1    brezak 
    296  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    297  1.33      fvdl 		if (is_ufs2)
    298  1.33      fvdl 			ind_p64 = (int64_t *)fp->f_blk[level];
    299  1.33      fvdl 		else
    300  1.33      fvdl #endif
    301  1.33      fvdl 			ind_p32 = (int32_t *)fp->f_blk[level];
    302   1.1    brezak 
    303   1.1    brezak 		if (level > 0) {
    304   1.1    brezak 			idx = file_block / fp->f_nindir[level - 1];
    305   1.1    brezak 			file_block %= fp->f_nindir[level - 1];
    306   1.1    brezak 		} else
    307   1.1    brezak 			idx = file_block;
    308   1.1    brezak 
    309  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    310  1.33      fvdl 		if (is_ufs2)
    311  1.33      fvdl 			ind_block_num = ind_p64[idx];
    312  1.33      fvdl 		else
    313  1.33      fvdl #endif
    314  1.33      fvdl 			ind_block_num = ind_p32[idx];
    315   1.1    brezak 	}
    316   1.1    brezak 
    317   1.1    brezak 	*disk_block_p = ind_block_num;
    318   1.1    brezak 
    319   1.1    brezak 	return (0);
    320   1.1    brezak }
    321   1.1    brezak 
    322   1.1    brezak /*
    323   1.1    brezak  * Read a portion of a file into an internal buffer.  Return
    324   1.1    brezak  * the location in the buffer and the amount in the buffer.
    325   1.1    brezak  */
    326   1.1    brezak static int
    327   1.1    brezak buf_read_file(f, buf_p, size_p)
    328   1.1    brezak 	struct open_file *f;
    329   1.1    brezak 	char **buf_p;		/* out */
    330  1.13       cgd 	size_t *size_p;		/* out */
    331   1.1    brezak {
    332  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    333  1.30  augustss 	struct fs *fs = fp->f_fs;
    334   1.1    brezak 	long off;
    335  1.30  augustss 	daddr_t file_block;
    336   1.1    brezak 	daddr_t	disk_block;
    337  1.13       cgd 	size_t block_size;
    338   1.1    brezak 	int rc;
    339   1.1    brezak 
    340   1.1    brezak 	off = blkoff(fs, fp->f_seekp);
    341   1.1    brezak 	file_block = lblkno(fs, fp->f_seekp);
    342  1.33      fvdl 	block_size = sblksize(fs, DIP(fp->f_di, size), file_block);
    343   1.1    brezak 
    344   1.1    brezak 	if (file_block != fp->f_buf_blkno) {
    345   1.1    brezak 		rc = block_map(f, file_block, &disk_block);
    346   1.1    brezak 		if (rc)
    347   1.1    brezak 			return (rc);
    348   1.1    brezak 
    349   1.1    brezak 		if (fp->f_buf == (char *)0)
    350   1.1    brezak 			fp->f_buf = alloc(fs->fs_bsize);
    351   1.1    brezak 
    352   1.1    brezak 		if (disk_block == 0) {
    353   1.1    brezak 			bzero(fp->f_buf, block_size);
    354   1.1    brezak 			fp->f_buf_size = block_size;
    355   1.1    brezak 		} else {
    356  1.23       cgd #if !defined(LIBSA_NO_TWIDDLE)
    357  1.11   mycroft 			twiddle();
    358  1.23       cgd #endif
    359  1.23       cgd 			rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    360   1.1    brezak 				fsbtodb(fs, disk_block),
    361   1.1    brezak 				block_size, fp->f_buf, &fp->f_buf_size);
    362   1.1    brezak 			if (rc)
    363   1.1    brezak 				return (rc);
    364   1.1    brezak 		}
    365   1.1    brezak 
    366   1.1    brezak 		fp->f_buf_blkno = file_block;
    367   1.1    brezak 	}
    368   1.1    brezak 
    369   1.1    brezak 	/*
    370   1.1    brezak 	 * Return address of byte in buffer corresponding to
    371   1.1    brezak 	 * offset, and size of remainder of buffer after that
    372   1.1    brezak 	 * byte.
    373   1.1    brezak 	 */
    374   1.1    brezak 	*buf_p = fp->f_buf + off;
    375   1.1    brezak 	*size_p = block_size - off;
    376   1.1    brezak 
    377   1.1    brezak 	/*
    378   1.1    brezak 	 * But truncate buffer at end of file.
    379   1.1    brezak 	 */
    380  1.33      fvdl 	if (*size_p > DIP(fp->f_di, size) - fp->f_seekp)
    381  1.33      fvdl 		*size_p = DIP(fp->f_di, size) - fp->f_seekp;
    382   1.1    brezak 
    383   1.1    brezak 	return (0);
    384   1.1    brezak }
    385   1.1    brezak 
    386   1.1    brezak /*
    387   1.1    brezak  * Search a directory for a name and return its
    388   1.1    brezak  * i_number.
    389   1.1    brezak  */
    390   1.1    brezak static int
    391   1.1    brezak search_directory(name, f, inumber_p)
    392   1.1    brezak 	char *name;
    393   1.1    brezak 	struct open_file *f;
    394   1.1    brezak 	ino_t *inumber_p;		/* out */
    395   1.1    brezak {
    396  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    397  1.30  augustss 	struct direct *dp;
    398   1.1    brezak 	struct direct *edp;
    399   1.1    brezak 	char *buf;
    400  1.13       cgd 	size_t buf_size;
    401   1.1    brezak 	int namlen, length;
    402   1.1    brezak 	int rc;
    403   1.1    brezak 
    404   1.1    brezak 	length = strlen(name);
    405   1.1    brezak 
    406   1.1    brezak 	fp->f_seekp = 0;
    407  1.33      fvdl 	while (fp->f_seekp < DIP(fp->f_di, size)) {
    408   1.1    brezak 		rc = buf_read_file(f, &buf, &buf_size);
    409   1.1    brezak 		if (rc)
    410   1.1    brezak 			return (rc);
    411   1.1    brezak 
    412   1.1    brezak 		dp = (struct direct *)buf;
    413   1.1    brezak 		edp = (struct direct *)(buf + buf_size);
    414   1.1    brezak 		while (dp < edp) {
    415   1.1    brezak 			if (dp->d_ino == (ino_t)0)
    416   1.1    brezak 				goto next;
    417   1.1    brezak #if BYTE_ORDER == LITTLE_ENDIAN
    418   1.1    brezak 			if (fp->f_fs->fs_maxsymlinklen <= 0)
    419   1.1    brezak 				namlen = dp->d_type;
    420   1.1    brezak 			else
    421   1.1    brezak #endif
    422   1.1    brezak 				namlen = dp->d_namlen;
    423   1.1    brezak 			if (namlen == length &&
    424   1.1    brezak 			    !strcmp(name, dp->d_name)) {
    425   1.1    brezak 				/* found entry */
    426   1.1    brezak 				*inumber_p = dp->d_ino;
    427   1.1    brezak 				return (0);
    428   1.1    brezak 			}
    429   1.1    brezak 		next:
    430   1.1    brezak 			dp = (struct direct *)((char *)dp + dp->d_reclen);
    431   1.1    brezak 		}
    432   1.1    brezak 		fp->f_seekp += buf_size;
    433   1.1    brezak 	}
    434   1.1    brezak 	return (ENOENT);
    435   1.1    brezak }
    436   1.1    brezak 
    437  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    438  1.33      fvdl 
    439  1.33      fvdl daddr_t sblock_try[] = SBLOCKSEARCH;
    440  1.33      fvdl 
    441  1.33      fvdl static int
    442  1.33      fvdl ffs_find_superblock(f, fs)
    443  1.33      fvdl 	struct open_file *f;
    444  1.33      fvdl 	struct fs *fs;
    445  1.33      fvdl {
    446  1.33      fvdl 	int i, rc;
    447  1.33      fvdl 	size_t buf_size;
    448  1.33      fvdl 
    449  1.33      fvdl 	for (i = 0; sblock_try[i] != -1; i++) {
    450  1.33      fvdl 		rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    451  1.33      fvdl 		    sblock_try[i] / DEV_BSIZE, SBLOCKSIZE, (char *)fs,
    452  1.33      fvdl 		    &buf_size);
    453  1.33      fvdl 		if (rc != 0 || buf_size != SBLOCKSIZE)
    454  1.33      fvdl 			return rc;
    455  1.33      fvdl 		if (fs->fs_magic == FS_UFS1_MAGIC) {
    456  1.33      fvdl 			is_ufs2 = 0;
    457  1.33      fvdl 			return 0;
    458  1.33      fvdl 		}
    459  1.33      fvdl 		if (fs->fs_magic == FS_UFS2_MAGIC) {
    460  1.33      fvdl 			is_ufs2 = 1;
    461  1.33      fvdl 			return 0;
    462  1.33      fvdl 		}
    463  1.33      fvdl 	}
    464  1.33      fvdl 	return EINVAL;
    465  1.33      fvdl }
    466  1.33      fvdl 
    467  1.33      fvdl #endif
    468  1.33      fvdl 
    469   1.1    brezak /*
    470   1.1    brezak  * Open a file.
    471   1.1    brezak  */
    472   1.1    brezak int
    473   1.1    brezak ufs_open(path, f)
    474   1.1    brezak 	char *path;
    475   1.1    brezak 	struct open_file *f;
    476   1.1    brezak {
    477  1.23       cgd #ifndef LIBSA_FS_SINGLECOMPONENT
    478  1.30  augustss 	char *cp, *ncp;
    479  1.30  augustss 	int c;
    480  1.23       cgd #endif
    481  1.23       cgd 	ino_t inumber;
    482   1.1    brezak 	struct file *fp;
    483   1.1    brezak 	struct fs *fs;
    484  1.10        ws 	int rc;
    485  1.23       cgd #ifndef LIBSA_NO_FS_SYMLINK
    486  1.23       cgd 	ino_t parent_inumber;
    487  1.10        ws 	int nlinks = 0;
    488   1.1    brezak 	char namebuf[MAXPATHLEN+1];
    489   1.9        pk 	char *buf = NULL;
    490  1.22    simonb #endif
    491  1.33      fvdl #ifndef LIBSA_SUPPORT_UFS2
    492  1.33      fvdl 	size_t buf_size;
    493  1.33      fvdl #endif
    494   1.1    brezak 
    495   1.1    brezak 	/* allocate file system specific data structure */
    496   1.1    brezak 	fp = alloc(sizeof(struct file));
    497   1.1    brezak 	bzero(fp, sizeof(struct file));
    498   1.1    brezak 	f->f_fsdata = (void *)fp;
    499   1.1    brezak 
    500   1.1    brezak 	/* allocate space and read super block */
    501  1.33      fvdl 	fs = alloc(SBLOCKSIZE);
    502   1.1    brezak 	fp->f_fs = fs;
    503  1.23       cgd #if !defined(LIBSA_NO_TWIDDLE)
    504  1.11   mycroft 	twiddle();
    505  1.23       cgd #endif
    506  1.33      fvdl 
    507  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    508  1.33      fvdl 	rc = ffs_find_superblock(f, fs);
    509  1.33      fvdl 	if (rc)
    510  1.33      fvdl 		goto out;
    511  1.33      fvdl #else
    512  1.23       cgd 	rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    513  1.33      fvdl 		SBLOCK_UFS1 / DEV_BSIZE, SBLOCKSIZE, (char *)fs, &buf_size);
    514   1.1    brezak 	if (rc)
    515   1.1    brezak 		goto out;
    516  1.33      fvdl 	if (buf_size != SBLOCKSIZE || fs->fs_magic != FS_UFS1_MAGIC) {
    517  1.33      fvdl 		rc = EINVAL;
    518  1.33      fvdl 		goto out;
    519  1.33      fvdl 	}
    520  1.33      fvdl #endif
    521   1.1    brezak 
    522  1.33      fvdl 	ffs_oldfscompat(fs);
    523  1.33      fvdl 
    524  1.33      fvdl 	if (fs->fs_bsize > MAXBSIZE || fs->fs_bsize < sizeof(struct fs)) {
    525   1.1    brezak 		rc = EINVAL;
    526   1.1    brezak 		goto out;
    527   1.1    brezak 	}
    528   1.1    brezak 
    529   1.1    brezak 	/*
    530   1.1    brezak 	 * Calculate indirect block levels.
    531   1.1    brezak 	 */
    532   1.1    brezak 	{
    533  1.30  augustss 		int mult;
    534  1.30  augustss 		int level;
    535   1.1    brezak 
    536   1.1    brezak 		mult = 1;
    537   1.1    brezak 		for (level = 0; level < NIADDR; level++) {
    538   1.1    brezak 			mult *= NINDIR(fs);
    539   1.1    brezak 			fp->f_nindir[level] = mult;
    540   1.1    brezak 		}
    541   1.1    brezak 	}
    542   1.1    brezak 
    543   1.1    brezak 	inumber = ROOTINO;
    544   1.1    brezak 	if ((rc = read_inode(inumber, f)) != 0)
    545   1.1    brezak 		goto out;
    546   1.1    brezak 
    547  1.23       cgd #ifndef LIBSA_FS_SINGLECOMPONENT
    548   1.1    brezak 	cp = path;
    549   1.1    brezak 	while (*cp) {
    550   1.1    brezak 
    551   1.1    brezak 		/*
    552   1.1    brezak 		 * Remove extra separators
    553   1.1    brezak 		 */
    554   1.1    brezak 		while (*cp == '/')
    555   1.1    brezak 			cp++;
    556   1.1    brezak 		if (*cp == '\0')
    557   1.1    brezak 			break;
    558   1.1    brezak 
    559   1.1    brezak 		/*
    560   1.1    brezak 		 * Check that current node is a directory.
    561   1.1    brezak 		 */
    562  1.33      fvdl 		if ((DIP(fp->f_di, mode) & IFMT) != IFDIR) {
    563   1.1    brezak 			rc = ENOTDIR;
    564   1.1    brezak 			goto out;
    565   1.1    brezak 		}
    566   1.1    brezak 
    567   1.1    brezak 		/*
    568   1.1    brezak 		 * Get next component of path name.
    569   1.1    brezak 		 */
    570   1.1    brezak 		{
    571  1.30  augustss 			int len = 0;
    572   1.1    brezak 
    573   1.1    brezak 			ncp = cp;
    574   1.1    brezak 			while ((c = *cp) != '\0' && c != '/') {
    575   1.1    brezak 				if (++len > MAXNAMLEN) {
    576   1.1    brezak 					rc = ENOENT;
    577   1.1    brezak 					goto out;
    578   1.1    brezak 				}
    579   1.1    brezak 				cp++;
    580   1.1    brezak 			}
    581   1.1    brezak 			*cp = '\0';
    582   1.1    brezak 		}
    583   1.1    brezak 
    584   1.1    brezak 		/*
    585   1.1    brezak 		 * Look up component in current directory.
    586   1.1    brezak 		 * Save directory inumber in case we find a
    587   1.1    brezak 		 * symbolic link.
    588   1.1    brezak 		 */
    589  1.23       cgd #ifndef LIBSA_NO_FS_SYMLINK
    590   1.1    brezak 		parent_inumber = inumber;
    591  1.23       cgd #endif
    592   1.1    brezak 		rc = search_directory(ncp, f, &inumber);
    593   1.1    brezak 		*cp = c;
    594   1.1    brezak 		if (rc)
    595   1.1    brezak 			goto out;
    596   1.1    brezak 
    597   1.1    brezak 		/*
    598   1.1    brezak 		 * Open next component.
    599   1.1    brezak 		 */
    600   1.1    brezak 		if ((rc = read_inode(inumber, f)) != 0)
    601   1.1    brezak 			goto out;
    602   1.1    brezak 
    603  1.23       cgd #ifndef LIBSA_NO_FS_SYMLINK
    604   1.1    brezak 		/*
    605   1.1    brezak 		 * Check for symbolic link.
    606   1.1    brezak 		 */
    607  1.33      fvdl 		if ((DIP(fp->f_di, mode) & IFMT) == IFLNK) {
    608  1.33      fvdl 			int link_len = DIP(fp->f_di, size);
    609  1.10        ws 			int len;
    610  1.10        ws 
    611  1.10        ws 			len = strlen(cp);
    612   1.1    brezak 
    613  1.10        ws 			if (link_len + len > MAXPATHLEN ||
    614  1.10        ws 			    ++nlinks > MAXSYMLINKS) {
    615   1.1    brezak 				rc = ENOENT;
    616   1.1    brezak 				goto out;
    617   1.1    brezak 			}
    618   1.1    brezak 
    619  1.10        ws 			bcopy(cp, &namebuf[link_len], len + 1);
    620   1.1    brezak 
    621   1.9        pk 			if (link_len < fs->fs_maxsymlinklen) {
    622  1.33      fvdl #ifdef LIBSA_SUPPORT_UFS2
    623  1.33      fvdl 				if (is_ufs2)
    624  1.33      fvdl 					bcopy(fp->f_di.dp2.di_db, namebuf,
    625  1.33      fvdl 					      (unsigned) link_len);
    626  1.33      fvdl 				else
    627  1.33      fvdl #endif
    628  1.33      fvdl 					bcopy(fp->f_di.dp1.di_db, namebuf,
    629  1.33      fvdl 					      (unsigned) link_len);
    630   1.1    brezak 			} else {
    631   1.1    brezak 				/*
    632   1.1    brezak 				 * Read file for symbolic link
    633   1.1    brezak 				 */
    634  1.13       cgd 				size_t buf_size;
    635  1.10        ws 				daddr_t	disk_block;
    636  1.30  augustss 				struct fs *fs = fp->f_fs;
    637   1.9        pk 
    638   1.9        pk 				if (!buf)
    639  1.10        ws 					buf = alloc(fs->fs_bsize);
    640  1.10        ws 				rc = block_map(f, (daddr_t)0, &disk_block);
    641   1.9        pk 				if (rc)
    642   1.9        pk 					goto out;
    643  1.22    simonb 
    644  1.23       cgd #if !defined(LIBSA_NO_TWIDDLE)
    645  1.11   mycroft 				twiddle();
    646  1.23       cgd #endif
    647  1.23       cgd 				rc = DEV_STRATEGY(f->f_dev)(f->f_devdata,
    648  1.10        ws 					F_READ, fsbtodb(fs, disk_block),
    649   1.9        pk 					fs->fs_bsize, buf, &buf_size);
    650   1.1    brezak 				if (rc)
    651   1.1    brezak 					goto out;
    652   1.1    brezak 
    653   1.1    brezak 				bcopy((char *)buf, namebuf, (unsigned)link_len);
    654   1.1    brezak 			}
    655   1.1    brezak 
    656   1.1    brezak 			/*
    657   1.1    brezak 			 * If relative pathname, restart at parent directory.
    658   1.1    brezak 			 * If absolute pathname, restart at root.
    659   1.1    brezak 			 */
    660   1.1    brezak 			cp = namebuf;
    661   1.1    brezak 			if (*cp != '/')
    662   1.1    brezak 				inumber = parent_inumber;
    663   1.1    brezak 			else
    664   1.1    brezak 				inumber = (ino_t)ROOTINO;
    665   1.1    brezak 
    666   1.9        pk 			if ((rc = read_inode(inumber, f)) != 0)
    667   1.1    brezak 				goto out;
    668   1.1    brezak 		}
    669  1.23       cgd #endif	/* !LIBSA_NO_FS_SYMLINK */
    670   1.1    brezak 	}
    671   1.1    brezak 
    672   1.1    brezak 	/*
    673   1.1    brezak 	 * Found terminal component.
    674   1.1    brezak 	 */
    675   1.1    brezak 	rc = 0;
    676  1.23       cgd 
    677  1.23       cgd #else /* !LIBSA_FS_SINGLECOMPONENT */
    678  1.23       cgd 
    679  1.23       cgd 	/* look up component in the current (root) directory */
    680  1.23       cgd 	rc = search_directory(path, f, &inumber);
    681  1.23       cgd 	if (rc)
    682  1.23       cgd 		goto out;
    683  1.23       cgd 
    684  1.23       cgd 	/* open it */
    685  1.23       cgd 	rc = read_inode(inumber, f);
    686  1.23       cgd 
    687  1.23       cgd #endif /* !LIBSA_FS_SINGLECOMPONENT */
    688  1.26       cgd 
    689  1.26       cgd         fp->f_seekp = 0;		/* reset seek pointer */
    690  1.23       cgd 
    691   1.1    brezak out:
    692  1.23       cgd #ifndef LIBSA_NO_FS_SYMLINK
    693   1.9        pk 	if (buf)
    694   1.9        pk 		free(buf, fs->fs_bsize);
    695  1.22    simonb #endif
    696  1.16        ws 	if (rc) {
    697  1.17       cgd 		if (fp->f_buf)
    698  1.17       cgd 			free(fp->f_buf, fp->f_fs->fs_bsize);
    699  1.33      fvdl 		free(fp->f_fs, SBLOCKSIZE);
    700   1.1    brezak 		free(fp, sizeof(struct file));
    701  1.16        ws 	}
    702   1.1    brezak 	return (rc);
    703   1.1    brezak }
    704   1.1    brezak 
    705  1.23       cgd #ifndef LIBSA_NO_FS_CLOSE
    706   1.1    brezak int
    707   1.1    brezak ufs_close(f)
    708   1.1    brezak 	struct open_file *f;
    709   1.1    brezak {
    710  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    711   1.1    brezak 	int level;
    712   1.1    brezak 
    713   1.1    brezak 	f->f_fsdata = (void *)0;
    714   1.1    brezak 	if (fp == (struct file *)0)
    715   1.1    brezak 		return (0);
    716   1.1    brezak 
    717   1.1    brezak 	for (level = 0; level < NIADDR; level++) {
    718   1.1    brezak 		if (fp->f_blk[level])
    719   1.1    brezak 			free(fp->f_blk[level], fp->f_fs->fs_bsize);
    720   1.1    brezak 	}
    721   1.1    brezak 	if (fp->f_buf)
    722   1.1    brezak 		free(fp->f_buf, fp->f_fs->fs_bsize);
    723  1.33      fvdl 	free(fp->f_fs, SBLOCKSIZE);
    724   1.1    brezak 	free(fp, sizeof(struct file));
    725   1.1    brezak 	return (0);
    726   1.1    brezak }
    727  1.23       cgd #endif /* !LIBSA_NO_FS_CLOSE */
    728   1.1    brezak 
    729   1.1    brezak /*
    730   1.1    brezak  * Copy a portion of a file into kernel memory.
    731   1.1    brezak  * Cross block boundaries when necessary.
    732   1.1    brezak  */
    733   1.1    brezak int
    734   1.1    brezak ufs_read(f, start, size, resid)
    735   1.1    brezak 	struct open_file *f;
    736  1.12        pk 	void *start;
    737  1.12        pk 	size_t size;
    738  1.12        pk 	size_t *resid;	/* out */
    739   1.1    brezak {
    740  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    741  1.30  augustss 	size_t csize;
    742   1.1    brezak 	char *buf;
    743  1.13       cgd 	size_t buf_size;
    744   1.1    brezak 	int rc = 0;
    745  1.30  augustss 	char *addr = start;
    746   1.1    brezak 
    747   1.1    brezak 	while (size != 0) {
    748  1.33      fvdl 		if (fp->f_seekp >= DIP(fp->f_di, size))
    749   1.1    brezak 			break;
    750   1.1    brezak 
    751   1.1    brezak 		rc = buf_read_file(f, &buf, &buf_size);
    752   1.1    brezak 		if (rc)
    753   1.1    brezak 			break;
    754   1.1    brezak 
    755   1.1    brezak 		csize = size;
    756   1.1    brezak 		if (csize > buf_size)
    757   1.1    brezak 			csize = buf_size;
    758   1.1    brezak 
    759  1.12        pk 		bcopy(buf, addr, csize);
    760   1.1    brezak 
    761   1.1    brezak 		fp->f_seekp += csize;
    762  1.12        pk 		addr += csize;
    763   1.1    brezak 		size -= csize;
    764   1.1    brezak 	}
    765   1.1    brezak 	if (resid)
    766   1.1    brezak 		*resid = size;
    767   1.1    brezak 	return (rc);
    768   1.1    brezak }
    769   1.1    brezak 
    770   1.1    brezak /*
    771   1.1    brezak  * Not implemented.
    772   1.1    brezak  */
    773  1.23       cgd #ifndef LIBSA_NO_FS_WRITE
    774   1.1    brezak int
    775   1.1    brezak ufs_write(f, start, size, resid)
    776   1.1    brezak 	struct open_file *f;
    777  1.12        pk 	void *start;
    778  1.12        pk 	size_t size;
    779  1.12        pk 	size_t *resid;	/* out */
    780   1.1    brezak {
    781   1.1    brezak 
    782   1.1    brezak 	return (EROFS);
    783   1.1    brezak }
    784  1.23       cgd #endif /* !LIBSA_NO_FS_WRITE */
    785   1.1    brezak 
    786  1.23       cgd #ifndef LIBSA_NO_FS_SEEK
    787   1.1    brezak off_t
    788   1.1    brezak ufs_seek(f, offset, where)
    789   1.1    brezak 	struct open_file *f;
    790   1.1    brezak 	off_t offset;
    791   1.1    brezak 	int where;
    792   1.1    brezak {
    793  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    794   1.1    brezak 
    795   1.1    brezak 	switch (where) {
    796   1.1    brezak 	case SEEK_SET:
    797   1.1    brezak 		fp->f_seekp = offset;
    798   1.1    brezak 		break;
    799   1.1    brezak 	case SEEK_CUR:
    800   1.1    brezak 		fp->f_seekp += offset;
    801   1.1    brezak 		break;
    802   1.1    brezak 	case SEEK_END:
    803  1.33      fvdl 		fp->f_seekp = DIP(fp->f_di, size) - offset;
    804   1.1    brezak 		break;
    805   1.1    brezak 	default:
    806   1.1    brezak 		return (-1);
    807   1.1    brezak 	}
    808   1.1    brezak 	return (fp->f_seekp);
    809   1.1    brezak }
    810  1.23       cgd #endif /* !LIBSA_NO_FS_SEEK */
    811   1.1    brezak 
    812   1.1    brezak int
    813   1.1    brezak ufs_stat(f, sb)
    814   1.1    brezak 	struct open_file *f;
    815   1.1    brezak 	struct stat *sb;
    816   1.1    brezak {
    817  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    818   1.1    brezak 
    819   1.1    brezak 	/* only important stuff */
    820  1.33      fvdl 	sb->st_mode = DIP(fp->f_di, mode);
    821  1.33      fvdl 	sb->st_uid = DIP(fp->f_di, uid);
    822  1.33      fvdl 	sb->st_gid = DIP(fp->f_di, gid);
    823  1.33      fvdl 	sb->st_size = DIP(fp->f_di, size);
    824   1.4        pk 	return (0);
    825   1.4        pk }
    826   1.4        pk 
    827   1.4        pk /*
    828   1.4        pk  * Sanity checks for old file systems.
    829   1.4        pk  *
    830   1.4        pk  * XXX - goes away some day.
    831   1.4        pk  */
    832  1.13       cgd static void
    833   1.4        pk ffs_oldfscompat(fs)
    834   1.4        pk 	struct fs *fs;
    835   1.4        pk {
    836   1.4        pk 	int i;
    837   1.4        pk 
    838  1.33      fvdl 	if (fs->fs_magic == FS_UFS1_MAGIC && fs->fs_size != fs->fs_old_size) {
    839  1.33      fvdl 		fs->fs_maxbsize = fs->fs_bsize;
    840  1.33      fvdl 		fs->fs_time = fs->fs_old_time;
    841  1.33      fvdl 		fs->fs_size = fs->fs_old_size;
    842  1.33      fvdl 		fs->fs_dsize = fs->fs_old_dsize;
    843  1.33      fvdl 		fs->fs_csaddr = fs->fs_old_csaddr;
    844  1.33      fvdl 		fs->fs_cstotal.cs_ndir = fs->fs_old_cstotal.cs_ndir;
    845  1.33      fvdl 		fs->fs_cstotal.cs_nbfree = fs->fs_old_cstotal.cs_nbfree;
    846  1.33      fvdl 		fs->fs_cstotal.cs_nifree = fs->fs_old_cstotal.cs_nifree;
    847  1.33      fvdl 		fs->fs_cstotal.cs_nffree = fs->fs_old_cstotal.cs_nffree;
    848  1.33      fvdl 	}
    849  1.33      fvdl #ifdef COMPAT_UFS
    850  1.33      fvdl 	if (fs->fs_magic == FS_UFS1_MAGIC &&
    851  1.33      fvdl 	    fs->fs_old_inodefmt < FS_44INODEFMT) {
    852  1.33      fvdl 		quad_t sizepb = fs->fs_bsize;
    853  1.33      fvdl 		fs->fs_maxfilesize = fs->fs_bsize * NDADDR - 1;
    854  1.33      fvdl 		for (i = 0; i < NIADDR; i++) {
    855  1.33      fvdl 			sizepb *= NINDIR(fs);
    856  1.33      fvdl 			fs->fs_maxfilesize += sizepb;
    857  1.33      fvdl 		}
    858  1.33      fvdl 		fs->fs_qbmask = ~fs->fs_bmask;
    859  1.33      fvdl 		fs->fs_qfmask = ~fs->fs_fmask;
    860  1.33      fvdl 	}
    861  1.33      fvdl #endif
    862   1.1    brezak }
    863