diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
commit | b8395e8e32cccb75565a170160772857087901de (patch) | |
tree | 2494425c02897874ba1a957a51224522c4a2e10a /ds9/library/srgbcube.tcl | |
parent | 41505b4129a005e96c6afc3344ccf61097884fbd (diff) | |
download | blt-b8395e8e32cccb75565a170160772857087901de.zip blt-b8395e8e32cccb75565a170160772857087901de.tar.gz blt-b8395e8e32cccb75565a170160772857087901de.tar.bz2 |
update parsers
Diffstat (limited to 'ds9/library/srgbcube.tcl')
-rw-r--r-- | ds9/library/srgbcube.tcl | 44 |
1 files changed, 4 insertions, 40 deletions
diff --git a/ds9/library/srgbcube.tcl b/ds9/library/srgbcube.tcl index ac8f448..f4a36f6 100644 --- a/ds9/library/srgbcube.tcl +++ b/ds9/library/srgbcube.tcl @@ -33,44 +33,8 @@ proc ProcessSRGBCubeCmd {varname iname sock fn} { upvar $varname var upvar $iname i - global debug - if {$debug(tcl,parser)} { - srgbcube::YY_FLUSH_BUFFER - srgbcube::yy_scan_string [lrange $var $i end] - srgbcube::yyparse - incr i [expr $srgbcube::yycnt-1] - } else { - - switch -- [string tolower [lindex $var $i]] { - new { - incr i - CreateRGBFrame - } - mask { - incr i - # not supported - } - slice { - incr i - # not supported - } - } - - if {$sock != {}} { - # xpa - if {0} { - # not supported - } else { - LoadSRGBCubeFile [lindex $var $i] [lindex $var [expr $i+1]] - } - } else { - # comm - if {0} { - # not supported - } else { - LoadSRGBCubeFile [lindex $var $i] [lindex $var [expr $i+1]] - } - } - FinishLoad -} + srgbcube::YY_FLUSH_BUFFER + srgbcube::yy_scan_string [lrange $var $i end] + srgbcube::yyparse + incr i [expr $srgbcube::yycnt-1] } |