diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-03-08 09:01:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-03-08 09:01:11 (GMT) |
| commit | 6540c1e7abc493b3684a2b1312717329494b96b1 (patch) | |
| tree | d7b16f89e6ba2e4f47876aff16fbbf8ae0c19786 /generic/tclParse.c | |
| parent | e3a722221577f7aaeaa942bb59bbe67306b61229 (diff) | |
| parent | 4b85ca90cba7edb9a10caead17ffa8d407e1e2b3 (diff) | |
| download | tcl-6540c1e7abc493b3684a2b1312717329494b96b1.zip tcl-6540c1e7abc493b3684a2b1312717329494b96b1.tar.gz tcl-6540c1e7abc493b3684a2b1312717329494b96b1.tar.bz2 | |
merge from trunk
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 3c984bf..f0050c6 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -14,6 +14,7 @@ */ #include "tclInt.h" +#include "tclParse.h" /* * The following table provides parsing information about each possible 8-bit @@ -41,18 +42,7 @@ * TYPE_BRACE - Character is a curly brace (either left or right). */ -#define TYPE_NORMAL 0 -#define TYPE_SPACE 0x1 -#define TYPE_COMMAND_END 0x2 -#define TYPE_SUBS 0x4 -#define TYPE_QUOTE 0x8 -#define TYPE_CLOSE_PAREN 0x10 -#define TYPE_CLOSE_BRACK 0x20 -#define TYPE_BRACE 0x40 - -#define CHAR_TYPE(c) (charTypeTable+128)[(int)(c)] - -static const char charTypeTable[] = { +const char charTypeTable[] = { /* * Negative character values, from -128 to -1: */ |