diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 21:06:33 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 21:06:33 (GMT) |
commit | f0dd87966fd0c7db5a421f0a2dd4e26a5f13754a (patch) | |
tree | eab415a1fde2f485856a589780ceaf7ac0f83aec /ds9/library/mask.tcl | |
parent | dbe5cbeeb8acd95acc3db6ce30132a248fca4e63 (diff) | |
download | blt-f0dd87966fd0c7db5a421f0a2dd4e26a5f13754a.zip blt-f0dd87966fd0c7db5a421f0a2dd4e26a5f13754a.tar.gz blt-f0dd87966fd0c7db5a421f0a2dd4e26a5f13754a.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/mask.tcl')
-rw-r--r-- | ds9/library/mask.tcl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/ds9/library/mask.tcl b/ds9/library/mask.tcl index 6adf882..a6ba7d9 100644 --- a/ds9/library/mask.tcl +++ b/ds9/library/mask.tcl @@ -17,9 +17,6 @@ proc MaskDef {} { set mask(transparency) 0 array set pmask [array get mask] - - # temporary - set mask(rr) {} } proc MaskMark {} { @@ -267,14 +264,15 @@ proc ProcessMaskCmd {varname iname} { global debug if {$debug(tcl,parser)} { - set mask(rr) {} + global parse + set parse(result) {} mask::YY_FLUSH_BUFFER mask::yy_scan_string [lrange $var $i end] mask::yyparse incr i [expr $mask::yycnt-1] - return $mask(rr) + return $parse(result) } else { set rr {} |