contrib/tcsh/tc.nls.c

   1 /* $Header: /p/tcsh/cvsroot/tcsh/tc.nls.c,v 3.27 2016/07/17 15:02:44 christos Exp $ */
   2 /*
   3  * tc.nls.c: NLS handling
   4  */
   5 /*-
   6  * Copyright (c) 1980, 1991 The Regents of the University of California.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  * 3. 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 #include "sh.h"
  34
  35 RCSID("$tcsh: tc.nls.c,v 3.27 2016/07/17 15:02:44 christos Exp $")
  36
  37
  38 #ifdef WIDE_STRINGS
  39 # ifdef HAVE_WCWIDTH
  40 #  ifdef UTF16_STRINGS
  41 int
  42 xwcwidth (wint_t wchar)
  43 {
  44   wchar_t ws[2];
  45
  46   if (wchar <= 0xffff)
  47     return wcwidth ((wchar_t) wchar);
  48   /* UTF-16 systems can't handle these values directly in calls to wcwidth.
  49      However, they can handle them as surrogate pairs in calls to wcswidth.
  50      What we do here is to convert UTF-32 values >= 0x10000 into surrogate
  51      pairs and compute the width by calling wcswidth. */
  52   wchar -= 0x10000;
  53   ws[0] = 0xd800 | (wchar >> 10);
  54   ws[1] = 0xdc00 | (wchar & 0x3ff);
  55   return wcswidth (ws, 2);
  56 }
  57 #  else
  58 #define xwcwidth wcwidth
  59 #  endif /* !UTF16_STRINGS */
  60 # endif /* HAVE_WCWIDTH */
  61
  62 int
  63 NLSWidth(Char c)
  64 {
  65 # ifdef HAVE_WCWIDTH
  66     int l;
  67 #if INVALID_BYTE != 0
  68     if ((c & INVALID_BYTE) == INVALID_BYTE)     /* c >= INVALID_BYTE */
  69 #else
  70     if (c & INVALID_BYTE)
  71 #endif
  72         return 1;
  73     l = xwcwidth((wchar_t) c);
  74     return l >= 0 ? l : 0;
  75 # else
  76     return iswprint(c) != 0;
  77 # endif
  78 }
  79
  80 int
  81 NLSStringWidth(const Char *s)
  82 {
  83     int w = 0, l;
  84     Char c;
  85
  86     while (*s) {
  87         c = *s++;
  88 #ifdef HAVE_WCWIDTH
  89         if ((l = xwcwidth((wchar_t) c)) < 0)
  90                 l = 2;
  91 #else
  92         l = iswprint(c) != 0;
  93 #endif
  94         w += l;
  95     }
  96     return w;
  97 }
  98 #endif
  99
 100 Char *
 101 NLSChangeCase(const Char *p, int mode)
 102 {
 103     Char c, *n, c2 = 0;
 104     const Char *op = p;
 105
 106     for (; (c = *p) != 0; p++) {
 107         if (mode == 0 && Islower(c)) {
 108             c2 = Toupper(c);
 109             break;
 110         } else if (mode && Isupper(c)) {
 111             c2 = Tolower(c);
 112             break;
 113         }
 114     }
 115     if (!*p)
 116         return 0;
 117     n = Strsave(op);
 118     n[p - op] = c2;
 119     return n;
 120 }
 121
 122 int
 123 NLSClassify(Char c, int nocomb, int drawPrompt)
 124 {
 125     int w;
 126 #ifndef SHORT_STRINGS
 127     if ((c & 0x80) != 0)                /* c >= 0x80 */
 128         return NLSCLASS_ILLEGAL;
 129 #endif
 130     if (!drawPrompt) {                  /* draw command-line */
 131 #if INVALID_BYTE != 0
 132         if ((c & INVALID_BYTE) == INVALID_BYTE)         /* c >= INVALID_BYTE */
 133             return NLSCLASS_ILLEGAL;
 134         if ((c & INVALID_BYTE) == QUOTE && (c & 0x80) == 0)     /* c >= QUOTE */
 135             return 1;
 136         if (c >= 0x10000000)            /* U+10000000 = FC 90 80 80 80 80 */
 137             return NLSCLASS_ILLEGAL5;
 138         if (c >= 0x1000000)             /*  U+1000000 = F9 80 80 80 80 */
 139             return NLSCLASS_ILLEGAL4;
 140         if (c >= 0x100000)              /*   U+100000 = F4 80 80 80 */
 141             return NLSCLASS_ILLEGAL3;
 142 #endif
 143         if (c >= 0x10000)               /*    U+10000 = F0 90 80 80 */
 144             return NLSCLASS_ILLEGAL2;
 145     }
 146     if (Iscntrl(c) && (c & CHAR) < 0x100) {
 147         if (c == '\n')
 148             return NLSCLASS_NL;
 149         if (c == '\t')
 150             return NLSCLASS_TAB;
 151         return NLSCLASS_CTRL;
 152     }
 153     w = NLSWidth(c);
 154     if (drawPrompt) {                   /* draw prompt */
 155         if (w > 0)
 156             return w;
 157         if (w == 0)
 158             return 1;
 159     }
 160     if ((w > 0 && !(Iscntrl(c) && (c & CHAR) < 0x100)) || (Isprint(c) && !nocomb))
 161         return w;
 162     return NLSCLASS_ILLEGAL;
 163 }