diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-03 13:32:06 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-03 13:32:06 (GMT) |
| commit | 216d7eb06d7dd4bff4926f84cb721f45bf39fb78 (patch) | |
| tree | 0fc8c55a7c7074e884924430835fce4b9eaeabcc /generic/tclCompile.c | |
| parent | bc2dc594195c1f7c69e91bfcaa7f0480673bcbc9 (diff) | |
| download | tcl-216d7eb06d7dd4bff4926f84cb721f45bf39fb78.zip tcl-216d7eb06d7dd4bff4926f84cb721f45bf39fb78.tar.gz tcl-216d7eb06d7dd4bff4926f84cb721f45bf39fb78.tar.bz2 | |
cleaner and faster 'string trim'
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 cdedbda..7e72d84 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -545,6 +545,11 @@ InstructionDesc const tclInstructionTable[] = { /* Drops an element from the auxiliary stack, popping stack elements * until the matching stack depth is reached. */ + {"strtrim", 1, -1, 0, {OPERAND_NONE}}, + /* [string trim] core: removes the characters (designated by the value + * at the top of the stack) from both ends of the string and pushes + * the resulting string. + * Stack: ... string charset => ... trimmedString */ {"strtrimLeft", 1, -1, 0, {OPERAND_NONE}}, /* [string trimleft] core: removes the characters (designated by the * value at the top of the stack) from the left of the string and |