add ds9 tile send parser

2 files changed, 51 insertions, 0 deletions

diff --git a/ds9/parsers/tilesendlex.fcl b/ds9/parsers/tilesendlex.fcl
new file mode 100644
index 0000000..8c4eeca
--- /dev/null
+++ b/ds9/parsers/tilesendlex.fcl
@@ -0,0 +1,18 @@
+#tab tilesendparser.tab.tcl
+
+%{
+%}
+
+#include defs.fin
+
+%%
+
+direction	{return $DIRECTION_}
+gap		{return $GAP_}
+grid		{return $GRID_}
+layout		{return $LAYOUT_}
+mode		{return $MODE_}
+
+#include ws.fin
+
+%%
diff --git a/ds9/parsers/tilesendparser.tac b/ds9/parsers/tilesendparser.tac
new file mode 100644
index 0000000..45edbe5
--- /dev/null
+++ b/ds9/parsers/tilesendparser.tac
@@ -0,0 +1,33 @@
+%{
+%}
+
+%start tilesend
+
+%token DIRECTION_
+%token GAP_
+%token GRID_
+%token LAYOUT_
+%token MODE_
+
+%%
+
+tilesend: {TileSendCmd}
+ | MODE_ {ProcessSendCmdGet tile mode}
+ | GRID_ grid
+ ;
+
+grid : MODE_ {ProcessSendCmdGet tile grid,mode}
+ | DIRECTION_ {ProcessSendCmdGet tile grid,dir}
+ | LAYOUT_ {ProcessSendCmdGet tile grid,row}
+ | GAP_ {ProcessSendCmdGet tile grid,gap}
+ ;
+
+%%
+
+proc tilesend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}