Return to makind1 CVS log

Up to [Research Unix] / researchv10dc / man / adm

Annotation of researchv10dc/man/adm/makind1, revision 1.1.1.1

1.1       root        1: cd $1
                      2: for i in *
                      3: do
                      4:        sed -n "
                      5:        /^.TH *[^ ]* */{
                      6:                s///
                      7:                s/ .*//
                      8:                h
                      9:        }
                     10:        /SH.*NAM/{
                     11:                N
                     12:                s/.*\n//
                     13:                :x
                     14:                N
                     15:                /\\n.SH.*/{
                     16:                        s///
                     17:                        s/^/$i /
                     18:                        s/\.[^ .]* / /
                     19:                        s/\\n/ /g
                     20:                        s/  */ /g
                     21:                        G
                     22:                        s/\([^ ]*\)\(.*\)\n\(.*\)/\1(\3)\2/
                     23:                        s/[A-Z])/)/
                     24:                        p
                     25:                        d
                     26:                }
                     27:                s/\n\..*//
                     28:                bx
                     29:        }
                     30: " $i
                     31: done 
                     32: exit
                     33: # add to shell script to get file references
                     34: # in this case, pipe output thru uniq
                     35:        /^\.RF *[^ ]*/s//.F/
                     36:        /^\.FR\(.* \).*/s//.F \1/
                     37:        /^\.F  */{
                     38:                s//$i /
                     39:                s/\.[^ .]*//
                     40:                G
                     41:                s/\([^ ]*\)\(.*\)\n\(.*\)/\1(\3)\2/
                     42:                s/[A-Z+])/)/
                     43:                p
                     44:        }

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