add ds9 iexam send parser

2 files changed, 89 insertions, 0 deletions

diff --git a/ds9/parsers/iexamsendlex.fcl b/ds9/parsers/iexamsendlex.fcl
new file mode 100644
index 0000000..9acf95f
--- /dev/null
+++ b/ds9/parsers/iexamsendlex.fcl
@@ -0,0 +1,24 @@
+#tab iexamsendparser.tab.tcl
+
+%{
+%}
+
+#include defs.fin
+
+%%
+
+any		{return $ANY_}
+button		{return $BUTTON_}
+coordinate	{return $COORDINATE_}
+data		{return $DATA_}
+key		{return $KEY_}
+value		{return $VALUE_}
+
+#include coordsys.fin
+#include wcssys.fin
+#include skyframe.fin
+#include skyformat.fin
+#include string.fin
+#include ws.fin
+
+%%
diff --git a/ds9/parsers/iexamsendparser.tac b/ds9/parsers/iexamsendparser.tac
new file mode 100644
index 0000000..9bd277a
--- /dev/null
+++ b/ds9/parsers/iexamsendparser.tac
@@ -0,0 +1,65 @@
+%{
+%}
+
+#include coordsys.tin
+#include wcssys.tin
+#include skyframe.tin
+#include skyformat.tin
+#include string.tin
+#include int.tin
+
+%token ANY_
+%token BUTTON_
+%token COORDINATE_
+%token DATA_
+%token KEY_
+%token VALUE_
+
+%start iexamsend
+
+%%
+
+#include coordsys.trl
+#include wcssys.trl
+#include skyframe.trl
+#include skyformat.trl
+
+iexamsend : dest cmd
+ | cmd
+ ;
+
+cmd : COORDINATE_ coordinate
+ | DATA_ data
+# backward compatibility
+ | VALUE_ data
+ | STRING_ {IExamSendCmdMacro $1}
+ ;
+
+dest : BUTTON_ {IExamSendCmdDest button}
+ | KEY_ {IExamSendCmdDest key}
+ | ANY_ {IExamSendCmdDest any}
+ ;
+
+coordinate : {IExamSendCmdCoord image fk5 degrees}
+ | coordsys {IExamSendCmdCoord $1 fk5 degrees}
+ | wcssys {IExamSendCmdCoord $1 fk5 degrees}
+ | skyframe {IExamSendCmdCoord wcs $1 degrees}
+ | wcssys skyframe {IExamSendCmdCoord $1 $2 degrees}
+ | wcssys skyformat {IExamSendCmdCoord $1 fk5 $2}
+ | skyframe skyformat {IExamSendCmdCoord wcs $1 $2}
+ | wcssys skyframe skyformat {IExamSendCmdCoord $1 $2 $3}
+ ;
+ 
+data : {IExamSendCmdData 1 1}
+ | INT_ INT_ {IExamSendCmdData $1 $2}
+ ;
+
+%%
+
+proc iexamsend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}