![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tmac.an CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / a / usr / lib|
Return to tmac.an CVS log | Up to [MW Coherent from dump] / coherent / a / usr / lib |
1.1 ! root 1: .\" /usr/lib/tmac.an 10/12/83 V1.2 ! 2: .\" COHERENT manual nroff macro package ! 3: .\" Copyright (c) 1981-1990 by Mark Williams Company, Chicago. ! 4: .\" All rights reserved. May not be copied or disclosed without permission. ! 5: .\" New macros added by fwb to support Lexicon files, 4/21/1990. ! 6: .\" ! 7: .\" environment usage: ! 8: .\" 0 input-line-count traps for argument collecting ! 9: .\" 1 input-line-count traps for font macros ! 10: .\" 2 indentation-free diversion processing ! 11: .\" global regs: ! 12: .\" cP current page number ! 13: .\" pD interparagraph distance ! 14: .\" *P pointer to "*" stack ! 15: .\" =P pointer to "=" stack ! 16: .\" global strings: ! 17: .\" tH the header title ! 18: .\" tF the footer title ! 19: .\" stack usage: ! 20: .\" * holds the prevailing indent value for that level ! 21: .\" = holds the increment of indentation taken for that level ! 22: .\" ! 23: . ! 24: . ! 25: .\" ! 26: .\" ! 27: .\" user-called macros ! 28: .\" ! 29: . the header macro ! 30: .de CO ! 31: COHERENT ! 32: .. ! 33: .de TH ! 34: .wh 0 ! 35: .if \\n(nl .bp 0 ! 36: .nr pN 0 1 ! 37: .Rr ! 38: .ds tH "'\fB\\$1\fP'\\$4'\fB\\$1\fP'" ! 39: .ds tF "'COHERENT \\$3 Manual'\\$2'Page \\\\n+(pN'" ! 40: .in 0 ! 41: .he ! 42: .wh 0 he ! 43: .. ! 44: . slug that describes function. Under Lexicon macros, does lots of stuff ! 45: .de PC ! 46: .if \\n(.$ \\$1 ! 47: .. ! 48: .de TL ! 49: .tm tmac.an: there is no such macro `.TL'; please use `.TH' ! 50: .ab ! 51: .. ! 52: . subheading ! 53: .de SH ! 54: .br ! 55: .sp \\n(pDu ! 56: .Rr ! 57: .Pr ! 58: .fi ! 59: .in 0 ! 60: .ne 3 ! 61: .ft B ! 62: .it 1 S- ! 63: .if \\n(.$ .Xa \\n(.$ "*** \\$1 ***" "*** \\$2 ***" "*** \\$3 ***" "\\$4" "\\$5" "\\$6" ! 64: .. ! 65: . begin paragraph ! 66: .de PP ! 67: .Np ! 68: .nr *\\n(*P 5n ! 69: .nr *\\n+(*P 5n ! 70: .nr =\\n+(=P 0 ! 71: .ns ! 72: .. ! 73: .de DS \" Indented display (sleazy version) ! 74: .LP ! 75: .sp ! 76: .nf ! 77: .ne 5 ! 78: .in +5n ! 79: .. ! 80: .de DE \" End display ! 81: .in -5n ! 82: .ne 0 ! 83: .LP ! 84: .sp ! 85: .. ! 86: .de MS \" Machine-specific start (will take list of machines) ! 87: .. ! 88: .de ME \" Machine-specific end ! 89: .. ! 90: . begin left-justified (block) paragraph ! 91: .de LP ! 92: .Np ! 93: .nr *\\n(*P 5n ! 94: .nr *\\n+(*P 5n ! 95: .nr =\\n+(=P 0 ! 96: .ns ! 97: .. ! 98: . begin hanging paragraph ! 99: .de HP ! 100: .Np ! 101: .nr {c \\n(*\\n(*P ! 102: .if \\n(.$ \{\ ! 103: .nr {c \\$1n ! 104: .nr *\\n(*P \\n({c\} ! 105: .nr *\\n+(*P \\n({c ! 106: .nr =\\n+(=P \\n({c ! 107: .in +\\n({cu ! 108: .ti -\\n({cu ! 109: .ns ! 110: .. ! 111: . begin indented paragraph ! 112: .de IP ! 113: .Np ! 114: .nr {c \\n(*\\n(*P ! 115: .if \\n(.$>1 \{\ ! 116: .nr {c \\$2n ! 117: .nr *\\n(*P \\n({c\} ! 118: .nr *\\n+(*P \\n({c ! 119: .nr =\\n+(=P \\n({c ! 120: .in +\\n({cu ! 121: .ti -\\n({cu ! 122: .if \\n(.$ .ds {a "\\$1 ! 123: .if !\\n(.$ .ds {a ! 124: \&\\*({a ! 125: .if \\n({c-\w'\\*({a'<1m .br ! 126: .if \\n({c-\w'\\*({a'>=1m \h'|\\n(.i'\c ! 127: .ns ! 128: .. ! 129: . display within an indented paragraph ! 130: .de ID ! 131: .sp ! 132: .nf ! 133: .ft L ! 134: .. ! 135: .de IE ! 136: .sp ! 137: .fi ! 138: .ft R ! 139: .. ! 140: . begin tagged paragraph ! 141: .de TP ! 142: .Np ! 143: .nr {c \\n(*\\n(*P ! 144: .if \\n(.$ \{\ ! 145: .nr {c \\$1n ! 146: .nr *\\n(*P \\n({c\} ! 147: .nr *\\n+(*P \\n({c ! 148: .nr =\\n+(=P \\n({c ! 149: .in +\\n({cu ! 150: .ti -\\n({cu ! 151: .ev 2 ! 152: .di {b ! 153: .it 1 T- ! 154: .. ! 155: . begin relative indent ! 156: .de RS ! 157: .nr {c \\n(*\\n(*P ! 158: .if \\n(.$ \{\ ! 159: .nr {c \\$1n ! 160: .nr *\\n(*P \\n({c\} ! 161: .nr *\\n+(*P \\n({c ! 162: .nr *\\n+(*P \\n({c ! 163: .nr {c -\\n(=\\n(=P ! 164: .nr =\\n+(=P \\n({c ! 165: .nr =\\n+(=P 0 ! 166: .in +\\n({cu ! 167: .. ! 168: . end relative indent ! 169: .de RE ! 170: .nr *P -2 1 ! 171: .in -\\n(=\\n(=Pu ! 172: .in -\\n(=\\n-(=Pu ! 173: .nr =P -1 1 ! 174: .. ! 175: . begin help ! 176: .de HS ! 177: .ig HE ! 178: .. ! 179: . end help ! 180: .de HE ! 181: .. ! 182: . bold font ! 183: .de B ! 184: .if \\n(.$>0 \\fB\\$1\\fP ! 185: .if \\n(.$=0 .ft B ! 186: .. ! 187: . bold/italic fonts ! 188: .de BI ! 189: .Af B I \\n(.$ "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 190: .. ! 191: . bold/roman fonts ! 192: .de BR ! 193: .Af B R \\n(.$ "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 194: .. ! 195: .de R ! 196: .if \\n(.$>0 \\fR\\$1\\fP ! 197: .if \\n(.$=0 .ft R ! 198: .. ! 199: . italic font ! 200: .de I ! 201: .if \\n(.$>0 \\fI\\$1\\fP ! 202: .if \\n(.$=0 .ft I ! 203: .. ! 204: . italic/bold fonts ! 205: .de IB ! 206: .Af I B \\n(.$ "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 207: .. ! 208: . italic/roman fonts ! 209: .de IR ! 210: .Af I R \\n(.$ "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 211: .. ! 212: . roman/bold fonts ! 213: .de RB ! 214: .Af R B \\n(.$ "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 215: .. ! 216: . roman/italic fonts ! 217: .de RI ! 218: .Af R I \\n(.$ "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 219: .. ! 220: . set default tabs ! 221: .de DT ! 222: .if \\n(.$ .ta \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 ! 223: .if !\\n(.$ .ta 5 10 15 20 25 30 ! 224: .. ! 225: . set interparagraph distance ! 226: .de PD ! 227: .if \\n(.$ .nr pD \\$1v ! 228: .if !\\n(.$ .nr pD 1v ! 229: .. ! 230: . small letters ! 231: .de SM ! 232: .Xa \\n(.$ "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" ! 233: .. ! 234: .\" ! 235: .\" internal macros ! 236: .\" ! 237: .de II \" Index invisible ! 238: .if \nG=0 .tm %\\$1=\\n# ! 239: .. ! 240: .de S- \" cleanup .SH ! 241: .br ! 242: .ft P ! 243: .in 5n ! 244: .ns ! 245: .. ! 246: .de Np \" new paragraph ! 247: .in -\\n(=\\n(=Pu ! 248: .nr *P -1 1 ! 249: .nr =P -1 1 ! 250: .sp \\n(pDu ! 251: .ne 2 ! 252: .ft R ! 253: .fi ! 254: .. ! 255: .de T- \" cleanup .TP ! 256: .br ! 257: .di ! 258: .ev ! 259: .{b ! 260: .if \\n(*\\n(*P-\\n(dl<1m .br ! 261: .if \\n(*\\n(*P-\\n(dl>=1m \h'|\\n(.i'\c ! 262: .. ! 263: .de Pf \" set previous font ! 264: .br ! 265: .di ! 266: .ev ! 267: .{e ! 268: .. ! 269: .de Af \" alternating fonts ! 270: .if \\$3>1 \f\\$1\\$4\fP\f\\$2\\$5\fP ! 271: .if \\$3>3 \f\\$1\\$6\fP\f\\$2\\$7\fP ! 272: .if \\$3>5 \f\\$1\\$8\fP\f\\$2\\$9\fP ! 273: .. ! 274: .de Xa \" expand arguments ! 275: .if \\$1>0 \&\\$2 ! 276: .if \\$1>1 \&\\$3 ! 277: .if \\$1>2 \&\\$4 ! 278: .if \\$1>3 \&\\$5 ! 279: .if \\$1>4 \&\\$6 ! 280: .if \\$1>5 \&\\$7 ! 281: .. ! 282: .de Rr \" reset regs ! 283: .nr pD 1v ! 284: .nr *P 1 1 ! 285: .af *P a ! 286: .nr =P 1 1 ! 287: .af =P a ! 288: .nr *a 5n ! 289: .nr =a 0 ! 290: .. ! 291: .de Pr \" push top reg on each stack ! 292: .nr {d \\n(*\\n(*P ! 293: .nr *\\n+(*P \\n({d ! 294: .nr {d \\n(=\\n(=P ! 295: .nr =\\n+(=P \\n({d ! 296: .. ! 297: .de he \" the header ! 298: 'sp 2 ! 299: .tl \\*(tH ! 300: 'sp 3 ! 301: .. ! 302: .de fo \" the footer ! 303: 'sp 2 ! 304: .tl \\*(tF ! 305: 'bp ! 306: .. ! 307: .\" ! 308: .\" general initialization ! 309: .\" ! 310: .wh -5 fo ! 311: .ds - -
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.