contrib/tcsh-6/tc.nls.c

   1 /*
   2  * tc.nls.c: NLS handling
   3  */
   4 /*-
   5  * Copyright (c) 1980, 1991 The Regents of the University of California.
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. Neither the name of the University nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32 #include "sh.h"
  33
  34 #ifdef WIDE_STRINGS
  35 # ifdef HAVE_WCWIDTH
  36 #  ifdef UTF16_STRINGS
  37 int
  38 xwcwidth (wint_t wchar)
  39 {
  40   wchar_t ws[2];
  41
  42   if (wchar <= 0xffff)
  43     return wcwidth ((wchar_t) wchar);
  44   /* UTF-16 systems can't handle these values directly in calls to wcwidth.
  45      However, they can handle them as surrogate pairs in calls to wcswidth.
  46      What we do here is to convert UTF-32 values >= 0x10000 into surrogate
  47      pairs and compute the width by calling wcswidth. */
  48   wchar -= 0x10000;
  49   ws[0] = 0xd800 | (wchar >> 10);
  50   ws[1] = 0xdc00 | (wchar & 0x3ff);
  51   return wcswidth (ws, 2);
  52 }
  53 #  else
  54 #define xwcwidth wcwidth
  55 #  endif /* !UTF16_STRINGS */
  56 # endif /* HAVE_WCWIDTH */
  57
  58 int
  59 NLSWidth(Char c)
  60 {
  61 # ifdef HAVE_WCWIDTH
  62     int l;
  63 #if INVALID_BYTE != 0
  64     if ((c & INVALID_BYTE) == INVALID_BYTE)     /* c >= INVALID_BYTE */
  65 #else
  66     if (c & INVALID_BYTE)
  67 #endif
  68         return 1;
  69     l = xwcwidth((wchar_t) c);
  70     return l >= 0 ? l : 0;
  71 # else
  72     return iswprint(c) != 0;
  73 # endif
  74 }
  75
  76 int
  77 NLSStringWidth(const Char *s)
  78 {
  79     int w = 0, l;
  80     Char c;
  81
  82     while (*s) {
  83         c = *s++;
  84 #ifdef HAVE_WCWIDTH
  85         if ((l = xwcwidth((wchar_t) c)) < 0)
  86                 l = 2;
  87 #else
  88         l = iswprint(c) != 0;
  89 #endif
  90         w += l;
  91     }
  92     return w;
  93 }
  94 #endif
  95
  96 Char *
  97 NLSChangeCase(const Char *p, int mode)
  98 {
  99     Char c, *n, c2 = 0;
 100     const Char *op = p;
 101
 102     for (; (c = *p) != 0; p++) {
 103         if (mode == 0 && Islower(c)) {
 104             c2 = Toupper(c);
 105             break;
 106         } else if (mode && Isupper(c)) {
 107             c2 = Tolower(c);
 108             break;
 109         }
 110     }
 111     if (!*p)
 112         return 0;
 113     n = Strsave(op);
 114     n[p - op] = c2;
 115     return n;
 116 }
 117
 118 int
 119 NLSClassify(Char c, int nocomb, int drawPrompt)
 120 {
 121     int w;
 122 #ifndef SHORT_STRINGS
 123     if ((c & 0x80) != 0)                /* c >= 0x80 */
 124         return NLSCLASS_ILLEGAL;
 125 #endif
 126     if (!drawPrompt) {                  /* draw command-line */
 127 #if INVALID_BYTE != 0
 128         if ((c & INVALID_BYTE) == INVALID_BYTE)         /* c >= INVALID_BYTE */
 129             return NLSCLASS_ILLEGAL;
 130         if ((c & INVALID_BYTE) == QUOTE && (c & 0x80) == 0)     /* c >= QUOTE */
 131             return 1;
 132         if (c >= 0x10000000)            /* U+10000000 = FC 90 80 80 80 80 */
 133             return NLSCLASS_ILLEGAL5;
 134         if (c >= 0x1000000)             /*  U+1000000 = F9 80 80 80 80 */
 135             return NLSCLASS_ILLEGAL4;
 136         if (c >= 0x100000)              /*   U+100000 = F4 80 80 80 */
 137             return NLSCLASS_ILLEGAL3;
 138 #endif
 139 #ifdef SHORT_STRINGS
 140         if (c >= 0x10000)               /*    U+10000 = F0 90 80 80 */
 141             return NLSCLASS_ILLEGAL2;
 142 #endif
 143     }
 144     if (Iscntrl(c) && (c & CHAR) < 0x100) {
 145         if (c == '\n')
 146             return NLSCLASS_NL;
 147         if (c == '\t')
 148             return NLSCLASS_TAB;
 149         return NLSCLASS_CTRL;
 150     }
 151     w = NLSWidth(c);
 152     if (drawPrompt) {                   /* draw prompt */
 153         if (w > 0)
 154             return w;
 155         if (w == 0)
 156             return 1;
 157     }
 158     if ((w > 0 && !(Iscntrl(c) && (c & CHAR) < 0x100)) || (Isprint(c) && !nocomb))
 159         return w;
 160     return NLSCLASS_ILLEGAL;
 161 }