diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-12-29 18:49:20 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-12-29 18:49:20 (GMT) |
| commit | b36c65d7bf307a3c60c3862d683d4b7aff4de79b (patch) | |
| tree | a3105918183c56f7ff4721885d87f89e5e7c2def /generic/tclCompile.c | |
| parent | 7517fabfb1a8d38c792204a2a2e9c700451776f9 (diff) | |
| parent | c5593c23ed85c5608b1576e11fe76c4af5f17dd1 (diff) | |
| download | tcl-b36c65d7bf307a3c60c3862d683d4b7aff4de79b.zip tcl-b36c65d7bf307a3c60c3862d683d4b7aff4de79b.tar.gz tcl-b36c65d7bf307a3c60c3862d683d4b7aff4de79b.tar.bz2 | |
Improved general case of [string replace] implementation.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index db97c45..5474535 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -606,6 +606,10 @@ InstructionDesc const tclInstructionTable[] = { /* [string totitle] core: converts whole string to upper case using * the default (extended "C" locale) rules. * Stack: ... string => ... newString */ + {"strReplace", 1, -3, 0, {OPERAND_NONE}}, + /* [string replace] core: replaces a non-empty range of one string + * with the contents of another. + * Stack: ... string fromIdx toIdx replacement => ... newString */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |