diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-29 13:59:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-29 13:59:32 (GMT) |
| commit | 60e360f12b1c25a8e89f5893a564ca17d3b99217 (patch) | |
| tree | 2091eb2c45df9f3cf0d55b3f84cabe501772869d /generic/tclCompile.c | |
| parent | 18cc046d76f822340ac711ab379965ea61cae9b3 (diff) | |
| download | tcl-60e360f12b1c25a8e89f5893a564ca17d3b99217.zip tcl-60e360f12b1c25a8e89f5893a564ca17d3b99217.tar.gz tcl-60e360f12b1c25a8e89f5893a564ca17d3b99217.tar.bz2 | |
Compile [string is] with character classes in a non-awful way. Needs more work to make resulting bytecode disassemble nicely.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index fdc3e26..08a7a4c 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -644,6 +644,11 @@ InstructionDesc const tclInstructionTable[] = { {"tryCvtToBoolean", 1, +1, 0, {OPERAND_NONE}}, /* Try converting stktop to boolean if possible. No errors. * Stack: ... value => ... value isStrictBool */ + {"strclass", 2, 0, 1, {OPERAND_UINT1}}, + /* See if all the characters of the given string are a member of the + * specified (by opnd) character class. Note that an empty string will + * satisfy the class check (standard definition of "all"). + * Stack: ... stringValue => ... boolean */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |