Re: [9front] lstk script

[Stanley Lieber <sl@stanleylieber.com>]

On August 14, 2023 5:21:07 AM EDT, qwx@sciops.net wrote:
>On Mon Aug 14 10:48:52 +0200 2023, umbraticus@prosimetrum.com wrote:
>> The lstk script recently committed is a handy tool.
>> I humbly submit the version which I have been using.
>> If there are multiple broken processes it prints them
>> in a sendable format instead of just picking most recent.
>> 
>> #!/bin/rc
>> rfork e
>> p = `{ps | awk '/Broken/{print $2 " "$7}'}
>> if(~ $#p 2){
>> 	echo 'echo ''lstk()'' | acid' $p(1) '#' $p(2)
>> 	echo 'lstk()' | acid $p(1)
>> 	exit $status
>> }
>> fn list{
>> 	while(! ~ $#* 0){
>> 		echo 'echo ''lstk()'' | acid' $1 '#' $2
>> 		shift; shift
>> 	}
>> }
>> list $p
>
>Thanks umbraticus and Ori, here's also a stupidly pimped out version
>that either looks up the last Broken process, or matches a given
>pattern (name, pid or group, etc.), or prints matching procs and
>exits.  Printing all in sendable format is a better idea there though.
>I suggest we pull whatever seems useful from both scripts and any
>other attempts, and that we also add one or more convenience plumb
>rules such as (also stolen from Ori):
>
>type	is	text
>data	matches	'[^ ]+ ([0-9]+): suicide:.*'
>plumb	to	none
>plumb	start	window lstk $1
>
>Cheers,
>qwx
>
>
>#!/bin/rc
>rfork n
>print=()
>if(~ $1 -p){
>	print=1
>	shift
>}
>if(~ $#* 0)
>	p=Broken
>if not{
>	p=$1
>	shift
>}
>ps -a | grep $p | grep -v 'grep '^$p
>p=`{ps | awk -v 'P='^$p '$7 == P || $2 == P || $6 == P{ p=$2 } END{ print p }'}
>if(~ $#p 0){
>	echo no proc $p >[1=2]
>	exit noproctohand
>}
>echo scroll >/mnt/wsys/wctl
>if(! ~ $#print 0){
>	echo lstk'()' | acid -lthread -lpool $p
>	echo acid -lthread -lpool $* $p
>}
>if not{
>	{echo lstk'()'; cat} | acid -q -lthread -lpool $* $p
>}
>

printing commands to pipe or send is very good.

sl