gnu/lib/libregex/test/upcase.c

   1 /* Indexed by a character, gives the upper case equivalent of the
   2    character.  */
   3
   4 char upcase[0400] =
   5   { 000, 001, 002, 003, 004, 005, 006, 007,
   6     010, 011, 012, 013, 014, 015, 016, 017,
   7     020, 021, 022, 023, 024, 025, 026, 027,
   8     030, 031, 032, 033, 034, 035, 036, 037,
   9     040, 041, 042, 043, 044, 045, 046, 047,
  10     050, 051, 052, 053, 054, 055, 056, 057,
  11     060, 061, 062, 063, 064, 065, 066, 067,
  12     070, 071, 072, 073, 074, 075, 076, 077,
  13     0100, 0101, 0102, 0103, 0104, 0105, 0106, 0107,
  14     0110, 0111, 0112, 0113, 0114, 0115, 0116, 0117,
  15     0120, 0121, 0122, 0123, 0124, 0125, 0126, 0127,
  16     0130, 0131, 0132, 0133, 0134, 0135, 0136, 0137,
  17     0140, 0101, 0102, 0103, 0104, 0105, 0106, 0107,
  18     0110, 0111, 0112, 0113, 0114, 0115, 0116, 0117,
  19     0120, 0121, 0122, 0123, 0124, 0125, 0126, 0127,
  20     0130, 0131, 0132, 0173, 0174, 0175, 0176, 0177,
  21     0200, 0201, 0202, 0203, 0204, 0205, 0206, 0207,
  22     0210, 0211, 0212, 0213, 0214, 0215, 0216, 0217,
  23     0220, 0221, 0222, 0223, 0224, 0225, 0226, 0227,
  24     0230, 0231, 0232, 0233, 0234, 0235, 0236, 0237,
  25     0240, 0241, 0242, 0243, 0244, 0245, 0246, 0247,
  26     0250, 0251, 0252, 0253, 0254, 0255, 0256, 0257,
  27     0260, 0261, 0262, 0263, 0264, 0265, 0266, 0267,
  28     0270, 0271, 0272, 0273, 0274, 0275, 0276, 0277,
  29     0300, 0301, 0302, 0303, 0304, 0305, 0306, 0307,
  30     0310, 0311, 0312, 0313, 0314, 0315, 0316, 0317,
  31     0320, 0321, 0322, 0323, 0324, 0325, 0326, 0327,
  32     0330, 0331, 0332, 0333, 0334, 0335, 0336, 0337,
  33     0340, 0341, 0342, 0343, 0344, 0345, 0346, 0347,
  34     0350, 0351, 0352, 0353, 0354, 0355, 0356, 0357,
  35     0360, 0361, 0362, 0363, 0364, 0365, 0366, 0367,
  36     0370, 0371, 0372, 0373, 0374, 0375, 0376, 0377
  37   };
  38
  39