#!/bin/rc# window [many options] cmd [arg...] - create new window and run cmd in itrfork efn checkwsys{	if(~ $wsys ''){		echo  'window: $wsys not defined'		exit bad	}} # original version used mount to do the workfn oldway{	switch($#*){	case 0 1		echo usage: window '''minx miny maxx maxy''' cmd args ...		exit usage	}		checkwsys		dir = /mnt/wsys	srv = $wsys		rfork ne	{		if(x=`{cat /dev/ppid}; mount $srv $dir N`{{echo $x $1 }| sed 's/^ //g;s/ +/,/g'}){			shift			bind -b $dir /dev			echo -n `{basename $1} > /dev/label >[2] /dev/null			exec $* < /dev/cons > /dev/cons >[2] /dev/cons		}	}&} # if argument is of form '100 100 200 200' or '100,100,200,200' use old wayif(~ $1 *[0-9][' ,'][0-9]*){	oldway $*	exit} # geometry parameters are:#	-r 0 0 100 100#	-dx n#	-dy n#	-minx n#	-miny n#	-maxx n#	-maxy n# where n can be a number, to set the value, or +number or -number to change it # find wctl filefn getwctl{	if(~ $wctl ''){		if(test -f /dev/wctl) echo /dev/wctl		if not if(test -f /mnt/term/dev/wctl) echo /mnt/term/dev/wctl		if not if(~ $service cpu) echo /mnt/term/srv/riowctl.*.*		if not {			echo window: '$wctl' not defined >[1=2]			exit usage		}	}	if not echo $wctl} # use mount to make local windowif(~ $1 -m){	shift 	checkwsys		dir = /mnt/wsys	srv = $wsys	rfork ne	{		unmount /mnt/acme /dev >[2]/dev/null		if(mount $srv $dir 'new -pid '^`{cat /dev/ppid}^' '$"*){			bind -b $dir /dev			# toss geometry parameters to find command			while(~ $1 -*)				switch($1){				case -dx -dy -minx -miny -maxx -maxy					shift 2				case -r					shift 5				case -scroll					shift				case -noscroll					shift				case -hide					shift				}			if(~ $#* 0) cmd = rc			if not cmd = $*			echo -n `{basename $cmd(1)} > /dev/label >[2] /dev/null			exec $cmd < /dev/cons > /dev/cons >[2] /dev/cons		}	}&} if not echo new -cd `{pwd} $* >> `{getwctl}