update ds9 parsers

3 files changed, 46 insertions, 12 deletions

diff --git a/ds9/parsers/skyviewlex.fcl b/ds9/parsers/skyviewlex.fcl
index 415463f..873cec7 100644
--- a/ds9/parsers/skyviewlex.fcl
+++ b/ds9/parsers/skyviewlex.fcl
@@ -7,19 +7,7 @@
 
 %%
 
-close	    {return $CLOSE_}
-coord	    {return $COORD_}
-crosshair   {return $CROSSHAIR_}
-current	    {return $CURRENT_}
-frame	    {return $FRAME_}
-name	    {return $NAME_}
-new	    {return $NEW_}
-open	    {return $OPEN_}
 pixels	    {return $PIXELS_}
-save	    {return $SAVE_}
-size	    {return $SIZE_}
-survey	    {return $SURVEY_}
-update	    {return $UPDATE_}
 
 #include yesno.fin
 #include imgsvr.fin
diff --git a/ds9/parsers/skyviewsendlex.fcl b/ds9/parsers/skyviewsendlex.fcl
new file mode 100644
index 0000000..4c063fd
--- /dev/null
+++ b/ds9/parsers/skyviewsendlex.fcl
@@ -0,0 +1,15 @@
+#tab skyviewsendparser.tab.tcl
+
+%{
+%}
+
+#include defs.fin
+
+%%
+
+pixels	    {return $PIXELS_}
+
+#include imgsvr.fin
+#include string.fin
+
+%%
diff --git a/ds9/parsers/skyviewsendparser.tac b/ds9/parsers/skyviewsendparser.tac
new file mode 100644
index 0000000..c53feae
--- /dev/null
+++ b/ds9/parsers/skyviewsendparser.tac
@@ -0,0 +1,31 @@
+%{
+%}
+
+#include imgsvr.tin
+#include string.tin
+
+%start skyviewsend
+
+%token PIXELS_
+
+%%
+
+skyviewsend : {ProcessSendCmdGet dskyview name}
+ | NAME_ {ProcessSendCmdGet dskyview name}
+ | SAVE_ {ProcessSendCmdYesNo dskyview save}
+ | FRAME_ {ProcessSendCmdGet dskyview mode}
+ | SURVEY_ {ProcessSendCmdGet dskyview survey}
+ | SIZE_ {ProcessSendCmdGet3 dskyview width height rformat}
+ | PIXELS_ {ProcessSendCmdGet2 dskyview width,pixels height,pixels}
+ | COORD_ {ProcessSendCmdGet3 dskyview x y skyformat}
+ ;
+ 
+%%
+
+proc skyviewsend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+     
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}