diff options
author | ferrieux <ferrieux@users.sourceforge.net> | 2017-02-21 01:35:15 (GMT) |
---|---|---|
committer | ferrieux <ferrieux@users.sourceforge.net> | 2017-02-21 01:35:15 (GMT) |
commit | b339aafb5a533c2d3a07418caba710f1b23f1c41 (patch) | |
tree | ffe32785234021fec4212b6bd67aa84fc9c340e2 /generic/tclBasic.c | |
parent | da36dc4aa4c01bcff7d20b8fc8d31030d75571b2 (diff) | |
download | tcl-b339aafb5a533c2d3a07418caba710f1b23f1c41.zip tcl-b339aafb5a533c2d3a07418caba710f1b23f1c41.tar.gz tcl-b339aafb5a533c2d3a07418caba710f1b23f1c41.tar.bz2 |
Add [::tcl::unsupported::parseexpr] to display expr parse trees prettily
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 6ff5faa..f0faec6 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -836,6 +836,9 @@ Tcl_CreateInterp(void) Tcl_DisassembleObjCmd, INT2PTR(1), NULL); Tcl_CreateObjCommand(interp, "::tcl::unsupported::representation", Tcl_RepresentationCmd, NULL, NULL); + Tcl_CreateObjCommand(interp, "::tcl::unsupported::parseexpr", + Tcl_ParseAndDumpExprObjCmd, NULL, NULL); + /* Adding the bytecode assembler command */ cmdPtr = (Command *) Tcl_NRCreateCommand(interp, |