Subversion Repositories planix.SVN

#!/bin/rc
switch($#*){
case 0 1 2
        echo usage: window '''minx miny maxx maxy''' '''minx miny maxx maxy''' cmd args ...
        exit usage
}

rfork ns

if(mount $wsys /mnt/acid N`{{echo $pid $1 }| sed 's/^ //g;s/ +/,/g'}){
        winid=`{cat /dev/winid}
        echo transcript > /mnt/acid/label
        echo transcript > /mnt/acid/cons
        shift
}
if not exit 0

if(mount $wsys /mnt/wsys N`{{echo $pid $1 }| sed 's/^ //g;s/ +/,/g'}){
        shift
        bind -b /mnt/wsys /dev
}
if not exit 0

echo -n `{basename $1} > /dev/label >[2] /dev/null
@{
        echo hang > /proc/^`{cat /dev/ppid}^/ctl
        $* < /dev/$winid/cons > /dev/$winid/cons >[2] /dev/$winid/cons &
        exit $apid
}
ostatus = `{echo $status | sed 's/.*://'}
echo waitstop > /proc/$ostatus/ctl
echo nohang > /proc/$ostatus/ctl
exit $ostatus