BSD 4_3_Net_2 release

[unix-history] / usr / src / bin / csh / char.h

diff --git a/usr/src/bin/csh/char.h b/usr/src/bin/csh/char.h
index 643b0fd..297a6ee 100644 (file)
--- a/usr/src/bin/csh/char.h
+++ b/usr/src/bin/csh/char.h
@@ -2,50 +2,95 @@
  * Copyright (c) 1980, 1991 The Regents of the University of California.
  * All rights reserved.
  *
  * Copyright (c) 1980, 1991 The Regents of the University of California.
  * All rights reserved.
  *

- * %sccs.include.redist.c%
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.

  *
  *

- *     @(#)char.h      5.5 (Berkeley) %G%
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *     @(#)char.h      5.6 (Berkeley) 6/4/91

  */
 
  */
 

+#include <ctype.h>
+

 extern unsigned short _cmap[];
 
 extern unsigned short _cmap[];
 

-#define        _Q      0x001           /* '" */
-#define        _Q1     0x002           /* ` */
-#define        _SP     0x004           /* space and tab */
-#define        _NL     0x008           /* \n */
-#define        _META   0x010           /* lex meta characters, sp #'`";&<>()|\t\n */
-#define        _GLOB   0x020           /* glob characters, *?{[` */
-#define        _ESC    0x040           /* \ */
-#define        _DOL    0x080           /* $ */
-#define        _DIG    0x100           /* 0-9 */
-#define        _LET    0x200           /* a-z, A-Z, _ */
+#ifndef NLS
+extern unsigned char _cmap_lower[], _cmap_upper[];

 
 

-#define        cmap(c, bits)   (_cmap[(unsigned char)(c)] & (bits))
+#endif

 
 

-#define        isglob(c)       cmap(c, _GLOB)
-#define        isspace(c)      cmap(c, _SP)
-#define        isspnl(c)       cmap(c, _SP|_NL)
-#define        ismeta(c)       cmap(c, _META)
-#define        digit(c)        cmap(c, _DIG)
-#define        letter(c)       cmap(c, _LET)
-#define        alnum(c)        (digit(c) || letter(c))
+#define        _Q      0x0001          /* '" */
+#define        _Q1     0x0002          /* ` */
+#define        _SP     0x0004          /* space and tab */
+#define        _NL     0x0008          /* \n */
+#define        _META   0x0010          /* lex meta characters, sp #'`";&<>()|\t\n */
+#define        _GLOB   0x0020          /* glob characters, *?{[` */
+#define        _ESC    0x0040          /* \ */
+#define        _DOL    0x0080          /* $ */
+#define        _DIG    0x0100          /* 0-9 */
+#define        _LET    0x0200          /* a-z, A-Z, _ */
+#define        _UP     0x0400          /* A-Z */
+#define        _LOW    0x0800          /* a-z */
+#define        _XD     0x1000          /* 0-9, a-f, A-F */
+#define        _CMD    0x2000          /* lex end of command chars, ;&(|` */
+#define _CTR   0x4000          /* control */

 
 

-#define        LINELEN         128
-extern char *linp, linbuf[LINELEN];
+#define cmap(c, bits)  \
+       (((c) & QUOTE) ? 0 : (_cmap[(unsigned char)(c)] & (bits)))

 
 

-#define        CSHPUTCHAR { \
-       if (!(ch&QUOTE) && (ch == 0177 || ch < ' ' && ch != '\t' && \
-           ch != '\n')) { \
-               *linp++ = '^'; \
-               if (ch == 0177) \
-                       ch = '?'; \
-               else \
-                       ch |= 'A' - 1; \
-               if (linp >= &linbuf[sizeof linbuf - 2]) \
-                       flush(); \
-       } \
-       ch &= TRIM; \
-       *linp++ = ch; \
-       if (ch == '\n' || linp >= &linbuf[sizeof(linbuf) - 2]) \
-               flush(); \
-}
+#define isglob(c)      cmap(c, _GLOB)
+#define isspc(c)       cmap(c, _SP)
+#define ismeta(c)      cmap(c, _META)
+#define iscmdmeta(c)   cmap(c, _CMD)
+#define letter(c)      (((c) & QUOTE) ? 0 : \
+                        (isalpha((unsigned char) (c)) || (c) == '_'))
+#define alnum(c)       (((c) & QUOTE) ? 0 : \
+                        (isalnum((unsigned char) (c)) || (c) == '_'))
+#ifdef NLS
+#define Isspace(c)     (((c) & QUOTE) ? 0 : isspace((unsigned char) (c)))
+#define Isdigit(c)     (((c) & QUOTE) ? 0 : isdigit((unsigned char) (c)))
+#define Isalpha(c)     (((c) & QUOTE) ? 0 : isalpha((unsigned char) (c)))
+#define Islower(c)     (((c) & QUOTE) ? 0 : islower((unsigned char) (c)))
+#define Isupper(c)     (((c) & QUOTE) ? 0 : isupper((unsigned char) (c)))
+#define Tolower(c)     (((c) & QUOTE) ? 0 : tolower((unsigned char) (c)))
+#define Toupper(c)     (((c) & QUOTE) ? 0 : toupper((unsigned char) (c)))
+#define Isxdigit(c)    (((c) & QUOTE) ? 0 : isxdigit((unsigned char) (c)))
+#define Isalnum(c)     (((c) & QUOTE) ? 0 : isalnum((unsigned char) (c)))
+#define Iscntrl(c)     (((c) & QUOTE) ? 0 : iscntrl((unsigned char) (c)))
+#define Isprint(c)     (((c) & QUOTE) ? 0 : isprint((unsigned char) (c)))
+#else
+#define Isspace(c)     cmap(c, _SP|_NL)
+#define Isdigit(c)     cmap(c, _DIG)
+#define Isalpha(c)     (cmap(c,_LET) && !(((c) & META) && AsciiOnly))
+#define Islower(c)     (cmap(c,_LOW) && !(((c) & META) && AsciiOnly))
+#define Isupper(c)     (cmap(c, _UP) && !(((c) & META) && AsciiOnly))
+#define Tolower(c)  (_cmap_lower[(unsigned char)(c)])
+#define Toupper(c)  (_cmap_upper[(unsigned char)(c)])
+#define Isxdigit(c)    cmap(c, _XD)
+#define Isalnum(c)     (cmap(c, _DIG|_LET) && !(((c) & META) && AsciiOnly))
+#define Iscntrl(c)  (cmap(c,_CTR) && !(((c) & META) && AsciiOnly))
+#define Isprint(c)  (!cmap(c,_CTR) && !(((c) & META) && AsciiOnly))
+#endif