diff options
| author | dkf <dkf@noemail.net> | 2013-10-03 13:32:06 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2013-10-03 13:32:06 (GMT) |
| commit | 5ba1dc3db95f0141f3e69020ac50fa38e60a00e6 (patch) | |
| tree | 0fc8c55a7c7074e884924430835fce4b9eaeabcc /generic/tclCompile.c | |
| parent | 88a6b229969d121c43c002001aa2117e84cdc0ab (diff) | |
| download | tcl-5ba1dc3db95f0141f3e69020ac50fa38e60a00e6.zip tcl-5ba1dc3db95f0141f3e69020ac50fa38e60a00e6.tar.gz tcl-5ba1dc3db95f0141f3e69020ac50fa38e60a00e6.tar.bz2 | |
cleaner and faster 'string trim'
FossilOrigin-Name: 0d32a0f39f0684956991d8d67624b4138a9931f8
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 |