diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-19 18:19:46 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-19 18:19:46 (GMT) |
commit | 3fb5597b67427c147608087f99f3d24c2d2dd6ad (patch) | |
tree | 46a44fe634fead32ee2b664a7b56489e00a625a4 /ds9/library | |
parent | 69a0db6f952dbb1c0359667cbec48407770083d2 (diff) | |
download | blt-3fb5597b67427c147608087f99f3d24c2d2dd6ad.zip blt-3fb5597b67427c147608087f99f3d24c2d2dd6ad.tar.gz blt-3fb5597b67427c147608087f99f3d24c2d2dd6ad.tar.bz2 |
add ds9 mask send parser
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/mask.tcl | 12 | ||||
-rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 8 insertions, 6 deletions
diff --git a/ds9/library/mask.tcl b/ds9/library/mask.tcl index 8775abe..58036b4 100644 --- a/ds9/library/mask.tcl +++ b/ds9/library/mask.tcl @@ -273,12 +273,12 @@ proc ProcessMaskCmd {varname iname} { } proc ProcessSendMaskCmd {proc id param {sock {}} {fn {}}} { - global mask + global parse + set parse(proc) $proc + set parse(id) $id - switch -- [string tolower $param] { - color {$proc $id "$mask(color)\n"} - mark {$proc $id "$mask(mark)\n"} - transparency {$proc $id "$mask(transparency)\n"} - } + masksend::YY_FLUSH_BUFFER + masksend::yy_scan_string $param + masksend::yyparse } diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 26ca935..2fdd76d 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -288,6 +288,8 @@ source $ds9(root)/library/magnifiersendparser.tcl source $ds9(root)/library/magnifiersendlex.tcl source $ds9(root)/library/maskparser.tcl source $ds9(root)/library/masklex.tcl +source $ds9(root)/library/masksendparser.tcl +source $ds9(root)/library/masksendlex.tcl source $ds9(root)/library/matchparser.tcl source $ds9(root)/library/matchlex.tcl source $ds9(root)/library/mecubeparser.tcl |