Return to pagecount CVS log

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

Annotation of researchv10dc/man/adm/pagecount, revision 1.1.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.