Home | History | Annotate | Download | only in csh
      1 /*
      2  * Copyright 1997 Sun Microsystems, Inc.  All rights reserved.
      3  * Use is subject to license terms.
      4  */
      5 
      6 /*	Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T	*/
      7 /*	  All Rights Reserved  	*/
      8 
      9 /*
     10  * Copyright (c) 1980 Regents of the University of California.
     11  * All rights reserved.  The Berkeley Software License Agreement
     12  * specifies the terms and conditions for redistribution.
     13  */
     14 
     15 #pragma ident	"%Z%%M%	%I%	%E% SMI"
     16 
     17 /*
     18  * Macros to classify characters.
     19  */
     20 
     21 #ifdef MBCHAR
     22 #include <wchar.h>
     23 #include <wctype.h>
     24 #define	isauxspZ	(!isascii(Z)&&!(Z&QUOTE)&&iswspace(Z))
     25 #define	isauxsp(c) 	(Z=((unsigned)(c)), isauxspZ)
     26 /* Regocnizes non-ASCII space characters. */
     27 #else
     28 #include <ctype.h>
     29 /* macros of macros to reduce further #ifdef MBCHAR later. Please be patient!*/
     30 #define	iswdigit(c)	isdigit(c)
     31 #define	iswalpha(c)	isalpha(c)
     32 #define	isphonogram(c)	0
     33 #define	isideogram(c)	0
     34 #define	isauxsp(c) 	0
     35 #define	isauxspZ 	0
     36 #endif
     37 extern unsigned short _cmap[];/* Defined in sh.char.c */
     38 unsigned int	Z; 	/* A place to save macro arg to avoid side-effect!*/
     39 
     40 #define _Q	0x01		/* '" */
     41 #define _Q1	0x02		/* ` */
     42 #define _SP	0x04		/* space and tab */
     43 #define _NL	0x08		/* \n */
     44 #define _META	0x10		/* lex meta characters, sp #'`";&<>()|\t\n */
     45 #define _GLOB	0x20		/* glob characters, *?{[` */
     46 #define _ESC	0x40		/* \ */
     47 #define _DOL	0x80		/* $ */
     48 #define _DIG    0x100		/* 0-9 */
     49 #define _LET    0x200		/* a-z, A-Z, _ 	NO LONGER OF REAL USE. */
     50 
     51 
     52 #define quoted(c)     ((unsigned)(c) & QUOTE)
     53 
     54 #define	cmapZ(bits)	(isascii(Z)?(_cmap[Z] & (bits)):0)
     55 #define cmap(c, bits)	(Z=((unsigned)(c)), cmapZ(bits))
     56 
     57 #define isglob(c)	cmap(c, _GLOB)
     58 #define ismeta(c)	cmap(c, _META)
     59 #define digit(c)	cmap(c, _DIG)
     60 #define issp(c)		(Z=((unsigned)(c)), cmapZ( _SP)||isauxspZ)
     61 /*WAS isspace(c)*/
     62 #define isspnl(c)	(Z=((unsigned)(c)), cmapZ( _SP|_NL)||isauxspZ)
     63 #define letter(c)	\
     64 	(Z=((unsigned)(c)), !quoted(Z)&&(iswalpha(Z)||((Z)=='_')\
     65 	||isphonogram(Z)||isideogram(Z)))
     66 #define alnum(c)	\
     67 	(Z=((unsigned)(c)), !quoted(Z)&&(iswalpha(Z)||((Z)=='_')\
     68 	||iswdigit(Z)||isphonogram(Z)||isideogram(Z)))
     69