/*
 * Copyright 2000, International Business Machines Corporation and others.
 * All Rights Reserved.
 * 
 * This software has been released under the terms of the IBM Public
 * License.  For details, see the LICENSE file in the top-level source
 * directory or online at http://www.openafs.org/dl/license10.html
 */

#include <afs/param.h>
#ifdef KERNEL
#if !defined(UKERNEL)
#include "../h/types.h"
#include "../h/param.h"
#ifdef	AFS_AUX_ENV
#include "../h/mmu.h"
#include "../h/seg.h"
#include "../h/sysmacros.h"
#include "../h/signal.h"
#include "../h/errno.h"
#endif
#include "../h/time.h"
#if defined(AFS_AIX_ENV) || defined(AFS_SGI_ENV) || defined(AFS_SUN5_ENV) || defined(AFS_LINUX20_ENV)
#include "../h/errno.h"
#else
#if !defined(AFS_SUN5_ENV) && !defined(AFS_LINUX20_ENV)
#include "../h/kernel.h"
#endif
#endif
#if	defined(AFS_SUN56_ENV) || defined(AFS_HPUX_ENV)
#include "../afs/sysincludes.h"
#endif
#ifndef AFS_SGI64_ENV
#include "../h/user.h"
#endif /* AFS_SGI64_ENV */
#include "../h/uio.h"
#ifdef	AFS_DEC_ENV
#include "../afs/gfs_vfs.h"
#include "../afs/gfs_vnode.h"
#else
#ifdef	AFS_MACH_ENV
#ifdef  NeXT
#include <sys/vfs.h>
#include <sys/vnode.h>
#include <ufs/inode.h>
#else
#include <vfs/vfs.h>
#include <vfs/vnode.h>
#include <sys/inode.h>
#endif /* NeXT */
#else /* AFS_MACH_ENV */
#ifdef	AFS_OSF_ENV
#include <sys/mount.h>
#include <sys/vnode.h>
#include <ufs/inode.h>
#else	/* AFS_OSF_ENV */
#ifdef	AFS_SUN5_ENV
#else
#if !defined(AFS_SGI_ENV)
#endif
#endif	/* AFS_OSF_ENV */
#endif /* AFS_MACH_ENV */
#endif
#endif
#ifndef AFS_LINUX20_ENV
#include "../netinet/in.h"
#endif
#if !defined(AFS_SUN5_ENV) && !defined(AFS_LINUX20_ENV)
#include "../h/mbuf.h"
#endif
#else /* !defined(UKERNEL) */
#include "../afs/sysincludes.h"
#endif /* !defined(UKERNEL) */
#include "../afs/afs_osi.h"

#include "../afs/dir.h"

#include "../afs/longc_procs.h"
#ifdef AFS_LINUX20_ENV
#include "../h/string.h"
#endif

/* generic renaming */
#define	NameBlobs	afs_dir_NameBlobs
#define	GetBlob		afs_dir_GetBlob
#define	Create		afs_dir_Create
#define	Length		afs_dir_Length
#define	Delete		afs_dir_Delete
#define	MakeDir		afs_dir_MakeDir
#define	Lookup		afs_dir_Lookup
#define	LookupOffset	afs_dir_LookupOffset
#define	EnumerateDir	afs_dir_EnumerateDir
#define	IsEmpty		afs_dir_IsEmpty
#else /* KERNEL */

# include <sys/types.h>	
# include <errno.h>
# include "dir.h"
#ifdef AFS_NT40_ENV
#include <winsock2.h>
#else
#include <netinet/in.h>
#endif
#endif /* KERNEL */

afs_int32 DErrno;
char *DRelease();
static struct DirEntry *FindItem();
struct DirEntry *GetBlob();
struct DirEntry *DRead();
struct DirEntry *DNew();

void AddPage();
void FreeBlobs();

int NameBlobs (name)
char * name; {/* Find out how many entries are required to store a name. */
    register int i;
    i = strlen(name)+1;
    return 1+((i+15)>>5);
}

