From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from andrew.cmu.edu ([128.2.11.131]) by archone.tamu.edu with SMTP id <45316>; Sun, 19 Apr 1992 19:47:11 -0500
Received: by andrew.cmu.edu (5.54/3.15) id <AA12704> for rc@archone.tamu.edu; Sun, 19 Apr 92 20:46:56 EDT
Received: via switchmail; Sun, 19 Apr 1992 20:46:55 -0400 (EDT)
Received: from elementary.bh.andrew.cmu.edu via qmail
          ID </afs/andrew.cmu.edu/service/mailqs/q000/QF.wdwVFIC00VB48=oU52>;
          Sun, 19 Apr 1992 20:46:12 -0400 (EDT)
Received: via niftymail; Sun, 19 Apr 1992 20:46:02 -0400 (EDT)
Date: Sun, 19 Apr 1992 19:46:02 -0500
From: "Julian L. Ho" <jh6j+@andrew.cmu.edu>
Subject: jobs list
To: rc@archone.tamu.edu
Message-Id: <703730762.2950.0@elementary.bh.andrew.cmu.edu>

I've been using "echo $apids" and "ps pid" a lot recently, so I wrote
this.  I don't know if I like it yet...

-J

fn jobs {

    if (! ~ $#* 0) {
	# list commands with current tty
	ps guxwwt ^ `{ tty | sed 's/.*\(..\)$/\1/' }
	return
    }

    if (~ $#apids 0)
	return

    # list $apids
    pat = ( '$2 == ' ^ $apids ^ ' ||' ) {
	pat = $^pat ^ 'NR == 1'
	ps guxww | awk $pat
    }

}