diff options
| author | dkf <dkf@noemail.net> | 2012-11-03 20:21:13 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2012-11-03 20:21:13 (GMT) |
| commit | 0b6b5f0e179bf2108e1e92cab49b9b17f06f121a (patch) | |
| tree | a93fafd75fa76aa22a3b7253e2ce2f08ee98af7b /generic/tclCompile.c | |
| parent | 786577cb58334b5aed9b92cf8341fe3fb2c9308c (diff) | |
| download | tcl-0b6b5f0e179bf2108e1e92cab49b9b17f06f121a.zip tcl-0b6b5f0e179bf2108e1e92cab49b9b17f06f121a.tar.gz tcl-0b6b5f0e179bf2108e1e92cab49b9b17f06f121a.tar.bz2 | |
Added compilation of [string last] and improved the compilation of [string range]. This in turn enables compilation of [namespace qualifiers] and [namespace tail] (also done).
FossilOrigin-Name: 75cbbc5cf0617e3289829e846bfd1c051def8aa2
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 475a85e..2c87b34 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -453,8 +453,15 @@ InstructionDesc const tclInstructionTable[] = { /* Find the first index of a needle string in a haystack string, * producing the index (integer) or -1 if nothing found. * Stack: ... needle haystack => ... index */ + {"strrfind", 1, -1, 0, {OPERAND_NONE}}, + /* Find the last index of a needle string in a haystack string, + * producing the index (integer) or -1 if nothing found. + * Stack: ... needle haystack => ... index */ {"strrangeImm", 9, 0, 2, {OPERAND_IDX4, OPERAND_IDX4}}, /* String Range: push (string range stktop op4 op4) */ + {"strrange", 1, -2, 0, {OPERAND_NONE}}, + /* String Range with non-constant arguments. + * Stack: ... string idxA idxB => ... substring */ {"yield", 1, 0, 0, {OPERAND_NONE}}, /* Makes the current coroutine yield the value at the top of the |