Return to cprog.mac CVS log

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

Annotation of researchv10dc/vol2/grap/cprog.mac, revision 1.1

1.1     ! root        1: .ig
        !             2:        Brian's crummy macros for including programs.
        !             3:        .P1
        !             4:        program text, with tabs...
        !             5:        .P2
        !             6:        This will keep it all on one page; insert
        !             7:        .P3 at will for optional page breaks.
        !             8: 
        !             9: The following are settable number registers:
        !            10: ..
        !            11: .nr dP 1       \" delta point size for program
        !            12:                \" 1 makes it 1 smaller than text
        !            13: .nr dV 1       \" delta vertical for programs; ditto
        !            14: .nr dT 8       \" tab stops this far apart in .P1/.P2
        !            15: .nr NH .5v     \" adds extra space before NH or SH heading
        !            16: .nr ds .5i     \" default indent for programs
        !            17: .hy 14         \" set hyphenation: 2=not last lines; 4= no -xx; 8=no xx-
        !            18: .\"
        !            19: .\"
        !            20: .de UC         \" print 1st arg in smaller size (upper case)
        !            21: .              \" .UC smaller after before
        !            22: .              \" e.g., .UC UNIX .)
        !            23: \&\\$3\s-1\\$1\\s0\&\\$2
        !            24: ..
        !            25: .de IT         \" italicize first argument; same convention for 2nd, 3rd args
        !            26: .nr ff \\n(.f
        !            27: \&\\$3\f2\\$1\f\\n(ff\^\&\\$2
        !            28: ..
        !            29: .de UL         \" print 1st arg in CW font.  don't ask why the name
        !            30: .nr ff \\n(.f
        !            31: \%\&\\$3\f(CW\\$1\f\\n(ff\&\\$2
        !            32: ..
        !            33: .de UI         \" print first arg in CW, second in italic
        !            34: .nr ff \\n(.f
        !            35: \%\&\\$3\f(CW\\$1\f2\\$2\f\\n(ff
        !            36: ..
        !            37: .de BI         \" makes bold italic
        !            38: .nr ff \\n(.f
        !            39: \&\\$3\f4\\$1\f\\n(ff\^\&\\$2
        !            40: ..
        !            41: .de P1         \" start a program display
        !            42: .ie \\n(.$ .DS I \\$1
        !            43: .el .DS I \\n(dsu
        !            44: .nf
        !            45: .lg 0
        !            46: .ps -\\n(dP
        !            47: .vs -\\n(dV
        !            48: .ft CW
        !            49: .nr t \\n(dT*\\w'x'u
        !            50: .ta 1u*\\ntu 2u*\\ntu 3u*\\ntu 4u*\\ntu 5u*\\ntu 6u*\\ntu 7u*\\ntu 8u*\\ntu 9u*\\ntu 10u*\\ntu 11u*\\ntu 12u*\\ntu 13u*\\ntu 14u*\\ntu
        !            51: .lg 0
        !            52: ..
        !            53: .de P2         \" end a program display
        !            54: .ps \\n(PS
        !            55: .vs \\n(VSp
        !            56: .ft 1
        !            57: .fi
        !            58: .DE
        !            59: .lg
        !            60: ..
        !            61: .de P3         \" provides optional break in P1/P2
        !            62: .nr x \\n(DV
        !            63: .nr DV 0
        !            64: .P2
        !            65: .P1 \\n(P1u
        !            66: .nr DV \\nx
        !            67: ..

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