From ee0c9f405c9ccbf762b2a9ebce4879683e00b801 Mon Sep 17 00:00:00 2001 From: William Joye Date: Mon, 18 Jun 2018 16:49:54 -0400 Subject: update parsers --- ds9/library/load.tcl | 14 -------------- ds9/parsers/preservesendparser.tac | 7 ++++--- 2 files changed, 4 insertions(+), 17 deletions(-) diff --git a/ds9/library/load.tcl b/ds9/library/load.tcl index f07f405..714f962 100644 --- a/ds9/library/load.tcl +++ b/ds9/library/load.tcl @@ -428,20 +428,6 @@ proc ProcessSendPreserveCmd {proc id param {sock {}} {fn {}}} { preservesend::YY_FLUSH_BUFFER preservesend::yy_scan_string $param preservesend::yyparse - return - - global scale - global panzoom - global marker - - switch -- [string tolower $param] { - scale { - # backward compatibility - $proc $id "no\n" - } - pan {$proc $id [ToYesNo $panzoom(preserve)]} - regions {$proc $id [ToYesNo $marker(preserve)]} - } } # Update diff --git a/ds9/parsers/preservesendparser.tac b/ds9/parsers/preservesendparser.tac index b1576f0..cad159e 100644 --- a/ds9/parsers/preservesendparser.tac +++ b/ds9/parsers/preservesendparser.tac @@ -9,10 +9,11 @@ %% -preservesend : SCALE_ {ProcessSendCmdTxt "no"} - | PAN_ {ProcessSendCmdYesNo panzoom preserve} +preservesend : PAN_ {ProcessSendCmdYesNo panzoom preserve} | REGIONS_ {ProcessSendCmdYesNo marker preserve} - ; +# backward compatibility + | SCALE_ {ProcessSendCmdTxt "no"} +; %% -- cgit v0.12