diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-12-12 17:21:38 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-12-12 17:21:38 (GMT) |
| commit | de68040d322c721b0f2781f53d87871d05ab130e (patch) | |
| tree | e903c3b82fb1e9a97363419b07c94bd324299ff9 /generic/tclBasic.c | |
| parent | d9089b0f76f5224ffc6d7f52e0cd6d8306820853 (diff) | |
| download | tcl-de68040d322c721b0f2781f53d87871d05ab130e.zip tcl-de68040d322c721b0f2781f53d87871d05ab130e.tar.gz tcl-de68040d322c721b0f2781f53d87871d05ab130e.tar.bz2 | |
* generic/tclBasic.c: Final step routing all direct evaluation forms
* generic/tclCompExpr.c: of the operator commands through TEBC,
* generic/tclCompile.h: dropping all the routines in tclMathOp.c.
* generic/tclMathOp.c: Still needs Engineering Manual attention.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 9f21b3b..d22b949 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.229 2006/12/11 18:54:10 dgp Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.230 2006/12/12 17:21:41 dgp Exp $ */ #include "tclInt.h" @@ -281,30 +281,30 @@ typedef struct { } OpCmdInfo; static const OpCmdInfo mathOpCmds[] = { - { "~", TclSingleOpCmd, TclCompileInvertOpCmd, 1, "integer" }, - { "!", TclSingleOpCmd, TclCompileNotOpCmd, 1, "boolean" }, - { "+", TclAddOpCmd, TclCompileAddOpCmd, 0, NULL }, - { "*", TclMulOpCmd, TclCompileMulOpCmd, 0, NULL }, - { "&", TclAndOpCmd, TclCompileAndOpCmd, 0, NULL }, - { "|", TclOrOpCmd, TclCompileOrOpCmd, 0, NULL }, - { "^", TclXorOpCmd, TclCompileXorOpCmd, 0, NULL }, - { "**", TclPowOpCmd, TclCompilePowOpCmd, 0, NULL }, - { "<<", TclSingleOpCmd, TclCompileLshiftOpCmd, 2, "integer shift" }, - { ">>", TclSingleOpCmd, TclCompileRshiftOpCmd, 2, "integer shift" }, - { "%", TclSingleOpCmd, TclCompileModOpCmd, 2, "integer integer" }, - { "!=", TclSingleOpCmd, TclCompileNeqOpCmd, 2, "value value"}, - { "ne", TclSingleOpCmd, TclCompileStrneqOpCmd, 2, "value value" }, - { "in", TclSingleOpCmd, TclCompileInOpCmd, 2, "value list"}, - { "ni", TclSingleOpCmd, TclCompileNiOpCmd, 2, "value list"}, - { "-", TclMinusOpCmd, TclCompileMinusOpCmd, 0, NULL }, - { "/", TclDivOpCmd, TclCompileDivOpCmd, 0, NULL }, - { "<", TclSortingOpCmd, TclCompileLessOpCmd, 0, NULL }, - { "<=", TclSortingOpCmd, TclCompileLeqOpCmd, 0, NULL }, - { ">", TclSortingOpCmd, TclCompileGreaterOpCmd, 0, NULL }, - { ">=", TclSortingOpCmd, TclCompileGeqOpCmd, 0, NULL }, - { "==", TclSortingOpCmd, TclCompileEqOpCmd, 0, NULL }, - { "eq", TclSortingOpCmd, TclCompileStreqOpCmd, 0, NULL }, - { NULL, NULL, NULL, 0, NULL } + { "~", TclSingleOpCmd, TclCompileInvertOpCmd, 1, "integer" }, + { "!", TclSingleOpCmd, TclCompileNotOpCmd, 1, "boolean" }, + { "+", TclVariadicOpCmd, TclCompileAddOpCmd, 0, NULL }, + { "*", TclVariadicOpCmd, TclCompileMulOpCmd, 1, NULL }, + { "&", TclVariadicOpCmd, TclCompileAndOpCmd, -1, NULL }, + { "|", TclVariadicOpCmd, TclCompileOrOpCmd, 0, NULL }, + { "^", TclVariadicOpCmd, TclCompileXorOpCmd, 0, NULL }, + { "**", TclVariadicOpCmd, TclCompilePowOpCmd, 1, NULL }, + { "<<", TclSingleOpCmd, TclCompileLshiftOpCmd, 2, "integer shift" }, + { ">>", TclSingleOpCmd, TclCompileRshiftOpCmd, 2, "integer shift" }, + { "%", TclSingleOpCmd, TclCompileModOpCmd, 2, "integer integer" }, + { "!=", TclSingleOpCmd, TclCompileNeqOpCmd, 2, "value value"}, + { "ne", TclSingleOpCmd, TclCompileStrneqOpCmd, 2, "value value" }, + { "in", TclSingleOpCmd, TclCompileInOpCmd, 2, "value list"}, + { "ni", TclSingleOpCmd, TclCompileNiOpCmd, 2, "value list"}, + { "-", TclNoIdentOpCmd, TclCompileMinusOpCmd, 0, "value ?value ...?"}, + { "/", TclNoIdentOpCmd, TclCompileDivOpCmd, 0, "value ?value ...?"}, + { "<", TclSortingOpCmd, TclCompileLessOpCmd, 0, NULL }, + { "<=", TclSortingOpCmd, TclCompileLeqOpCmd, 0, NULL }, + { ">", TclSortingOpCmd, TclCompileGreaterOpCmd, 0, NULL }, + { ">=", TclSortingOpCmd, TclCompileGeqOpCmd, 0, NULL }, + { "==", TclSortingOpCmd, TclCompileEqOpCmd, 0, NULL }, + { "eq", TclSortingOpCmd, TclCompileStreqOpCmd, 0, NULL }, + { NULL, NULL, NULL, 0, NULL } }; /* |