1 3940506b 2005-01-13 devnull #!/usr/local/plan9/bin/rc
 2 3940506b 2005-01-13 devnull # Usage: sig key ...
 3 3940506b 2005-01-13 devnull #	prints out function signatures by grepping the manual
 4 3940506b 2005-01-13 devnull 
 5 9bbe4594 2005-01-14 devnull . 9.rc
 6 3940506b 2005-01-13 devnull *=`{echo $*|tr A-Z a-z|tr -dc 'a-z0-9_ \012'}	# fold case, delete funny chars
 7 3940506b 2005-01-13 devnull if(~ $#* 0){
 8 3940506b 2005-01-13 devnull 	echo Usage: sig function ... >[1=2]
 9 3940506b 2005-01-13 devnull 	exit 1
10 3940506b 2005-01-13 devnull }
11 3940506b 2005-01-13 devnull 
12 a4904449 2008-12-07 rsc noplan9=()
13 a4904449 2008-12-07 rsc for(p in $path) {
14 a4904449 2008-12-07 rsc 	if(! ~ $p $PLAN9/bin)
15 a4904449 2008-12-07 rsc 		noplan9=($noplan9 $p)
16 a4904449 2008-12-07 rsc }	
17 a4904449 2008-12-07 rsc 
18 3940506b 2005-01-13 devnull for (i) {
19 9bbe4594 2005-01-14 devnull 	files=`{grep -il '[ 	]\*?'$i'\(' $PLAN9/man/man3/*.3*}
20 3940506b 2005-01-13 devnull 	for(j in $files) {
21 3940506b 2005-01-13 devnull 		{echo .nr LL 20i; 9 sed -n '/^.SH SYNOPSIS/,/^.SH.*DESCR/p'  $j } |
22 9bbe4594 2005-01-14 devnull 			nroff -man |
23 9bbe4594 2005-01-14 devnull 			sed '
24 3940506b 2005-01-13 devnull 				:a
25 3940506b 2005-01-13 devnull 				/,$/ {
26 3940506b 2005-01-13 devnull 					N
27 3940506b 2005-01-13 devnull 					s/\n//
28 3940506b 2005-01-13 devnull 				}
29 3940506b 2005-01-13 devnull 				ta
30 3940506b 2005-01-13 devnull 				s/[ 	]+/ /g' |
31 9bbe4594 2005-01-14 devnull 			grep -i -e '[ 	]\*?'$i'\(' | sed 's/^[ +]/	/'
32 3940506b 2005-01-13 devnull 	}
33 a4904449 2008-12-07 rsc 	{ path=$noplan9; man 2 $i; man 3 $i } >[2]/dev/null | nobs | sed -n '
34 a4904449 2008-12-07 rsc 		:d
35 a4904449 2008-12-07 rsc 		/SYNOPSIS/bp
36 a4904449 2008-12-07 rsc 		n
37 a4904449 2008-12-07 rsc 		bd
38 a4904449 2008-12-07 rsc 		:p
39 a4904449 2008-12-07 rsc 		/DESCRIPTION/bd
40 a4904449 2008-12-07 rsc 		p
41 a4904449 2008-12-07 rsc 		n
42 a4904449 2008-12-07 rsc 		bp
43 a4904449 2008-12-07 rsc 	' | grep -i -e '[ 	]\*?'$i'\(' | sed 's/^[ +]/	/'
44 3940506b 2005-01-13 devnull }
45 3940506b 2005-01-13 devnull 
46 3940506b 2005-01-13 devnull exit 0