diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-07 14:19:04 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-07 14:19:04 (GMT) |
commit | a952237bcf20a7d4140f857c095b3bf0417ca40a (patch) | |
tree | 7d9ce87fc3e6d661dd7d680b10ab279348c76da9 /generic/tclCompile.h | |
parent | 92f27b7095220ef6e508c9a0216e0fce97b3d2ae (diff) | |
parent | 8bb7405765b9aed27270dfd145037e3c5884a34a (diff) | |
download | tcl-a952237bcf20a7d4140f857c095b3bf0417ca40a.zip tcl-a952237bcf20a7d4140f857c095b3bf0417ca40a.tar.gz tcl-a952237bcf20a7d4140f857c095b3bf0417ca40a.tar.bz2 |
Add compilations for the following commands:
* concat
* linsert
* namespace origin
* next
* string replace
* string tolower
* string totitle
* string toupper
* string trim
* string trimleft
* string trimright
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index b3c8442..6ecadf4 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -512,7 +512,7 @@ typedef struct ByteCode { #define INST_PUSH4 2 #define INST_POP 3 #define INST_DUP 4 -#define INST_CONCAT1 5 +#define INST_STR_CONCAT1 5 #define INST_INVOKE_STK1 6 #define INST_INVOKE_STK4 7 #define INST_EVAL_STK 8 @@ -751,6 +751,8 @@ typedef struct ByteCode { #define INST_INFO_LEVEL_NUM 152 #define INST_INFO_LEVEL_ARGS 153 #define INST_RESOLVE_COMMAND 154 + +/* For compilation relating to TclOO */ #define INST_TCLOO_SELF 155 #define INST_TCLOO_CLASS 156 #define INST_TCLOO_NS 157 @@ -769,14 +771,29 @@ typedef struct ByteCode { #define INST_EXPAND_DROP 165 /* New foreach implementation */ - #define INST_FOREACH_START 166 #define INST_FOREACH_STEP 167 #define INST_FOREACH_END 168 #define INST_LMAP_COLLECT 169 +/* For compilation of [string trim] and related */ +#define INST_STR_TRIM 170 +#define INST_STR_TRIM_LEFT 171 +#define INST_STR_TRIM_RIGHT 172 + +#define INST_CONCAT_STK 173 + +#define INST_STR_UPPER 174 +#define INST_STR_LOWER 175 +#define INST_STR_TITLE 176 +#define INST_STR_REPLACE 177 + +#define INST_ORIGIN_COMMAND 178 + +#define INST_TCLOO_NEXT 179 + /* The last opcode */ -#define LAST_INST_OPCODE 169 +#define LAST_INST_OPCODE 179 /* * Table describing the Tcl bytecode instructions: their name (for displaying |