home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume14 / jove4.9 / part05 / ctype.c next >
C/C++ Source or Header  |  1988-04-25  |  11KB  |  275 lines
  1. /***************************************************************************
  2.  * This program is Copyright (C) 1986, 1987, 1988 by Jonathan Payne.  JOVE *
  3.  * is provided to you without charge, and with no warranty.  You may give  *
  4.  * away copies of JOVE, including sources, provided that this notice is    *
  5.  * included in all the files.                                              *
  6.  ***************************************************************************/
  7.  
  8. #include "jove.h"
  9. #include "ctype.h"
  10.  
  11. int    SyntaxTable = FUNDAMENTAL;    /* Current table to use. */
  12.  
  13. #ifdef ASCII
  14. char CharTable[NMAJORS][128] = {
  15. #else /* IBMPC or MAC */
  16. char CharTable[NMAJORS][256] = {
  17. #endif /* ASCII */
  18. {    _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  19.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  20.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  21.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  22.     _P,    _P,    _P,    _P,    _P,    _P,    _P,    _P,
  23.     _Op|_P,    _Cl|_P,    _P,    _P,    _P,    _P,    _P,    _P,
  24.     _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,
  25.     _W|_N,    _W|_N,    _P,    _P,    _P,    _P,    _P,    _P,
  26.     _P,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  27.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  28.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  29.     _W|_U,    _W|_U,    _W|_U,    _Op|_P,    _P,    _Cl|_P,    _P,    _P,
  30.     _P,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  31.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  32.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  33. #ifdef ASCII
  34.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C    },
  35. #endif
  36. #ifdef IBMPC
  37.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C,
  38.     0, _W|_L, 0, 0, _W|_L, 0, 0, 0, 0, 0, 0, 0, 0, 0, _W|_U, 0,
  39.     0, 0, 0, 0, _W|_L, 0, 0, 0, 0, _W|_U, _W|_U, 0, 0, 0, 0, 0,
  40.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  41.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  42.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  43.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  44.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  45.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  46.     },
  47.  
  48. #endif /* IBMPC */
  49. #ifdef MAC    /* See Inside Macintosh Vol One p. 247 */
  50.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C,
  51.     _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_L, 
  52.     _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, 
  53.     _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, 
  54.     _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, 
  55.     _P, _P, _P, _P, _P, _P, _P, _P, 
  56.     _P, _P, _P, _P, _P, _P, _W|_U, _W|_U,
  57.     _P, _P, _P, _P, _P, _W|_U, _W|_L, _W|_U, 
  58.     _W|_U, _W|_L, _P, _P, _P, _W|_U, _W|_L, _W|_L,
  59.     _P, _P, _P, _P, _P, _P, _W|_U, _P,
  60.     _P, _P, _P, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, 
  61.     _P, _P, _P, _P, _P, _P, _P, _P, 
  62.     _W|_U, 0, 0, 0, 0, 0, 0, 0, 
  63.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  64.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  65.     },
  66. #endif /* MAC */
  67.  
  68. {    _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  69.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  70.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  71.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  72.     _P,    _P,    _P,    _P,    _P,    _P,    _P,    _P|_W,
  73.     _Op|_P,    _Cl|_P,    _P,    _P,    _P,    _P,    _P,    _P,
  74.     _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,
  75.     _W|_N,    _W|_N,    _P,    _P,    _P,    _P,    _P,    _P,
  76.     _P,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  77.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  78.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  79.     _W|_U,    _W|_U,    _W|_U,    _Op|_P,    _P,    _Cl|_P,    _P,    _P,
  80.     _P,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  81.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  82.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  83. #ifdef ASCII
  84.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C    },
  85. #endif /* ASCII */
  86. #ifdef IBMPC
  87.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C,
  88.     0, _W|_L, 0, 0, _W|_L, 0, 0, 0, 0, 0, 0, 0, 0, 0, _W|_U, 0,
  89.     0, 0, 0, 0, _W|_L, 0, 0, 0, 0, _W|_U, _W|_U, 0, 0, 0, 0, 0,
  90.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  91.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  92.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  93.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  94.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  95.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  96. },
  97.  
  98. #endif /* IBMPC */
  99. #ifdef MAC    /* See Inside Macintosh Vol One p. 247 */
  100.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C,
  101.     _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_L, 
  102.     _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, 
  103.     _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, 
  104.     _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, 
  105.     _P, _P, _P, _P, _P, _P, _P, _P, 
  106.     _P, _P, _P, _P, _P, _P, _W|_U, _W|_U,
  107.     _P, _P, _P, _P, _P, _W|_U, _W|_L, _W|_U, 
  108.     _W|_U, _W|_L, _P, _P, _P, _W|_U, _W|_L, _W|_L,
  109.     _P, _P, _P, _P, _P, _P, _W|_U, _P,
  110.     _P, _P, _P, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, 
  111.     _P, _P, _P, _P, _P, _P, _P, _P, 
  112.     _W|_U, 0, 0, 0, 0, 0, 0, 0, 
  113.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  114.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  115.     },
  116. #endif /* MAC */
  117.  
  118. {    _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  119.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  120.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  121.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  122.     _P,    _P,    _P,    _P,    _P|_W,    _P,    _P,    _P,
  123.     _Op|_P,    _Cl|_P,    _P,    _P,    _P,    _P,    _P,    _P,
  124.     _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,
  125.     _W|_N,    _W|_N,    _P,    _P,    _P,    _P,    _P,    _P,
  126.     _P,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  127.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  128.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  129.     _W|_U,    _W|_U,    _W|_U,    _Op|_P,    _P,    _Cl|_P,    _P,    _P|_W,
  130.     _P,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  131.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  132.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  133. #ifdef ASCII
  134.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C    
  135. #else /* IBMPC or MAC*/
  136.     _W|_L,    _W|_L,    _W|_L,    _Op|_P,    _P,    _Cl|_P,    _P,    _C,
  137.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  138.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  139.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  140.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  141.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  142.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  143.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  144.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  145. #endif /* ASCII */
  146. #ifndef LISP
  147. }
  148. #else
  149. },
  150.  
  151. {    _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  152.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  153.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  154.     _C,    _C,    _C,    _C,    _C,    _C,    _C,    _C,
  155.     _P,    _W|_P,    _P,    _P,    _W|_P,    _W|_P,    _W|_P,    _P,
  156.     _Op|_P,    _Cl|_P,    _W|_P,    _W|_P,    _P,    _W|_P,    _P,    _W,
  157.     _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,    _W|_N,
  158.     _W|_N,    _W|_N,    _W|_P,    _P,    _W|_P,    _W|_P,    _W|_P,    _W|_P,
  159.     _W|_P,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  160.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  161.     _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,    _W|_U,
  162.     _W|_U,    _W|_U,    _W|_U,    _Op|_P,    _P,    _Cl|_P,    _W|_P,    _W|_P,
  163.     _P,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  164.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  165.     _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,    _W|_L,
  166. #ifdef ASCII
  167.     _W|_L,    _W|_L,    _W|_L,    _Op|_W|_P,    _W|_P,    _Cl|_W|_P,    _W|_P,    _W|_C    },
  168. #else /* IBMPC or MAC */
  169.     _W|_L,    _W|_L,    _W|_L,    _Op|_W|_P,    _W|_P,    _Cl|_W|_P,    _W|_P,    _W|_C,
  170.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  171.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  172.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  173.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  174.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  175.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  176.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  177.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0     
  178.     },
  179. #endif /* ASCII */
  180. #endif    /* LISP */
  181. };
  182.  
  183. int
  184. ismword(c)
  185. {
  186.     return ((CharTable[curbuf->b_major])[c]&(_W));
  187. }
  188.  
  189. #ifdef IBMPC
  190. char    CaseEquiv[256] = {
  191.     '\000',    '\001',    '\002',    '\003',    '\004',    '\005',    '\006',    '\007',
  192.     '\010',    '\011',    '\012',    '\013',    '\014',    '\015',    '\016',    '\017',
  193.     '\020',    '\021',    '\022',    '\023',    '\024',    '\025',    '\026',    '\027',
  194.     '\030',    '\031',    '\032',    '\033',    '\034',    '\035',    '\036',    '\037',
  195.     '\040',    '!',    '"',    '#',    '$',    '%',    '&',    '\'',
  196.     '(',    ')',    '*',    '+',    ',',    '-',    '.',    '/',
  197.     '0',    '1',    '2',    '3',    '4',    '5',    '6',    '7',
  198.     '8',    '9',    ':',    ';',    '<',    '=',    '>',    '?',
  199.     '@',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  200.     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  201.     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  202.     'X',    'Y',    'Z',    '[',    '\\',    ']',    '^',    '_',
  203.     '`',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  204.     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  205.     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  206.     'X',    'Y',    'Z',    '{',    '|',    '}',    '~',    '\177',
  207.     128, 154, 130, 131, 142, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 
  208.     144, 145, 146, 147, 153, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 
  209.     160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
  210.     176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
  211.     192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 
  212.     208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  213.     224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 
  214.     240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
  215. };
  216.  
  217. #endif /* IBMPC */
  218. #ifdef MAC
  219. char    CaseEquiv[256] = {
  220.     '\000',    '\001',    '\002',    '\003',    '\004',    '\005',    '\006',    '\007',
  221.     '\010',    '\011',    '\012',    '\013',    '\014',    '\015',    '\016',    '\017',
  222.     '\020',    '\021',    '\022',    '\023',    '\024',    '\025',    '\026',    '\027',
  223.     '\030',    '\031',    '\032',    '\033',    '\034',    '\035',    '\036',    '\037',
  224.     '\040',    '!',    '"',    '#',    '$',    '%',    '&',    '\'',
  225.     '(',    ')',    '*',    '+',    ',',    '-',    '.',    '/',
  226.     '0',    '1',    '2',    '3',    '4',    '5',    '6',    '7',
  227.     '8',    '9',    ':',    ';',    '<',    '=',    '>',    '?',
  228.     '@',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  229.     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  230.     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  231.     'X',    'Y',    'Z',    '[',    '\\',    ']',    '^',    '_',
  232.     '`',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  233.     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  234.     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  235.     'X',    'Y',    'Z',    '{',    '|',    '}',    '~',    '\177',
  236.     0x80,    0x81,    0x82,    0x83,    0x84,    0x85,    0x86,    0x87,
  237.     0xCB,    0x89,    0x80,    0xCC,    0x81,    0x82,    0x83,    0x8F,
  238.     0x90,    0x91,    0x92,    0x93,    0x94,    0x95,    0x84,    0x97,
  239.     0x98,    0x99,    0x85,    0xCD,    0x9C,    0x9D,    0x9E,    0x86,
  240.     0xA0,    0xA1,    0xA2,    0xA3,    0xA4,    0xA5,    0xA6,    0xA7,
  241.     0xA8,    0xA9,    0xAA,    0xAB,    0xAC,    0xAD,    0xAE,    0xAF,
  242.     0xB0,    0xB1,    0xB2,    0xB3,    0xB4,    0xB5,    0xC6,    0xB7,
  243.     0xB8,    0xB8,    0xBA,    0xBB,    0xBC,    0xBD,    0xAE,    0xAF,
  244.     0xC0,    0xC1,    0xC2,    0xC3,    0xC4,    0xC5,    0xC6,    0xC7,
  245.     0xC8,    0xC9,    0xCA,    0xCB,    0xCC,    0xCD,    0xCE,    0xCE,
  246.     0xD0,    0xD1,    0xD2,    0xD3,    0xD4,    0xD5,    0xD6,    0xD7,
  247.     0xD8,    0,        0,        0,        0,        0,        0,        0,
  248.     0,        0,        0,        0,        0,        0,        0,        0,
  249.     0,        0,        0,        0,        0,        0,        0,        0,
  250.     0,        0,        0,        0,        0,        0,        0,        0,
  251.     0,        0,        0,        0,        0,        0,        0,        0
  252. };
  253. #endif /* MAC */
  254. #ifdef ASCII
  255. char CaseEquiv[] = {
  256.     '\000',    '\001',    '\002',    '\003',    '\004',    '\005',    '\006',    '\007',
  257.     '\010',    '\011',    '\012',    '\013',    '\014',    '\015',    '\016',    '\017',
  258.     '\020',    '\021',    '\022',    '\023',    '\024',    '\025',    '\026',    '\027',
  259.     '\030',    '\031',    '\032',    '\033',    '\034',    '\035',    '\036',    '\037',
  260.     '\040',    '!',    '"',    '#',    '$',    '%',    '&',    '\'',
  261.     '(',    ')',    '*',    '+',    ',',    '-',    '.',    '/',
  262.     '0',    '1',    '2',    '3',    '4',    '5',    '6',    '7',
  263.     '8',    '9',    ':',    ';',    '<',    '=',    '>',    '?',
  264.     '@',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  265.     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  266.     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  267.     'X',    'Y',    'Z',    '[',    '\\',    ']',    '^',    '_',
  268.     '`',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  269.     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  270.     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  271.     'X',    'Y',    'Z',    '{',    '|',    '}',    '~',    '\177'
  272. };
  273.  
  274. #endif /* ASCII */
  275.