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
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]
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)
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 |
30 3940506b 2005-01-13 devnull s/[ ]+/ /g' |
31 9bbe4594 2005-01-14 devnull grep -i -e '[ ]\*?'$i'\(' | sed 's/^[ +]/ /'
33 a4904449 2008-12-07 rsc { path=$noplan9; man 2 $i; man 3 $i } >[2]/dev/null | nobs | sed -n '
39 a4904449 2008-12-07 rsc /DESCRIPTION/bd
43 a4904449 2008-12-07 rsc ' | grep -i -e '[ ]\*?'$i'\(' | sed 's/^[ +]/ /'