diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-09-12 23:55:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-09-12 23:55:32 (GMT) |
| commit | da60f636030ff5e28efdfe34eb534c9dd46e2fb3 (patch) | |
| tree | 2f2c7e65505a410bb72e9cc37de0a6baab73939f /generic/tclCompExpr.c | |
| parent | 15cd6e14858186b0fc6748418f0c92ee5c1495ab (diff) | |
| download | tcl-da60f636030ff5e28efdfe34eb534c9dd46e2fb3.zip tcl-da60f636030ff5e28efdfe34eb534c9dd46e2fb3.tar.gz tcl-da60f636030ff5e28efdfe34eb534c9dd46e2fb3.tar.bz2 | |
TIP#123 Implementation based on work by Arjen Markus. [Patch 655176]
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 480acfe..d4fecc0 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompExpr.c,v 1.14 2003/03/13 02:48:52 dgp Exp $ + * RCS: @(#) $Id: tclCompExpr.c,v 1.15 2003/09/12 23:55:32 dkf Exp $ */ #include "tclInt.h" @@ -92,6 +92,7 @@ typedef struct ExprInfo { #define OP_BITNOT 20 #define OP_STREQ 21 #define OP_STRNEQ 22 +#define OP_EXPON 23 /* * Table describing the expression operators. Entries in this table must @@ -134,6 +135,7 @@ static OperatorDesc operatorTable[] = { {"~", 1, INST_BITNOT}, {"eq", 2, INST_STR_EQ}, {"ne", 2, INST_STR_NEQ}, + {"**", 2, INST_EXPON}, {NULL} }; |