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/load.tcl | |
parent | 2fa692287fff7c95f049b4cb890c971c300d157e (diff) | |
download | blt-5f2e59a9516c29a4c92eadbdbdf73398f73f5214.zip blt-5f2e59a9516c29a4c92eadbdbdf73398f73f5214.tar.gz blt-5f2e59a9516c29a4c92eadbdbdf73398f73f5214.tar.bz2 |
add ds9 preserve parser
Diffstat (limited to 'ds9/library/load.tcl')
-rw-r--r-- | ds9/library/load.tcl | 9 |
1 files changed, 9 insertions, 0 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 |