update ds9 parsers

12 files changed, 113 insertions, 10 deletions

diff --git a/ds9/parsers/coordsys.fin b/ds9/parsers/coordsys.fin
new file mode 100644
index 0000000..9f0b7bf
--- /dev/null
+++ b/ds9/parsers/coordsys.fin
@@ -0,0 +1,4 @@
+image	    {return $IMAGE_}
+physical    {return $PHYSICAL_}
+amplifier   {return $AMPLIFIER_}
+detector    {return $DETECTOR_}
diff --git a/ds9/parsers/coordsys.tin b/ds9/parsers/coordsys.tin
new file mode 100644
index 0000000..ee01f91
--- /dev/null
+++ b/ds9/parsers/coordsys.tin
@@ -0,0 +1,4 @@
+%token IMAGE_
+%token PHYSICAL_
+%token AMPLIFIER_
+%token DETECTOR_
diff --git a/ds9/parsers/coordsys.trl b/ds9/parsers/coordsys.trl
new file mode 100644
index 0000000..39120eb
--- /dev/null
+++ b/ds9/parsers/coordsys.trl
@@ -0,0 +1,5 @@
+coordsys : IMAGE_ {set _ image}
+ | PHYSICAL_ {set _ physical}
+ | AMPLIFIER_ {set _ amplifier}
+ | DETECTOR_ {set _ detector}
+ ;
diff --git a/ds9/parsers/cubelex.fcl b/ds9/parsers/cubelex.fcl
index d250a00..1ffd868 100644
--- a/ds9/parsers/cubelex.fcl
+++ b/ds9/parsers/cubelex.fcl
@@ -28,7 +28,8 @@ stop	    {return $STOP_}
 321	    {return $321_}
 
 #include matchlock.fin
-#include coords.fin
+#include coordsys.fin
+#include wcssys.fin
 #include yesno.fin
 #include numeric.fin
 #include string.fin
diff --git a/ds9/parsers/cubeparser.tac b/ds9/parsers/cubeparser.tac
index a9573d9..0a43504 100644
--- a/ds9/parsers/cubeparser.tac
+++ b/ds9/parsers/cubeparser.tac
@@ -2,7 +2,8 @@
 %}
 
 #include matchlock.tin
-#include coords.tin
+#include coordsys.tin
+#include wcssys.tin
 #include yesno.tin
 #include numeric.tin
 #include string.tin
@@ -32,7 +33,8 @@
 %%
 
 #include matchlock.trl
-#include coords.trl
+#include coordsys.trl
+#include wcssys.trl
 #include yesno.trl
 #include numeric.trl
 
diff --git a/ds9/parsers/viewlex.fcl b/ds9/parsers/viewlex.fcl
index db0dbad..e73f8b1 100644
--- a/ds9/parsers/viewlex.fcl
+++ b/ds9/parsers/viewlex.fcl
@@ -34,7 +34,8 @@ vertical	{return $VERTICAL_}
 vertgraph	{return $VERTGRAPH_}
 
 #include yesno.fin
-#include coords.fin
+#include coordsys.fin
+#include wcssys.fin
 #include string.fin
 #include ws.fin
 
diff --git a/ds9/parsers/viewparser.tac b/ds9/parsers/viewparser.tac
index f7bbfcc..8b15e14 100644
--- a/ds9/parsers/viewparser.tac
+++ b/ds9/parsers/viewparser.tac
@@ -2,7 +2,8 @@
 %}
 
 #include yesno.tin
-#include coords.tin
+#include coordsys.tin
+#include wcssys.tin
 #include string.tin
 
 %start command
@@ -34,13 +35,13 @@
 %%
 
 #include yesno.trl
-#include coords.trl
+#include coordsys.trl
+#include wcssys.trl
 
 command : view 
  | view {yyclearin; YYACCEPT} STRING_
  ;
 
-
 view : layout
  | LAYOUT_ layout
  | KEYVALUE_ STRING_ {ProcessCmdSet view info,keyvalue $2 UpdateView}
diff --git a/ds9/parsers/viewsendlex.fcl b/ds9/parsers/viewsendlex.fcl
index 77992fb..aa15e3f 100644
--- a/ds9/parsers/viewsendlex.fcl
+++ b/ds9/parsers/viewsendlex.fcl
@@ -33,7 +33,8 @@ vert		{return $VERTICAL_}
 vertical	{return $VERTICAL_}
 vertgraph	{return $VERTGRAPH_}
 
-#include coords.fin
+#include coordsys.fin
+#include wcssys.fin
 #include ws.fin
 
 %%
