diff options
Diffstat (limited to 'src/kash/syntax.c')
| -rw-r--r-- | src/kash/syntax.c | 209 |
1 files changed, 209 insertions, 0 deletions
diff --git a/src/kash/syntax.c b/src/kash/syntax.c new file mode 100644 index 0000000..d1753ef --- /dev/null +++ b/src/kash/syntax.c @@ -0,0 +1,209 @@ +/* $NetBSD: syntax.c,v 1.1 2004/01/17 17:38:12 dsl Exp $ */ + +#include "shell.h" +#include "syntax.h" +#include "parser.h" +#include "shinstance.h" + +#ifdef _MSC_VER /* doesn't implement the fancy initializers I think... */ + +char basesyntax[257] = {CSHEOF}; +char dqsyntax[257] = {CSHEOF}; +char sqsyntax[257] = {CSHEOF}; +char arisyntax[257] = {CSHEOF}; +char is_type[257] = {0}; + +void init_syntax(void) +{ + char *tab; + int i; + +#define ndx(ch) (ch + 1 - CHAR_MIN) +#define set(ch, val) tab[ndx(ch)] = val +#define set_range(s, e, val) for (i = ndx(s); i <= ndx(e); i++) tab[i] = val + + /*basesyntax*/ + tab = basesyntax; + set_range(CTL_FIRST, CTL_LAST, CCTL); + set('\n', CNL); + set('\\', CBACK); + set('\'', CSQUOTE); + set('"', CDQUOTE); + set('`', CBQUOTE); + set('$', CVAR); + set('}', CENDVAR); + set('<', CSPCL); + set('>', CSPCL); + set('(', CSPCL); + set(')', CSPCL); + set(';', CSPCL); + set('&', CSPCL); + set('|', CSPCL); + set(' ', CSPCL); + set('\t', CSPCL); + + tab = dqsyntax; + set_range(CTL_FIRST, CTL_LAST, CCTL); + set('\n', CNL); + set('\\', CBACK); + set('"', CDQUOTE); + set('`', CBQUOTE); + set('$', CVAR); + set('}', CENDVAR); + /* ':/' for tilde expansion, '-' for [a\-x] pattern ranges */ + set('!', CCTL); + set('*', CCTL); + set('?', CCTL); + set('[', CCTL); + set('=', CCTL); + set('~', CCTL); + set(':', CCTL); + set('/', CCTL); + set('-', CCTL); + + tab = sqsyntax; + set_range(CTL_FIRST, CTL_LAST, CCTL); + set('\n', CNL); + set('\'', CSQUOTE); + /* ':/' for tilde expansion, '-' for [a\-x] pattern ranges */ + set('!', CCTL); + set('*', CCTL) ; + set('?', CCTL); + set('[', CCTL); + set('=', CCTL); + set('~', CCTL); + set(':', CCTL); + set('/', CCTL); + set('-', CCTL); + + tab = arisyntax; + set_range(CTL_FIRST, CTL_LAST, CCTL); + set('\n', CNL); + set('\\', CBACK); + set('`', CBQUOTE); + set('\'', CSQUOTE); + set('"', CDQUOTE); + set('$', CVAR); + set('}', CENDVAR); + set('(', CLP); + set(')', CRP); + + tab = is_type; + set_range('0', '9', ISDIGIT); + set_range('a', 'z', ISLOWER); + set_range('A', 'Z', ISUPPER); + set('_', ISUNDER); + set('#', ISSPECL); + set('?', ISSPECL); + set('$', ISSPECL); + set('!', ISSPECL); + set('-', ISSPECL); + set('*', ISSPECL); + set('@', ISSPECL); +} + +#else /* !_MSC_VER */ + +#if CWORD != 0 +#error initialisation assumes 'CWORD' is zero +#endif + +#define ndx(ch) (ch + 1 - CHAR_MIN) +#define set(ch, val) [ndx(ch)] = val, +#define set_range(s, e, val) [ndx(s) ... ndx(e)] = val, + +/* Shut up the pedantic warnings about set_range() */ +#ifdef __GNUC__ +# if __GNUC__ >= 5 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 2) +# pragma GCC diagnostic ignored "-Wpedantic" +# endif +#endif + +/* syntax table used when not in quotes */ +const char basesyntax[257] = { CSHEOF, + set_range(CTL_FIRST, CTL_LAST, CCTL) + set('\n', CNL) + set('\\', CBACK) + set('\'', CSQUOTE) + set('"', CDQUOTE) + set('`', CBQUOTE) + set('$', CVAR) + set('}', CENDVAR) + set('<', CSPCL) + set('>', CSPCL) + set('(', CSPCL) + set(')', CSPCL) + set(';', CSPCL) + set('&', CSPCL) + set('|', CSPCL) + set(' ', CSPCL) + set('\t', CSPCL) +}; + +/* syntax table used when in double quotes */ +const char dqsyntax[257] = { CSHEOF, + set_range(CTL_FIRST, CTL_LAST, CCTL) + set('\n', CNL) + set('\\', CBACK) + set('"', CDQUOTE) + set('`', CBQUOTE) + set('$', CVAR) + set('}', CENDVAR) + /* ':/' for tilde expansion, '-' for [a\-x] pattern ranges */ + set('!', CCTL) + set('*', CCTL) + set('?', CCTL) + set('[', CCTL) + set('=', CCTL) + set('~', CCTL) + set(':', CCTL) + set('/', CCTL) + set('-', CCTL) +}; + +/* syntax table used when in single quotes */ +const char sqsyntax[257] = { CSHEOF, + set_range(CTL_FIRST, CTL_LAST, CCTL) + set('\n', CNL) + set('\'', CSQUOTE) + /* ':/' for tilde expansion, '-' for [a\-x] pattern ranges */ + set('!', CCTL) + set('*', CCTL) + set('?', CCTL) + set('[', CCTL) + set('=', CCTL) + set('~', CCTL) + set(':', CCTL) + set('/', CCTL) + set('-', CCTL) +}; + +/* syntax table used when in arithmetic */ +const char arisyntax[257] = { CSHEOF, + set_range(CTL_FIRST, CTL_LAST, CCTL) + set('\n', CNL) + set('\\', CBACK) + set('`', CBQUOTE) + set('\'', CSQUOTE) + set('"', CDQUOTE) + set('$', CVAR) + set('}', CENDVAR) + set('(', CLP) + set(')', CRP) +}; + +/* character classification table */ +const char is_type[257] = { 0, + set_range('0', '9', ISDIGIT) + set_range('a', 'z', ISLOWER) + set_range('A', 'Z', ISUPPER) + set('_', ISUNDER) + set('#', ISSPECL) + set('?', ISSPECL) + set('$', ISSPECL) + set('!', ISSPECL) + set('-', ISSPECL) + set('*', ISSPECL) + set('@', ISSPECL) +}; +#endif /* !_MSC_VER */ |