home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / DLIBSSRC.ZIP / CTYPE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-07-07  |  2.9 KB  |  160 lines
  1. /*
  2.  *  CTYPE.C    Character classification and conversion
  3.  */
  4.  
  5. #include <d:\usr\stdlib\stdio.h>
  6. #include <d:\usr\stdlib\ctype.h>
  7.  
  8. #undef    toupper
  9. #undef    tolower
  10.  
  11. unsigned char _ctype[128] = {
  12.     /* 0x00 */    _CTc,
  13.     /* 0x01 */    _CTc,
  14.     /* 0x02 */    _CTc,
  15.     /* 0x03 */    _CTc,
  16.     /* 0x04 */    _CTc,
  17.     /* 0x05 */    _CTc,
  18.     /* 0x06 */    _CTc,
  19.     /* 0x07 */    _CTc,
  20.     /* 0x08 */    _CTc,
  21.     /* 0x09 */    _CTc|_CTs,
  22.     /* 0x0A */    _CTc|_CTs,
  23.     /* 0x0B */    _CTc|_CTs,
  24.     /* 0x0C */    _CTc|_CTs,
  25.     /* 0x0D */    _CTc|_CTs,
  26.     /* 0x0E */    _CTc,
  27.     /* 0x0F */    _CTc,
  28.  
  29.     /* 0x10 */    _CTc,
  30.     /* 0x11 */    _CTc,
  31.     /* 0x12 */    _CTc,
  32.     /* 0x13 */    _CTc,
  33.     /* 0x14 */    _CTc,
  34.     /* 0x15 */    _CTc,
  35.     /* 0x16 */    _CTc,
  36.     /* 0x17 */    _CTc,
  37.     /* 0x18 */    _CTc,
  38.     /* 0x19 */    _CTc,
  39.     /* 0x1A */    _CTc,
  40.     /* 0x1B */    _CTc,
  41.     /* 0x1C */    _CTc,
  42.     /* 0x1D */    _CTc,
  43.     /* 0x1E */    _CTc,
  44.     /* 0x1F */    _CTc,
  45.  
  46.     /* 0x20 */    _CTs,
  47.     /* 0x21 */    _CTp,
  48.     /* 0x22 */    _CTp,
  49.     /* 0x23 */    _CTp,
  50.     /* 0x24 */    _CTp,
  51.     /* 0x25 */    _CTp,
  52.     /* 0x26 */    _CTp,
  53.     /* 0x27 */    _CTp,
  54.     /* 0x28 */    _CTp,
  55.     /* 0x29 */    _CTp,
  56.     /* 0x2A */    _CTp,
  57.     /* 0x2B */    _CTp,
  58.     /* 0x2C */    _CTp,
  59.     /* 0x2D */    _CTp,
  60.     /* 0x2E */    _CTp,
  61.     /* 0x2F */    _CTp,
  62.  
  63.     /* 0x30 */    _CTd|_CTx,
  64.     /* 0x31 */    _CTd|_CTx,
  65.     /* 0x32 */    _CTd|_CTx,
  66.     /* 0x33 */    _CTd|_CTx,
  67.     /* 0x34 */    _CTd|_CTx,
  68.     /* 0x35 */    _CTd|_CTx,
  69.     /* 0x36 */    _CTd|_CTx,
  70.     /* 0x37 */    _CTd|_CTx,
  71.     /* 0x38 */    _CTd|_CTx,
  72.     /* 0x39 */    _CTd|_CTx,
  73.     /* 0x3A */    _CTp,
  74.     /* 0x3B */    _CTp,
  75.     /* 0x3C */    _CTp,
  76.     /* 0x3D */    _CTp,
  77.     /* 0x3E */    _CTp,
  78.     /* 0x3F */    _CTp,
  79.  
  80.     /* 0x40 */    _CTp,
  81.     /* 0x41 */    _CTu|_CTx,
  82.     /* 0x42 */    _CTu|_CTx,
  83.     /* 0x43 */    _CTu|_CTx,
  84.     /* 0x44 */    _CTu|_CTx,
  85.     /* 0x45 */    _CTu|_CTx,
  86.     /* 0x46 */    _CTu|_CTx,
  87.     /* 0x47 */    _CTu,
  88.     /* 0x48 */    _CTu,
  89.     /* 0x49 */    _CTu,
  90.     /* 0x4A */    _CTu,
  91.     /* 0x4B */    _CTu,
  92.     /* 0x4C */    _CTu,
  93.     /* 0x4D */    _CTu,
  94.     /* 0x4E */    _CTu,
  95.     /* 0x4F */    _CTu,
  96.  
  97.     /* 0x50 */    _CTu,
  98.     /* 0x51 */    _CTu,
  99.     /* 0x52 */    _CTu,
  100.     /* 0x53 */    _CTu,
  101.     /* 0x54 */    _CTu,
  102.     /* 0x55 */    _CTu,
  103.     /* 0x56 */    _CTu,
  104.     /* 0x57 */    _CTu,
  105.     /* 0x58 */    _CTu,
  106.     /* 0x59 */    _CTu,
  107.     /* 0x5A */    _CTu,
  108.     /* 0x5B */    _CTp,
  109.     /* 0x5C */    _CTp,
  110.     /* 0x5D */    _CTp,
  111.     /* 0x5E */    _CTp,
  112.     /* 0x5F */    _CTp,
  113.  
  114.     /* 0x60 */    _CTp,
  115.     /* 0x61 */    _CTl|_CTx,
  116.     /* 0x62 */    _CTl|_CTx,
  117.     /* 0x63 */    _CTl|_CTx,
  118.     /* 0x64 */    _CTl|_CTx,
  119.     /* 0x65 */    _CTl|_CTx,
  120.     /* 0x66 */    _CTl|_CTx,
  121.     /* 0x67 */    _CTl,
  122.     /* 0x68 */    _CTl,
  123.     /* 0x69 */    _CTl,
  124.     /* 0x6A */    _CTl,
  125.     /* 0x6B */    _CTl,
  126.     /* 0x6C */    _CTl,
  127.     /* 0x6D */    _CTl,
  128.     /* 0x6E */    _CTl,
  129.     /* 0x6F */    _CTl,
  130.  
  131.     /* 0x70 */    _CTl,
  132.     /* 0x71 */    _CTl,
  133.     /* 0x72 */    _CTl,
  134.     /* 0x73 */    _CTl,
  135.     /* 0x74 */    _CTl,
  136.     /* 0x75 */    _CTl,
  137.     /* 0x76 */    _CTl,
  138.     /* 0x77 */    _CTl,
  139.     /* 0x78 */    _CTl,
  140.     /* 0x79 */    _CTl,
  141.     /* 0x7A */    _CTl,
  142.     /* 0x7B */    _CTp,
  143.     /* 0x7C */    _CTp,
  144.     /* 0x7D */    _CTp,
  145.     /* 0x7E */    _CTp,
  146.     /* 0x7F */    _CTc
  147. };
  148.  
  149. int toupper(c)
  150. int c;
  151. {
  152.     return(islower(c) ? (c)^0x20 : (c));
  153. }
  154.  
  155. int tolower(c)
  156. int c;
  157. {
  158.     return(isupper(c) ? (c)^0x20 : (c));
  159. }
  160.