NetBSD/sys/adosfs/adutil.c

237 lines
5.2 KiB
C
Raw Normal View History

1996-10-13 06:52:06 +04:00
/* $NetBSD: adutil.c,v 1.15 1996/10/13 02:52:07 christos Exp $ */
/*
* Copyright (c) 1994 Christian E. Hopps
* Copyright (c) 1996 Matthias Scheler
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Christian E. Hopps.
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <sys/param.h>
#include <sys/vnode.h>
#include <sys/mount.h>
#include <sys/proc.h>
1996-02-09 22:06:38 +03:00
#include <sys/systm.h>
#include <sys/malloc.h>
#include <sys/time.h>
#include <sys/queue.h>
#include <sys/buf.h>
#include <adosfs/adosfs.h>
/*
* look for anode in the mount's hash table, return locked.
*/
#define AHASH(an) ((an) & (ANODEHASHSZ - 1))
static int CapitalChar __P((int, int));
1994-06-18 00:06:05 +04:00
struct vnode *
adosfs_ahashget(mp, an)
struct mount *mp;
1994-06-18 00:06:05 +04:00
ino_t an;
{
struct anodechain *hp;
struct anode *ap;
hp = &VFSTOADOSFS(mp)->anodetab[AHASH(an)];
start_over:
for (ap = hp->lh_first; ap != NULL; ap = ap->link.le_next) {
if (ap->block != an)
continue;
if (ap->flags & ALOCKED) {
ap->flags |= AWANT;
1994-06-18 00:06:05 +04:00
tsleep(ap, PINOD, "ahashget", 0);
goto start_over;
}
if (vget(ATOV(ap), 1))
goto start_over;
1994-06-18 00:06:05 +04:00
return (ATOV(ap));
}
1994-06-18 00:06:05 +04:00
return (NULL);
}
1994-06-18 00:06:05 +04:00
/*
* insert in hash table and lock
*/
1994-06-18 00:06:05 +04:00
void
adosfs_ainshash(amp, ap)
1995-01-18 12:17:32 +03:00
struct adosfsmount *amp;
struct anode *ap;
1994-06-18 00:06:05 +04:00
{
LIST_INSERT_HEAD(&amp->anodetab[AHASH(ap->block)], ap, link);
ap->flags |= ALOCKED;
}
1994-06-18 00:06:05 +04:00
void
adosfs_aremhash(ap)
struct anode *ap;
{
LIST_REMOVE(ap, link);
}
1994-06-18 00:06:05 +04:00
int
adosfs_getblktype(amp, bp)
1995-01-18 12:17:32 +03:00
struct adosfsmount *amp;
1994-06-18 00:06:05 +04:00
struct buf *bp;
{
if (adoscksum(bp, amp->nwords)) {
#ifdef DIAGNOSTIC
1996-10-13 06:52:06 +04:00
printf("adosfs: aget: cksum of blk %ld failed\n",
1996-10-10 21:47:29 +04:00
bp->b_blkno / amp->secsperblk);
#endif
1994-06-18 00:06:05 +04:00
return (-1);
}
1994-06-18 00:06:05 +04:00
/*
1994-06-18 00:06:05 +04:00
* check primary block type
*/
if (adoswordn(bp, 0) != BPT_SHORT) {
#ifdef DIAGNOSTIC
1996-10-13 06:52:06 +04:00
printf("adosfs: aget: bad primary type blk %ld\n",
1996-10-10 21:47:29 +04:00
bp->b_blkno / amp->secsperblk);
#endif
1994-06-18 00:06:05 +04:00
return (-1);
}
1994-06-18 00:06:05 +04:00
switch (adoswordn(bp, amp->nwords - 1)) {
case BST_RDIR: /* root block */
1994-06-18 00:06:05 +04:00
return (AROOT);
case BST_LDIR: /* hard link to dir */
1994-06-18 00:06:05 +04:00
return (ALDIR);
case BST_UDIR: /* user dir */
1994-06-18 00:06:05 +04:00
return (ADIR);
case BST_LFILE: /* hard link to file */
1994-06-18 00:06:05 +04:00
return (ALFILE);
case BST_FILE: /* file header */
1994-06-18 00:06:05 +04:00
return (AFILE);
case BST_SLINK: /* soft link */
return (ASLINK);
}
1994-06-18 00:06:05 +04:00
return (-1);
}
int
adunixprot(adprot)
int adprot;
{
if (adprot & 0xc000ee00) {
adprot = (adprot & 0xee0e) >> 1;
return (((adprot & 0x7) << 6) |
((adprot & 0x700) >> 5) |
((adprot & 0x7000) >> 12));
}
else {
adprot = (adprot >> 1) & 0x7;
return((adprot << 6) | (adprot << 3) | adprot);
}
}
1996-02-09 22:06:38 +03:00
static int
CapitalChar(ch, inter)
int ch, inter;
{
if ((ch >= 'a' && ch <= 'z') ||
(inter && ch >= 0xe0 && ch <= 0xfe && ch != 0xf7))
return(ch - ('a' - 'A'));
return(ch);
}
u_int32_t
adoscksum(bp, n)
struct buf *bp;
int n;
{
u_int32_t sum, *lp;
lp = (u_int32_t *)bp->b_data;
sum = 0;
while (n--)
sum += ntohl(*lp++);
return(sum);
}
int
adoscaseequ(name1, name2, len, inter)
const u_char *name1, *name2;
int len, inter;
{
while (len-- > 0)
if (CapitalChar(*name1++, inter) !=
CapitalChar(*name2++, inter))
return 0;
return 1;
}
int
adoshash(nam, namlen, nelt, inter)
const u_char *nam;
int namlen, nelt, inter;
{
int val;
val = namlen;
while (namlen--)
val = ((val * 13) + CapitalChar(*nam++, inter)) & 0x7ff;
return(val % nelt);
}
1996-02-09 22:06:38 +03:00
#ifdef notyet
/*
* datestamp is local time, tv is to be UTC
*/
int
dstotv(dsp, tvp)
struct datestamp *dsp;
struct timeval *tvp;
{
}
/*
* tv is UTC, datestamp is to be local time
*/
int
tvtods(tvp, dsp)
struct timeval *tvp;
struct datestamp *dsp;
{
}
1996-02-09 22:06:38 +03:00
#endif
#ifndef m68k
u_int32_t
adoswordn(bp, wn)
struct buf *bp;
int wn;
{
/*
* ados stored in network (big endian) order
*/
return(ntohl(*((u_int32_t *)bp->b_data + wn)));
}
#endif