int Create (dir, entry, vfid)
char *dir;
char *entry;
afs_int32 *vfid; {
    /* Create an entry in a file.  Dir is a file representation, while entry is a string name. */
    int blobs, firstelt;
    register int i;
    register struct DirEntry *ep;
    unsigned short *pp;
    register struct DirHeader *dhp;

    /* check name quality */
    if (*entry == 0) return EINVAL;
    /* First check if file already exists. */
    ep = FindItem(dir,entry,&pp);
    if (ep) {
        DRelease(ep, 0);
        DRelease(pp, 0);
        return EEXIST;
    }
    blobs = NameBlobs(entry);	/* number of entries required */
    firstelt = FindBlobs(dir,blobs);
    if (firstelt < 0) return EFBIG;	/* directory is full */
    /* First, we fill in the directory entry. */
    ep = GetBlob(dir,firstelt);
    if (ep == 0) return EIO;
    ep->flag = FFIRST;
    ep->fid.vnode = htonl(vfid[1]);
    ep->fid.vunique = htonl(vfid[2]);
    strcpy(ep->name,entry);
    /* Now we just have to thread it on the hash table list. */
    dhp = (struct DirHeader *) DRead(dir,0);
    if (!dhp) {
	DRelease(ep, 1);
	return EIO;
    }
    i = DirHash(entry);
    ep->next = dhp->hashTable[i];
    dhp->hashTable[i] = htons(firstelt);
    DRelease(dhp,1);
    DRelease(ep,1);
    return 0;
}

int Length (dir)
char *dir; {
    int i,ctr;
    struct DirHeader *dhp;
    dhp = (struct DirHeader *) DRead(dir,0);
    if (!dhp) return 0;
    if (dhp->header.pgcount != 0) ctr = ntohs(dhp->header.pgcount);
    else {
	/* old style, count the pages */
	ctr=0;
	for(i=0;i<MAXPAGES;i++)
	    if (dhp->alloMap[i] != EPP) ctr++;
    }
    DRelease(dhp,0);
    return ctr*AFS_PAGESIZE;
}

Delete (dir, entry)
char *dir;
char *entry; {
    /* Delete an entry from a directory, including update of all free entry descriptors. */
    int nitems, index;
    register struct DirEntry *firstitem;
    unsigned short *previtem;
    firstitem = FindItem(dir,entry,&previtem);
    if (firstitem == 0) return ENOENT;
    *previtem = firstitem->next;
    DRelease(previtem,1);
    index = DVOffset(firstitem)/32;
    nitems = NameBlobs(firstitem->name);
    DRelease(firstitem,0);
    FreeBlobs(dir,index,nitems);
    return 0;
}

FindBlobs (dir,nblobs)
char *dir;
int nblobs; {
    /* Find a bunch of contiguous entries; at least nblobs in a row. */
    register int i, j, k;
    int failed;
    register struct DirHeader *dhp;
    struct PageHeader *pp;
    int pgcount;

    dhp = (struct DirHeader *) DRead(dir,0);	/* read the dir header in first. */
    if (!dhp) return -1;
    for(i=0;i<BIGMAXPAGES;i++) {
        if (i >= MAXPAGES || dhp->alloMap[i] >= nblobs) {
	    /* if page could contain enough entries */
            /* If there are EPP free entries, then the page is not even allocated. */
	    if (i >= MAXPAGES) {
		/* this pages exists past the end of the old-style dir */
		pgcount = ntohs(dhp->header.pgcount);
		if (pgcount == 0) {
		    pgcount = MAXPAGES;
		    dhp->header.pgcount = htons(pgcount);
		}
		if (i > pgcount - 1) {
		    /* this page is bigger than last allocated page */
		    AddPage(dir, i);
		    dhp->header.pgcount = htons(i+1);
		}
	    }
            else if (dhp->alloMap[i] == EPP) {
                /* Add the page to the directory. */
                AddPage(dir,i);
                dhp->alloMap[i] = EPP-1;
		dhp->header.pgcount = htons(i+1);
	    }
            pp = (struct PageHeader *) DRead(dir,i);  /* read the page in. */
            if (!pp) {
		DRelease(dhp, 1);
		break;
	    }
            for(j=0;j<=EPP-nblobs;j++) {
                failed = 0;
                for(k=0;k<nblobs;k++)
                    if ((pp->freebitmap[(j+k)>>3]>>((j+k)&7)) & 1) {
                        failed = 1;
                        break;
		    }
                if (!failed) break;
                failed = 1;
	    }
            if (!failed) {
                /* Here we have the first index in j.  We update the allocation maps
		  and free up any resources we've got allocated. */
                if (i < MAXPAGES) dhp->alloMap[i] -= nblobs;
                DRelease(dhp,1);
                for (k=0;k<nblobs;k++)
                    pp->freebitmap[(j+k)>>3] |= 1<<((j+k)&7);
                DRelease(pp,1);
                return j+i*EPP;
	    }
            DRelease(pp, 0);	/* This dir page is unchanged. */
	}
    }
    /* If we make it here, the directory is full. */
    DRelease(dhp, 1);
    return -1;
}

