diff options
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/plotprocess.tcl | 8 | ||||
-rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 10 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 diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index c6df433..e3e1ca0 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -218,6 +218,8 @@ source $ds9(root)/library/nvssparser.tcl source $ds9(root)/library/nvsslex.tcl source $ds9(root)/library/panparser.tcl source $ds9(root)/library/panlex.tcl +source $ds9(root)/library/plotparser.tcl +source $ds9(root)/library/plotlex.tcl source $ds9(root)/library/skyviewparser.tcl source $ds9(root)/library/skyviewlex.tcl source $ds9(root)/library/threedparser.tcl |