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

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.