void AddPage (dir,pageno)
char *dir;
int pageno; {/* Add a page to a directory. */
    register int i;
    register struct PageHeader *pp;

    pp = (struct PageHeader *) DNew(dir,pageno);	/* Get a new buffer labelled dir,pageno */
    pp->tag = htons(1234);
    if (pageno > 0) pp->pgcount = 0;
    pp->freecount = EPP-1;	/* The first dude is already allocated */
    pp->freebitmap[0] = 0x01;
    for (i=1;i<EPP/8;i++)	/* It's a constant */
        pp->freebitmap[i] = 0;
    DRelease(pp,1);
}

void FreeBlobs(dir,firstblob,nblobs)
char *dir;
register int firstblob;
int nblobs; {
    /* Free a whole bunch of directory entries. */
    register int i;
    int page;
    struct DirHeader *dhp;
    struct PageHeader *pp;
    page = firstblob/EPP;
    firstblob -= EPP*page;	/* convert to page-relative entry */
    dhp = (struct DirHeader *) DRead(dir,0);
    if (!dhp) return;
    if (page < MAXPAGES) dhp->alloMap[page] += nblobs;
    DRelease(dhp,1);
    pp = (struct PageHeader *) DRead(dir,page);
    if (pp) for (i=0;i<nblobs;i++)
        pp->freebitmap[(firstblob+i)>>3] &= ~(1<<((firstblob+i)&7));
    DRelease(pp,1);
    }

MakeDir (dir,me,parent)
char *dir;
afs_int32 *me;
afs_int32 *parent; {
    /* Format an empty directory properly.  Note that the first 13 entries in a directory header
      page are allocated, 1 to the page header, 4 to the allocation map and 8 to the hash table. */
    register int i;
    register struct DirHeader *dhp;
    dhp = (struct DirHeader *) DNew(dir,0);
    dhp->header.pgcount = htons(1);
    dhp->header.tag = htons(1234);
    dhp->header.freecount = (EPP-DHE-1);
    dhp->header.freebitmap[0] = 0xff;
    dhp->header.freebitmap[1] = 0x1f;
    for(i=2;i<EPP/8;i++) dhp->header.freebitmap[i] = 0;
    dhp->alloMap[0]=(EPP-DHE-1);
    for(i=1;i<MAXPAGES;i++)dhp->alloMap[i] = EPP;
    for(i=0;i<NHASHENT;i++)dhp->hashTable[i] = 0;
    DRelease(dhp,1);
    Create(dir,".",me);
    Create(dir,"..",parent);	/* Virtue is its own .. */
    return 0;
    }

Lookup (dir, entry, fid)
    char *dir;
    char *entry;
    register afs_int32 *fid; {
    /* Look up a file name in directory. */
    register struct DirEntry *firstitem;
    unsigned short *previtem;

    firstitem = FindItem(dir,entry,&previtem);
    if (firstitem == 0) return ENOENT;
    DRelease(previtem,0);
    fid[1] = ntohl(firstitem->fid.vnode);
    fid[2] = ntohl(firstitem->fid.vunique);
    DRelease(firstitem,0);
    return 0;
}

LookupOffset (dir, entry, fid, offsetp)
  char *dir;
  char *entry;
  long *offsetp;
  register afs_int32 *fid; {
      /* Look up a file name in directory. */
      register struct DirEntry *firstitem;
      unsigned short *previtem;

      firstitem = FindItem(dir,entry,&previtem);
      if (firstitem == 0) return ENOENT;
      DRelease(previtem,0);
      fid[1] = ntohl(firstitem->fid.vnode);
      fid[2] = ntohl(firstitem->fid.vunique);
      if (offsetp)
	  *offsetp = DVOffset(firstitem);
      DRelease(firstitem,0);
      return 0;
}

