Return to vlpmacs CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / vlp

Annotation of 42BSD/ucb/vlp/vlpmacs, revision 1.1.1.1

1.1       root        1: ." $Header: /usr/src/ucb/vlp/RCS/vlpmacs,v 1.4 83/08/04 16:15:42 layer Exp $   
                      2: ." .Fi   -- print out file name and date, used at beginning of document
                      3: ."
                      4: .de Fi
                      5: .ds Hd
                      6: .if !'\\*(F='' .bp
                      7: .if '\\*(F='' .sp 5v
                      8: .ds F= \\$1
                      9: .nr % 1
                     10: .ev 1
                     11: .ft 2
                     12: .ps 12
                     13: .tl 'File: \\*(F=''Modified: \\$2'
                     14: .tl '''Printed: \\$3'
                     15: .ev
                     16: .sp .25i 
                     17: ..
                     18: ."
                     19: ."   .Ti <text>            -- declare text to be printed at the bottom of each page
                     20: ."
                     21: .de Ti
                     22: .ds T= \\$1
                     23: ..
                     24: ."
                     25: ."  .He   -- print out bottom of page information, and skip to next page
                     26: ."
                     27: .de He
                     28: .br
                     29: .ev 1
                     30: .ft 2
                     31: .ps 12
                     32: .sp .25i
                     33: .tl '\\*(T=''Page \\n% of \\*(F='
                     34: .bp
                     35: .ft 3
                     36: .ps 12
                     37: .sp 4v
                     38: .if !'\\*(Hd'' .tl '''...\\*(Hd'
                     39: .if !'\\*(Hd'' .sp .25i
                     40: .ev
                     41: ..
                     42: ." 
                     43: ." trap bottom of page -1.25 from bottom of paper
                     44: ."
                     45: ."
                     46: ."     .Lf <name> --- declare we are in lisp function <name>
                     47: ."
                     48: .de Lf
                     49: .ds Hd \\$1
                     50: .br
                     51: .ev 2          \" So it works with me macros, which use ev 1
                     52: .ft 3
                     53: .ps 12
                     54: .tl '''\\*(Hd'
                     55: .ev
                     56: ..
                     57: ."
                     58: ."
                     59: ."     .Ls <size> --- Begin block of embedded Lisp code
                     60: ."
                     61: .de Ls
                     62: ." save the point size and vert spacing
                     63: .nr Op \\n(.s
                     64: .nr Ov \\n(.v
                     65: .if \\n(.$=1 .ps \\$1
                     66: .if \\n(.$=1 .vs \\$1+2v
                     67: ." save fill register flag in Xu and start fill mode
                     68: .nr Xu \\n(.u
                     69: .nf
                     70: ..
                     71: ."
                     72: ."
                     73: ."     .Le --- End block of embedded Lisp code
                     74: ."
                     75: .de Le
                     76: .vs \\n(Ovu
                     77: .ps \\n(Op
                     78: .if \\n(Xu .fi
                     79: ..
                     80: .ds T= 
                     81: .ds F=

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