diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 17:38:22 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 17:38:22 (GMT) |
commit | 5f2e59a9516c29a4c92eadbdbdf73398f73f5214 (patch) | |
tree | e0d9d4d61b96d1dd14ee3cfcc9379a33d4f2b546 /ds9/library | |
parent | 2fa692287fff7c95f049b4cb890c971c300d157e (diff) | |
download | blt-5f2e59a9516c29a4c92eadbdbdf73398f73f5214.zip blt-5f2e59a9516c29a4c92eadbdbdf73398f73f5214.tar.gz blt-5f2e59a9516c29a4c92eadbdbdf73398f73f5214.tar.bz2 |
add ds9 preserve parser
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/load.tcl | 9 | ||||
-rw-r--r-- | ds9/library/source.tcl | 6 |
2 files changed, 13 insertions, 2 deletions
diff --git a/ds9/library/load.tcl b/ds9/library/load.tcl index 1a7cd37..221a1f6 100644 --- a/ds9/library/load.tcl +++ b/ds9/library/load.tcl @@ -434,6 +434,14 @@ proc ProcessPreserveCmd {varname iname} { upvar $varname var upvar $iname i + global debug + if {$debug(tcl,parser)} { + preserve::YY_FLUSH_BUFFER + preserve::yy_scan_string [lrange $var $i end] + preserve::yyparse + incr i [expr $preserve::yycnt-1] + } else { + global ds9 global scale global panzoom @@ -453,6 +461,7 @@ proc ProcessPreserveCmd {varname iname} { } } } +} proc ProcessSendPreserveCmd {proc id param} { global scale diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 13f0c09..e24dbad 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -292,10 +292,12 @@ source $ds9(root)/library/pixeltableparser.tcl source $ds9(root)/library/pixeltablelex.tcl source $ds9(root)/library/plotparser.tcl source $ds9(root)/library/plotlex.tcl -source $ds9(root)/library/prefsparser.tcl -source $ds9(root)/library/prefslex.tcl source $ds9(root)/library/precisionparser.tcl source $ds9(root)/library/precisionlex.tcl +source $ds9(root)/library/prefsparser.tcl +source $ds9(root)/library/prefslex.tcl +source $ds9(root)/library/preserveparser.tcl +source $ds9(root)/library/preservelex.tcl source $ds9(root)/library/psparser.tcl source $ds9(root)/library/pslex.tcl source $ds9(root)/library/regionparser.tcl |