diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-28 17:53:23 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-28 17:53:23 (GMT) |
commit | 3f3cb3715d17725b7f2151ab4365331948968f9b (patch) | |
tree | 525dc28f86bee6f9c4d212d00388512d0220d31c /ds9/library/plotprocess.tcl | |
parent | ef45c9f49f99dc783c8535898104c56205eb2e76 (diff) | |
download | blt-3f3cb3715d17725b7f2151ab4365331948968f9b.zip blt-3f3cb3715d17725b7f2151ab4365331948968f9b.tar.gz blt-3f3cb3715d17725b7f2151ab4365331948968f9b.tar.bz2 |
add ds9 plot parser
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index b4dcd6b..bfe02a6 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -100,6 +100,13 @@ proc PrefsDialogPlot {} { } proc ProcessPlotCmd {xarname iname buf fn} { + global debug + if {$debug(tcl,parser)} { + plot::YY_FLUSH_BUFFER + plot::yy_scan_string [lrange $var $i end] + plot::yyparse + incr i [expr $plot::yycnt-1] + } else { upvar $xarname xar upvar $iname i @@ -433,6 +440,7 @@ proc ProcessPlotCmd {xarname iname buf fn} { # force update update idletasks } +} proc ProcessPlotNew {varname xarname iname buf} { upvar #0 $varname var |