home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / Tex29 / StTeXsrc.zoo / src / char.c < prev    next >
C/C++ Source or Header  |  1988-08-13  |  3KB  |  132 lines
  1.  
  2. /*
  3.  * @(#)char.c 2.6 EPA
  4.  *
  5.  * Copyright 1987,1988 Pat J Monardo
  6.  *
  7.  * Redistribution of this file is permitted through
  8.  * the specifications in the file COPYING.
  9.  *
  10.  * 
  11.  */
  12.  
  13. #include    "tex.h"
  14.  
  15. ascii   xord[256];
  16. byte    xchr[256];
  17.  
  18. init_char ()
  19. {
  20.     int     i;
  21.  
  22.     xchr[040] = ' ';
  23.     xchr[041] = '!';
  24.     xchr[042] = '"';
  25.     xchr[043] = '#';
  26.     xchr[044] = '$';
  27.     xchr[045] = '%';
  28.     xchr[046] = '&';
  29.     xchr[047] = '\'';
  30.     xchr[050] = '(';
  31.     xchr[051] = ')';
  32.     xchr[052] = '*';
  33.     xchr[053] = '+';
  34.     xchr[054] = ',';
  35.     xchr[055] = '-';
  36.     xchr[056] = '.';
  37.     xchr[057] = '/';
  38.     xchr[060] = '0';
  39.     xchr[061] = '1';
  40.     xchr[062] = '2';
  41.     xchr[063] = '3';
  42.     xchr[064] = '4';
  43.     xchr[065] = '5';
  44.     xchr[066] = '6';
  45.     xchr[067] = '7';
  46.     xchr[070] = '8';
  47.     xchr[071] = '9';
  48.     xchr[072] = ':';
  49.     xchr[073] = ';';
  50.     xchr[074] = '<';
  51.     xchr[075] = '=';
  52.     xchr[076] = '>';
  53.     xchr[077] = '?';
  54.     xchr[0100] = '@';
  55.     xchr[0101] = 'A';
  56.     xchr[0102] = 'B';
  57.     xchr[0103] = 'C';
  58.     xchr[0104] = 'D';
  59.     xchr[0105] = 'E';
  60.     xchr[0106] = 'F';
  61.     xchr[0107] = 'G';
  62.     xchr[0110] = 'H';
  63.     xchr[0111] = 'I';
  64.     xchr[0112] = 'J';
  65.     xchr[0113] = 'K';
  66.     xchr[0114] = 'L';
  67.     xchr[0115] = 'M';
  68.     xchr[0116] = 'N';
  69.     xchr[0117] = 'O';
  70.     xchr[0120] = 'P';
  71.     xchr[0121] = 'Q';
  72.     xchr[0122] = 'R';
  73.     xchr[0123] = 'S';
  74.     xchr[0124] = 'T';
  75.     xchr[0125] = 'U';
  76.     xchr[0126] = 'V';
  77.     xchr[0127] = 'W';
  78.     xchr[0130] = 'X';
  79.     xchr[0131] = 'Y';
  80.     xchr[0132] = 'Z';
  81.     xchr[0133] = '[';
  82.     xchr[0134] = '\\';
  83.     xchr[0135] = ']';
  84.     xchr[0136] = '^';
  85.     xchr[0137] = '_';
  86.     xchr[0140] = '`';
  87.     xchr[0141] = 'a';
  88.     xchr[0142] = 'b';
  89.     xchr[0143] = 'c';
  90.     xchr[0144] = 'd';
  91.     xchr[0145] = 'e';
  92.     xchr[0146] = 'f';
  93.     xchr[0147] = 'g';
  94.     xchr[0150] = 'h';
  95.     xchr[0151] = 'i';
  96.     xchr[0152] = 'j';
  97.     xchr[0153] = 'k';
  98.     xchr[0154] = 'l';
  99.     xchr[0155] = 'm';
  100.     xchr[0156] = 'n';
  101.     xchr[0157] = 'o';
  102.     xchr[0160] = 'p';
  103.     xchr[0161] = 'q';
  104.     xchr[0162] = 'r';
  105.     xchr[0163] = 's';
  106.     xchr[0164] = 't';
  107.     xchr[0165] = 'u';
  108.     xchr[0166] = 'v';
  109.     xchr[0167] = 'w';
  110.     xchr[0170] = 'x';
  111.     xchr[0171] = 'y';
  112.     xchr[0172] = 'z';
  113.     xchr[0173] = '{';
  114.     xchr[0174] = '|';
  115.     xchr[0175] = '}';
  116.     xchr[0176] = '~';
  117.     xchr[0177] = xchr[000] = ' ';
  118.     for (i = 1; i <= 037; incr(i))
  119.         xchr[i] = ' ';
  120.     for (i = 0200; i <= 0377; incr(i))
  121.         xchr[i] = i;
  122.     xchr[FORM_FEED] =  '\f';
  123.     xchr[TAB] = '\t';
  124.     xchr[NUL] = '\0';
  125.     for (i = FIRST_TEXT_CHAR; i <= LAST_TEXT_CHAR; incr(i))
  126.         xord[xchr[i]] = INVALID_CODE;
  127.     for (i = 1; i <= 0176; incr(i))
  128.         xord[xchr[i]] = i;
  129.     for (i = 0200; i <= 0377; incr(i))
  130.         xord[xchr[i]] = i;
  131. }
  132.