home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / bin / csh / char.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-25  |  9.6 KB  |  312 lines
  1. /*-
  2.  * Copyright (c) 1980, 1991 The Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  * 1. Redistributions of source code must retain the above copyright
  9.  *    notice, this list of conditions and the following disclaimer.
  10.  * 2. Redistributions in binary form must reproduce the above copyright
  11.  *    notice, this list of conditions and the following disclaimer in the
  12.  *    documentation and/or other materials provided with the distribution.
  13.  * 3. All advertising materials mentioning features or use of this software
  14.  *    must display the following acknowledgement:
  15.  *    This product includes software developed by the University of
  16.  *    California, Berkeley and its contributors.
  17.  * 4. Neither the name of the University nor the names of its contributors
  18.  *    may be used to endorse or promote products derived from this software
  19.  *    without specific prior written permission.
  20.  *
  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31.  * SUCH DAMAGE.
  32.  */
  33.  
  34. #ifndef lint
  35. static char sccsid[] = "@(#)char.c    5.8 (Berkeley) 8/25/91";
  36. #endif /* not lint */
  37.  
  38. #include "char.h"
  39.  
  40. unsigned short _cmap[256] = {
  41. /*    nul        soh        stx        etx    */
  42.     _CTR,        _CTR,        _CTR,        _CTR,
  43.  
  44. /*    eot        enq        ack        bel    */
  45.     _CTR,        _CTR,        _CTR,        _CTR,
  46.  
  47. /*    bs        ht        nl        vt    */
  48.     _CTR,        _CTR|_SP|_META,    _CTR|_NL|_META,    _CTR,
  49.  
  50. /*    np        cr        so        si    */
  51.     _CTR,        _CTR,        _CTR,        _CTR,
  52.  
  53. /*    dle        dc1        dc2        dc3    */
  54.     _CTR,        _CTR,        _CTR,        _CTR,
  55.  
  56. /*    dc4        nak        syn        etb    */
  57.     _CTR,        _CTR,        _CTR,        _CTR,
  58.  
  59. /*    can        em        sub        esc    */
  60.     _CTR,        _CTR,        _CTR,        _CTR,
  61.  
  62. /*    fs        gs        rs        us    */
  63.     _CTR,        _CTR,        _CTR,        _CTR,
  64.  
  65. /*    sp        !        "        #    */
  66.     _SP|_META,    0,        _Q,        _META,
  67.  
  68. /*    $        %        &        '    */
  69.     _DOL,        0,        _META|_CMD,    _Q,
  70.  
  71. /*    (        )        *        +    */
  72.     _META|_CMD,    _META,        _GLOB,        0,
  73.  
  74. /*    ,        -        .        /    */
  75.     0,        0,        0,        0,
  76.  
  77. /*    0        1        2        3    */
  78.     _DIG|_XD,    _DIG|_XD,    _DIG|_XD,    _DIG|_XD,
  79.  
  80. /*    4        5        6        7    */
  81.     _DIG|_XD,    _DIG|_XD,    _DIG|_XD,    _DIG|_XD,
  82.  
  83. /*    8        9        :        ;    */
  84.     _DIG|_XD,    _DIG|_XD,    0,        _META|_CMD,
  85.  
  86. /*    <        =        >        ?    */
  87.     _META,        0,        _META,        _GLOB,
  88.  
  89. /*    @        A        B        C    */
  90.     0,        _LET|_UP|_XD,    _LET|_UP|_XD,    _LET|_UP|_XD,
  91.  
  92. /*    D        E        F        G    */
  93.     _LET|_UP|_XD,    _LET|_UP|_XD,    _LET|_UP|_XD,    _LET|_UP,
  94.  
  95. /*    H        I        J        K    */
  96.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  97.  
  98. /*    L        M        N        O    */
  99.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  100.  
  101. /*    P        Q        R        S    */
  102.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  103.  
  104. /*    T        U        V        W    */
  105.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  106.  
  107. /*    X        Y        Z        [    */
  108.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _GLOB,
  109.  
  110. /*    \        ]        ^        _    */
  111.     _ESC,        0,        0,        0,
  112.  
  113. /*    `        a        b        c    */
  114.   _Q1|_GLOB|_META,    _LET|_LOW|_XD,    _LET|_LOW|_XD,    _LET|_LOW|_XD,
  115.  
  116. /*    d        e        f        g    */
  117.     _LET|_LOW|_XD,    _LET|_LOW|_XD,    _LET|_LOW|_XD,    _LET|_LOW,
  118.  
  119. /*    h        i        j        k    */
  120.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  121.  
  122. /*    l        m        n        o    */
  123.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  124.  
  125. /*    p        q        r        s    */
  126.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  127.  
  128. /*    t        u        v        w    */
  129.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  130.  
  131. /*    x        y        z        {    */
  132.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _GLOB,
  133.  
  134. /*    |        }        ~        del    */
  135.     _META|_CMD,    0,        0,        _CTR,
  136.  
  137. #if defined(SHORT_STRINGS) && !defined(KANJI)
  138. /****************************************************************/
  139. /* 128 - 255 The below is supposedly ISO 8859/1            */
  140. /****************************************************************/
  141. /*    (undef)        (undef)        (undef)        (undef)        */
  142.     _CTR,        _CTR,        _CTR,        _CTR,
  143.  
  144. /*    (undef)        (undef)        (undef)        (undef)        */
  145.     _CTR,        _CTR,        _CTR,        _CTR,
  146.  
  147. /*    (undef)        (undef)        (undef)        (undef)        */
  148.     _CTR,        _CTR,        _CTR,        _CTR,
  149.  
  150. /*    (undef)        (undef)        (undef)        (undef)        */
  151.     _CTR,        _CTR,        _CTR,        _CTR,
  152.  
  153. /*    (undef)        (undef)        (undef)        (undef)        */
  154.     _CTR,        _CTR,        _CTR,        _CTR,
  155.  
  156. /*    (undef)        (undef)        (undef)        (undef)        */
  157.     _CTR,        _CTR,        _CTR,        _CTR,
  158.  
  159. /*    (undef)        (undef)        (undef)        (undef)        */
  160.     _CTR,        _CTR,        _CTR,        _CTR,
  161.  
  162. /*    (undef)        (undef)        (undef)        (undef)        */
  163.     _CTR,        _CTR,        _CTR,        _CTR,
  164.  
  165. /*    nobreakspace    exclamdown    cent        sterling    */
  166.     _SP,        0,        0,        0,
  167.  
  168. /*    currency    yen        brokenbar    section        */
  169.     0,        0,        0,        0,
  170.  
  171. /*    diaeresis    copyright    ordfeminine    guillemotleft    */
  172.     0,        0,        0,        0,
  173.  
  174. /*    notsign        hyphen        registered    macron        */
  175.     0,        0,        0,        0,
  176.  
  177. /*    degree        plusminus    twosuperior    threesuperior    */
  178.     0,        0,        0,        0,
  179.  
  180. /*    acute        mu        paragraph    periodcentered    */
  181.     0,        0,        0,        0,
  182.  
  183. /*    cedilla        onesuperior    masculine    guillemotright    */
  184.     0,        0,        0,        0,
  185.  
  186. /*    onequarter    onehalf        threequarters    questiondown    */
  187.     0,        0,        0,        0,
  188.  
  189. /*    Agrave        Aacute        Acircumflex    Atilde        */
  190.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  191.  
  192. /*    Adiaeresis    Aring        AE        Ccedilla    */
  193.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  194.  
  195. /*    Egrave        Eacute        Ecircumflex    Ediaeresis    */
  196.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  197.  
  198. /*    Igrave        Iacute        Icircumflex    Idiaeresis    */
  199.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  200.  
  201. /*    ETH        Ntilde        Ograve        Oacute        */
  202.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  203.  
  204. /*    Ocircumflex    Otilde        Odiaeresis    multiply    */
  205.     _LET|_UP,    _LET|_UP,    _LET|_UP,    0,
  206.  
  207. /*    Ooblique    Ugrave        Uacute        Ucircumflex    */
  208.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  209.  
  210. /*    Udiaeresis    Yacute        THORN        ssharp        */
  211.     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_LOW,
  212.  
  213. /*    agrave        aacute        acircumflex    atilde        */
  214.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  215.  
  216. /*    adiaeresis    aring        ae        ccedilla    */
  217.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  218.  
  219. /*    egrave        eacute        ecircumflex    ediaeresis    */
  220.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  221.  
  222. /*    igrave        iacute        icircumflex    idiaeresis    */
  223.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  224.  
  225. /*    eth        ntilde        ograve        oacute        */
  226.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  227.  
  228. /*    ocircumflex    otilde        odiaeresis    division    */
  229.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    0,
  230.  
  231. /*    oslash        ugrave        uacute        ucircumflex    */
  232.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  233.  
  234. /*    udiaeresis    yacute        thorn        ydiaeresis    */
  235.     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  236. #endif /* SHORT_STRINGS && !KANJI */
  237. };
  238.  
  239. #ifndef NLS
  240. /* _cmap_lower, _cmap_upper for ISO 8859/1 */
  241.  
  242. unsigned char _cmap_lower[256] = {
  243.     0000,    0001,    0002,    0003,    0004,    0005,    0006,    0007,
  244.     0010,    0011,    0012,    0013,    0014,    0015,    0016,    0017,
  245.     0020,    0021,    0022,    0023,    0024,    0025,    0026,    0027,
  246.     0030,    0031,    0032,    0033,    0034,    0035,    0036,    0037,
  247.     0040,    0041,    0042,    0043,    0044,    0045,    0046,    0047,
  248.     0050,    0051,    0052,    0053,    0054,    0055,    0056,    0057,
  249.     0060,    0061,    0062,    0063,    0064,    0065,    0066,    0067,
  250.     0070,    0071,    0072,    0073,    0074,    0075,    0076,    0077,
  251.     0100,    0141,    0142,    0143,    0144,    0145,    0146,    0147,
  252.     0150,    0151,    0152,    0153,    0154,    0155,    0156,    0157,
  253.     0160,    0161,    0162,    0163,    0164,    0165,    0166,    0167,
  254.     0170,    0171,    0172,    0133,    0134,    0135,    0136,    0137,
  255.     0140,    0141,    0142,    0143,    0144,    0145,    0146,    0147,
  256.     0150,    0151,    0152,    0153,    0154,    0155,    0156,    0157,
  257.     0160,    0161,    0162,    0163,    0164,    0165,    0166,    0167,
  258.     0170,    0171,    0172,    0173,    0174,    0175,    0176,    0177,
  259.     0200,    0201,    0202,    0203,    0204,    0205,    0206,    0207,
  260.     0210,    0211,    0212,    0213,    0214,    0215,    0216,    0217,
  261.     0220,    0221,    0222,    0223,    0224,    0225,    0226,    0227,
  262.     0230,    0231,    0232,    0233,    0234,    0235,    0236,    0237,
  263.     0240,    0241,    0242,    0243,    0244,    0245,    0246,    0247,
  264.     0250,    0251,    0252,    0253,    0254,    0255,    0256,    0257,
  265.     0260,    0261,    0262,    0263,    0264,    0265,    0266,    0267,
  266.     0270,    0271,    0272,    0273,    0274,    0275,    0276,    0277,
  267.     0340,    0341,    0342,    0343,    0344,    0345,    0346,    0347,
  268.     0350,    0351,    0352,    0353,    0354,    0355,    0356,    0357,
  269.     0360,    0361,    0362,    0363,    0364,    0365,    0366,    0327,
  270.     0370,    0371,    0372,    0373,    0374,    0375,    0376,    0337,
  271.     0340,    0341,    0342,    0343,    0344,    0345,    0346,    0347,
  272.     0350,    0351,    0352,    0353,    0354,    0355,    0356,    0357,
  273.     0360,    0361,    0362,    0363,    0364,    0365,    0366,    0367,
  274.     0370,    0371,    0372,    0373,    0374,    0375,    0376,    0377,
  275. };
  276.  
  277. unsigned char _cmap_upper[256] = {
  278.     0000,    0001,    0002,    0003,    0004,    0005,    0006,    0007,
  279.     0010,    0011,    0012,    0013,    0014,    0015,    0016,    0017,
  280.     0020,    0021,    0022,    0023,    0024,    0025,    0026,    0027,
  281.     0030,    0031,    0032,    0033,    0034,    0035,    0036,    0037,
  282.     0040,    0041,    0042,    0043,    0044,    0045,    0046,    0047,
  283.     0050,    0051,    0052,    0053,    0054,    0055,    0056,    0057,
  284.     0060,    0061,    0062,    0063,    0064,    0065,    0066,    0067,
  285.     0070,    0071,    0072,    0073,    0074,    0075,    0076,    0077,
  286.     0100,    0101,    0102,    0103,    0104,    0105,    0106,    0107,
  287.     0110,    0111,    0112,    0113,    0114,    0115,    0116,    0117,
  288.     0120,    0121,    0122,    0123,    0124,    0125,    0126,    0127,
  289.     0130,    0131,    0132,    0133,    0134,    0135,    0136,    0137,
  290.     0140,    0101,    0102,    0103,    0104,    0105,    0106,    0107,
  291.     0110,    0111,    0112,    0113,    0114,    0115,    0116,    0117,
  292.     0120,    0121,    0122,    0123,    0124,    0125,    0126,    0127,
  293.     0130,    0131,    0132,    0173,    0174,    0175,    0176,    0177,
  294.     0200,    0201,    0202,    0203,    0204,    0205,    0206,    0207,
  295.     0210,    0211,    0212,    0213,    0214,    0215,    0216,    0217,
  296.     0220,    0221,    0222,    0223,    0224,    0225,    0226,    0227,
  297.     0230,    0231,    0232,    0233,    0234,    0235,    0236,    0237,
  298.     0240,    0241,    0242,    0243,    0244,    0245,    0246,    0247,
  299.     0250,    0251,    0252,    0253,    0254,    0255,    0256,    0257,
  300.     0260,    0261,    0262,    0263,    0264,    0265,    0266,    0267,
  301.     0270,    0271,    0272,    0273,    0274,    0275,    0276,    0277,
  302.     0300,    0301,    0302,    0303,    0304,    0305,    0306,    0307,
  303.     0310,    0311,    0312,    0313,    0314,    0315,    0316,    0317,
  304.     0320,    0321,    0322,    0323,    0324,    0325,    0326,    0327,
  305.     0330,    0331,    0332,    0333,    0334,    0335,    0336,    0337,
  306.     0300,    0301,    0302,    0303,    0304,    0305,    0306,    0307,
  307.     0310,    0311,    0312,    0313,    0314,    0315,    0316,    0317,
  308.     0320,    0321,    0322,    0323,    0324,    0325,    0326,    0367,
  309.     0330,    0331,    0332,    0333,    0334,    0335,    0336,    0377,
  310. };
  311. #endif /* NLS */
  312.