From dd6c037b72b0988ed9d55fd89af30b10ca9999ea Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Mon, 26 Jun 2006 00:02:19 +0000
Subject: accept process names

---
 bin/stack | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'bin/stack')

diff --git a/bin/stack b/bin/stack
index af649d55..933a6132 100755
--- a/bin/stack
+++ b/bin/stack
@@ -1,3 +1,14 @@
 #!/usr/local/plan9/bin/rc
 
-echo '$c' | 9 db -q $*
+pid=$1
+shift
+if(! ~ $pid [0-9] [0-9]*[0-9] */core *.core core.* */core.*){
+	name=$pid
+	pid=`{psu|awk '$NF=="'$name'" {print $2}'}
+	if(~ $#pid 0){
+		echo 'stack: no process '$name
+		exit none
+	}
+}
+for(p in $pid)
+	echo '$c' | 9 db -q $p $*
-- 
cgit v1.2.3