From 212a5a2635286012d36b32f1e5cce0de95c2a4d4 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Mon, 14 May 2018 17:21:46 -0400
Subject: rm ds9 irafalign parser

---
 ds9/library/comm.tcl            |  8 --------
 ds9/library/source.tcl          |  2 --
 ds9/library/util.tcl            | 18 ------------------
 ds9/parsers/irafalignlex.fcl    | 13 -------------
 ds9/parsers/irafalignparser.tac | 28 ----------------------------
 5 files changed, 69 deletions(-)
 delete mode 100644 ds9/parsers/irafalignlex.fcl
 delete mode 100644 ds9/parsers/irafalignparser.tac

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
 
diff --git a/ds9/parsers/irafalignlex.fcl b/ds9/parsers/irafalignlex.fcl
deleted file mode 100644
index 285abea..0000000
--- a/ds9/parsers/irafalignlex.fcl
+++ /dev/null
@@ -1,13 +0,0 @@
-#tab irafalignparser.tab.tcl
-
-%{
-%}
-
-#include defs.fin
-
-%%
-
-#include yesno.fin
-#include string.fin
-
-%%
diff --git a/ds9/parsers/irafalignparser.tac b/ds9/parsers/irafalignparser.tac
deleted file mode 100644
index 1a63dca..0000000
--- a/ds9/parsers/irafalignparser.tac
+++ /dev/null
@@ -1,28 +0,0 @@
-%{
-%}
-
-#include yesno.tin
-#include string.tin
-
-%start command
-
-%%
-
-#include yesno.trl
-
-command : irafalign 
- | irafalign {yyclearin; YYACCEPT} STRING_
- ;
-
-irafalign : yesno {Pds9CmdSet irafalign $1}
- ;
-
-%%
-
-proc irafalign::yyerror {msg} {
-     variable yycnt
-     variable yy_current_buffer
-     variable index_
-
-     ParserError $msg $yycnt $yy_current_buffer $index_
-}
-- 
cgit v0.12