From mboxrd@z Thu Jan  1 00:00:00 1970
Message-ID: <83a74d7736328ba9958f705deb447d5c@rei2.9hal>
Date: Fri, 20 Apr 2012 18:29:54 +0200
From: cinap_lenrek@gmx.de
To: 9fans@9fans.net
In-Reply-To: <432d773181a969cc40ac1f0552204f64@rei2.9hal>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="upas-umlyuswfjdlivektmnitkegigb"
Subject: Re: [9fans] some pcc questions
Topicbox-Message-UUID: 78d8a402-ead7-11e9-9d60-3106f5b1d025

This is a multi-part message in MIME format.
--upas-umlyuswfjdlivektmnitkegigb
Content-Disposition: inline
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit

that attachment didnt quite work, lets try it this way :)

--
cinap
--upas-umlyuswfjdlivektmnitkegigb
Content-Disposition: attachment; filename=tap
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit

#!/bin/rc

v=()

fn otherqid {
	x=`{echo $1 | sed 's/[12]$//'}
	switch($1){
	case $x^1
		echo $x^2
	case $x^2
		echo $x^1
	}
}

fn traceqid {
	while(! ~ $#* 0){
		echo '['$2']' $3 $1
		tracepid `{grep -n `{otherqid $1} /proc/*/fd | sed 's!^/proc/([^/]+)/.*!\1!g'} \
			| sed 's/^/	/g'
		shift
		shift
		shift
	}
}

fn tracepid {
	while(! ~ $#* 0){
		echo $1 `{cat /proc/$1/args >[2]/dev/null}
		switch($1){
		case $v
			echo '	...'
		case *
			v=($1 $v)
			traceqid `{awk '/\|/{q=substr($5,2);print q" "$1" "$10}' /proc/$1/fd} \
				| sed 's/^/	/g'
		}
		shift
	}
}

if(~ $#* 0){
	echo 'Usage: ' $0 '[ pid ... ]' >[1=2]
	exit usage
}

tracepid $*
--upas-umlyuswfjdlivektmnitkegigb--