diff options
Diffstat (limited to 'ds9/library/2mass.tcl')
| -rw-r--r-- | ds9/library/2mass.tcl | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/ds9/library/2mass.tcl b/ds9/library/2mass.tcl index 24b9644..aaf315f 100644 --- a/ds9/library/2mass.tcl +++ b/ds9/library/2mass.tcl @@ -129,22 +129,19 @@ Foundation. proc Process2MASSCmd {varname iname} { upvar $varname var - upvar $iname ii - - 2MASSDialog - - twomass::YY_FLUSH_BUFFER - twomass::yy_scan_string [lrange $var $ii end] - twomass::yyparse - incr ii [expr $twomass::yycnt-1] -} - -proc oProcess2MASSCmd {varname iname} { - upvar $varname var upvar $iname i 2MASSDialog - IMGSVRProcessCmd $varname $iname dtwomass + + global debug + if {$debug(tcl,parser)} { + twomass::YY_FLUSH_BUFFER + twomass::yy_scan_string [lrange $var $i end] + twomass::yyparse + incr i [expr $twomass::yycnt-1] + } else { + IMGSVRProcessCmd $varname $iname dtwomass + } } proc ProcessSend2MASSCmd {proc id param} { |