19a747e4fSDavid du Colombier#!/bin/rc 29a747e4fSDavid du Colombier 39a747e4fSDavid du Colombierp=`{ps | grep $1 | sed 's/[^ ]* +([^ ]+) .*/\1/' } 49a747e4fSDavid du Colombierwhile(! ~ $#p 1) { 59a747e4fSDavid du Colombier sleep 1 69a747e4fSDavid du Colombier p=`{ps | grep $1 | sed 's/[^ ]* +([^ ]+) .*/\1/'} 79a747e4fSDavid du Colombier} 89a747e4fSDavid du Colombierp=$p(1) 99a747e4fSDavid du Colombier 10a22b0629SDavid du Colombierbaropt='-w 145,129,445,168' 11*d8635c2eSDavid du Colombierif(~ $textinst 1) 12a22b0629SDavid du Colombier baropt=-t 13a22b0629SDavid du Colombier 149a747e4fSDavid du Colombier{ 159a747e4fSDavid du Colombier while(test -f /proc/$p/fd) 169a747e4fSDavid du Colombier grep '^ *'^$2^' ' /proc/$p/fd >[2]/dev/null 17a22b0629SDavid du Colombier} | awk '{print $9 " '^$3^'"; fflush("/dev/stdout")}' | bargraph $baropt $4 18