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 3940506b 2005-01-13 devnull for (i) {
13 9bbe4594 2005-01-14 devnull 	files=`{grep -il '[ 	]\*?'$i'\(' $PLAN9/man/man3/*.3*}
14 3940506b 2005-01-13 devnull 	for(j in $files) {
15 3940506b 2005-01-13 devnull 		{echo .nr LL 20i; 9 sed -n '/^.SH SYNOPSIS/,/^.SH.*DESCR/p'  $j } |
16 9bbe4594 2005-01-14 devnull 			nroff -man |
17 9bbe4594 2005-01-14 devnull 			sed '
18 3940506b 2005-01-13 devnull 				:a
19 3940506b 2005-01-13 devnull 				/,$/ {
20 3940506b 2005-01-13 devnull 					N
21 3940506b 2005-01-13 devnull 					s/\n//
22 3940506b 2005-01-13 devnull 				}
23 3940506b 2005-01-13 devnull 				ta
24 3940506b 2005-01-13 devnull 				s/[ 	]+/ /g' |
25 9bbe4594 2005-01-14 devnull 			grep -i -e '[ 	]\*?'$i'\(' | sed 's/^[ +]/	/'
26 3940506b 2005-01-13 devnull 	}
27 3940506b 2005-01-13 devnull }
28 3940506b 2005-01-13 devnull 
29 3940506b 2005-01-13 devnull exit 0