add ds9 print send parser

2 files changed, 54 insertions, 0 deletions

diff --git a/ds9/parsers/pssendlex.fcl b/ds9/parsers/pssendlex.fcl
new file mode 100644
index 0000000..4b68654
--- /dev/null
+++ b/ds9/parsers/pssendlex.fcl
@@ -0,0 +1,20 @@
+#tab pssendparser.tab.tcl
+
+%{
+%}
+
+#include defs.fin
+
+%%
+
+color	    {return $COLOR_}
+command	    {return $COMMAND_}
+destination {return $DESTINATION_}
+filename    {return $FILENAME_}
+interpolate {return $INTERPOLATE_}
+level	    {return $LEVEL_}
+resolution  {return $RESOLUTION_}
+
+#include ws.fin
+
+%%
diff --git a/ds9/parsers/pssendparser.tac b/ds9/parsers/pssendparser.tac
new file mode 100644
index 0000000..7a84beb
--- /dev/null
+++ b/ds9/parsers/pssendparser.tac
@@ -0,0 +1,34 @@
+%{
+%}
+
+%start pssend
+
+%token COLOR_
+%token COMMAND_
+%token DESTINATION_
+%token FILENAME_
+%token INTERPOLATE_
+%token LEVEL_
+%token RESOLUTION_
+
+%%
+
+pssend : DESTINATION_ {ProcessSendCmdGet ps dest}
+ | COMMAND_ {ProcessSendCmdGet ps cmd}
+ | FILENAME_ {ProcessSendCmdGet ps filename}
+ | COLOR_ {ProcessSendCmdGet ps color}
+ | LEVEL_ {ProcessSendCmdGet ps level}
+ | RESOLUTION_ {ProcessSendCmdGet ps resolution}
+#backward compatibility
+ | INTERPOLATE_ {global ps; $parse(proc) $parse(id) "0\n"}
+ ;
+
+%%
+
+proc pssend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}