Annotation of 43BSDTahoe/man/tools/tocrc, revision 1.1.1.1

1.1       root        1: MANDIR=/usr/man
                      2: TMPDIR=/usr/man/tmp
                      3: TOOLS=$MANDIR/tools
                      4: 
                      5: trap "rm $TMPDIR/tmp.$$ ; exit" 2 3 15
                      6: 
                      7: P=108
                      8: p=""
                      9: if test "$1" = "-p"
                     10: then
                     11:        P=65
                     12:        p=-p
                     13:        shift
                     14: fi
                     15: 
                     16: if test $# -eq 0
                     17: then
                     18:        echo "tocrc: no argument"
                     19:        exit
                     20: fi
                     21: 
                     22: if test $# -eq 2
                     23: then
                     24:        : create toc input file for one section only
                     25: 
                     26:        > $TMPDIR/tocx$1
                     27:        for file in $MANDIR/man$1/*.$1*
                     28:        do
                     29:                if test ! -s $file
                     30:                then
                     31:                        continue
                     32:                fi
                     33:                so=`line < $file | sed "s/ .*//"`
                     34:                if test "$so" = ".so"
                     35:                then
                     36:                        continue
                     37:                fi
                     38:                ed - $file > $TMPDIR/tmp.$$ <<!
                     39:                        H
                     40:                        /^\.TH/p
                     41:                        q
                     42: !
                     43:                loc=`cat $TMPDIR/tmp.$$ | sed "s/.*local.*/local/"`
                     44:                if test "$loc" = "local"
                     45:                then
                     46:                        continue
                     47:                fi
                     48:                name=`basename $file`
                     49:                name=`echo $name | sed "s/\.\(.\{1,2\}\)\$/(\1)/"`
                     50:                ed - $file > $TMPDIR/tmp.$$ <<!
                     51:                        /^.SH NAME/+p
                     52:                        q
                     53: !
                     54:                desc=`line < $TMPDIR/tmp.$$`
                     55:                desc=`echo $desc | sed -e "s/.s-1//g" -e "s/.s0//g"  -e "s/.s+1//g"   -e "s/ .- /: /"  -e "s/^/$name /"  -e "s/$/./"`
                     56:                if test -n "$desc"
                     57:                then
                     58:                        echo $desc >> $TMPDIR/tocx$1
                     59:                fi
                     60:                rm -f $TMPDIR/tmp.$$
                     61:        done
                     62: else case $1 in
                     63:        all )
                     64:                :   tocx files for all sections and everything else
                     65: 
                     66:                for x in 1 2 3 4 5 6 7 8
                     67:                do
                     68:                        $0 $p $x $x
                     69:                done
                     70:                $0 $p t
                     71:                ;;
                     72:        t )
                     73:                :   permuted index and toc files
                     74: 
                     75:                if test ! -f $TMPDIR/tocx1
                     76:                then
                     77:                        echo "tocrc: some tocx? files missing"
                     78:                        exit
                     79:                fi
                     80:                cat $TMPDIR/tocx? > $TMPDIR/cattoc
                     81:                ed - $TMPDIR/cattoc <<!
                     82:                        H
                     83:                        g/(1c)/s//(1C)/
                     84:                        g/(1m)/s//(1M)/
                     85:                        g/(1g)/s//(1G)/
                     86:                        g/(3c)/s//(3C)/
                     87:                        g/(3m)/s//(3M)/
                     88:                        g/(3s)/s//(3S)/
                     89:                        g/(3x)/s//(3X)/
                     90:                        g/"\."/d
                     91:                        w
                     92:                        q
                     93: !
                     94:                ptx -r -t -b $TOOLS/break -f -w $P -i $TOOLS/ignore $TMPDIR/cattoc $MANDIR/man0/ptxx
                     95:                for x in 1 2 3 4 5 6 7 8
                     96:                do
                     97:                        ed - $TMPDIR/tocx$x << !
                     98:                        H
                     99:                                /^intro/m0
                    100:                                1,\$s/ .*://
                    101:                                1,\$s/.$//
                    102:                                1,\$s/([1-8][a-z]\{0,1\}) /" "/
                    103:                                1,\$s/.*/.xx "&"/
                    104:                                g/""/d
                    105:                                w $MANDIR/man0/toc$x
                    106:                                q
                    107: !
                    108:                done
                    109:                ;;
                    110:        * )
                    111:                $0 $p $1 $1
                    112:                ;;
                    113:        esac
                    114: fi

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.