|
|
1.1 ! root 1: #define BYTE 8 ! 2: #define PAIR(A,B) (A|(B<<BYTE)) ! 3: /* ! 4: character name and code tables ! 5: default width tables ! 6: modified for BTL special font version 4 ! 7: and Commercial II ! 8: */ ! 9: ! 10: int chtab [] = { ! 11: PAIR('h','y'), 0200, /*hyphen*/ ! 12: PAIR('b','u'), 0201, /*bullet*/ ! 13: PAIR('s','q'), 0202, /*square*/ ! 14: PAIR('e','m'), 0203, /*3/4em*/ ! 15: PAIR('r','u'), 0204, /*rule*/ ! 16: PAIR('1','4'), 0205, /*1/4*/ ! 17: PAIR('1','2'), 0206, /*1/2*/ ! 18: PAIR('3','4'), 0207, /*3/4*/ ! 19: PAIR('m','i'), 0302, /*equation minus*/ ! 20: PAIR('f','i'), 0211, /*fi*/ ! 21: PAIR('f','l'), 0212, /*fl*/ ! 22: PAIR('f','f'), 0213, /*ff*/ ! 23: PAIR('F','i'), 0214, /*ffi*/ ! 24: PAIR('F','l'), 0215, /*ffl*/ ! 25: PAIR('d','e'), 0216, /*degree*/ ! 26: PAIR('d','g'), 0217, /*dagger*/ ! 27: PAIR('s','c'), 0220, /*section*/ ! 28: PAIR('f','m'), 0221, /*foot mark*/ ! 29: PAIR('a','a'), 0222, /*acute accent*/ ! 30: PAIR('g','a'), 0223, /*grave accent*/ ! 31: PAIR('u','l'), 0224, /*underrule*/ ! 32: PAIR('s','l'), 0225, /*slash (longer)*/ ! 33: PAIR('*','a'), 0230, /*alpha*/ ! 34: PAIR('*','b'), 0231, /*beta*/ ! 35: PAIR('*','g'), 0232, /*gamma*/ ! 36: PAIR('*','d'), 0233, /*delta*/ ! 37: PAIR('*','e'), 0234, /*epsilon*/ ! 38: PAIR('*','z'), 0235, /*zeta*/ ! 39: PAIR('*','y'), 0236, /*eta*/ ! 40: PAIR('*','h'), 0237, /*theta*/ ! 41: PAIR('*','i'), 0240, /*iota*/ ! 42: PAIR('*','k'), 0241, /*kappa*/ ! 43: PAIR('*','l'), 0242, /*lambda*/ ! 44: PAIR('*','m'), 0243, /*mu*/ ! 45: PAIR('*','n'), 0244, /*nu*/ ! 46: PAIR('*','c'), 0245, /*xi*/ ! 47: PAIR('*','o'), 0246, /*omicron*/ ! 48: PAIR('*','p'), 0247, /*pi*/ ! 49: PAIR('*','r'), 0250, /*rho*/ ! 50: PAIR('*','s'), 0251, /*sigma*/ ! 51: PAIR('*','t'), 0252, /*tau*/ ! 52: PAIR('*','u'), 0253, /*upsilon*/ ! 53: PAIR('*','f'), 0254, /*phi*/ ! 54: PAIR('*','x'), 0255, /*chi*/ ! 55: PAIR('*','q'), 0256, /*psi*/ ! 56: PAIR('*','w'), 0257, /*omega*/ ! 57: PAIR('*','A'), 0101, /*Alpha*/ ! 58: PAIR('*','B'), 0102, /*Beta*/ ! 59: PAIR('*','G'), 0260, /*Gamma*/ ! 60: PAIR('*','D'), 0261, /*Delta*/ ! 61: PAIR('*','E'), 0105, /*Epsilon*/ ! 62: PAIR('*','Z'), 0132, /*Zeta*/ ! 63: PAIR('*','Y'), 0110, /*Eta*/ ! 64: PAIR('*','H'), 0262, /*Theta*/ ! 65: PAIR('*','I'), 0111, /*Iota*/ ! 66: PAIR('*','K'), 0113, /*Kappa*/ ! 67: PAIR('*','L'), 0263, /*Lambda*/ ! 68: PAIR('*','M'), 0115, /*Mu*/ ! 69: PAIR('*','N'), 0116, /*Nu*/ ! 70: PAIR('*','C'), 0264, /*Xi*/ ! 71: PAIR('*','O'), 0117, /*Omicron*/ ! 72: PAIR('*','P'), 0265, /*Pi*/ ! 73: PAIR('*','R'), 0120, /*Rho*/ ! 74: PAIR('*','S'), 0266, /*Sigma*/ ! 75: PAIR('*','T'), 0124, /*Tau*/ ! 76: PAIR('*','U'), 0270, /*Upsilon*/ ! 77: PAIR('*','F'), 0271, /*Phi*/ ! 78: PAIR('*','X'), 0130, /*Chi*/ ! 79: PAIR('*','Q'), 0272, /*Psi*/ ! 80: PAIR('*','W'), 0273, /*Omega*/ ! 81: PAIR('s','r'), 0274, /*square root*/ ! 82: PAIR('t','s'), 0275, /*terminal sigma*/ ! 83: PAIR('r','n'), 0276, /*root en*/ ! 84: PAIR('>','='), 0277, /*>=*/ ! 85: PAIR('<','='), 0300, /*<=*/ ! 86: PAIR('=','='), 0301, /*identically equal*/ ! 87: PAIR('~','='), 0303, /*approx =*/ ! 88: PAIR('a','p'), 0304, /*approximates*/ ! 89: PAIR('!','='), 0305, /*not equal*/ ! 90: PAIR('-','>'), 0306, /*right arrow*/ ! 91: PAIR('<','-'), 0307, /*left arrow*/ ! 92: PAIR('u','a'), 0310, /*up arrow*/ ! 93: PAIR('d','a'), 0311, /*down arrow*/ ! 94: PAIR('e','q'), 0312, /*equation equal*/ ! 95: PAIR('m','u'), 0313, /*multiply*/ ! 96: PAIR('d','i'), 0314, /*divide*/ ! 97: PAIR('+','-'), 0315, /*plus-minus*/ ! 98: PAIR('c','u'), 0316, /*cup (union)*/ ! 99: PAIR('c','a'), 0317, /*cap (intersection)*/ ! 100: PAIR('s','b'), 0320, /*subset of*/ ! 101: PAIR('s','p'), 0321, /*superset of*/ ! 102: PAIR('i','b'), 0322, /*improper subset*/ ! 103: PAIR('i','p'), 0323, /* " superset*/ ! 104: PAIR('i','f'), 0324, /*infinity*/ ! 105: PAIR('p','d'), 0325, /*partial derivative*/ ! 106: PAIR('g','r'), 0326, /*gradient*/ ! 107: PAIR('n','o'), 0327, /*not*/ ! 108: PAIR('i','s'), 0330, /*integral sign*/ ! 109: PAIR('p','t'), 0331, /*proportional to*/ ! 110: PAIR('e','s'), 0332, /*empty set*/ ! 111: PAIR('m','o'), 0333, /*member of*/ ! 112: PAIR('p','l'), 0334, /*equation plus*/ ! 113: PAIR('r','g'), 0335, /*registered*/ ! 114: PAIR('c','o'), 0336, /*copyright*/ ! 115: PAIR('b','r'), 0337, /*box vert rule*/ ! 116: PAIR('c','t'), 0340, /*cent sign*/ ! 117: PAIR('d','d'), 0341, /*dbl dagger*/ ! 118: PAIR('r','h'), 0342, /*right hand*/ ! 119: PAIR('l','h'), 0343, /*left hand*/ ! 120: PAIR('*','*'), 0344, /*math * */ ! 121: PAIR('b','s'), 0345, /*bell system sign*/ ! 122: PAIR('o','r'), 0346, /*or*/ ! 123: PAIR('c','i'), 0347, /*circle*/ ! 124: PAIR('l','t'), 0350, /*left top (of big curly)*/ ! 125: PAIR('l','b'), 0351, /*left bottom*/ ! 126: PAIR('r','t'), 0352, /*right top*/ ! 127: PAIR('r','b'), 0353, /*right bot*/ ! 128: PAIR('l','k'), 0354, /*left center of big curly bracket*/ ! 129: PAIR('r','k'), 0355, /*right center of big curly bracket*/ ! 130: PAIR('b','v'), 0356, /*bold vertical*/ ! 131: PAIR('l','f'), 0357, /*left floor (left bot of big sq bract)*/ ! 132: PAIR('r','f'), 0360, /*right floor (rb of ")*/ ! 133: PAIR('l','c'), 0361, /*left ceiling (lt of ")*/ ! 134: PAIR('r','c'), 0362, /*right ceiling (rt of ")*/ ! 135: 0,0}; ! 136: ! 137: char codetab[256-32] = { /*cat codes*/ ! 138: 00, /*space*/ ! 139: 0145, /*!*/ ! 140: 0230, /*"*/ ! 141: 0337, /*#*/ ! 142: 0155, /*$*/ ! 143: 053, /*%*/ ! 144: 050, /*&*/ ! 145: 032, /*' close*/ ! 146: 0132, /*(*/ ! 147: 0133, /*)*/ ! 148: 0122, /***/ ! 149: 0143, /*+*/ ! 150: 047, /*,*/ ! 151: 040, /*- hyphen*/ ! 152: 044, /*.*/ ! 153: 043, /*/*/ ! 154: 0110, /*0*/ ! 155: 0111, /*1*/ ! 156: 0112, /*2*/ ! 157: 0113, /*3*/ ! 158: 0114, /*4*/ ! 159: 0115, /*5*/ ! 160: 0116, /*6*/ ! 161: 0117, /*7*/ ! 162: 0120, /*8*/ ! 163: 0121, /*9*/ ! 164: 0142, /*:*/ ! 165: 023, /*;*/ ! 166: 0303, /*<*/ ! 167: 0140, /*=*/ ! 168: 0301, /*>*/ ! 169: 0147, /*?*/ ! 170: 0222, /*@*/ ! 171: 0103, /*A*/ ! 172: 075, /*B*/ ! 173: 070, /*C*/ ! 174: 074, /*D*/ ! 175: 072, /*E*/ ! 176: 0101, /*F*/ ! 177: 065, /*G*/ ! 178: 060, /*H*/ ! 179: 066, /*I*/ ! 180: 0105, /*J*/ ! 181: 0107, /*K*/ ! 182: 063, /*L*/ ! 183: 062, /*M*/ ! 184: 061, /*N*/ ! 185: 057, /*O*/ ! 186: 067, /*P*/ ! 187: 055, /*Q*/ ! 188: 064, /*R*/ ! 189: 076, /*S*/ ! 190: 056, /*T*/ ! 191: 0106, /*U*/ ! 192: 071, /*V*/ ! 193: 0104, /*W*/ ! 194: 0102, /*X*/ ! 195: 077, /*Y*/ ! 196: 073, /*Z*/ ! 197: 0134, /*[*/ ! 198: 0241, /*\*/ ! 199: 0135, /*]*/ ! 200: 0336, /*^*/ ! 201: 0240, /*_*/ ! 202: 030, /*` open*/ ! 203: 025, /*a*/ ! 204: 012, /*b*/ ! 205: 027, /*c*/ ! 206: 011, /*d*/ ! 207: 031, /*e*/ ! 208: 014, /*f*/ ! 209: 045, /*g*/ ! 210: 001, /*h*/ ! 211: 006, /*i*/ ! 212: 015, /*j*/ ! 213: 017, /*k*/ ! 214: 005, /*l*/ ! 215: 004, /*m*/ ! 216: 003, /*n*/ ! 217: 033, /*o*/ ! 218: 021, /*p*/ ! 219: 042, /*q*/ ! 220: 035, /*r*/ ! 221: 010, /*s*/ ! 222: 002, /*t*/ ! 223: 016, /*u*/ ! 224: 037, /*v*/ ! 225: 041, /*w*/ ! 226: 013, /*x*/ ! 227: 051, /*y*/ ! 228: 007, /*z*/ ! 229: 0332, /*{*/ ! 230: 0151, /*|*/ ! 231: 0333, /*}*/ ! 232: 0342, /*~*/ ! 233: 00, /*narrow space*/ ! 234: 040, /*hyphen*/ ! 235: 0146, /*bullet*/ ! 236: 0154, /*square*/ ! 237: 022, /*3/4 em*/ ! 238: 026, /*rule*/ ! 239: 034, /*1/4*/ ! 240: 036, /*1/2*/ ! 241: 046, /*3/4*/ ! 242: 0123, /*minus*/ ! 243: 0124, /*fi*/ ! 244: 0125, /*fl*/ ! 245: 0126, /*ff*/ ! 246: 0131, /*ffi*/ ! 247: 0130, /*ffl*/ ! 248: 0136, /*degree*/ ! 249: 0137, /*dagger*/ ! 250: 0355, /*section*/ ! 251: 0150, /*foot mark*/ ! 252: 0334, /*acute accent*/ ! 253: 0335, /*grave accent*/ ! 254: 0240, /*underrule*/ ! 255: 0304, /*slash (longer)*/ ! 256: 00, /*half nar sp*/ ! 257: 00, /**/ ! 258: 0225, /*alpha*/ ! 259: 0212, /*beta*/ ! 260: 0245, /*gamma*/ ! 261: 0211, /*delta*/ ! 262: 0231, /*epsilon*/ ! 263: 0207, /*zeta*/ ! 264: 0214, /*eta*/ ! 265: 0202, /*theta*/ ! 266: 0206, /*iota*/ ! 267: 0217, /*kappa*/ ! 268: 0205, /*lambda*/ ! 269: 0204, /*mu*/ ! 270: 0203, /*nu*/ ! 271: 0213, /*xi*/ ! 272: 0233, /*omicron*/ ! 273: 0221, /*pi*/ ! 274: 0235, /*rho*/ ! 275: 0210, /*sigma*/ ! 276: 0237, /*tau*/ ! 277: 0216, /*upsilon*/ ! 278: 0215, /*phi*/ ! 279: 0227, /*chi*/ ! 280: 0201, /*psi*/ ! 281: 0251, /*omega*/ ! 282: 0265, /*Gamma*/ ! 283: 0274, /*Delta*/ ! 284: 0256, /*Theta*/ ! 285: 0263, /*Lambda*/ ! 286: 0302, /*Xi*/ ! 287: 0267, /*Pi*/ ! 288: 0276, /*Sigma*/ ! 289: 00, /**/ ! 290: 0306, /*Upsilon*/ ! 291: 0255, /*Phi*/ ! 292: 0242, /*Psi*/ ! 293: 0257, /*Omega*/ ! 294: 0275, /*square root*/ ! 295: 0262, /*terminal sigma (was root em)*/ ! 296: 0261, /*root en*/ ! 297: 0327, /*>=*/ ! 298: 0326, /*<=*/ ! 299: 0330, /*identically equal*/ ! 300: 0264, /*equation minus*/ ! 301: 0277, /*approx =*/ ! 302: 0272, /*approximates*/ ! 303: 0331, /*not equal*/ ! 304: 0354, /*right arrow*/ ! 305: 0234, /*left arrow*/ ! 306: 0236, /*up arrow*/ ! 307: 0223, /*down arrow*/ ! 308: 0232, /*equation equal*/ ! 309: 0323, /*multiply*/ ! 310: 0324, /*divide*/ ! 311: 0325, /*plus-minus*/ ! 312: 0260, /*cup (union)*/ ! 313: 0305, /*cap (intersection)*/ ! 314: 0270, /*subset of*/ ! 315: 0271, /*superset of*/ ! 316: 0350, /*improper subset*/ ! 317: 0246, /* improper superset*/ ! 318: 0244, /*infinity*/ ! 319: 0273, /*partial derivative*/ ! 320: 0253, /*gradient*/ ! 321: 0307, /*not*/ ! 322: 0266, /*integral sign*/ ! 323: 0247, /*proportional to*/ ! 324: 0343, /*empty set*/ ! 325: 0341, /*member of*/ ! 326: 0353, /*equation plus*/ ! 327: 0141, /*registered*/ ! 328: 0153, /*copyright*/ ! 329: 0346, /*box rule (was parallel sign)*/ ! 330: 0127, /*cent sign*/ ! 331: 0345, /*dbl dagger*/ ! 332: 0250, /*right hand*/ ! 333: 0340, /*left hand*/ ! 334: 0347, /*math * */ ! 335: 0243, /*bell system sign*/ ! 336: 0226, /*or (was star)*/ ! 337: 0351, /*circle*/ ! 338: 0311, /*left top (of big curly)*/ ! 339: 0314, /*left bottom*/ ! 340: 0315, /*right top*/ ! 341: 0317, /*right bot*/ ! 342: 0313, /*left center of big curly bracket*/ ! 343: 0316, /*right center of big curly bracket*/ ! 344: 0312, /*bold vertical*/ ! 345: 0321, /*left floor (left bot of big sq bract)*/ ! 346: 0320, /*right floor (rb of ")*/ ! 347: 0322, /*left ceiling (lt of ")*/ ! 348: 0310}; /*right ceiling (rt of ")*/ ! 349: ! 350: ! 351: /* include default font character width tables */ ! 352: ! 353: #ifdef unix ! 354: #include "fonts.d/ftR.c" /* Roman */ ! 355: #include "fonts.d/ftI.c" /* Italic */ ! 356: #include "fonts.d/ftB.c" /* Bold */ ! 357: #include "fonts.d/ftS.c" /* Special */ ! 358: #endif ! 359: ! 360: #ifdef ibm ! 361: #include "ftR.c" ! 362: #include "ftI.c" ! 363: #include "ftB.c" ! 364: #include "ftS.c" ! 365: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.