Return to mkfile CVS log

Up to [Research Unix] / researchv10dc / vol2 / contents

Annotation of researchv10dc/vol2/contents/mkfile, revision 1.1.1.1

1.1       root        1: < ../ADM/defns
                      2: LP=$LPFONTS
                      3: 
                      4: all:V: contents.out contents.list
                      5: 
                      6: pg:    contents.out
                      7:        count contents.ms contents.out
                      8: 
                      9: spell:VQ:
                     10:        dospell contents.ms
                     11: 
                     12: lp:    contents.out
                     13:        $LP $newprereq && touch $target
                     14: 
                     15: contents.list:QPcmp -s:        contents.nlist
                     16:        cp $prereq $target
                     17:        grep -v Contents $target | awk -F= '{
                     18:                file = $4; gsub("/", "\\/", file)
                     19:                printf "/^\\.XX [^ ][^ ]* [0-9]* %s/s/ [0-9]* / %d /\n", file, $3
                     20:        }
                     21:        END     { print "w" }' | ed - contents.ms
                     22: 
                     23: contents.nlist contents.out odd.pages:DQ:      contents.ms $REF
                     24:        echo 'troffing contents.ms ...'
                     25:        $PREFER -sapa contents.ms | troff -mpm > contents.out 2> /tmp/$$
                     26:        (cat /tmp/$$; rm /tmp/$$) | awk -F= 'BEGIN      { page = 1; }
                     27:        { printf "=%s=%d=%s=%s\n", $2, page, $4, $5;
                     28:          name = $4;
                     29:          file = "../" $4 ".pg"; getline < file; pp = $0; close(file)
                     30:          page += pp
                     31:          if((page%2) == 0){
                     32:                spare++;
                     33:                printf "%s: odd page count %d\n", name, page >"odd.pages";
                     34:                page++;
                     35:        }
                     36:        }
                     37:        END     { printf "%d pages.\n%d blank pages.\n", page-1, spare >"/dev/fd/2" }' > contents.nlist
                     38: 
                     39: headers:Q:     contents.list
                     40:        f(){            # f(file, secno, startpage, title)
                     41:                if [ -f $1 ]
                     42:                then
                     43:        echo $1
                     44:                        case $1 in
                     45:                        *.ms)
                     46:                                echo "2s=XX.*=XX $2 $3 \"$4\"=
                     47:                                w" | sed -e 's/\\/\\\\/g' | ed - $1
                     48:                                ;;
                     49:                        */ms)
                     50:                                echo "3s=XX.*=XX $2 $3 \"$4\" \\\" do not move=
                     51:                                w" | sed -e 's/\\/\\\\/g' | ed - $1
                     52:                                ;;
                     53:                        *.m)
                     54:                                echo "/VOL2HEADER/s=VOL2HEADER.*=VOL2HEADER)|set_counter(page $3-1)|set_string(page_headers \"'''\")|set_string(even_headers \"'$4''\\f(NI$2\\fP'\")|set_string(odd_headers \"'\\f(NI$2\\fP''$4'\")|set_string(even_footers \"_\\\\nP__UNIX Papers_\")|set_string(odd_footers \"'Tenth Edition''\\\nP'\")=
                     55:                                w" | sed -e 's/\\/\\\\/g' | ed - $1
                     56:                                ;;
                     57:                        *.tex)
                     58:                                echo "2s=XX.*=XX{$3}{$4}{$2}=
                     59:                                w" | ed - $1
                     60:                                ;;
                     61:                        *)
                     62:                                echo "$1: unknown file type"
                     63:                                ;;
                     64:                        esac
                     65:                else
                     66:                        echo $1 seems broken!
                     67:                fi
                     68:        }
                     69:        export f
                     70:        awk -F= '{ print "f", "../"$4, $2, $3, "\""$5"\"" }' contents.list | sh
                     71:        touch $target
                     72: 
                     73: photo.out:D:   photo1.ms photo2.ms photo0.pic photo1.pic photo2.pic
                     74:        pic photo0.pic > photo0.pic.o
                     75:        pic photo1.pic > photo1.pic.o
                     76:        pic photo11.pic > pho11.pic.o
                     77:        pic photo2.pic > photo2.pic.o
                     78:        pic photo22.pic > pho22.pic.o
                     79:        troff -mpm photo1.ms > photo1.out
                     80:        troff -mpm photo2.ms > photo2.out
                     81: 
                     82: div.out:D:     div.ms
                     83:        troff -mpm div.ms > $target
                     84: 
                     85: title.out:D:   title.tr
                     86:        troff title.tr > $target
                     87: 
                     88: index:V:
                     89:        touch contents.ind
                     90: pindex:V:
                     91:        touch contents.ind

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