EnumerateDir (dir,hookproc,hook)
    char *dir;
    void *hook;
    int (*hookproc)(); {
    /* Enumerate the contents of a directory. */
    register int i;
    int num;
    register struct DirHeader *dhp;
    register struct DirEntry *ep;

    dhp = (struct DirHeader *) DRead(dir,0);
    if (!dhp) return EIO;	/* first page should be there */
    for(i=0; i<NHASHENT; i++) {
        /* For each hash chain, enumerate everyone on the list. */
        num = ntohs(dhp->hashTable[i]);
        while (num != 0) {
            /* Walk down the hash table list. */
	    DErrno = 0;
            ep = GetBlob(dir,num);
            if (!ep) {
		if (DErrno) {
		    /* we failed, return why */
		    DRelease(dhp, 0);
		    return DErrno;
		}
		break;
	    }
            num = ntohs(ep->next);
            (*hookproc) (hook, ep->name, ntohl(ep->fid.vnode), ntohl(ep->fid.vunique));
            DRelease(ep,0);
	}
    }
    DRelease(dhp,0);
    return 0;
}

IsEmpty (dir)
char *dir; {
    /* Enumerate the contents of a directory. */
    register int i;
    int num;
    register struct DirHeader *dhp;
    register struct DirEntry *ep;
    dhp = (struct DirHeader *) DRead(dir,0);
    if (!dhp) return 0;
    for(i=0;i<NHASHENT;i++) {
        /* For each hash chain, enumerate everyone on the list. */
        num = ntohs(dhp->hashTable[i]);
        while (num != 0) {
            /* Walk down the hash table list. */
            ep = GetBlob(dir,num);
            if (!ep) break;
            if (strcmp(ep->name,"..") && strcmp(ep->name,".")) {
		DRelease(ep, 0);
		DRelease(dhp, 0);
                return 1;
	    }
            num = ntohs(ep->next);
            DRelease(ep,0);
	}
    }
    DRelease(dhp,0);
    return 0;
}

struct DirEntry *GetBlob (dir, blobno)
    char *dir;
    afs_int32 blobno; {
    /* Return a pointer to an entry, given its number. */
    struct DirEntry *ep;
    ep=DRead(dir,blobno>>LEPP);
    if (!ep) return 0;
    return (struct DirEntry *) (((long)ep)+32*(blobno&(EPP-1)));
}

DirHash (string)
    register char *string; {
    /* Hash a string to a number between 0 and NHASHENT. */
    register unsigned char tc;
    register int hval;
    register int tval;
    hval = 0;
    while(tc=(*string++)) {
        hval *= 173;
        hval  += tc;
    }
    tval = hval & (NHASHENT-1);
    if (tval == 0) return tval;
    else if (hval < 0) tval = NHASHENT-tval;
    return tval;
}

static struct DirEntry *FindItem (dir,ename,previtem)
char *dir;
char *ename;
unsigned short **previtem; {
    /* Find a directory entry, given its name.  This entry returns a pointer to a locked buffer, and a pointer to a locked buffer (in previtem) referencing the found item (to aid the delete code).  If no entry is found, however, no items are left locked, and a null pointer is returned instead. */
    register int i;
    register struct DirHeader *dhp;
    register unsigned short *lp;
    register struct DirEntry *tp;
    i = DirHash(ename);
    dhp = (struct DirHeader *) DRead(dir,0);
    if (!dhp) return 0;
    if (dhp->hashTable[i] == 0) {
        /* no such entry */
        DRelease(dhp,0);
        return 0;
    }
    tp = GetBlob(dir,(u_short)ntohs(dhp->hashTable[i]));
    if (!tp) {
	DRelease(dhp, 0);
	return 0;
    }
    lp = &(dhp->hashTable[i]);
    while(1) {
        /* Look at each hash conflict entry. */
        if (!strcmp(ename,tp->name)) {
            /* Found our entry. */
            *previtem = lp;
            return tp;
	}
        DRelease(lp,0);
        lp = &(tp->next);
        if (tp->next == 0) {
            /* The end of the line */
            DRelease(lp,0);	/* Release all locks. */
            return 0;
	}
        tp = GetBlob(dir,(u_short)ntohs(tp->next));
        if (!tp) {
	    DRelease(lp, 0);
	    return 0;
	}
    }
}
