plan9fox/rc/bin/window

106 lines
1.9 KiB
Text
Raw Normal View History

#!/bin/rc
# window [many options] cmd [arg...] - create new window and run cmd in it
rfork e
cmd=()
spec=()
wdir=()
wpid=()
mflag=()
xflag=()
argv0=$0
if(~ $1 *[0-9][' ,'][0-9]*){
# old syntax: '100 100 200 200' or '100,100,200,200'
spec=(-r `{echo $1 | sed 's/,/ /g'})
shift
mflag=1
}
if not {
while(~ $1 -* && ~ $#xflag 0)
switch($1){
case -hide -scroll -noscroll
spec=($spec $1)
shift
case -dx -dy -minx -miny -maxx -maxy
spec=($spec $1 $2)
shift 2
case -r
spec=($spec $1 $2 $3 $4 $5)
shift 5
case -cd
wdir=$2
shift 2
case -pid
wpid=$2
shift 2
case -m
mflag=1
shift
case -x
xflag=1
shift
case *
echo usage: $argv0 '[ -m ] [ -r minx miny maxx maxy ]' \
'[ -dx n ] [ -dy n ] [ -minx n ] [ -miny n ] [ -maxx n ] [ -maxy n ]' \
'[ -cd dir ] [ -hide ] [ -scroll ] [ -noscroll ] [ cmd arg ... ]' >[1=2]
exit usage
}
}
if(~ $#* 0) cmd=rc
if not cmd=$*
if(~ $#xflag 1){
echo -n `{basename $cmd(1)} >/dev/label >[2]/dev/null
rm -f /env/^(cmd spec wdir wpid mflag xflag argv0)
exec $cmd
exit exec
}
if(~ $#mflag 1) {
if(~ $wsys ''){
echo $argv0: '$wsys' not defined >[1=2]
exit bad
}
{
rfork n
if(~ $wsys /srv/*){
if(~ $#wpid 0)
wpid=`{cat /dev/ppid}
spec=($spec -pid $wpid)
}
if(~ $#wdir 0){
wdir=`{pwd}
}
if not {
builtin cd $wdir
}
spec=($spec -cd $wdir)
{unmount /mnt/acme /dev; unmount $wsys /dev} >[2]/dev/null
if(mount $wsys /mnt/wsys 'new '$"spec){
bind -b /mnt/wsys /dev
exec $argv0 -x $cmd </dev/cons >/dev/cons >[2]/dev/cons
}
}&
exit ''
}
if not {
if(~ $wctl ''){
if(test -f /dev/wctl) wctl=/dev/wctl
if not if(test -f /mnt/term/dev/wctl) wctl=/mnt/term/dev/wctl
if not if(test -r /mnt/term/env/wctl) wctl=/mnt/term^`{cat /mnt/term/env/wctl}
if not {
echo $argv0: '$wctl' not defined >[1=2]
exit bad
}
}
if(! ~ $#wdir 0)
spec=($spec -cd $wdir)
echo new $spec $argv0 -x $cmd >>$wctl
}