update ds9 send parsers

1 files changed, 53 insertions, 0 deletions

diff --git a/ds9/parsers/cropsendparser.tac b/ds9/parsers/cropsendparser.tac
new file mode 100644
index 0000000..b6100cb
--- /dev/null
+++ b/ds9/parsers/cropsendparser.tac
@@ -0,0 +1,53 @@
+%{
+%}
+
+#include matchlock.tin
+#include coords.tin
+#include string.tin
+
+%start cropsend
+
+%token 3D_
+
+%%
+
+#include matchlock.trl
+#include coords.trl
+
+cropsend : {ProcessSendCmdCurrent "get crop center physical fk5 degrees physical degrees"}
+ | coordsys {ProcessSendCmdCurrent "get crop center $1 fk5 degrees $1 degrees"}
+
+ | wcssys {ProcessSendCmdCurrent "get crop center $1 fk5 degrees $1 degrees"}
+ | skyframe {ProcessSendCmdCurrent "get crop center wcs $1 degrees wcs degrees"}
+
+ | wcssys skyformat
+   {ProcessSendCmdCurrent "get crop center $1 fk5 $2 $1 degrees"}
+ | skyframe skyformat
+   {ProcessSendCmdCurrent "get crop center wcs $1 $2 wcs degrees"}
+
+ | wcssys skyformat rformat
+   {ProcessSendCmdCurrent "get crop center $1 fk5 $2 $1 $3"}
+ | skyframe skyformat rformat
+   {ProcessSendCmdCurrent "get crop center wcs $1 $2 wcs $3"}
+
+ | wcssys skyframe skyformat rformat
+   {ProcessSendCmdCurrent "get crop center $1 $2 $3 $1 $4"}
+
+ | 3D_ 3d
+ | LOCK_ {ProcessSendCmdGet crop lock}
+ ;
+
+3d : {ProcessSendCmdCurrent "get crop 3d image"}
+ | coordsys {ProcessSendCmdCurrent "get crop 3d $1"}
+ | wcssys {ProcessSendCmdCurrent "get crop 3d $1"}
+ ;
+
+%%
+
+proc cropsend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+     
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}