/*
 * This file is part of the UCB release of Plan 9. It is subject to the license
 * terms in the LICENSE file found in the top-level directory of this
 * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
 * part of the UCB release of Plan 9, including this file, may be copied,
 * modified, propagated, or distributed except according to the terms contained
 * in the LICENSE file.
 */

/*
 * lock - keep a lock alive while a command runs
 */

#include <u.h>
#include <libc.h>
#include <chartypes.h>

static int debug;
static int lockwait;

void	error(char*);
void	notifyf(void *c, char*);

static void
usage(void)
{
	jehanne_fprint(2, "usage: %s [-dw] lock [command [file]...]\n", argv0);
	jehanne_exits("usage");
}

static Waitmsg *
waitfor(int pid)
{
	char err[ERRMAX];
	Waitmsg *w;

	for (;;) {
		w = jehanne_wait();
		if (w == nil){
			sys_errstr(err, sizeof err);
			if(jehanne_strcmp(err, "interrupted") == 0)
				continue;
			return nil;
		}
		if (w->pid == pid)
			return w;
	}
}

static int
openlock(char *lock)
{
	int lckfd;
	Dir *dir;

	/* first ensure that the lock file has the lock bit set */
	dir = jehanne_dirstat(lock);
	if (dir == nil)
		jehanne_sysfatal("can't stat %s: %r", lock);
	if (!(dir->mode & DMEXCL)) {
		dir->mode |= DMEXCL;
		dir->qid.type |= QTEXCL;
		if (jehanne_dirwstat(lock, dir) < 0)
			jehanne_sysfatal("can't make %s exclusive access: %r", lock);
	}
	jehanne_free(dir);

	if (lockwait)
		while ((lckfd = sys_open(lock, ORDWR)) < 0)
			jehanne_sleep(1000);
	else
		lckfd = sys_open(lock, ORDWR);
	if (lckfd < 0)
		jehanne_sysfatal("can't open %s read/write: %r", lock);
	return lckfd;
}

void
main(int argc, char *argv[])
{
	int fd, lckfd, lckpid, cmdpid;
	char *cmd, *p, *lock;
	char **args;
	char *argarr[2];
	Waitmsg *w;

	ARGBEGIN {
	case 'd':
		++debug;
		break;
	case 'w':
		++lockwait;
		break;
	default:
		usage();
		break;
	} ARGEND

	if (argc < 1)
		usage();
	if (argc == 1) {
		args = argarr;
		args[0] = cmd = "rc";
		args[1] = nil;
	} else {
		cmd = argv[1];
		args = &argv[1];
	}

	/* set up lock and process to keep it alive */
	lock = argv[0];
	lckfd = openlock(lock);
	lckpid = jehanne_fork();
	switch(lckpid){
	case -1:
		error("fork");
	case 0:
		/* keep lock alive until killed */
		for (;;) {
			jehanne_sleep(60*1000);
			sys_seek(lckfd, 0, 0);
			jehanne_fprint(lckfd, "\n");
		}
	}

	/* spawn argument command */
	cmdpid = sys_rfork(RFFDG|RFREND|RFPROC|RFENVG);
	switch(cmdpid){
	case -1:
		error("fork");
	case 0:
		fd = jehanne_ocreate("/env/prompt", OWRITE, 0666);
		if (fd >= 0) {
			jehanne_fprint(fd, "%s%% ", lock);
			sys_close(fd);
		}
		sys_exec(cmd, (const char**)args);
		if(cmd[0] != '/' && jehanne_strncmp(cmd, "./", 2) != 0 &&
		   jehanne_strncmp(cmd, "../", 3) != 0)
			sys_exec(jehanne_smprint("/cmd/%s", cmd), (const char**)args);
		error(cmd);
	}

	sys_notify(notifyf);

	w = waitfor(cmdpid);
	if (w == nil)
		error("wait");

	jehanne_postnote(PNPROC, lckpid, "die");
	waitfor(lckpid);
	if(w->msg[0]){
		p = jehanne_utfrune(w->msg, ':');
		if(p && p[1])
			p++;
		else
			p = w->msg;
		while (isspace(*p))
			p++;
		jehanne_fprint(2, "%s: %s  # status=%s\n", argv0, cmd, p);
	}
	jehanne_exits(w->msg);
}

void
error(char *s)
{
	jehanne_fprint(2, "%s: %s: %r\n", argv0, s);
	jehanne_exits(s);
}

void
notifyf(void *a, char *s)
{
	USED(a);
	if(jehanne_strcmp(s, "interrupt") == 0)
		sys_noted(NCONT);
	sys_noted(NDFLT);
}