mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-03-09 15:50:02 +00:00
2b805f7f1c
Many of the errors fixed in this commit are word repetitions such as 'the the' and minor spelling errors. One formatting error in the ksh man page has also been fixed.
158 lines
6.1 KiB
C
158 lines
6.1 KiB
C
/***********************************************************************
|
|
* *
|
|
* This software is part of the ast package *
|
|
* Copyright (c) 1982-2011 AT&T Intellectual Property *
|
|
* and is licensed under the *
|
|
* Eclipse Public License, Version 1.0 *
|
|
* by AT&T Intellectual Property *
|
|
* *
|
|
* A copy of the License is available at *
|
|
* http://www.eclipse.org/org/documents/epl-v10.html *
|
|
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
|
|
* *
|
|
* Information and Software Systems Research *
|
|
* AT&T Research *
|
|
* Florham Park NJ *
|
|
* *
|
|
* David Korn <dgk@research.att.com> *
|
|
* *
|
|
***********************************************************************/
|
|
#pragma prototyped
|
|
#ifndef S_BREAK
|
|
#define S_BREAK 1 /* end of token */
|
|
#define S_EOF 2 /* end of buffer */
|
|
#define S_NL 3 /* new-line when not a token */
|
|
#define S_RES 4 /* first character of reserved word */
|
|
#define S_NAME 5 /* other identifier characters */
|
|
#define S_REG 6 /* non-special characters */
|
|
#define S_TILDE 7 /* first char is tilde */
|
|
#define S_PUSH 8
|
|
#define S_POP 9
|
|
#define S_BRACT 10
|
|
#define S_LIT 11 /* literal quote character */
|
|
#define S_NLTOK 12 /* new-line token */
|
|
#define S_OP 13 /* operator character */
|
|
#define S_PAT 14 /* pattern characters * and ? */
|
|
#define S_EPAT 15 /* pattern char when followed by ( */
|
|
#define S_EQ 16 /* assignment character */
|
|
#define S_COM 17 /* comment character */
|
|
#define S_MOD1 18 /* ${...} modifier character - old quoting */
|
|
#define S_MOD2 19 /* ${...} modifier character - new quoting */
|
|
#define S_ERR 20 /* invalid character in ${...} */
|
|
#define S_SPC1 21 /* special prefix characters after $ */
|
|
#define S_SPC2 22 /* special characters after $ */
|
|
#define S_DIG 23 /* digit character after $ */
|
|
#define S_ALP 24 /* alpahbetic character after $ */
|
|
#define S_LBRA 25 /* left brace after $ */
|
|
#define S_RBRA 26 /* right brace after $ */
|
|
#define S_PAR 27 /* set for $( */
|
|
#define S_ENDCH 28 /* macro expansion terminator */
|
|
#define S_SLASH 29 /* / character terminates ~ expansion */
|
|
#define S_COLON 30 /* for character : */
|
|
#define S_LABEL 31 /* for goto label */
|
|
#define S_EDOL 32 /* ends $identifier */
|
|
#define S_BRACE 33 /* left brace */
|
|
#define S_DOT 34 /* . char */
|
|
#define S_META 35 /* | & ; < > inside ${...} reserved for future use */
|
|
#define S_SPACE S_BREAK /* IFS space characters */
|
|
#define S_DELIM S_RES /* IFS delimter characters */
|
|
#define S_MBYTE S_NAME /* IFS first byte of multi-byte char */
|
|
#define S_BLNK 36 /* space or tab */
|
|
/* The following must be the highest numbered states */
|
|
#define S_QUOTE 37 /* double quote character */
|
|
#define S_GRAVE 38 /* old comsub character */
|
|
#define S_ESC 39 /* escape character */
|
|
#define S_DOL 40 /* $ substitution character */
|
|
#define S_ESC2 41 /* escape character inside '...' */
|
|
|
|
/* These are the lexical state table names */
|
|
/* See lexstates.c (ST_NONE must be last) */
|
|
#define ST_BEGIN 0
|
|
#define ST_NAME 1
|
|
#define ST_NORM 2
|
|
#define ST_LIT 3
|
|
#define ST_QUOTE 4
|
|
#define ST_NESTED 5
|
|
#define ST_DOL 6
|
|
#define ST_BRACE 7
|
|
#define ST_DOLNAME 8
|
|
#define ST_MACRO 9
|
|
#define ST_QNEST 10
|
|
#define ST_NONE 11
|
|
|
|
#include "FEATURE/locale"
|
|
|
|
#if _hdr_wchar
|
|
# include <wchar.h>
|
|
# if _hdr_wctype
|
|
# include <wctype.h>
|
|
# undef isalpha
|
|
# define isalpha(x) iswalpha(x)
|
|
# if defined(iswblank) || _lib_iswblank
|
|
# undef isblank
|
|
# define isblank(x) iswblank(x)
|
|
# else
|
|
# if _lib_wctype && _lib_iswctype
|
|
# define _lib_iswblank -1
|
|
# undef isblank
|
|
# define isblank(x) local_iswblank(x)
|
|
extern int local_iswblank(wchar_t);
|
|
# endif
|
|
# endif
|
|
# endif
|
|
#endif
|
|
#ifndef isblank
|
|
# define isblank(x) ((x)==' '||(x)=='\t')
|
|
#endif
|
|
|
|
#undef LEN
|
|
#if SHOPT_MULTIBYTE
|
|
# define LEN _Fcin.fclen
|
|
# define isaname(c) ((c)>0x7f?isalpha(c): sh_lexstates[ST_NAME][(c)]==0)
|
|
# define isaletter(c) ((c)>0x7f?isalpha(c): sh_lexstates[ST_DOL][(c)]==S_ALP && (c)!='.')
|
|
#else
|
|
# undef mbwide
|
|
# define mbwide() (0)
|
|
# define LEN 1
|
|
# define isaname(c) (sh_lexstates[ST_NAME][c]==0)
|
|
# define isaletter(c) (sh_lexstates[ST_DOL][c]==S_ALP && (c)!='.')
|
|
#endif
|
|
#define STATE(s,c) (s[mbwide()?((c=fcmbget(&LEN)),LEN>1?'a':c):(c=fcget())])
|
|
#define isadigit(c) (sh_lexstates[ST_DOL][c]==S_DIG)
|
|
#define isastchar(c) ((c)=='@' || (c)=='*')
|
|
#define isexp(c) (sh_lexstates[ST_MACRO][c]==S_PAT||(c)=='$'||(c)=='`')
|
|
#define ismeta(c) (sh_lexstates[ST_NAME][c]==S_BREAK)
|
|
|
|
extern char *sh_lexstates[ST_NONE];
|
|
extern const char *sh_lexrstates[ST_NONE];
|
|
extern const char e_lexversion[];
|
|
extern const char e_lexspace[];
|
|
extern const char e_lexslash[];
|
|
extern const char e_lexlabignore[];
|
|
extern const char e_lexlabunknown[];
|
|
extern const char e_lexsyntax1[];
|
|
extern const char e_lexsyntax2[];
|
|
extern const char e_lexsyntax3[];
|
|
extern const char e_lexsyntax4[];
|
|
extern const char e_lexsyntax5[];
|
|
extern const char e_lexwarnvar[];
|
|
extern const char e_lexobsolete1[];
|
|
extern const char e_lexobsolete2[];
|
|
extern const char e_lexobsolete3[];
|
|
extern const char e_lexobsolete4[];
|
|
extern const char e_lexobsolete5[];
|
|
extern const char e_lexobsolete6[];
|
|
extern const char e_lexnonstandard[];
|
|
extern const char e_lexusebrace[];
|
|
extern const char e_lexusequote[];
|
|
extern const char e_lexescape[];
|
|
extern const char e_lexquote[];
|
|
extern const char e_lexnested[];
|
|
extern const char e_lexbadchar[];
|
|
extern const char e_lexlongquote[];
|
|
extern const char e_lexfuture[];
|
|
extern const char e_lexzerobyte[];
|
|
extern const char e_lexemptyfor[];
|
|
extern const char e_lextypeset[];
|
|
extern const char e_lexcharclass[];
|
|
#endif
|