/*      $NetBSD: adutil.c,v 1.17 2014/08/05 08:50:54 hannken 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/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: adutil.c,v 1.17 2014/08/05 08:50:54 hannken Exp $");

#include <sys/param.h>
#include <sys/vnode.h>
#include <sys/mount.h>
#include <sys/proc.h>
#include <sys/systm.h>
#include <sys/time.h>
#include <sys/queue.h>
#include <sys/buf.h>
#include <fs/adosfs/adosfs.h>

/*
 * look for anode in the mount's hash table, return locked.
 */
static int CapitalChar(int, int);

int
adosfs_getblktype(struct adosfsmount *amp, struct buf *bp)
{
        if (adoscksum(bp, amp->nwords)) {
#ifdef DIAGNOSTIC
                printf("adosfs: aget: cksum of blk %" PRId64 " failed\n",
                    bp->b_blkno / (amp->bsize / DEV_BSIZE));
#endif
                return (-1);
        }

        /*
         * check primary block type
         */
        if (adoswordn(bp, 0) != BPT_SHORT) {
#ifdef DIAGNOSTIC
                printf("adosfs: aget: bad primary type blk %" PRId64 " (type = %d)\n",
                    bp->b_blkno / (amp->bsize / DEV_BSIZE), adoswordn(bp,0));
#endif
                return (-1);
        }

        /*
         * Check secondary block type.
         */
        switch (adoswordn(bp, amp->nwords - 1)) {
        case BST_RDIR:          /* root block */
                return (AROOT);
        case BST_LDIR:          /* hard link to dir */
                return (ALDIR);
        case BST_UDIR:          /* user dir */
                return (ADIR);
        case BST_LFILE:         /* hard link to file */
                return (ALFILE);
        case BST_FILE:          /* file header */
                return (AFILE);
        case BST_SLINK:         /* soft link */
                return (ASLINK);
        }

#ifdef DIAGNOSTIC
        printf("adosfs: aget: bad secondary type blk %" PRId64 " (type = %d)\n",
            bp->b_blkno / (amp->bsize / DEV_BSIZE), adoswordn(bp, amp->nwords - 1));
#endif

        return (-1);
}

int
adunixprot(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);
        }
}

static int
CapitalChar(int ch, int inter)
{
        if ((ch >= 'a' && ch <= 'z') ||
            (inter && ch >= 0xe0 && ch <= 0xfe && ch != 0xf7))
                return(ch - ('a' - 'A'));
        return(ch);
}

u_int32_t
adoscksum(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(const u_char *name1, const u_char *name2, int len, int inter)
{
        while (len-- > 0)
                if (CapitalChar(*name1++, inter) !=
                    CapitalChar(*name2++, inter))
                        return 0;

        return 1;
}

int
adoshash(const u_char *nam, int namlen, int nelt, int inter)
{
        int val;

        val = namlen;
        while (namlen--)
                val = ((val * 13) + CapitalChar(*nam++, inter)) & 0x7ff;
        return(val % nelt);
}

#ifdef notyet
/*
 * datestamp is local time, tv is to be UTC
 */
int
dstotv(struct datestamp *dsp, struct timeval *tvp)
{
}

/*
 * tv is UTC, datestamp is to be local time
 */
int
tvtods(struct timeval *tvp, struct datestamp *dsp)
{
}
#endif

#if BYTE_ORDER != BIG_ENDIAN
u_int32_t
adoswordn(struct buf *bp, int wn)
{
        /*
         * ados stored in network (big endian) order
         */
        return(ntohl(*((u_int32_t *)bp->b_data + wn)));
}
#endif