diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-30 03:00:06 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-30 03:00:06 (GMT) |
commit | 93595c68aa99a9fc2af1b6033358c5b159f04ae8 (patch) | |
tree | 3137d2b83c6acf8dbe087cfe4337fd40a986670a /generic/tclCompile.c | |
parent | 324cc442eb566834d9d81db94d02c14447f9d974 (diff) | |
download | tcl-93595c68aa99a9fc2af1b6033358c5b159f04ae8.zip tcl-93595c68aa99a9fc2af1b6033358c5b159f04ae8.tar.gz tcl-93595c68aa99a9fc2af1b6033358c5b159f04ae8.tar.bz2 |
First attempt at [string trim] compilation.
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index d15ef3a..cdedbda 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -545,6 +545,17 @@ InstructionDesc const tclInstructionTable[] = { /* Drops an element from the auxiliary stack, popping stack elements * until the matching stack depth is reached. */ + {"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 + * pushes the resulting string. + * Stack: ... string charset => ... trimmedString */ + {"strtrimRight", 1, -1, 0, {OPERAND_NONE}}, + /* [string trimright] core: removes the characters (designated by the + * value at the top of the stack) from the right of the string and + * pushes the resulting string. + * Stack: ... string charset => ... trimmedString */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |