![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tmac.anc.new CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac|
Return to tmac.anc.new CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac |
1.1 ! root 1: ! 2: ' # month name ! 3: .if "\nd"0" .nr m \n(mo-1 ! 4: .if "\nm"0" .ds ]m January ! 5: .if "\nm"1" .ds ]m February ! 6: .if "\nm"2" .ds ]m March ! 7: .if "\nm"3" .ds ]m April ! 8: .if "\nm"4" .ds ]m May ! 9: .if "\nm"5" .ds ]m June ! 10: .if "\nm"6" .ds ]m July ! 11: .if "\nm"7" .ds ]m August ! 12: .if "\nm"8" .ds ]m September ! 13: .if "\nm"9" .ds ]m October ! 14: .if "\nm"10" .ds ]m November ! 15: .if "\nm"11" .ds ]m December ! 16: ' # set the date ! 17: .if n \{.nr m \nm+1 ! 18: . ie \nd .ds ]W Modified \nm/\nd/\ny ! 19: . el .ds ]W Printed \n(mo/\n(dy/\n(yr\} ! 20: .if t \{.ie \nd .ds ]W \*(]m \nd, 19\ny ! 21: . el .ds ]W \*(]m \n(dy, 19\n(yr\} ! 22: .de UC ! 23: .if t .ds ]W First Edition ! 24: .. ! 25: ' # reset the basic page layout ! 26: .de }E ! 27: .}f ! 28: .in \\n()Ru+\\n(INu ! 29: .ll \\n(LLu ! 30: .. ! 31: ' # default tabs ! 32: .de DT ! 33: 'ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i ! 34: .. ! 35: ' # set type font and size ! 36: .de }f ! 37: .ps 10 ! 38: .ft 1 ! 39: .. ! 40: ' # handle the head of the page ! 41: .de }H ! 42: .ev 1 ! 43: .}C ! 44: 'sp .5i ! 45: .ft 1 ! 46: .ps 10 ! 47: .tl @\\*(]H@\\*(]D@\\*(]H@ ! 48: 'sp .5i ! 49: .ev ! 50: .ns ! 51: .. ! 52: ' # handle the foot of the page ! 53: .de }F ! 54: .ev 1 ! 55: .ft 1 ! 56: .ps 10 ! 57: 'sp .5i ! 58: .tl @\\*(]W@\\*(]L@%@ ! 59: 'bp ! 60: .ev ! 61: .. ! 62: ' # the cut mark ! 63: .if n .ig ! 64: .de }C ! 65: .po .1i ! 66: .tl '-' ! 67: .po ! 68: .. ! 69: ' # the final cut mark ! 70: .de }M ! 71: .}N ! 72: .wh -1p }C ! 73: .ll \\n(LLu ! 74: .. ! 75: ' # no runout unless there was a .TH ! 76: .de }K ! 77: .}N ! 78: .pl 1 ! 79: .ll \\n(LLu ! 80: .. ! 81: .em }K ! 82: ' # set title and heading ! 83: .de TH ! 84: .if t .ds ]W Version 7 Unix ! 85: .PD ! 86: .if n .nr IN .5i ! 87: .if t .nr IN .5i ! 88: .nr LL \\n(.l ! 89: .ds ]H \\$1\|(\|\\$2\|) ! 90: .ds ]D CAD Toolbox User's Manual ! 91: .wh 0 }H ! 92: .if t .wh -1i }F ! 93: .if n .wh -1.167i }F ! 94: .em }M ! 95: .if \\n(nl .bp 1 ! 96: .ds ]L \\$3 ! 97: .}E ! 98: .DT ! 99: .nr )I .5i ! 100: .nr )R 0 ! 101: .if n .na ! 102: .. ! 103: ' # section heading ! 104: .de SH ! 105: .}X 0 ! 106: .nr )E 2 ! 107: \&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6 ! 108: .. ! 109: ' # sub section heading ! 110: .de SS ! 111: .}X \\n()Ru+\\n(INu ! 112: \&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6 ! 113: .br ! 114: .. ! 115: ' # subroutine for section heading ! 116: .de }X ! 117: .}E ! 118: .ti \\$1 ! 119: .sp \\n()Pu ! 120: .ne 2 ! 121: .nr )R 0 ! 122: .fi ! 123: .it 1 }N ! 124: .SM ! 125: .B ! 126: .. ! 127: ' # end of SH (cf }X above and }N below) ! 128: .de }2 ! 129: .nr )E 0 ! 130: .}E ! 131: .nr )I .5i ! 132: .ns ! 133: .. ! 134: ' # italic ! 135: .de I ! 136: .ft 2 ! 137: .it 1 }N ! 138: .if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 ! 139: .. ! 140: ' # bold ! 141: .de B ! 142: .ft 3 ! 143: .it 1 }N ! 144: .if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 ! 145: .. ! 146: ' # small ! 147: .de SM ! 148: .ps 9 ! 149: .it 1 }N ! 150: .if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 ! 151: .. ! 152: ' # combinations of Roman, italic, bold ! 153: .de RI ! 154: .}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 155: .. ! 156: .de RB ! 157: .}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 158: .. ! 159: .de IR ! 160: .}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 161: .. ! 162: .de IB ! 163: .}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 164: .. ! 165: .de BR ! 166: .}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 167: .. ! 168: .de BI ! 169: .}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 170: .. ! 171: ' # make special case of shift out of italic ! 172: .de }S ! 173: .ds ]F ! 174: .if "\\$1"2" .if !"\\$5"" .ds ]F\^ ! 175: .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9" ! 176: .el \\$3 ! 177: .}f ! 178: .. ! 179: ' # paragraph ! 180: .de LP ! 181: .PP ! 182: .. ! 183: .de PP ! 184: .sp \\n()Pu ! 185: .ne 2 ! 186: .}E ! 187: .nr )I .5i ! 188: .ns ! 189: .. ! 190: ' # paragraph distance ! 191: .de PD ! 192: .if t .nr )P .4v ! 193: .if n .nr )P 1v ! 194: .if !"\\$1"" .nr )P \\$1v ! 195: .. ! 196: ' # hanging indent ! 197: .de HP ! 198: .sp \\n()Pu ! 199: .ne 2 ! 200: .if !"\\$1"" .nr )I \\$1n ! 201: .ll \\n(LLu ! 202: .in \\n()Ru+\\n(INu+\\n()Iu ! 203: .ti \\n()Ru+\\n(INu ! 204: .}f ! 205: .. ! 206: ' # indented paragraph ! 207: .de IP ! 208: .TP \\$2 ! 209: \&\\$1 ! 210: .. ! 211: ' # hanging label ! 212: .de TP ! 213: .if !"\\$1"" .nr )I \\$1n ! 214: .sp \\n()Pu ! 215: .in \\n()Ru ! 216: .nr )E 1 ! 217: .ns ! 218: .it 1 }N ! 219: .di ]B ! 220: .. ! 221: ' # end of TP (cf }N below) ! 222: .de }1 ! 223: .ds ]X \&\\*(]B\\ ! 224: .nr )E 0 ! 225: .if !"\\$1"" .nr )I \\$1n ! 226: .}f ! 227: .ll \\n(LLu ! 228: .in \\n()Ru+\\n(INu+\\n()Iu ! 229: .ti \\n(INu ! 230: .ie !\\n()Iu+\\n()Ru-\w@\\*(]X@u-3p \{\\*(]X ! 231: .br\} ! 232: .el \\*(]X\h@|\\n()Iu+\\n()Ru@\c ! 233: .}f ! 234: .. ! 235: ' # handle end of 1-line features ! 236: .de }N ! 237: .if \\n()E .br ! 238: .di ! 239: .if "\\n()E"0" .}f ! 240: .if "\\n()E"1" .}1 ! 241: .if "\\n()E"2" .}2 ! 242: .nr )E 0 ! 243: .. ! 244: ' # increase relative indent ! 245: .de RS ! 246: .nr ]\\n+()p \\n()I ! 247: .nr )\\n()p \\n()R ! 248: .ie !"\\$1"" .nr )R +\\$1n ! 249: .el .nr )R +\\n()I ! 250: .nr )I .5i ! 251: .}E ! 252: .. ! 253: ' # decrease relative indent ! 254: .de RE ! 255: .if !"\\$1"" \{.ie "\\$1"0" .nr )p 1 1 ! 256: . el .nr )p \\$1 1\} ! 257: .ds ]i \\*(]I\\n()p ! 258: .ds ]r \\*(]R\\n()p ! 259: .nr )I \\*(]i ! 260: .nr )R \\*(]r ! 261: .if \\n()p .nr )p -1 ! 262: .}E ! 263: .. ! 264: .nr )p 0 1 ! 265: .ds ]I \\\\n(] ! 266: .ds ]R \\\\n() ! 267: .bd S 3 3 ! 268: .if t .ds R \(rg ! 269: .if n .ds R (Reg.) ! 270: .ds S \s10 ! 271: .hy 14
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.