#include <sys/local.h>

#ifdef  SCCS_ID
static char SCCS_ID [] = "@(#)SYS.c    	1.8	 01:30:48 - 82/01/15 ";
#endif  SCCS_ID

#include <sys/param.h>
#include <sys/ino.h>
#include <sys/inode.h>
#include <sys/filsys.h>
#include <sys/dir.h>
#include "../saio.h"

char    b[NBUFS][BSIZE];
daddr_t blknos[NBUFS];
struct  iob iob[NFILES];
int     segflag = 0;


static
openi(n,io)
ino_t n;
register struct iob *io;
{
	register struct dinode *dp;

	io->i_offset = 0;
#ifdef UCB_NKB
	io->i_bn = fsbtodb(itod(n)) + io->i_boff;
	io->i_cc = BSIZE;
#else  UCB_NKB
	io->i_bn = (daddr_t)((n+15)/INOPB) + io->i_boff;
	io->i_cc = 512;
#endif UCB_NKB
	io->i_ma = io->i_buf;
	devread(io);

	dp = (struct dinode *) io->i_buf;
#ifdef UCB_NKB
	dp = &dp[itoo(n)];
#else  UCB_NKB
	dp = &dp[(n-1)%INOPB];
#endif UCB_NKB
	io->i_ino.i_number = n;
	io->i_ino.i_mode = dp->di_mode;
	io->i_ino.i_size = dp->di_size;
	l3tol((char *)io->i_ino.i_un.i_addr,(char *)dp->di_addr,NADDR);
	return;
}


static
find(path, file)
register char *path;
struct iob *file;
{
	register char *q;
	char c;
	int n;

	if (path==NULL || *path=='\0') {
		printf("null path\n");
		return(0);
	}

	openi((ino_t) 2, file);
	while (*path) {
		while (*path == '/')
			path++;
		q = path;
		while(*q != '/' && *q != '\0')
			q++;
		c = *q;
		*q = '\0';

		if ((n=dlook(path, file))!=0) {
			if (c=='\0')
				break;
			openi(n, file);
			*q = c;
			path = q;
			continue;
		} else {
			printf("%s not found\n",path);
			return(0);
		}
	}
	return(n);
}


static daddr_t
sbmap(io, bn)
register struct iob *io;
daddr_t bn;
{
	register i;
	register struct inode *ip;
	int j, sh;
	daddr_t nb, *bap;

	ip = &io->i_ino;
	if(bn < 0) {
		printf("bn negative\n");
		return((daddr_t)0);
	}

	/*
	 * blocks 0..NADDR-4 are direct blocks
	 */
	if(bn < NADDR-3) {
		i = bn;
		nb = ip->i_un.i_addr[i];
		return(nb);
	}

	/*
	 * addresses NADDR-3, NADDR-2, and NADDR-1
	 * have single, double, triple indirect blocks.
	 * the first step is to determine
	 * how many levels of indirection.
	 */
	sh = 0;
	nb = 1;
	bn -= NADDR-3;
	for(j=3; j>0; j--) {
		sh += NSHIFT;
		nb <<= NSHIFT;
		if(bn < nb)
			break;
		bn -= nb;
	}
	if(j == 0) {
		printf("bn ovf %D\n",bn);
		return((daddr_t)0);
	}

	/*
	 * fetch the address from the inode
	 */
	nb = ip->i_un.i_addr[NADDR-j];
	if(nb == 0) {
		printf("bn void %D\n",bn);
		return((daddr_t)0);
	}

	/*
	 * fetch through the indirect blocks
	 */
	for(; j<=3; j++) {
		if (blknos[j] != nb) {
#ifdef UCB_NKB
			io->i_bn = fsbtodb(nb) + io->i_boff;
			io->i_ma = b[j];
			io->i_cc = BSIZE;
#else  UCB_NKB
			io->i_bn = nb + io->i_boff;
			io->i_ma = b[j];
			io->i_cc = 512;
#endif UCB_NKB
			devread(io);
			blknos[j] = nb;
		}
		bap = (daddr_t *) b[j];
		sh -= NSHIFT;
		i = (bn>>sh) & NMASK;
		nb = bap[i];
		if(nb == 0) {
			printf("bn void %D\n",bn);
			return((daddr_t)0);
		}
	}

	return(nb);
}

