Return to mkinsert CVS log

Up to [Research Unix] / researchv10dc / vol2 / index / tools

Annotation of researchv10dc/vol2/index/tools/mkinsert, revision 1.1.1.1

1.1       root        1: awk '
                      2: /^[0-9][0-9]*/ {
                      3:        if(start)print cmd
                      4:        number=$1
                      5:        sub(/^[0-9][0-9]* /,"")
                      6:        laststr=$0
                      7:        cmd = number "i\\\n.Tm " $0
                      8:        start=1
                      9:        next
                     10:        }
                     11: /.*/   {
                     12:        if($0 != laststr){
                     13:                cmd = cmd "\\\n.Tm " $0
                     14:                laststr=$0
                     15:        }
                     16:        }
                     17: END    {print cmd}
                     18: ' $1

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