#!/bin/rc

fn getriodim {
	riosrv = `{
		ns | awk '/rio/ {
			for(i = 1; i < NR; i++)
				if($i ~ /rio/) {
					print $i;
					break;
				}
		}' | sort | uniq -u | sed 's|''||g; s|#s|/srv|'
	}
	i = 1
	while(! mount $riosrv /n/ircwin.$pid $i >[2]/dev/null)
		i = `{hoc -e $i^+1}
	riowin = `{
		awk '/^(rio|chat)$/ {
			sub("/label$", "/window", FILENAME);
			print FILENAME;
			exit;
		}' /n/ircwin.$pid/wsys/*/label
	}
	syscall -o read 0 buf 59 < $riowin >[2] /dev/null |
	sed 's/............//; s/^ *//; s/  */ /g'
	unmount /n/ircwin.$pid
}

fn getwindows {
	grep -v '^winwatch' /dev/wsys/*/label | sed 's|/label:.*||'
}

fn resize {
	>$1^/wctl {
		echo current
		echo resize -r $*(2-)
	} 
}

flagfmt='w'
if(! ifs=() eval `{aux/getflags $*}) {
	aux/usage
	exit usage
}

rdim = `{getriodim}
windim = (\
	0\
	0\
	`{hoc -e $rdim(3)^-^$rdim(1)}\
	`{hoc -e $rdim(4)^-^$rdim(2)^-128}\
)
winwatchdim = (\
		0\
		`{hoc -e $rdim(4)^-^$rdim(2)^-120}\
		`{hoc -e $rdim(3)^-^$rdim(1)}\
		`{hoc -e $rdim(4)^-^$rdim(2)}\
)

for(win in `{getwindows})
	resize $win $windim

if(~ $flagw 1) {
	resize /mnt/wsys $winwatchdim
	winwatch
}
if not {
	winwatch = `{grep winwatch /dev/wsys/*/label | sed 's|/label:.*||'}
	if(! ~ $#winwatch 0)
		resize $winwatch $winwatchdim
}