/*static ino_t*/
dlook(s, io)
char *s;
register struct iob *io;
{
	register struct direct *dp;
	register struct inode *ip;
	daddr_t bn;
	int n,dc;

	if (s==NULL || *s=='\0')
		return(0);
	ip = &io->i_ino;
	if ((ip->i_mode&IFMT)!=IFDIR) {
		printf("not a directory\n");
    /*  printf("mode %o, loc %o\n",ip->i_mode,ip);  /**/
		return(0);
	}

	n = ip->i_size/sizeof(struct direct);

	if (n==0) {
		printf("zero length directory\n");
		return(0);
	}

#ifdef UCB_NKB
	dc = BSIZE;
	bn = (daddr_t)0;
	while(n--) {
		if (++dc >= BSIZE/sizeof(struct direct)) {
			io->i_bn = fsbtodb(sbmap(io, bn++)) + io->i_boff;
			io->i_ma = io->i_buf;
			io->i_cc = BSIZE;
#else  UCB_NKB
	dc = 512;
	bn = (daddr_t)0;
	while(n--) {
		if (++dc >= 512/sizeof(struct direct)) {
			io->i_bn = sbmap(io, bn++) + io->i_boff;
			io->i_ma = io->i_buf;
			io->i_cc = 512;
#endif  UCB_NKB
			devread(io);
			dp = (struct direct *) io->i_buf;
			dc = 0;
		}

		if (match(s, dp->d_name))
			return(dp->d_ino);
		dp++;
	}
	return(0);
}

static
match(s1,s2)
register char *s1,*s2;
{
	register cc;

	cc = DIRSIZ;
	while (cc--) {
		if (*s1 != *s2)
			return(0);
		if (*s1++ && *s2++)
			continue; else
			return(1);
	}
	return(1);
}

lseek(fdesc, addr, ptr)
int     fdesc;
off_t   addr;
int     ptr;
{
	register struct iob *io;

	if (ptr != 0) {
		printf("Seek not from beginning of file\n");
		return(-1);
	}
	fdesc -= 3;
	if (fdesc < 0 || fdesc >= NFILES || ((io = &iob[fdesc])->i_flgs&F_ALLOC) == 0)
		return(-1);
	io->i_offset = addr;
#ifdef UCB_NKB
	io->i_bn = fsbtodb(addr/BSIZE) + io->i_boff;
#else  UCB_NKB
	io->i_bn = addr/512 + io->i_boff;
#endif UCB_NKB
	io->i_cc = 0;
	return(0);
}

/* if tape mark encountered, set flag  (in driver) */
/* not used yet by mt driver. */
int tapemark;

getc(fdesc)
int     fdesc;
{
	register struct iob *io;
	register char *p;
	register  c;
	int off;

	if (fdesc >= 0 && fdesc <= 2)
		return(getchar());
	fdesc -= 3;
	if (fdesc < 0 || fdesc >= NFILES || ((io = &iob[fdesc])->i_flgs&F_ALLOC) == 0)
		return(-1);
	p = io->i_ma;
	if (io->i_cc <= 0) {
#ifdef UCB_NKB
		io->i_bn = fsbtodb(io->i_offset/(off_t)BSIZE);
		if (io->i_flgs&F_FILE)
			io->i_bn = fsbtodb(sbmap(io, dbtofsb(io->i_bn))) + io->i_boff;
		else
			io->i_bn += io->i_boff;
		io->i_ma = io->i_buf;
		io->i_cc = BSIZE;
		/* printf("getc: fetch block %D, dev = %d\n", io->i_bn,
				io->i_ino.i_dev); */
		tapemark = 0;
		devread(io);
		off = io->i_offset % (off_t)BSIZE;
		if (io->i_flgs&F_FILE) {
			if (io->i_offset+(BSIZE-off) >= io->i_ino.i_size)
#else  UCB_NKB
		io->i_bn = io->i_offset/(off_t)512;
		if (io->i_flgs&F_FILE)
			io->i_bn = sbmap(io, io->i_bn) + io->i_boff;
		else
			io->i_bn += io->i_boff;
		io->i_ma = io->i_buf;
		io->i_cc = 512;
		tapemark=0;
		devread(io);
		off = io->i_offset % (off_t)512;
		if (io->i_flgs&F_FILE) {
			if (io->i_offset+(512-off) >= io->i_ino.i_size)
#endif UCB_NKB
				io->i_cc = io->i_ino.i_size - io->i_offset + off;
		} else if ((io->i_flgs&F_BLK) == 0) {
			off = 0;
			if(tapemark)
				return(-1);
		}
		io->i_cc -= off;
		if (io->i_cc <= 0)
			return(-1);
		p = &io->i_buf[off];
	}
	io->i_cc--;
	io->i_offset++;
	c = (unsigned)*p++;
	io->i_ma = p;
	return(c);
}
getw(fdesc)
int     fdesc;
{
	register w,i;
	register char *cp;
	int val;

	for (i = 0, val = 0, cp = (char *) &val; i < sizeof(val); i++) {
		w = getc(fdesc);
		if (w < 0) {
			if (i == 0)
				return(-1);
			else
				return(val);
		}
		*cp++ = w;
	}
	return(val);
}

read(fdesc, buf, count)
int     fdesc;
char    *buf;
int     count;
{
	register i;
	register struct iob *file;

	if (fdesc >= 0 & fdesc <= 2) {
		i = count;
		do {
			*buf = getchar();
		} while (--i && *buf++ != '\n');
		return(count - i);
	}
	fdesc -= 3;
	if (fdesc < 0 || fdesc >= NFILES || ((file = &iob[fdesc])->i_flgs&F_ALLOC) == 0)
		return(-1);
	if ((file->i_flgs&F_READ) == 0)
		return(-1);
	if ((file->i_flgs&(F_FILE|F_BLK)) == 0) {
		file->i_cc = count;
		file->i_ma = buf;
		i = devread(file);
#ifdef UCB_NKB
		file->i_bn += CLSIZE;
#else  UCB_NKB
		file->i_bn++;
#endif UCB_NKB
		return(i);
	}
	else {
		if ((file->i_flgs&F_FILE)
		  && file->i_offset+count > file->i_ino.i_size)
			count = file->i_ino.i_size - file->i_offset;
		if ((i = count) <= 0)
			return(0);
		do {
			*buf++ = getc(fdesc+3);
		} while (--i);
		return(count);
	}
}

write(fdesc, buf, count)
int     fdesc;
char    *buf;
int     count;
{
	register i;
	register struct iob *file;
	register int written;
	register char *p;
	register daddr_t bno;
	register int off;

	if (fdesc >= 0 && fdesc <= 2) {
		i = count;
		while (i--)
			putchar(*buf++);
		return(count);
	}
	fdesc -= 3;
	if (fdesc < 0 || fdesc >= NFILES || ((file = &iob[fdesc])->i_flgs&F_ALLOC) == 0)
		return(-1);
	if ((file->i_flgs&F_WRITE) == 0)
		return(-1);
	if ((file->i_flgs&(F_FILE|F_BLK)) == 0) {
		file->i_cc = count;
		file->i_ma = buf;
		i = devwrite(file);
#ifdef UCB_NKB
		file->i_bn += CLSIZE;
#else  UCB_NKB
		file->i_bn++;
#endif UCB_NKB
		return(i);
	}
	if ((file->i_flgs&F_FILE)
	  && count > file->i_ino.i_size - file->i_offset)
		count = file->i_ino.i_size - file->i_offset;
#ifdef UCB_NKB
	bno = file->i_offset / BSIZE;
	off = file->i_offset % BSIZE;
#else UCB_NKB
	bno = file->i_offset / 512;
	off = file->i_offset % 512;
#endif UCB_NKB
	for (written = 0; written < count; ) {
#ifdef UCB_NKB
		i = BSIZE - off;
#else  UCB_NKB
		i = 512 - off;
#endif UCB_NKB
		if (i > count)
			i = count;
		if (file->i_flgs&F_FILE)
#ifdef UCB_NKB
			file->i_bn = fsbtodb(sbmap(file, bno)) + file->i_boff;
		else
			file->i_bn = fsbtodb(bno) + file->i_boff;
		file->i_ma = file->i_buf;
		file->i_cc = BSIZE;
		if (i != BSIZE)
#else  UCB_NKB
			file->i_bn = sbmap(file, bno) + file->i_boff;
		else
			file->i_bn = bno + file->i_boff;
		file->i_ma = file->i_buf;
		file->i_cc = 512;
		if (i != 512)
#endif UCB_NKB
			devread(file);
		written += i;
		for (p = &file->i_buf[off]; i--; p++)
			*p = *buf++;
		devwrite(file);
		bno++;
		off = 0;
	}
	file->i_cc = 0;
	file->i_offset += written;
	return(written);
}

open(str, how)
char *str;
int     how;
{
	register char *cp;
	int i;
	register struct iob *file;
	register struct devsw *dp;
	int     fdesc;
	static first = 1;
	long    atol();

	if (first) {
		for (i = 0; i < NFILES; i++)
			iob[i].i_flgs = 0;
		first = 0;
	}

	for (fdesc = 0; fdesc < NFILES; fdesc++)
		if (iob[fdesc].i_flgs == 0)
			goto gotfile;
	_stop("No more file slots");
gotfile:
	(file = &iob[fdesc])->i_flgs |= F_ALLOC;

	for (cp = str; *cp && *cp != '('; cp++)
			;
	if (*cp != '(') {
		printf("Bad device\n");
		file->i_flgs = 0;
		return(-1);
	}
	*cp++ = '\0';
	for (dp = devsw; dp->dv_name; dp++) {
		if (match(str, dp->dv_name))
			goto gotdev;
	}
	printf("Unknown device\n");
	file->i_flgs = 0;
	return(-1);
gotdev:
	*(cp-1) = '(';
	file->i_ino.i_dev = dp-devsw;
	file->i_flgs |= dp->dv_flgs;
	file->i_deva = file->i_cntl = file->i_selch = 0;
	if (*cp == '*')
		file->i_unit = -1;
	else {
		file->i_unit = *cp - '0';
		if (file->i_unit < 0 || file->i_unit > 7) {
			printf("Bad unit specifier\n");
			file->i_flgs = 0;
			return(-1);
		}
	}
	cp++;
	if (*cp++ != ',') {
badoff:
		printf("Missing offset specification\n");
		file->i_flgs = 0;
		return(-1);
	}
	file->i_boff = atol(cp);
	for (;;) {
		if (*cp == ')')
			break;
		if (*cp++)
			continue;
		goto badoff;
	}
	if (file->i_unit < 0) {
		static dev = 0xfc;
		static cntl = 0xfb;
		static selch = 0xf0;

		file->i_unit = 0;
		printf ("Device address (%x)? ", dev);
		if ((file->i_deva = gethex()) == 0)
			file->i_deva = dev;
		else
			dev = file->i_deva;
		printf ("Controller (%x)? ", cntl);
		if ((file->i_cntl = gethex()) == 0)
			file->i_cntl = cntl;
		else
			cntl = file->i_cntl;
		printf ("Selch (%x)? ", selch);
		if ((file->i_selch = gethex()) == 0)
			file->i_selch = selch;
		else
			selch = file->i_selch;
	}
	devopen(file);
	if (*++cp == '\0') {
		file->i_flgs |= how+1;
		file->i_cc = 0;
		file->i_offset = 0;
		return(fdesc+3);
	}
	if ((i = find(cp, file)) == 0) {
		file->i_flgs = 0;
		return(-1);
	}
	openi(i, file);
	file->i_offset = 0;
	file->i_cc = 0;
	file->i_flgs |= F_FILE | (how+1);
	return(fdesc+3);
}

/* Read a hex number */
gethex()
{
	register c, n, i;
	register char *p;
	char buf[16];

	gets(buf);
	n = 0;
	for (p = buf; c = *p; p++) {
		for (i = 0; i < 16; i++) {
			if (c == "0123456789abcdef"[i]) {
				n <<= 4;  /*  n *= 16 */
				n += i;
				break;
			}
		}
	}
	return(n);
}

close(fdesc)
int     fdesc;
{
	struct iob *file;

	fdesc -= 3;
	if (fdesc < 0 || fdesc >= NFILES || ((file = &iob[fdesc])->i_flgs&F_ALLOC) == 0)
		return(-1);
	if ((file->i_flgs&F_FILE) == 0)
		devclose(file);
	file->i_flgs = 0;
	return(0);
}

exit()
{
	_stop("Exit called");
}

_stop(s)
char    *s;
{
	printf("%s\n", s);
	_rtt();
}

trap(regs)
{
	int     *r = &regs;

	printf("TRAP: %s\n", r[6]);
	printf("PSW %x %x\n", r[14], r[15]);
	printf("SP %x\n", r[16+7]);
	for (;;)
		;
}