1 #include <signal.h> 2 3 #define MAXPTR (char *)-1 /* max value of any pointer variable */ 4 /* likely to be machine-dependent */ 5 6 /* starting values for typesetting parameters: */ 7 8 #define PS 10 /* default point size */ 9 #define FT 1 /* default font position */ 10 #define ST 1 /* default stipple */ 11 #define LL (unsigned) 65*INCH/10 /* line length; 39picas=6.5in */ 12 #define VS ((12*INCH)/72) /* initial vert space */ 13 14 #ifdef NROFF 15 # define EM t.Em 16 # define HOR t.Hor 17 # define VERT t.Vert 18 # define INCH 240 /* increments per inch */ 19 # define SPS INCH/10 /* space size */ 20 # define SS INCH/10 /* " */ 21 # define TRAILER 0 22 # define UNPAD 0227 23 # define PO 0 /* page offset */ 24 # define ASCII 1 25 # define PTID 1 26 # define LG 0 27 # define DTAB 0 /* set at 8 Ems at init time */ 28 # define ICS 2*SPS 29 #endif 30 #ifndef NROFF /* TROFF */ 31 /* Inch is set by ptinit() when troff started. 32 /* all derived values set then too 33 */ 34 # define INCH Inch /* troff resolution -- number of goobies/inch */ 35 # define POINT (INCH/72) /* goobies per point (1/72 inch) */ 36 # define HOR Hor /* horizontal resolution in goobies */ 37 # define VERT Vert /* vertical resolution in goobies */ 38 # define SPS (EM/3) /* space size */ 39 # define SS 12 /* space size in 36ths of an em */ 40 # define UNPAD 027 41 # define PO (INCH - INCH/27) /* page offset 26/27ths inch */ 42 /* # define EM (POINT * pts) */ 43 #define EM (((long) INCH * pts + 36) / 72) /* don't lose significance */ 44 #define EMPTS(pts) (((long) INCH * (pts) + 36) / 72) 45 # define ASCII 0 46 # define PTID 1 47 # define LG 1 48 # define DTAB (INCH/2) 49 # define ICS 3*SPS 50 #endif 51 52 /* These "characters" are used to encode various internal functions 53 /* Some make use of the fact that most ascii characters between 54 /* 0 and 040 don't have any graphic or other function. 55 /* The few that do have a purpose (e.g., \n, \b, \t, ... 56 /* are avoided by the ad hoc choices here. 57 /* See ifilt[] in n1.c for others -- 1, 2, 3, 5, 6, 7, 010, 011, 012 58 */ 59 60 #define LEADER 001 61 #define IMP 004 /* impossible char; glues things together */ 62 #define TAB 011 63 #define RPT 014 /* next character is to be repeated many times */ 64 #define CHARHT 015 /* size field sets character height */ 65 #define SLANT 016 /* size field sets amount of slant */ 66 #define DRAWFCN 017 /* next several chars describe arb drawing fcn */ 67 /* style: 's' m */ 68 /* thickness: 't' w */ 69 /* line: 'l' dx dy char */ 70 /* circle: 'c' r */ 71 /* ellipse: 'e' rx ry */ 72 /* arc: 'a' dx dy r */ 73 /* wiggly line '~' x y x y ... */ 74 /* or 'g' x y x y ... */ 75 #define DRAWTHICK 't' 76 #define DRAWSTYLE 's' 77 #define DRAWLINE 'l' 78 #define DRAWCIRCLE 'c' /* circle */ 79 #define DRAWELLIPSE 'e' 80 #define DRAWARC 'a' /* arbitrary arc */ 81 #define DRAWCURVE 'g' /* gremlin spline */ 82 #define DRAWWIG '~' /* wiggly line with spline */ 83 #define DRAWPOLY 'p' /* polygon with stipples */ 84 #define DRAWUBPOLY 'P' /* polygon, stipples, no border */ 85 86 #define LEFT 020 /* \{ */ 87 #define RIGHT 021 /* \} */ 88 #define FILLER 022 /* \& and similar purposes */ 89 #define OHC 024 /* optional hyphenation character \% */ 90 #define CONT 025 /* \c character */ 91 #define PRESC 026 /* printable escape */ 92 #define XPAR 030 /* transparent mode indicator */ 93 #define FLSS 031 94 #define WORDSP 032 /* paddable word space */ 95 #define ESC 033 96 97 /* there are several tests (using iscontrol()) 98 /* that rely on these having 034 true. 99 */ 100 #define iscontrol(n) (n>=034 && n<=037) /* used to test the next two */ 101 #define HX 035 /* next character is value of \x'...' */ 102 #define FONTPOS 036 /* position of font \f(XX encoded in top */ 103 #define FONTNAME 037 /* name of font in \f(XX in top */ 104 /* have to appear in this order */ 105 106 #define HYPHEN c_hyphen 107 #define EMDASH c_emdash /* \(em */ 108 #define RULE c_rule /* \(ru */ 109 #define MINUS c_minus /* minus sign on current font */ 110 #define NARSP c_narsp /* narrow space \|: fake character */ 111 #define HNARSP c_hnarsp /* half narrow space \^: fake character */ 112 #define LIG_FI c_fi /* \(ff */ 113 #define LIG_FL c_fl /* \(fl */ 114 #define LIG_FF c_ff /* \(ff */ 115 #define LIG_FFI c_ffi /* \(Fi */ 116 #define LIG_FFL c_ffl /* \(Fl */ 117 #define ACUTE c_acute /* acute accent \(aa */ 118 #define GRAVE c_grave /* grave accent \(ga */ 119 #define UNDERLINE c_under /* \(ul */ 120 #define ROOTEN c_rooten /* root en \(rn */ 121 #define BOXRULE c_boxrule /* box rule \(br */ 122 #define LEFTHAND c_lefthand 123 124 /* array sizes, and similar limits: */ 125 126 #define NFONT 60 /* maximum number of fonts (including specials) */ 127 #define EXTRAFONT 500 /* extra space for swapping a font */ 128 #define NN 300 /* number registers */ 129 #define NNAMES 15 /* predefined reg names */ 130 #define NIF 15 /* if-else nesting */ 131 #define NS 64 /* name buffer */ 132 #define NTM 256 /* tm buffer */ 133 #define NEV 3 /* environments */ 134 #define EVLSZ 10 /* size of ev stack */ 135 #define DSIZE 512 /* disk sector size in chars */ 136 137 /* the following defines the size of the infamous environment block. 138 this macro is guaranteed to blow older C preprocessors out of the 139 water. Any additions to ni.c between "block" and the end of the 140 data space affects this macro. 141 */ 142 143 #define EVUSED \ 144 (61 * sizeof(int) /* integers in env block */ \ 145 + 4 * sizeof(tchar) /* tchars in env block */ \ 146 + 5 * sizeof(tchar *) /* tchar pointers in env block */ \ 147 + NHYP * sizeof(tchar *)/* hytab */ \ 148 + NTAB * sizeof(int) /* tabtab */ \ 149 + (LNSIZE+WDSIZE) * sizeof(tchar)) /* line+word */ 150 151 #define EVSPARE DSIZE - EVUSED % DSIZE /* number of leftover chars */ 152 #define EVS (EVUSED + EVSPARE) /* should be a multiple of DSIZE */ 153 #define NM 500 /* requests + macros */ 154 #define DELTA 1024 /* delta core bytes */ 155 #define NHYP 10 /* max hyphens per word */ 156 #define NHEX 128 /* byte size of exception word list */ 157 #define NTAB 35 /* tab stops */ 158 #define NSO 5 /* "so" depth */ 159 #define WDSIZE 270 /* word buffer size */ 160 #define LNSIZE 680 /* line buffer size */ 161 #define NDI 5 /* number of diversions */ 162 #define NTRTAB 350 /* number of items in trtab[] */ 163 #define NTRAP 20 /* number of traps */ 164 #define NPN 20 /* numbers in "-o" */ 165 #define FBUFSZ 256 /* field buf size words */ 166 #define OBUFSZ 512 /* bytes */ 167 #define IBUFSZ 512 /* bytes */ 168 #define NC 256 /* cbuf size words */ 169 #define NOV 10 /* number of overstrike chars */ 170 #define NPP 10 /* pads per field */ 171 172 /* 173 Internal character representation: 174 Internally, every character is carried around as 175 a 32 bit cookie, called a "tchar" (typedef long). 176 Bits are numbered 31..0 from left to right. 177 If bit 15 is 1, the character is motion, with 178 if bit 16 it's vertical motion 179 if bit 17 it's negative motion 180 If bit 15 is 0, the character is a real character. 181 if bit 31 zero motion 182 bits 30..24 size 183 bits 23..16 font 184 */ 185 186 /* in the following, "L" should really be a tchar, but ... */ 187 188 #define MOT (unsigned short)(01<<15) /* motion character indicator */ 189 #define MOTV (07L<<15) /* clear for motion part */ 190 #define VMOT (01L<<16) /* vert motion bit */ 191 #define NMOT (01L<<17) /* negative motion indicator*/ 192 #define MAXMOT 32767 /* bad way to write this!!! */ 193 #define ismot(n) ((unsigned short)(n) & MOT) /* (short) is a cheap mask */ 194 #define isvmot(n) ((n) & VMOT) /* must have tested MOT previously */ 195 #define isnmot(n) ((n) & NMOT) /* ditto */ 196 #define absmot(n) ((unsigned short)(n) & ~MOT) /* (short) is cheap mask */ 197 198 #define ZBIT (01L << 31) /* zero width char */ 199 #define iszbit(n) ((n) & ZBIT) 200 201 #define SMASK (0177L << 24) 202 #define FMASK (0377L << 16) 203 #define SFMASK (SMASK|FMASK) /* size and font in a tchar */ 204 #define CMASK ~MOT /* clears MOT */ 205 #define CMASKL 077777L 206 #define sbits(n) ((unsigned short)((n) >> 24) & 0177) 207 #define fbits(n) ((unsigned short)((n) >> 16) & 0377) 208 #define sfbits(n) ((unsigned short)(((n) & SFMASK) >> 16)) 209 #define cbits(n) (unsigned short)(n) /* isolate bottom 16 bits */ 210 #define setsbits(n,s) n = (n & ~SMASK) | (tchar)(s) << 24 211 #define setfbits(n,f) n = (n & ~FMASK) | (tchar)(f) << 16 212 #define setsfbits(n,sf) n = (n & ~SFMASK) | (tchar)(sf) << 16 213 #define setcbits(n,c) n = (n & ~CMASKL | (c)) /* set character bits */ 214 215 #define MMASK 0100000 /* macro mask indicator */ 216 #define BMASK 0377 217 #define BYTE 8 218 219 #define ZONE 5 /* 5 hrs for EST */ 220 #define TMASK 037777 221 #define RTAB (unsigned) 0100000 222 #define CTAB 040000 223 224 #define PAIR(A,B) (A|(B<<BYTE)) 225 226 typedef unsigned filep; 227 #define BLK 128 /* alloc block tchars */ 228 #define NBLIST 1024 /* allocation list */ 229 /* previous values were BLK 256 NBLIST 512 */ 230 /* it seems good to keep the product constant */ 231 /* BLK*NBLIST<=65536 words, if filep=unsigned */ 232 233 typedef long tchar; /* as an experiment */ 234 235 extern tchar getch(), getch0(); 236 extern tchar rbf(), rbf0(); 237 extern tchar mot(), hmot(), vmot(); 238 extern tchar makem(), sethl(); 239 extern tchar popi(); 240 extern tchar getlg(); 241 extern tchar xlss(); 242 extern tchar setfield(); 243 extern tchar setz(); 244 extern tchar setch(), absch(); 245 extern tchar setht(), setslant(); 246 247 #define atoi(i) ((int) atoi0(i)) 248 extern long atoi0(); 249 250 extern int Inch, Hor, Vert, Unitwidth; 251 252 /* these characters are used as various signals or values 253 /* in miscellaneous places. 254 /* values are set in specnames in t10.c 255 */ 256 257 extern int c_hyphen; 258 extern int c_emdash; 259 extern int c_rule; 260 extern int c_minus; 261 extern int c_narsp; 262 extern int c_hnarsp; 263 extern int c_fi; 264 extern int c_fl; 265 extern int c_ff; 266 extern int c_ffi; 267 extern int c_ffl; 268 extern int c_acute; 269 extern int c_grave; 270 extern int c_under; 271 extern int c_rooten; 272 extern int c_boxrule; 273 extern int c_lefthand; 274 275 extern int stderr; /* this is NOT the stdio value! */ 276