Home | History | Annotate | Line # | Download | only in adosfs 
      1 /*	$NetBSD: adutil.c,v 1.17 2014/08/05 08:50:54 hannken Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1994 Christian E. Hopps
      5  * Copyright (c) 1996 Matthias Scheler
      6  * All rights reserved.
      7  *
      8  * Redistribution and use in source and binary forms, with or without
      9  * modification, are permitted provided that the following conditions
     10  * are met:
     11  * 1. Redistributions of source code must retain the above copyright
     12  *    notice, this list of conditions and the following disclaimer.
     13  * 2. Redistributions in binary form must reproduce the above copyright
     14  *    notice, this list of conditions and the following disclaimer in the
     15  *    documentation and/or other materials provided with the distribution.
     16  * 3. All advertising materials mentioning features or use of this software
     17  *    must display the following acknowledgement:
     18  *      This product includes software developed by Christian E. Hopps.
     19  * 4. The name of the author may not be used to endorse or promote products
     20  *    derived from this software without specific prior written permission
     21  *
     22  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     23  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     24  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     25  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     26  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     27  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     28  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     29  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     30  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     31  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     32  */
     33 
     34 #include <sys/cdefs.h>
     35 __KERNEL_RCSID(0, "$NetBSD: adutil.c,v 1.17 2014/08/05 08:50:54 hannken Exp $");
     36 
     37 #include <sys/param.h>
     38 #include <sys/vnode.h>
     39 #include <sys/mount.h>
     40 #include <sys/proc.h>
     41 #include <sys/systm.h>
     42 #include <sys/time.h>
     43 #include <sys/queue.h>
     44 #include <sys/buf.h>
     45 #include <fs/adosfs/adosfs.h>
     46 
     47 /*
     48  * look for anode in the mount's hash table, return locked.
     49  */
     50 static int CapitalChar(int, int);
     51 
     52 int
     53 adosfs_getblktype(struct adosfsmount *amp, struct buf *bp)
     54 {
     55 	if (adoscksum(bp, amp->nwords)) {
     56 #ifdef DIAGNOSTIC
     57 		printf("adosfs: aget: cksum of blk %" PRId64 " failed\n",
     58 		    bp->b_blkno / (amp->bsize / DEV_BSIZE));
     59 #endif
     60 		return (-1);
     61 	}
     62 
     63 	/*
     64 	 * check primary block type
     65 	 */
     66 	if (adoswordn(bp, 0) != BPT_SHORT) {
     67 #ifdef DIAGNOSTIC
     68 		printf("adosfs: aget: bad primary type blk %" PRId64 " (type = %d)\n",
     69 		    bp->b_blkno / (amp->bsize / DEV_BSIZE), adoswordn(bp,0));
     70 #endif
     71 		return (-1);
     72 	}
     73 
     74 	/*
     75 	 * Check secondary block type.
     76 	 */
     77 	switch (adoswordn(bp, amp->nwords - 1)) {
     78 	case BST_RDIR:		/* root block */
     79 		return (AROOT);
     80 	case BST_LDIR:		/* hard link to dir */
     81 		return (ALDIR);
     82 	case BST_UDIR:		/* user dir */
     83 		return (ADIR);
     84 	case BST_LFILE:		/* hard link to file */
     85 		return (ALFILE);
     86 	case BST_FILE:		/* file header */
     87 		return (AFILE);
     88 	case BST_SLINK:		/* soft link */
     89 		return (ASLINK);
     90 	}
     91 
     92 #ifdef DIAGNOSTIC
     93 	printf("adosfs: aget: bad secondary type blk %" PRId64 " (type = %d)\n",
     94 	    bp->b_blkno / (amp->bsize / DEV_BSIZE), adoswordn(bp, amp->nwords - 1));
     95 #endif
     96 
     97 	return (-1);
     98 }
     99 
    100 int
    101 adunixprot(int adprot)
    102 {
    103 	if (adprot & 0xc000ee00) {
    104 		adprot = (adprot & 0xee0e) >> 1;
    105 		return (((adprot & 0x7) << 6) |
    106 			((adprot & 0x700) >> 5) |
    107 			((adprot & 0x7000) >> 12));
    108 	}
    109 	else {
    110 		adprot = (adprot >> 1) & 0x7;
    111 		return((adprot << 6) | (adprot << 3) | adprot);
    112 	}
    113 }
    114 
    115 static int
    116 CapitalChar(int ch, int inter)
    117 {
    118 	if ((ch >= 'a' && ch <= 'z') ||
    119 	    (inter && ch >= 0xe0 && ch <= 0xfe && ch != 0xf7))
    120 		return(ch - ('a' - 'A'));
    121 	return(ch);
    122 }
    123 
    124 u_int32_t
    125 adoscksum(struct buf *bp, int n)
    126 {
    127 	u_int32_t sum, *lp;
    128 
    129 	lp = (u_int32_t *)bp->b_data;
    130 	sum = 0;
    131 
    132 	while (n--)
    133 		sum += ntohl(*lp++);
    134 	return(sum);
    135 }
    136 
    137 int
    138 adoscaseequ(const u_char *name1, const u_char *name2, int len, int inter)
    139 {
    140 	while (len-- > 0)
    141 		if (CapitalChar(*name1++, inter) !=
    142 		    CapitalChar(*name2++, inter))
    143 			return 0;
    144 
    145 	return 1;
    146 }
    147 
    148 int
    149 adoshash(const u_char *nam, int namlen, int nelt, int inter)
    150 {
    151 	int val;
    152 
    153 	val = namlen;
    154 	while (namlen--)
    155 		val = ((val * 13) + CapitalChar(*nam++, inter)) & 0x7ff;
    156 	return(val % nelt);
    157 }
    158 
    159 #ifdef notyet
    160 /*
    161  * datestamp is local time, tv is to be UTC
    162  */
    163 int
    164 dstotv(struct datestamp *dsp, struct timeval *tvp)
    165 {
    166 }
    167 
    168 /*
    169  * tv is UTC, datestamp is to be local time
    170  */
    171 int
    172 tvtods(struct timeval *tvp, struct datestamp *dsp)
    173 {
    174 }
    175 #endif
    176 
    177 #if BYTE_ORDER != BIG_ENDIAN
    178 u_int32_t
    179 adoswordn(struct buf *bp, int wn)
    180 {
    181 	/*
    182 	 * ados stored in network (big endian) order
    183 	 */
    184 	return(ntohl(*((u_int32_t *)bp->b_data + wn)));
    185 }
    186 #endif
    187