diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 21:21:46 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 21:21:46 (GMT) |
commit | 212a5a2635286012d36b32f1e5cce0de95c2a4d4 (patch) | |
tree | be1de704f8bdca367c3a713b7d8de2c2fd05101a /ds9/library | |
parent | 96ec6fa281103609e8e2b70ff9311d78ada35a82 (diff) | |
download | blt-212a5a2635286012d36b32f1e5cce0de95c2a4d4.zip blt-212a5a2635286012d36b32f1e5cce0de95c2a4d4.tar.gz blt-212a5a2635286012d36b32f1e5cce0de95c2a4d4.tar.bz2 |
rm ds9 irafalign parser
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/comm.tcl | 8 | ||||
-rw-r--r-- | ds9/library/source.tcl | 2 | ||||
-rw-r--r-- | ds9/library/util.tcl | 18 |
3 files changed, 0 insertions, 28 deletions
diff --git a/ds9/library/comm.tcl b/ds9/library/comm.tcl index fd4545b..28c2c15 100644 --- a/ds9/library/comm.tcl +++ b/ds9/library/comm.tcl @@ -66,10 +66,6 @@ proc CommSet {fn paramlist {safemode 0}} { iexam - imexam {} iis {ProcessIISCmd param i} - irafalign { - # backward compatibility - ProcessIRAFAlignCmd param i - } jpg - jpeg {ProcessJPEGCmd param i {} $fn} lock {ProcessLockCmd param i} @@ -268,10 +264,6 @@ proc CommGet {proc id paramlist fn} { iexam - imexam {ProcessSendIExamCmd $proc $id $param} iis {ProcessSendIISCmd $proc $id $param} - irafalign { - # backward compatibility - ProcessSendIRAFAlignCmd $proc $id $param - } jpg - jpeg {ProcessSendJPEGCmd $proc $id $param {} $fn} lock {ProcessSendLockCmd $proc $id $param} diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 351c561..a249248 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -242,8 +242,6 @@ source $ds9(root)/library/iconifyparser.tcl source $ds9(root)/library/iconifylex.tcl source $ds9(root)/library/iisparser.tcl source $ds9(root)/library/iislex.tcl -source $ds9(root)/library/irafalignparser.tcl -source $ds9(root)/library/irafalignlex.tcl source $ds9(root)/library/lockparser.tcl source $ds9(root)/library/locklex.tcl source $ds9(root)/library/magnifierparser.tcl diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index f2760cc..fb24c38 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1372,24 +1372,6 @@ proc ProcessSendThreadsCmd {proc id param} { $proc $id "$ds9(threads)\n" } -proc ProcessIRAFAlignCmd {varname iname} { - upvar $varname var - upvar $iname i - - global debug - if {$debug(tcl,parser)} { - irafalign::YY_FLUSH_BUFFER - irafalign::yy_scan_string [lrange $var $i end] - irafalign::yyparse - incr i [expr $irafalign::yycnt-1] - } else { - - global pds9 - set pds9(iraf) [FromYesNo [lindex $var $i]] - PrefsIRAFAlign -} -} - proc ProcessSendIRAFAlignCmd {proc id param} { global pds9 |