Return to vlpmacs CVS log

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

Annotation of 42BSD/ucb/vlp/vlpmacs, revision 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.