#include "sam.h"

Rune	samname[] = L"~~sam~~";

Rune *left[]= {
	L"{[(<«",
	L"\n",
	L"'\"`",
	0
};
Rune *right[]= {
	L"}])>»",
	L"\n",
	L"'\"`",
	0
};

char	RSAM[] = "sam";
char	SAMTERM[] = "/bin/aux/samterm";
char	HOME[] = "home";
char	TMPDIR[] = "/tmp";
char	SH[] = "rc";
char	SHPATH[] = "/bin/rc";
char	RX[] = "rx";
char	RXPATH[] = "/bin/rx";

void
dprint(char *z, ...)
{
	char buf[BLOCKSIZE];

	doprint(buf, &buf[BLOCKSIZE], z, ((long*)&z)+1);
	termwrite(buf);
}

char*
getuser(void)
{
	static char user[NAMELEN];
	int fd;

	if(user[0] == 0){
		fd = open("/dev/user", 0);
		if(fd<0 || read(fd, user, sizeof user)<=0)
			strcpy(user, "none");
		close(fd);
	}
	return user;
}

int
statfile(char *name, ulong *id, long *time, long *length)
{
	Dir dirb;

	if(dirstat(name, &dirb) == -1)
		return -1;
	if(id)
		*id = dirb.qid.path;
	if(time)
		*time = dirb.mtime;
	if(length)
		*length = dirb.length;
	return 1;
}

int
statfd(int fd, ulong *id, long *time, long *length)
{
	Dir dirb;

	if(dirfstat(fd, &dirb) == -1)
		return -1;
	if(id)
		*id = dirb.qid.path;
	if(time)
		*time = dirb.mtime;
	if(length)
		*length = dirb.length;
	return 1;
}

void
notifyf(void *a, char *s)
{
	USED(a);
	if(bpipeok && strcmp(s, "sys: write on closed pipe") == 0)
		noted(NCONT);
	if(strcmp(s, "interrupt") == 0)
		noted(NCONT);
	panicking = 1;
	rescue();
	noted(NDFLT);
}

int
newtmp(int num)
{
	int i, fd;
	static char	tempnam[30];

	i = getpid();
	do
		sprint(tempnam, "%s/%d%.4s%dsam", TMPDIR, num, getuser(), i++);
	while(access(tempnam, 0) == 0);
	fd = create(tempnam, ORDWR|OCEXEC|ORCLOSE, 0000);
	if(fd < 0){
		remove(tempnam);
		fd = create(tempnam, ORDWR|OCEXEC|ORCLOSE, 0000);
	}
	return fd;
}

int
waitfor(int pid)
{
	int rpid;
	Waitmsg wm;

	do; while((rpid = wait(&wm)) != pid && rpid != -1);
	return wm.msg[0];
}

void
samerr(char *buf)
{
	sprint(buf, "%s/sam.err", TMPDIR);
}

void*
emalloc(ulong n)
{
	void *p;

	p = malloc(n);
	if(p == 0)
		panic("malloc fails");
	memset(p, 0, n);
	return p;
}

void*
erealloc(void *p, ulong n)
{
	p = realloc(p, n);
	if(p == 0)
		panic("realloc fails");
	return p;
}