diff --git a/ds9/parsers/viewsendparser.tac b/ds9/parsers/viewsendparser.tac
index 8c7fce0..419add7 100644
--- a/ds9/parsers/viewsendparser.tac
+++ b/ds9/parsers/viewsendparser.tac
@@ -1,7 +1,8 @@
 %{
 %}
 
-#include coords.tin
+#include coordsys.tin
+#include wcssys.tin
 
 %start viewsend
 
@@ -28,7 +29,8 @@
 
 %%
 
-#include coords.trl
+#include coordsys.trl
+#include wcssys.trl
 
 viewsend :
  | LAYOUT_ {ProcessSendCmdGet view layout}
diff --git a/ds9/parsers/wcssys.fin b/ds9/parsers/wcssys.fin
new file mode 100644
index 0000000..da45b5c
--- /dev/null
+++ b/ds9/parsers/wcssys.fin
@@ -0,0 +1,27 @@
+wcs	    {return $WCS_}
+wcsa	    {return $WCSA_}
+wcsb	    {return $WCSB_}
+wcsc	    {return $WCSC_}
+wcsd	    {return $WCSD_}
+wcse	    {return $WCSE_}
+wcsf	    {return $WCSF_}
+wcsg	    {return $WCSG_}
+wcsh	    {return $WCSH_}
+wcsi	    {return $WCSI_}
+wcsj	    {return $WCSJ_}
+wcsk	    {return $WCSK_}
+wcsl	    {return $WCSL_}
+wcsm	    {return $WCSM_}
+wcsn	    {return $WCSN_}
+wcso	    {return $WCSO_}
+wcsp	    {return $WCSP_}
+wcsq	    {return $WCSQ_}
+wcsr	    {return $WCSR_}
+wcss	    {return $WCSS_}
+wcst	    {return $WCST_}
+wcsu	    {return $WCSU_}
+wcsv	    {return $WCSV_}
+wcsw	    {return $WCSW_}
+wcsx	    {return $WCSX_}
+wcsy	    {return $WCSY_}
+wcsz	    {return $WCSZ_}
diff --git a/ds9/parsers/wcssys.tin b/ds9/parsers/wcssys.tin
new file mode 100644
index 0000000..5a05360
--- /dev/null
+++ b/ds9/parsers/wcssys.tin
@@ -0,0 +1,27 @@
+%token WCS_
+%token WCSA_
+%token WCSB_
+%token WCSC_
+%token WCSD_
+%token WCSE_
+%token WCSF_
+%token WCSG_
+%token WCSH_
+%token WCSI_
+%token WCSJ_
+%token WCSK_
+%token WCSL_
+%token WCSM_
+%token WCSN_
+%token WCSO_
+%token WCSP_
+%token WCSQ_
+%token WCSR_
+%token WCSS_
+%token WCST_
+%token WCSU_
+%token WCSV_
+%token WCSW_
+%token WCSX_
+%token WCSY_
+%token WCSZ_
diff --git a/ds9/parsers/wcssys.trl b/ds9/parsers/wcssys.trl
new file mode 100644
index 0000000..d8d7e0f
--- /dev/null
+++ b/ds9/parsers/wcssys.trl
@@ -0,0 +1,28 @@
+wcssys : WCS_ {set _ wcs}
+ | WCSA_ {set _ wcsa}
+ | WCSB_ {set _ wcsb}
+ | WCSC_ {set _ wcsc}
+ | WCSD_ {set _ wcsd}
+ | WCSE_ {set _ wcse}
+ | WCSF_ {set _ wcsf}
+ | WCSG_ {set _ wcsg}
+ | WCSH_ {set _ wcsh}
+ | WCSI_ {set _ wcsi}
+ | WCSJ_ {set _ wcsj}
+ | WCSK_ {set _ wcsk}
+ | WCSL_ {set _ wcsl}
+ | WCSM_ {set _ wcsm}
+ | WCSN_ {set _ wcsn}
+ | WCSO_ {set _ wcso}
+ | WCSP_ {set _ wcsp}
+ | WCSQ_ {set _ wcsq}
+ | WCSR_ {set _ wcsr}
+ | WCSS_ {set _ wcss}
+ | WCST_ {set _ wcst}
+ | WCSU_ {set _ wcsu}
+ | WCSV_ {set _ wcsv}
+ | WCSW_ {set _ wcsw}
+ | WCSX_ {set _ wcsx}
+ | WCSY_ {set _ wcsy}
+ | WCSZ_ {set _ wcsz}
+ ;