add ds9 threed send parser

1 files changed, 54 insertions, 0 deletions

diff --git a/ds9/parsers/threedsendparser.tac b/ds9/parsers/threedsendparser.tac
new file mode 100644
index 0000000..941bf5c
--- /dev/null
+++ b/ds9/parsers/threedsendparser.tac
@@ -0,0 +1,54 @@
+%{
+%}
+
+#include string.tin
+
+%start threedsend
+
+%token AZ_
+%token BG_
+%token BORDER_
+%token COLOR_
+%token COMPASS_
+%token EL_
+%token HIGHLITE_
+%token LOCK_
+%token METHOD_
+%token SCALE_
+%token VIEW_
+
+%%
+
+threedsend : AZ_ {ProcessSendCmdGet threed az}
+ | EL_ {ProcessSendCmdGet threed el}
+ | VIEW_ {ProcessSendCmdGet2 threed az el}
+ | SCALE_ {ProcessSendCmdGet threed scale}
+ | METHOD_ {ProcessSendCmdGet threed method}
+ | BG_ {ProcessSendCmdGet threed background}
+ | LOCK_ {ProcessSendCmdYesNo threed lock}
+ | HIGHLITE_ highlite
+ | BORDER_ border
+ | COMPASS_ compass
+ ;
+
+highlite: {ProcessSendCmdYesNo threed highlite}
+ | COLOR_ {ProcessSendCmdGet threed highlite,color}
+ ;
+
+border: {ProcessSendCmdYesNo threed border}
+ | COLOR_ {ProcessSendCmdGet threed border,color}
+ ;
+
+compass: {ProcessSendCmdYesNo threed compass}
+ | COLOR_ {ProcessSendCmdGet threed compass,color}
+ ;
+
+%%
+
+proc threedsend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}