Return to pagecount CVS log

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

Annotation of researchv10dc/man/adm/pagecount, revision 1.1

1.1     ! root        1: PAGESIZES=/usr/man/man0/pagesizes
        !             2: case $1 in
        !             3: -f)
        !             4: cd /usr/man
        !             5: >$PAGESIZES
        !             6: for i in man[1-9]
        !             7: do
        !             8: for j in $i/*
        !             9: do
        !            10: `preprocess $j` |
        !            11:      troff -a -rp1 /usr/man/man0/tmac.v10 - \
        !            12: 2>&1 1>/dev/null | 
        !            13:      sed "s%-%$j%" >>$PAGESIZES
        !            14: done
        !            15: done
        !            16: esac
        !            17: 
        !            18: cd /usr/man/man0
        !            19: 
        !            20: # pagesizes: pagename (e.g. man1/cat.1) pagelength (actual # of pages)
        !            21: #      obtained directly from troff
        !            22: # pagelist: pagename [pagelength] (estimated # of pages)
        !            23: #      in printed order, hand-maintained
        !            24: 
        !            25: sort $PAGESIZES -o $PAGESIZES
        !            26: 
        !            27: grep -n . pagelist|    # supply sequence numbers
        !            28: sed '
        !            29: s/ *$//
        !            30: / /!s/$/ 1/
        !            31: /:/s// /
        !            32: ' |sort +1|
        !            33: join -j1 2 -a1 -o 1.1 1.2 2.2 1.3 - $PAGESIZES|
        !            34: sort -n >junkq
        !            35: 
        !            36: # junkq: seqno pagename estimate actual (lengths)
        !            37: 
        !            38: echo pages NOT FOUND and assumed lengths:
        !            39: awk 'NF<4 {print $2, $3}' junkq
        !            40: 
        !            41: awk '
        !            42: BEGIN { pagen=1}
        !            43: $2~/^odd$/ { pagen = int(pagen/2)*2+1; print "odd"; next }
        !            44: { print $2, $3, pagen ; pagen += $3 }
        !            45: ' junkq >pagenumbers
        !            46: 
        !            47: # pagenumbers: pagename  pagelength pagenumber

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