Home | History | Annotate | Line # | Download | only in libsa
ufs.c revision 1.68
      1  1.68  dholland /*	$NetBSD: ufs.c,v 1.68 2015/07/28 05:09:34 dholland 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.36       agc  * 3. Neither the name of the University nor the names of its contributors
     19   1.1    brezak  *    may be used to endorse or promote products derived from this software
     20   1.1    brezak  *    without specific prior written permission.
     21   1.1    brezak  *
     22   1.1    brezak  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     23   1.1    brezak  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     24   1.1    brezak  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     25   1.1    brezak  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     26   1.1    brezak  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     27   1.1    brezak  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     28   1.1    brezak  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     29   1.1    brezak  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     30   1.1    brezak  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     31   1.1    brezak  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     32   1.1    brezak  * SUCH DAMAGE.
     33  1.22    simonb  *
     34   1.1    brezak  *
     35   1.1    brezak  * Copyright (c) 1990, 1991 Carnegie Mellon University
     36   1.1    brezak  * All Rights Reserved.
     37   1.1    brezak  *
     38   1.1    brezak  * Author: David Golub
     39  1.22    simonb  *
     40   1.1    brezak  * Permission to use, copy, modify and distribute this software and its
     41   1.1    brezak  * documentation is hereby granted, provided that both the copyright
     42   1.1    brezak  * notice and this permission notice appear in all copies of the
     43   1.1    brezak  * software, derivative works or modified versions, and any portions
     44   1.1    brezak  * thereof, and that both notices appear in supporting documentation.
     45  1.22    simonb  *
     46   1.1    brezak  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
     47   1.1    brezak  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
     48   1.1    brezak  * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
     49  1.22    simonb  *
     50   1.1    brezak  * Carnegie Mellon requests users of this software to return to
     51  1.22    simonb  *
     52   1.1    brezak  *  Software Distribution Coordinator  or  Software.Distribution (at) CS.CMU.EDU
     53   1.1    brezak  *  School of Computer Science
     54   1.1    brezak  *  Carnegie Mellon University
     55   1.1    brezak  *  Pittsburgh PA 15213-3890
     56  1.22    simonb  *
     57   1.1    brezak  * any improvements or extensions that they make and grant Carnegie the
     58   1.1    brezak  * rights to redistribute these changes.
     59  1.27       cgd  */
     60  1.27       cgd 
     61  1.27       cgd /*
     62  1.37       dsl  *	Stand-alone file reading package for UFS and LFS filesystems.
     63   1.1    brezak  */
     64   1.1    brezak 
     65   1.1    brezak #include <sys/param.h>
     66   1.1    brezak #include <sys/time.h>
     67   1.1    brezak #include <ufs/ufs/dinode.h>
     68   1.1    brezak #include <ufs/ufs/dir.h>
     69  1.35       dsl #ifdef LIBSA_LFS
     70  1.35       dsl #include <sys/queue.h>
     71  1.53        ad #include <sys/condvar.h>
     72  1.35       dsl #include <sys/mount.h>			/* XXX for MNAMELEN */
     73  1.68  dholland #include <ufs/lfs/lfs.h>
     74  1.67  dholland #define STRUCT_LFS struct salfs
     75  1.68  dholland #include <ufs/lfs/lfs_accessors.h>
     76  1.35       dsl #else
     77  1.20      ross #include <ufs/ffs/fs.h>
     78  1.35       dsl #endif
     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.35       dsl #ifdef LIBSA_LFS
     87  1.35       dsl #include "lfs.h"
     88  1.35       dsl #else
     89  1.21        pk #include "ufs.h"
     90  1.35       dsl #endif
     91  1.35       dsl 
     92  1.35       dsl /* If this file is compiled by itself, build ufs (aka ffsv1) support */
     93  1.35       dsl #if !defined(LIBSA_FFSv2) && !defined(LIBSA_LFS)
     94  1.35       dsl #define LIBSA_FFSv1
     95  1.35       dsl #endif
     96  1.23       cgd 
     97  1.23       cgd #if defined(LIBSA_FS_SINGLECOMPONENT) && !defined(LIBSA_NO_FS_SYMLINK)
     98  1.23       cgd #define LIBSA_NO_FS_SYMLINK
     99  1.25    simonb #endif
    100  1.25    simonb #if defined(COMPAT_UFS) && defined(LIBSA_NO_COMPAT_UFS)
    101  1.25    simonb #undef COMPAT_UFS
    102  1.23       cgd #endif
    103  1.23       cgd 
    104  1.35       dsl #ifdef LIBSA_LFS
    105  1.35       dsl /*
    106  1.66  dholland  * In-core LFS superblock - just the on-disk one.
    107  1.67  dholland  * XXX: struct salfs is currently in lfs.h
    108  1.35       dsl  */
    109  1.67  dholland typedef struct salfs FS;
    110  1.67  dholland #define fs_magic	lfs_dlfs.dlfs_magic
    111  1.67  dholland #define fs_maxsymlinklen lfs_dlfs.dlfs_maxsymlinklen
    112  1.33      fvdl 
    113  1.35       dsl #define FS_MAGIC	LFS_MAGIC
    114  1.35       dsl #define SBLOCKSIZE	LFS_SBPAD
    115  1.35       dsl #define SBLOCKOFFSET	LFS_LABELPAD
    116  1.33      fvdl #else
    117  1.66  dholland /* NB ufs2 doesn't use the common superblock code... */
    118  1.66  dholland typedef struct fs FS;
    119  1.35       dsl #define FS_MAGIC	FS_UFS1_MAGIC
    120  1.35       dsl #define SBLOCKOFFSET	SBLOCK_UFS1
    121  1.35       dsl #endif
    122  1.35       dsl 
    123  1.35       dsl #if defined(LIBSA_NO_TWIDDLE)
    124  1.35       dsl #define twiddle()
    125  1.35       dsl #endif
    126  1.35       dsl 
    127  1.40       dsl #undef cgstart
    128  1.40       dsl #if defined(LIBSA_FFSv2)
    129  1.40       dsl #define cgstart(fc, c) cgstart_ufs2((fs), (c))
    130  1.40       dsl #else
    131  1.40       dsl #define cgstart(fc, c) cgstart_ufs1((fs), (c))
    132  1.40       dsl #endif
    133  1.40       dsl 
    134  1.35       dsl #ifndef ufs_dinode
    135  1.35       dsl #define ufs_dinode	ufs1_dinode
    136  1.35       dsl #endif
    137  1.35       dsl #ifndef indp_t
    138  1.47       uwe #define indp_t		int32_t
    139  1.35       dsl #endif
    140  1.45  christos typedef uint32_t	ino32_t;
    141  1.61  dholland 
    142  1.35       dsl #ifndef FSBTODB
    143  1.62  dholland #define FSBTODB(fs, indp) FFS_FSBTODB(fs, indp)
    144  1.33      fvdl #endif
    145  1.61  dholland #ifndef UFS_NINDIR
    146  1.61  dholland #define UFS_NINDIR FFS_NINDIR
    147  1.61  dholland #endif
    148  1.61  dholland #ifndef ufs_blkoff
    149  1.61  dholland #define ufs_blkoff ffs_blkoff
    150  1.61  dholland #endif
    151  1.63  dholland #ifndef ufs_lblkno
    152  1.63  dholland #define ufs_lblkno ffs_lblkno
    153  1.63  dholland #endif
    154  1.23       cgd 
    155   1.1    brezak /*
    156  1.40       dsl  * To avoid having a lot of filesystem-block sized buffers lurking (which
    157  1.40       dsl  * could be 32k) we only keep a few entries of the indirect block map.
    158  1.40       dsl  * With 8k blocks, 2^8 blocks is ~500k so we reread the indirect block
    159  1.40       dsl  * ~13 times pulling in a 6M kernel.
    160  1.40       dsl  * The cache size must be smaller than the smallest filesystem block,
    161  1.40       dsl  * so LN2_IND_CACHE_SZ <= 9 (UFS2 and 4k blocks).
    162  1.40       dsl  */
    163  1.40       dsl #define LN2_IND_CACHE_SZ	6
    164  1.40       dsl #define IND_CACHE_SZ		(1 << LN2_IND_CACHE_SZ)
    165  1.40       dsl #define IND_CACHE_MASK		(IND_CACHE_SZ - 1)
    166  1.40       dsl 
    167  1.40       dsl /*
    168   1.1    brezak  * In-core open file.
    169   1.1    brezak  */
    170   1.1    brezak struct file {
    171   1.1    brezak 	off_t		f_seekp;	/* seek pointer */
    172  1.66  dholland 	FS		*f_fs;		/* pointer to super-block */
    173  1.35       dsl 	struct ufs_dinode	f_di;		/* copy of on-disk inode */
    174  1.40       dsl 	uint		f_nishift;	/* for blocks in indirect block */
    175  1.40       dsl 	indp_t		f_ind_cache_block;
    176  1.40       dsl 	indp_t		f_ind_cache[IND_CACHE_SZ];
    177  1.40       dsl 
    178   1.1    brezak 	char		*f_buf;		/* buffer for data block */
    179  1.13       cgd 	size_t		f_buf_size;	/* size of data block */
    180   1.1    brezak 	daddr_t		f_buf_blkno;	/* block number of data block */
    181   1.1    brezak };
    182   1.1    brezak 
    183  1.45  christos static int read_inode(ino32_t, struct open_file *);
    184  1.40       dsl static int block_map(struct open_file *, indp_t, indp_t *);
    185  1.38       dsl static int buf_read_file(struct open_file *, char **, size_t *);
    186  1.45  christos static int search_directory(const char *, int, struct open_file *, ino32_t *);
    187  1.35       dsl #ifdef LIBSA_FFSv1
    188  1.66  dholland static void ffs_oldfscompat(FS *);
    189  1.35       dsl #endif
    190  1.35       dsl #ifdef LIBSA_FFSv2
    191  1.66  dholland static int ffs_find_superblock(struct open_file *, FS *);
    192  1.35       dsl #endif
    193  1.35       dsl 
    194  1.56   tsutsui 
    195  1.35       dsl #ifdef LIBSA_LFS
    196  1.35       dsl /*
    197  1.35       dsl  * Find an inode's block.  Look it up in the ifile.  Whee!
    198  1.35       dsl  */
    199  1.35       dsl static int
    200  1.45  christos find_inode_sector(ino32_t inumber, struct open_file *f, daddr_t *isp)
    201  1.35       dsl {
    202  1.35       dsl 	struct file *fp = (struct file *)f->f_fsdata;
    203  1.66  dholland 	FS *fs = fp->f_fs;
    204  1.35       dsl 	daddr_t ifileent_blkno;
    205  1.35       dsl 	char *ent_in_buf;
    206  1.35       dsl 	size_t buf_after_ent;
    207  1.35       dsl 	int rc;
    208  1.33      fvdl 
    209  1.67  dholland 	rc = read_inode(lfs_sb_getifile(fs), f);
    210  1.35       dsl 	if (rc)
    211  1.51     isaki 		return rc;
    212  1.35       dsl 
    213  1.35       dsl 	ifileent_blkno =
    214  1.67  dholland 	    (inumber / lfs_sb_getifpb(fs)) + lfs_sb_getcleansz(fs) + lfs_sb_getsegtabsz(fs);
    215  1.67  dholland 	fp->f_seekp = (off_t)ifileent_blkno * lfs_sb_getbsize(fs) +
    216  1.67  dholland 	    (inumber % lfs_sb_getifpb(fs)) * sizeof (IFILE_Vx);
    217  1.35       dsl 	rc = buf_read_file(f, &ent_in_buf, &buf_after_ent);
    218  1.35       dsl 	if (rc)
    219  1.51     isaki 		return rc;
    220  1.35       dsl 	/* make sure something's not badly wrong, but don't panic. */
    221  1.35       dsl 	if (buf_after_ent < sizeof (IFILE_Vx))
    222  1.51     isaki 		return EINVAL;
    223  1.35       dsl 
    224  1.35       dsl 	*isp = FSBTODB(fs, ((IFILE_Vx *)ent_in_buf)->if_daddr);
    225  1.35       dsl 	if (*isp == LFS_UNUSED_DADDR)	/* again, something badly wrong */
    226  1.51     isaki 		return EINVAL;
    227  1.51     isaki 	return 0;
    228  1.35       dsl }
    229   1.7    brezak #endif
    230   1.7    brezak 
    231   1.1    brezak /*
    232   1.1    brezak  * Read a new inode into a file structure.
    233   1.1    brezak  */
    234   1.1    brezak static int
    235  1.45  christos read_inode(ino32_t inumber, struct open_file *f)
    236   1.1    brezak {
    237  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    238  1.66  dholland 	FS *fs = fp->f_fs;
    239   1.1    brezak 	char *buf;
    240  1.49       mrg 	size_t rsize;
    241   1.1    brezak 	int rc;
    242  1.64  christos 	daddr_t inode_sector = 0; /* XXX: gcc */
    243  1.35       dsl #ifdef LIBSA_LFS
    244  1.35       dsl 	struct ufs_dinode *dip;
    245  1.35       dsl 	int cnt;
    246  1.35       dsl #endif
    247  1.35       dsl 
    248  1.35       dsl #ifdef LIBSA_LFS
    249  1.67  dholland 	if (inumber == lfs_sb_getifile(fs))
    250  1.67  dholland 		inode_sector = FSBTODB(fs, lfs_sb_getidaddr(fs));
    251  1.35       dsl 	else if ((rc = find_inode_sector(inumber, f, &inode_sector)) != 0)
    252  1.51     isaki 		return rc;
    253  1.35       dsl #else
    254  1.35       dsl 	inode_sector = FSBTODB(fs, ino_to_fsba(fs, inumber));
    255  1.35       dsl #endif
    256   1.1    brezak 
    257   1.1    brezak 	/*
    258   1.1    brezak 	 * Read inode and save it.
    259   1.1    brezak 	 */
    260  1.40       dsl 	buf = fp->f_buf;
    261  1.11   mycroft 	twiddle();
    262  1.23       cgd 	rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    263  1.40       dsl 	    inode_sector, fs->fs_bsize, buf, &rsize);
    264   1.1    brezak 	if (rc)
    265  1.40       dsl 		return rc;
    266  1.49       mrg 	if (rsize != fs->fs_bsize)
    267  1.40       dsl 		return EIO;
    268   1.1    brezak 
    269  1.35       dsl #ifdef LIBSA_LFS
    270  1.35       dsl 	cnt = INOPBx(fs);
    271  1.40       dsl 	dip = (struct ufs_dinode *)buf + (cnt - 1);
    272  1.40       dsl 	for (; dip->di_inumber != inumber; --dip) {
    273  1.40       dsl 		/* kernel code panics, but boot blocks which panic are Bad. */
    274  1.40       dsl 		if (--cnt == 0)
    275  1.40       dsl 			return EINVAL;
    276   1.1    brezak 	}
    277  1.35       dsl 	fp->f_di = *dip;
    278  1.35       dsl #else
    279  1.35       dsl 	fp->f_di = ((struct ufs_dinode *)buf)[ino_to_fsbo(fs, inumber)];
    280  1.35       dsl #endif
    281   1.1    brezak 
    282   1.1    brezak 	/*
    283   1.1    brezak 	 * Clear out the old buffers
    284   1.1    brezak 	 */
    285  1.40       dsl 	fp->f_ind_cache_block = ~0;
    286  1.40       dsl 	fp->f_buf_blkno = -1;
    287  1.51     isaki 	return rc;
    288   1.1    brezak }
    289   1.1    brezak 
    290   1.1    brezak /*
    291   1.1    brezak  * Given an offset in a file, find the disk block number that
    292   1.1    brezak  * contains that block.
    293   1.1    brezak  */
    294   1.1    brezak static int
    295  1.40       dsl block_map(struct open_file *f, indp_t file_block, indp_t *disk_block_p)
    296   1.1    brezak {
    297  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    298  1.66  dholland 	FS *fs = fp->f_fs;
    299  1.52   tsutsui 	uint level;
    300  1.40       dsl 	indp_t ind_cache;
    301  1.40       dsl 	indp_t ind_block_num;
    302  1.49       mrg 	size_t rsize;
    303   1.1    brezak 	int rc;
    304  1.40       dsl 	indp_t *buf = (void *)fp->f_buf;
    305   1.1    brezak 
    306   1.1    brezak 	/*
    307   1.1    brezak 	 * Index structure of an inode:
    308   1.1    brezak 	 *
    309  1.59  dholland 	 * di_db[0..UFS_NDADDR-1]	hold block numbers for blocks
    310  1.59  dholland 	 *			0..UFS_NDADDR-1
    311   1.1    brezak 	 *
    312   1.1    brezak 	 * di_ib[0]		index block 0 is the single indirect block
    313   1.1    brezak 	 *			holds block numbers for blocks
    314  1.61  dholland 	 *			UFS_NDADDR .. UFS_NDADDR + UFS_NINDIR(fs)-1
    315   1.1    brezak 	 *
    316   1.1    brezak 	 * di_ib[1]		index block 1 is the double indirect block
    317   1.1    brezak 	 *			holds block numbers for INDEX blocks for blocks
    318  1.61  dholland 	 *			UFS_NDADDR + UFS_NINDIR(fs) ..
    319  1.61  dholland 	 *			UFS_NDADDR + UFS_NINDIR(fs) + UFS_NINDIR(fs)**2 - 1
    320   1.1    brezak 	 *
    321   1.1    brezak 	 * di_ib[2]		index block 2 is the triple indirect block
    322   1.1    brezak 	 *			holds block numbers for double-indirect
    323   1.1    brezak 	 *			blocks for blocks
    324  1.61  dholland 	 *			UFS_NDADDR + UFS_NINDIR(fs) + UFS_NINDIR(fs)**2 ..
    325  1.61  dholland 	 *			UFS_NDADDR + UFS_NINDIR(fs) + UFS_NINDIR(fs)**2
    326  1.61  dholland 	 *				+ UFS_NINDIR(fs)**3 - 1
    327   1.1    brezak 	 */
    328   1.1    brezak 
    329  1.59  dholland 	if (file_block < UFS_NDADDR) {
    330   1.1    brezak 		/* Direct block. */
    331  1.35       dsl 		*disk_block_p = fp->f_di.di_db[file_block];
    332  1.51     isaki 		return 0;
    333   1.1    brezak 	}
    334   1.1    brezak 
    335  1.59  dholland 	file_block -= UFS_NDADDR;
    336   1.1    brezak 
    337  1.40       dsl 	ind_cache = file_block >> LN2_IND_CACHE_SZ;
    338  1.40       dsl 	if (ind_cache == fp->f_ind_cache_block) {
    339  1.40       dsl 		*disk_block_p = fp->f_ind_cache[file_block & IND_CACHE_MASK];
    340  1.40       dsl 		return 0;
    341  1.40       dsl 	}
    342  1.40       dsl 
    343  1.40       dsl 	for (level = 0;;) {
    344  1.40       dsl 		level += fp->f_nishift;
    345  1.40       dsl 		if (file_block < (indp_t)1 << level)
    346  1.40       dsl 			break;
    347  1.59  dholland 		if (level > UFS_NIADDR * fp->f_nishift)
    348  1.38       dsl 			/* Block number too high */
    349  1.51     isaki 			return EFBIG;
    350  1.40       dsl 		file_block -= (indp_t)1 << level;
    351   1.1    brezak 	}
    352   1.1    brezak 
    353  1.40       dsl 	ind_block_num = fp->f_di.di_ib[level / fp->f_nishift - 1];
    354   1.1    brezak 
    355  1.40       dsl 	for (;;) {
    356  1.40       dsl 		level -= fp->f_nishift;
    357   1.1    brezak 		if (ind_block_num == 0) {
    358   1.1    brezak 			*disk_block_p = 0;	/* missing */
    359  1.51     isaki 			return 0;
    360   1.1    brezak 		}
    361   1.1    brezak 
    362  1.40       dsl 		twiddle();
    363  1.40       dsl 		/*
    364  1.40       dsl 		 * If we were feeling brave, we could work out the number
    365  1.40       dsl 		 * of the disk sector and read a single disk sector instead
    366  1.40       dsl 		 * of a filesystem block.
    367  1.40       dsl 		 * However we don't do this very often anyway...
    368  1.40       dsl 		 */
    369  1.40       dsl 		rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    370  1.40       dsl 			FSBTODB(fp->f_fs, ind_block_num), fs->fs_bsize,
    371  1.40       dsl 			buf, &rsize);
    372  1.40       dsl 		if (rc)
    373  1.51     isaki 			return rc;
    374  1.49       mrg 		if (rsize != fs->fs_bsize)
    375  1.40       dsl 			return EIO;
    376  1.40       dsl 		ind_block_num = buf[file_block >> level];
    377  1.40       dsl 		if (level == 0)
    378  1.40       dsl 			break;
    379  1.40       dsl 		file_block &= (1 << level) - 1;
    380  1.40       dsl 	}
    381   1.1    brezak 
    382  1.40       dsl 	/* Save the part of the block that contains this sector */
    383  1.40       dsl 	memcpy(fp->f_ind_cache, &buf[file_block & ~IND_CACHE_MASK],
    384  1.40       dsl 	    IND_CACHE_SZ * sizeof fp->f_ind_cache[0]);
    385  1.40       dsl 	fp->f_ind_cache_block = ind_cache;
    386   1.1    brezak 
    387   1.1    brezak 	*disk_block_p = ind_block_num;
    388   1.1    brezak 
    389  1.51     isaki 	return 0;
    390   1.1    brezak }
    391   1.1    brezak 
    392   1.1    brezak /*
    393  1.40       dsl  * Read a portion of a file into an internal buffer.
    394  1.40       dsl  * Return the location in the buffer and the amount in the buffer.
    395   1.1    brezak  */
    396   1.1    brezak static int
    397  1.37       dsl buf_read_file(struct open_file *f, char **buf_p, size_t *size_p)
    398   1.1    brezak {
    399  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    400  1.66  dholland 	FS *fs = fp->f_fs;
    401   1.1    brezak 	long off;
    402  1.40       dsl 	indp_t file_block;
    403  1.13       cgd 	size_t block_size;
    404   1.1    brezak 	int rc;
    405   1.1    brezak 
    406  1.61  dholland 	off = ufs_blkoff(fs, fp->f_seekp);
    407  1.63  dholland 	file_block = ufs_lblkno(fs, fp->f_seekp);
    408  1.35       dsl #ifdef LIBSA_LFS
    409  1.35       dsl 	block_size = dblksize(fs, &fp->f_di, file_block);
    410  1.35       dsl #else
    411  1.61  dholland 	block_size = ffs_sblksize(fs, (int64_t)fp->f_di.di_size, file_block);
    412  1.35       dsl #endif
    413   1.1    brezak 
    414   1.1    brezak 	if (file_block != fp->f_buf_blkno) {
    415  1.64  christos 		indp_t disk_block = 0; /* XXX: gcc */
    416   1.1    brezak 		rc = block_map(f, file_block, &disk_block);
    417   1.1    brezak 		if (rc)
    418  1.51     isaki 			return rc;
    419   1.1    brezak 
    420   1.1    brezak 		if (disk_block == 0) {
    421  1.41       dsl 			memset(fp->f_buf, 0, block_size);
    422   1.1    brezak 			fp->f_buf_size = block_size;
    423   1.1    brezak 		} else {
    424  1.11   mycroft 			twiddle();
    425  1.23       cgd 			rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    426  1.35       dsl 				FSBTODB(fs, disk_block),
    427   1.1    brezak 				block_size, fp->f_buf, &fp->f_buf_size);
    428   1.1    brezak 			if (rc)
    429  1.51     isaki 				return rc;
    430   1.1    brezak 		}
    431   1.1    brezak 
    432   1.1    brezak 		fp->f_buf_blkno = file_block;
    433   1.1    brezak 	}
    434   1.1    brezak 
    435   1.1    brezak 	/*
    436   1.1    brezak 	 * Return address of byte in buffer corresponding to
    437   1.1    brezak 	 * offset, and size of remainder of buffer after that
    438   1.1    brezak 	 * byte.
    439   1.1    brezak 	 */
    440   1.1    brezak 	*buf_p = fp->f_buf + off;
    441   1.1    brezak 	*size_p = block_size - off;
    442   1.1    brezak 
    443   1.1    brezak 	/*
    444   1.1    brezak 	 * But truncate buffer at end of file.
    445   1.1    brezak 	 */
    446  1.35       dsl 	if (*size_p > fp->f_di.di_size - fp->f_seekp)
    447  1.35       dsl 		*size_p = fp->f_di.di_size - fp->f_seekp;
    448   1.1    brezak 
    449  1.51     isaki 	return 0;
    450   1.1    brezak }
    451   1.1    brezak 
    452   1.1    brezak /*
    453   1.1    brezak  * Search a directory for a name and return its
    454  1.38       dsl  * inode number.
    455   1.1    brezak  */
    456   1.1    brezak static int
    457  1.38       dsl search_directory(const char *name, int length, struct open_file *f,
    458  1.51     isaki 	ino32_t *inumber_p)
    459   1.1    brezak {
    460  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    461  1.30  augustss 	struct direct *dp;
    462   1.1    brezak 	struct direct *edp;
    463   1.1    brezak 	char *buf;
    464  1.13       cgd 	size_t buf_size;
    465  1.38       dsl 	int namlen;
    466   1.1    brezak 	int rc;
    467   1.1    brezak 
    468   1.1    brezak 	fp->f_seekp = 0;
    469  1.42      fvdl 	while (fp->f_seekp < (off_t)fp->f_di.di_size) {
    470   1.1    brezak 		rc = buf_read_file(f, &buf, &buf_size);
    471   1.1    brezak 		if (rc)
    472  1.51     isaki 			return rc;
    473   1.1    brezak 
    474   1.1    brezak 		dp = (struct direct *)buf;
    475   1.1    brezak 		edp = (struct direct *)(buf + buf_size);
    476  1.38       dsl 		for (;dp < edp; dp = (void *)((char *)dp + dp->d_reclen)) {
    477  1.40       dsl 			if (dp->d_reclen <= 0)
    478  1.40       dsl 				break;
    479  1.45  christos 			if (dp->d_ino == (ino32_t)0)
    480  1.38       dsl 				continue;
    481   1.1    brezak #if BYTE_ORDER == LITTLE_ENDIAN
    482   1.1    brezak 			if (fp->f_fs->fs_maxsymlinklen <= 0)
    483   1.1    brezak 				namlen = dp->d_type;
    484   1.1    brezak 			else
    485   1.1    brezak #endif
    486   1.1    brezak 				namlen = dp->d_namlen;
    487   1.1    brezak 			if (namlen == length &&
    488  1.38       dsl 			    !memcmp(name, dp->d_name, length)) {
    489   1.1    brezak 				/* found entry */
    490   1.1    brezak 				*inumber_p = dp->d_ino;
    491  1.51     isaki 				return 0;
    492   1.1    brezak 			}
    493   1.1    brezak 		}
    494   1.1    brezak 		fp->f_seekp += buf_size;
    495   1.1    brezak 	}
    496  1.51     isaki 	return ENOENT;
    497   1.1    brezak }
    498   1.1    brezak 
    499  1.35       dsl #ifdef LIBSA_FFSv2
    500  1.33      fvdl 
    501  1.33      fvdl daddr_t sblock_try[] = SBLOCKSEARCH;
    502  1.33      fvdl 
    503  1.33      fvdl static int
    504  1.66  dholland ffs_find_superblock(struct open_file *f, FS *fs)
    505  1.33      fvdl {
    506  1.33      fvdl 	int i, rc;
    507  1.33      fvdl 	size_t buf_size;
    508  1.33      fvdl 
    509  1.33      fvdl 	for (i = 0; sblock_try[i] != -1; i++) {
    510  1.33      fvdl 		rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    511  1.40       dsl 		    sblock_try[i] / DEV_BSIZE, SBLOCKSIZE, fs, &buf_size);
    512  1.33      fvdl 		if (rc != 0 || buf_size != SBLOCKSIZE)
    513  1.33      fvdl 			return rc;
    514  1.43       dsl 		if (fs->fs_sblockloc != sblock_try[i])
    515  1.43       dsl 			/* an alternate superblock - try again */
    516  1.43       dsl 			continue;
    517  1.33      fvdl 		if (fs->fs_magic == FS_UFS2_MAGIC) {
    518  1.33      fvdl 			return 0;
    519  1.33      fvdl 		}
    520  1.33      fvdl 	}
    521  1.33      fvdl 	return EINVAL;
    522  1.33      fvdl }
    523  1.33      fvdl 
    524  1.33      fvdl #endif
    525  1.33      fvdl 
    526   1.1    brezak /*
    527   1.1    brezak  * Open a file.
    528   1.1    brezak  */
    529  1.55     joerg __compactcall int
    530  1.38       dsl ufs_open(const char *path, struct open_file *f)
    531   1.1    brezak {
    532  1.23       cgd #ifndef LIBSA_FS_SINGLECOMPONENT
    533  1.38       dsl 	const char *cp, *ncp;
    534  1.30  augustss 	int c;
    535  1.23       cgd #endif
    536  1.45  christos 	ino32_t inumber;
    537   1.1    brezak 	struct file *fp;
    538  1.66  dholland 	FS *fs;
    539  1.10        ws 	int rc;
    540  1.23       cgd #ifndef LIBSA_NO_FS_SYMLINK
    541  1.45  christos 	ino32_t parent_inumber;
    542  1.10        ws 	int nlinks = 0;
    543   1.1    brezak 	char namebuf[MAXPATHLEN+1];
    544  1.40       dsl 	char *buf;
    545  1.22    simonb #endif
    546   1.1    brezak 
    547   1.1    brezak 	/* allocate file system specific data structure */
    548   1.1    brezak 	fp = alloc(sizeof(struct file));
    549  1.41       dsl 	memset(fp, 0, sizeof(struct file));
    550   1.1    brezak 	f->f_fsdata = (void *)fp;
    551   1.1    brezak 
    552   1.1    brezak 	/* allocate space and read super block */
    553  1.33      fvdl 	fs = alloc(SBLOCKSIZE);
    554   1.1    brezak 	fp->f_fs = fs;
    555  1.11   mycroft 	twiddle();
    556  1.33      fvdl 
    557  1.35       dsl #ifdef LIBSA_FFSv2
    558  1.33      fvdl 	rc = ffs_find_superblock(f, fs);
    559  1.33      fvdl 	if (rc)
    560  1.33      fvdl 		goto out;
    561  1.33      fvdl #else
    562  1.35       dsl 	{
    563  1.35       dsl 		size_t buf_size;
    564  1.35       dsl 		rc = DEV_STRATEGY(f->f_dev)(f->f_devdata, F_READ,
    565  1.40       dsl 			SBLOCKOFFSET / DEV_BSIZE, SBLOCKSIZE, fs, &buf_size);
    566  1.35       dsl 		if (rc)
    567  1.35       dsl 			goto out;
    568  1.35       dsl 		if (buf_size != SBLOCKSIZE ||
    569  1.35       dsl #ifdef LIBSA_FFS
    570  1.35       dsl 		    fs->lfs_version != REQUIRED_LFS_VERSION ||
    571  1.35       dsl #endif
    572  1.35       dsl 		    fs->fs_magic != FS_MAGIC) {
    573  1.35       dsl 			rc = EINVAL;
    574  1.35       dsl 			goto out;
    575  1.35       dsl 		}
    576  1.33      fvdl 	}
    577  1.35       dsl #if defined(LIBSA_LFS) && REQUIRED_LFS_VERSION == 2
    578  1.35       dsl 	/*
    579  1.35       dsl 	 * XXX	We should check the second superblock and use the eldest
    580  1.35       dsl 	 *	of the two.  See comments near the top of lfs_mountfs()
    581  1.35       dsl 	 *	in sys/ufs/lfs/lfs_vfsops.c.
    582  1.35       dsl 	 *      This may need a LIBSA_LFS_SMALL check as well.
    583  1.35       dsl 	 */
    584  1.35       dsl #endif
    585  1.33      fvdl #endif
    586   1.1    brezak 
    587  1.35       dsl #ifdef LIBSA_FFSv1
    588  1.33      fvdl 	ffs_oldfscompat(fs);
    589  1.35       dsl #endif
    590  1.33      fvdl 
    591  1.42      fvdl 	if (fs->fs_bsize > MAXBSIZE ||
    592  1.66  dholland 	    (size_t)fs->fs_bsize < sizeof(FS)) {
    593   1.1    brezak 		rc = EINVAL;
    594   1.1    brezak 		goto out;
    595   1.1    brezak 	}
    596   1.1    brezak 
    597   1.1    brezak 	/*
    598   1.1    brezak 	 * Calculate indirect block levels.
    599   1.1    brezak 	 */
    600   1.1    brezak 	{
    601  1.40       dsl 		indp_t mult;
    602  1.35       dsl 		int ln2;
    603  1.35       dsl 
    604  1.35       dsl 		/*
    605  1.35       dsl 		 * We note that the number of indirect blocks is always
    606  1.35       dsl 		 * a power of 2.  This lets us use shifts and masks instead
    607  1.35       dsl 		 * of divide and remainder and avoinds pulling in the
    608  1.35       dsl 		 * 64bit division routine into the boot code.
    609  1.35       dsl 		 */
    610  1.61  dholland 		mult = UFS_NINDIR(fs);
    611  1.35       dsl #ifdef DEBUG
    612  1.35       dsl 		if (mult & (mult - 1)) {
    613  1.35       dsl 			/* Hummm was't a power of 2 */
    614  1.35       dsl 			rc = EINVAL;
    615  1.35       dsl 			goto out;
    616  1.35       dsl 		}
    617  1.35       dsl #endif
    618  1.35       dsl 		for (ln2 = 0; mult != 1; ln2++)
    619  1.35       dsl 			mult >>= 1;
    620   1.1    brezak 
    621  1.40       dsl 		fp->f_nishift = ln2;
    622   1.1    brezak 	}
    623   1.1    brezak 
    624  1.40       dsl 	/* alloc a block sized buffer used for all fs transfers */
    625  1.40       dsl 	fp->f_buf = alloc(fs->fs_bsize);
    626  1.59  dholland 	inumber = UFS_ROOTINO;
    627   1.1    brezak 	if ((rc = read_inode(inumber, f)) != 0)
    628   1.1    brezak 		goto out;
    629   1.1    brezak 
    630  1.23       cgd #ifndef LIBSA_FS_SINGLECOMPONENT
    631   1.1    brezak 	cp = path;
    632   1.1    brezak 	while (*cp) {
    633   1.1    brezak 
    634   1.1    brezak 		/*
    635   1.1    brezak 		 * Remove extra separators
    636   1.1    brezak 		 */
    637   1.1    brezak 		while (*cp == '/')
    638   1.1    brezak 			cp++;
    639   1.1    brezak 		if (*cp == '\0')
    640   1.1    brezak 			break;
    641   1.1    brezak 
    642   1.1    brezak 		/*
    643   1.1    brezak 		 * Check that current node is a directory.
    644   1.1    brezak 		 */
    645  1.35       dsl 		if ((fp->f_di.di_mode & IFMT) != IFDIR) {
    646   1.1    brezak 			rc = ENOTDIR;
    647   1.1    brezak 			goto out;
    648   1.1    brezak 		}
    649   1.1    brezak 
    650   1.1    brezak 		/*
    651   1.1    brezak 		 * Get next component of path name.
    652   1.1    brezak 		 */
    653  1.38       dsl 		ncp = cp;
    654  1.38       dsl 		while ((c = *cp) != '\0' && c != '/')
    655  1.38       dsl 			cp++;
    656   1.1    brezak 
    657   1.1    brezak 		/*
    658   1.1    brezak 		 * Look up component in current directory.
    659   1.1    brezak 		 * Save directory inumber in case we find a
    660   1.1    brezak 		 * symbolic link.
    661   1.1    brezak 		 */
    662  1.23       cgd #ifndef LIBSA_NO_FS_SYMLINK
    663   1.1    brezak 		parent_inumber = inumber;
    664  1.23       cgd #endif
    665  1.38       dsl 		rc = search_directory(ncp, cp - ncp, f, &inumber);
    666   1.1    brezak 		if (rc)
    667   1.1    brezak 			goto out;
    668   1.1    brezak 
    669   1.1    brezak 		/*
    670   1.1    brezak 		 * Open next component.
    671   1.1    brezak 		 */
    672   1.1    brezak 		if ((rc = read_inode(inumber, f)) != 0)
    673   1.1    brezak 			goto out;
    674   1.1    brezak 
    675  1.23       cgd #ifndef LIBSA_NO_FS_SYMLINK
    676   1.1    brezak 		/*
    677   1.1    brezak 		 * Check for symbolic link.
    678   1.1    brezak 		 */
    679  1.35       dsl 		if ((fp->f_di.di_mode & IFMT) == IFLNK) {
    680  1.35       dsl 			int link_len = fp->f_di.di_size;
    681  1.10        ws 			int len;
    682  1.10        ws 
    683  1.10        ws 			len = strlen(cp);
    684   1.1    brezak 
    685  1.10        ws 			if (link_len + len > MAXPATHLEN ||
    686  1.10        ws 			    ++nlinks > MAXSYMLINKS) {
    687   1.1    brezak 				rc = ENOENT;
    688   1.1    brezak 				goto out;
    689   1.1    brezak 			}
    690   1.1    brezak 
    691  1.38       dsl 			memmove(&namebuf[link_len], cp, len + 1);
    692   1.1    brezak 
    693   1.9        pk 			if (link_len < fs->fs_maxsymlinklen) {
    694  1.38       dsl 				memcpy(namebuf, fp->f_di.di_db, link_len);
    695   1.1    brezak 			} else {
    696   1.1    brezak 				/*
    697   1.1    brezak 				 * Read file for symbolic link
    698   1.1    brezak 				 */
    699  1.13       cgd 				size_t buf_size;
    700  1.40       dsl 				indp_t	disk_block;
    701   1.9        pk 
    702  1.40       dsl 				buf = fp->f_buf;
    703  1.40       dsl 				rc = block_map(f, (indp_t)0, &disk_block);
    704   1.9        pk 				if (rc)
    705   1.9        pk 					goto out;
    706  1.22    simonb 
    707  1.11   mycroft 				twiddle();
    708  1.23       cgd 				rc = DEV_STRATEGY(f->f_dev)(f->f_devdata,
    709  1.35       dsl 					F_READ, FSBTODB(fs, disk_block),
    710   1.9        pk 					fs->fs_bsize, buf, &buf_size);
    711   1.1    brezak 				if (rc)
    712   1.1    brezak 					goto out;
    713   1.1    brezak 
    714  1.38       dsl 				memcpy(namebuf, buf, link_len);
    715   1.1    brezak 			}
    716   1.1    brezak 
    717   1.1    brezak 			/*
    718   1.1    brezak 			 * If relative pathname, restart at parent directory.
    719   1.1    brezak 			 * If absolute pathname, restart at root.
    720   1.1    brezak 			 */
    721   1.1    brezak 			cp = namebuf;
    722   1.1    brezak 			if (*cp != '/')
    723   1.1    brezak 				inumber = parent_inumber;
    724   1.1    brezak 			else
    725  1.59  dholland 				inumber = (ino32_t)UFS_ROOTINO;
    726   1.1    brezak 
    727   1.9        pk 			if ((rc = read_inode(inumber, f)) != 0)
    728   1.1    brezak 				goto out;
    729   1.1    brezak 		}
    730  1.23       cgd #endif	/* !LIBSA_NO_FS_SYMLINK */
    731   1.1    brezak 	}
    732   1.1    brezak 
    733   1.1    brezak 	/*
    734   1.1    brezak 	 * Found terminal component.
    735   1.1    brezak 	 */
    736   1.1    brezak 	rc = 0;
    737  1.23       cgd 
    738  1.23       cgd #else /* !LIBSA_FS_SINGLECOMPONENT */
    739  1.23       cgd 
    740  1.23       cgd 	/* look up component in the current (root) directory */
    741  1.38       dsl 	rc = search_directory(path, strlen(path), f, &inumber);
    742  1.23       cgd 	if (rc)
    743  1.23       cgd 		goto out;
    744  1.23       cgd 
    745  1.23       cgd 	/* open it */
    746  1.23       cgd 	rc = read_inode(inumber, f);
    747  1.23       cgd 
    748  1.23       cgd #endif /* !LIBSA_FS_SINGLECOMPONENT */
    749  1.26       cgd 
    750  1.51     isaki 	fp->f_seekp = 0;		/* reset seek pointer */
    751  1.23       cgd 
    752   1.1    brezak out:
    753  1.40       dsl 	if (rc)
    754  1.38       dsl 		ufs_close(f);
    755  1.58       dsl #ifdef FSMOD		/* Only defined for lfs */
    756  1.58       dsl 	else
    757  1.54        ad 		fsmod = FSMOD;
    758  1.54        ad #endif
    759  1.51     isaki 	return rc;
    760   1.1    brezak }
    761   1.1    brezak 
    762  1.55     joerg __compactcall int
    763  1.37       dsl ufs_close(struct open_file *f)
    764   1.1    brezak {
    765  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    766   1.1    brezak 
    767  1.38       dsl 	f->f_fsdata = NULL;
    768  1.38       dsl 	if (fp == NULL)
    769  1.51     isaki 		return 0;
    770   1.1    brezak 
    771   1.1    brezak 	if (fp->f_buf)
    772  1.48  christos 		dealloc(fp->f_buf, fp->f_fs->fs_bsize);
    773  1.48  christos 	dealloc(fp->f_fs, SBLOCKSIZE);
    774  1.48  christos 	dealloc(fp, sizeof(struct file));
    775  1.51     isaki 	return 0;
    776   1.1    brezak }
    777   1.1    brezak 
    778   1.1    brezak /*
    779   1.1    brezak  * Copy a portion of a file into kernel memory.
    780   1.1    brezak  * Cross block boundaries when necessary.
    781   1.1    brezak  */
    782  1.55     joerg __compactcall int
    783  1.37       dsl ufs_read(struct open_file *f, void *start, size_t size, size_t *resid)
    784   1.1    brezak {
    785  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    786  1.30  augustss 	size_t csize;
    787   1.1    brezak 	char *buf;
    788  1.13       cgd 	size_t buf_size;
    789   1.1    brezak 	int rc = 0;
    790  1.30  augustss 	char *addr = start;
    791   1.1    brezak 
    792   1.1    brezak 	while (size != 0) {
    793  1.42      fvdl 		if (fp->f_seekp >= (off_t)fp->f_di.di_size)
    794   1.1    brezak 			break;
    795   1.1    brezak 
    796   1.1    brezak 		rc = buf_read_file(f, &buf, &buf_size);
    797   1.1    brezak 		if (rc)
    798   1.1    brezak 			break;
    799   1.1    brezak 
    800   1.1    brezak 		csize = size;
    801   1.1    brezak 		if (csize > buf_size)
    802   1.1    brezak 			csize = buf_size;
    803   1.1    brezak 
    804  1.38       dsl 		memcpy(addr, buf, csize);
    805   1.1    brezak 
    806   1.1    brezak 		fp->f_seekp += csize;
    807  1.12        pk 		addr += csize;
    808   1.1    brezak 		size -= csize;
    809   1.1    brezak 	}
    810   1.1    brezak 	if (resid)
    811   1.1    brezak 		*resid = size;
    812  1.51     isaki 	return rc;
    813   1.1    brezak }
    814   1.1    brezak 
    815   1.1    brezak /*
    816   1.1    brezak  * Not implemented.
    817   1.1    brezak  */
    818  1.23       cgd #ifndef LIBSA_NO_FS_WRITE
    819  1.55     joerg __compactcall int
    820  1.37       dsl ufs_write(struct open_file *f, void *start, size_t size, size_t *resid)
    821   1.1    brezak {
    822   1.1    brezak 
    823  1.51     isaki 	return EROFS;
    824   1.1    brezak }
    825  1.23       cgd #endif /* !LIBSA_NO_FS_WRITE */
    826   1.1    brezak 
    827  1.23       cgd #ifndef LIBSA_NO_FS_SEEK
    828  1.55     joerg __compactcall off_t
    829  1.37       dsl ufs_seek(struct open_file *f, off_t offset, int where)
    830   1.1    brezak {
    831  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    832   1.1    brezak 
    833   1.1    brezak 	switch (where) {
    834   1.1    brezak 	case SEEK_SET:
    835   1.1    brezak 		fp->f_seekp = offset;
    836   1.1    brezak 		break;
    837   1.1    brezak 	case SEEK_CUR:
    838   1.1    brezak 		fp->f_seekp += offset;
    839   1.1    brezak 		break;
    840   1.1    brezak 	case SEEK_END:
    841  1.35       dsl 		fp->f_seekp = fp->f_di.di_size - offset;
    842   1.1    brezak 		break;
    843   1.1    brezak 	default:
    844  1.51     isaki 		return -1;
    845   1.1    brezak 	}
    846  1.51     isaki 	return fp->f_seekp;
    847   1.1    brezak }
    848  1.23       cgd #endif /* !LIBSA_NO_FS_SEEK */
    849   1.1    brezak 
    850  1.55     joerg __compactcall int
    851  1.37       dsl ufs_stat(struct open_file *f, struct stat *sb)
    852   1.1    brezak {
    853  1.30  augustss 	struct file *fp = (struct file *)f->f_fsdata;
    854   1.1    brezak 
    855   1.1    brezak 	/* only important stuff */
    856  1.40       dsl 	memset(sb, 0, sizeof *sb);
    857  1.35       dsl 	sb->st_mode = fp->f_di.di_mode;
    858  1.35       dsl 	sb->st_uid = fp->f_di.di_uid;
    859  1.35       dsl 	sb->st_gid = fp->f_di.di_gid;
    860  1.35       dsl 	sb->st_size = fp->f_di.di_size;
    861  1.51     isaki 	return 0;
    862   1.4        pk }
    863   1.4        pk 
    864  1.56   tsutsui #if defined(LIBSA_ENABLE_LS_OP)
    865  1.65  christos 
    866  1.65  christos #include "ls.h"
    867  1.65  christos 
    868  1.65  christos static const char    *const typestr[] = {
    869  1.65  christos 	"unknown",
    870  1.65  christos 	"FIFO",
    871  1.65  christos 	"CHR",
    872  1.65  christos 	0,
    873  1.65  christos 	"DIR",
    874  1.65  christos 	0,
    875  1.65  christos 	"BLK",
    876  1.65  christos 	0,
    877  1.65  christos 	"REG",
    878  1.65  christos 	0,
    879  1.65  christos 	"LNK",
    880  1.65  christos 	0,
    881  1.65  christos 	"SOCK",
    882  1.65  christos 	0,
    883  1.65  christos 	"WHT"
    884  1.65  christos };
    885  1.65  christos 
    886  1.56   tsutsui __compactcall void
    887  1.56   tsutsui ufs_ls(struct open_file *f, const char *pattern)
    888  1.56   tsutsui {
    889  1.56   tsutsui 	struct file *fp = (struct file *)f->f_fsdata;
    890  1.56   tsutsui 	char *buf;
    891  1.56   tsutsui 	size_t buf_size;
    892  1.65  christos 	lsentry_t *names = NULL;
    893  1.56   tsutsui 
    894  1.56   tsutsui 	fp->f_seekp = 0;
    895  1.56   tsutsui 	while (fp->f_seekp < (off_t)fp->f_di.di_size) {
    896  1.56   tsutsui 		struct direct  *dp, *edp;
    897  1.56   tsutsui 		int rc = buf_read_file(f, &buf, &buf_size);
    898  1.56   tsutsui 		if (rc)
    899  1.56   tsutsui 			goto out;
    900  1.56   tsutsui 		/* some firmware might use block size larger than DEV_BSIZE */
    901  1.60  dholland 		if (buf_size < UFS_DIRBLKSIZ)
    902  1.56   tsutsui 			goto out;
    903  1.56   tsutsui 
    904  1.56   tsutsui 		dp = (struct direct *)buf;
    905  1.56   tsutsui 		edp = (struct direct *)(buf + buf_size);
    906  1.56   tsutsui 
    907  1.56   tsutsui 		for (; dp < edp; dp = (void *)((char *)dp + dp->d_reclen)) {
    908  1.56   tsutsui 			const char *t;
    909  1.56   tsutsui 			if (dp->d_ino ==  0)
    910  1.56   tsutsui 				continue;
    911  1.56   tsutsui 
    912  1.56   tsutsui 			if (dp->d_type >= NELEM(typestr) ||
    913  1.56   tsutsui 			    !(t = typestr[dp->d_type])) {
    914  1.56   tsutsui 				/*
    915  1.56   tsutsui 				 * This does not handle "old"
    916  1.56   tsutsui 				 * filesystems properly. On little
    917  1.56   tsutsui 				 * endian machines, we get a bogus
    918  1.56   tsutsui 				 * type name if the namlen matches a
    919  1.56   tsutsui 				 * valid type identifier. We could
    920  1.56   tsutsui 				 * check if we read namlen "0" and
    921  1.56   tsutsui 				 * handle this case specially, if
    922  1.56   tsutsui 				 * there were a pressing need...
    923  1.56   tsutsui 				 */
    924  1.56   tsutsui 				printf("bad dir entry\n");
    925  1.56   tsutsui 				goto out;
    926  1.56   tsutsui 			}
    927  1.65  christos 			lsadd(&names, pattern, dp->d_name, strlen(dp->d_name),
    928  1.65  christos 			    dp->d_ino, t);
    929  1.56   tsutsui 		}
    930  1.56   tsutsui 		fp->f_seekp += buf_size;
    931  1.56   tsutsui 	}
    932  1.65  christos 	lsprint(names);
    933  1.65  christos out:	lsfree(names);
    934  1.56   tsutsui }
    935  1.56   tsutsui #endif /* LIBSA_ENABLE_LS_OP */
    936  1.56   tsutsui 
    937  1.35       dsl #ifdef LIBSA_FFSv1
    938   1.4        pk /*
    939   1.4        pk  * Sanity checks for old file systems.
    940   1.4        pk  *
    941   1.4        pk  * XXX - goes away some day.
    942  1.40       dsl  * Stripped of stuff libsa doesn't need.....
    943   1.4        pk  */
    944  1.13       cgd static void
    945  1.66  dholland ffs_oldfscompat(FS *fs)
    946   1.4        pk {
    947   1.4        pk 
    948  1.33      fvdl #ifdef COMPAT_UFS
    949  1.50    martin 	/*
    950  1.50    martin 	 * Newer Solaris versions have a slightly incompatible
    951  1.50    martin 	 * superblock - so always calculate this values on the fly, which
    952  1.50    martin 	 * is good enough for libsa purposes
    953  1.50    martin 	 */
    954  1.50    martin 	if (fs->fs_magic == FS_UFS1_MAGIC
    955  1.50    martin #ifndef COMPAT_SOLARIS_UFS
    956  1.50    martin 	    && fs->fs_old_inodefmt < FS_44INODEFMT
    957  1.50    martin #endif
    958  1.50    martin 	    ) {
    959  1.33      fvdl 		fs->fs_qbmask = ~fs->fs_bmask;
    960  1.33      fvdl 		fs->fs_qfmask = ~fs->fs_fmask;
    961  1.33      fvdl 	}
    962  1.33      fvdl #endif
    963   1.1    brezak }
    964  1.35       dsl #endif
    965