diff options
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/smosaiciraf.tcl | 22 | ||||
| -rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 12 insertions, 12 deletions
diff --git a/ds9/library/smosaiciraf.tcl b/ds9/library/smosaiciraf.tcl index 18d92c5..bf5cde2 100644 --- a/ds9/library/smosaiciraf.tcl +++ b/ds9/library/smosaiciraf.tcl @@ -21,11 +21,15 @@ proc ProcessSMosaicIRAFCmd {varname iname sock fn layer} { upvar $varname var upvar $iname i - global loadParam - global current + global debug + if {$debug(tcl,parser)} { + smosaiciraf::YY_FLUSH_BUFFER + smosaiciraf::yy_scan_string [lrange $var $i end] + smosaiciraf::yyparse + incr i [expr $smosaiciraf::yycnt-1] + } else { set layer {} - switch -- [string tolower [lindex $var $i]] { new { incr i @@ -41,20 +45,13 @@ proc ProcessSMosaicIRAFCmd {varname iname sock fn layer} { } } - set opt [lindex $var $i] - if {$opt != {}} { - incr i - } else { - set opt wcs - } - if {$sock != {}} { # xpa if {0} { # not supported } else { LoadSMosaicIRAFFile [lindex $var $i] [lindex $var [expr $i+1]] \ - $layer $opt + $layer } } else { # comm @@ -62,8 +59,9 @@ proc ProcessSMosaicIRAFCmd {varname iname sock fn layer} { # not supported } else { LoadSMosaicIRAFFile [lindex $var $i] [lindex $var [expr $i+1]] \ - $layer $opt + $layer } } FinishLoad } +} diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 2030400..b22de0b 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -324,6 +324,8 @@ source $ds9(root)/library/sleepparser.tcl source $ds9(root)/library/sleeplex.tcl source $ds9(root)/library/smoothparser.tcl source $ds9(root)/library/smoothlex.tcl +source $ds9(root)/library/smosaicirafparser.tcl +source $ds9(root)/library/smosaiciraflex.tcl source $ds9(root)/library/smosaicwcsparser.tcl source $ds9(root)/library/smosaicwcslex.tcl source $ds9(root)/library/sourceparser.tcl |