diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 20:48:23 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 20:48:23 (GMT) |
commit | 3e121d75852a441cb087ae5225fe9ef7d363173b (patch) | |
tree | d7c4db55c19de8c3628edf77fe2689deae3fe5d2 /ds9/library/load.tcl | |
parent | 2a2c1efa881b41e32e272b3686b8102a9ec6d234 (diff) | |
download | blt-3e121d75852a441cb087ae5225fe9ef7d363173b.zip blt-3e121d75852a441cb087ae5225fe9ef7d363173b.tar.gz blt-3e121d75852a441cb087ae5225fe9ef7d363173b.tar.bz2 |
add ds9 preserve send 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 22d76b6..f07f405 100644 --- a/ds9/library/load.tcl +++ b/ds9/library/load.tcl @@ -421,6 +421,15 @@ proc ProcessPreserveCmd {varname iname} { } proc ProcessSendPreserveCmd {proc id param {sock {}} {fn {}}} { + global parse + set parse(proc) $proc + set parse(id) $id + + preservesend::YY_FLUSH_BUFFER + preservesend::yy_scan_string $param + preservesend::yyparse + return + global scale global panzoom global marker |