123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- #!/bin/rc
- # window [many options] cmd [arg...] - create new window and run cmd in it
- rfork e
- fn checkwsys{
- if(~ $wsys ''){
- echo 'window: $wsys not defined'
- exit bad
- }
- }
- # original version used mount to do the work
- fn 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 way
- if(~ $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 file
- fn 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 window
- if(~ $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}
|