diff options
| author | dkf <dkf@noemail.net> | 2014-01-29 13:59:32 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2014-01-29 13:59:32 (GMT) |
| commit | dba854b5f228ead48d0eb250647707aaa9d63e4e (patch) | |
| tree | 2091eb2c45df9f3cf0d55b3f84cabe501772869d /generic/tclCompile.c | |
| parent | 6aa4b8f78afede56de20c757ab754f99e96623fb (diff) | |
| download | tcl-dba854b5f228ead48d0eb250647707aaa9d63e4e.zip tcl-dba854b5f228ead48d0eb250647707aaa9d63e4e.tar.gz tcl-dba854b5f228ead48d0eb250647707aaa9d63e4e.tar.bz2 | |
Compile [string is] with character classes in a non-awful way. Needs more work to make resulting bytecode disassemble nicely.
FossilOrigin-Name: 587d82b78a254aa477ef6d92ab7a62ab967012bf
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}} }; |