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 | 6597355ad8e93ef19d16f6fea501506b141946fb (patch) | |
| tree | 2091eb2c45df9f3cf0d55b3f84cabe501772869d /generic/tclCompile.c | |
| parent | f4549b8fc40b29db66113e7a63678f2f0c45db78 (diff) | |
| download | tcl-6597355ad8e93ef19d16f6fea501506b141946fb.zip tcl-6597355ad8e93ef19d16f6fea501506b141946fb.tar.gz tcl-6597355ad8e93ef19d16f6fea501506b141946fb.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}} }; |