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 | |
parent | ef45c9f49f99dc783c8535898104c56205eb2e76 (diff) | |
download | blt-3f3cb3715d17725b7f2151ab4365331948968f9b.zip blt-3f3cb3715d17725b7f2151ab4365331948968f9b.tar.gz blt-3f3cb3715d17725b7f2151ab4365331948968f9b.tar.bz2 |
add ds9 plot parser
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 |