update ds9 regions parser

1 files changed, 133 insertions, 0 deletions

diff --git a/ds9/parsers/regionsendparser.tac b/ds9/parsers/regionsendparser.tac
new file mode 100644
index 0000000..294bd97
--- /dev/null
+++ b/ds9/parsers/regionsendparser.tac
@@ -0,0 +1,133 @@
+%{
+%}
+
+#include yesno.tin
+#include coords.tin
+#include numeric.tin
+#include string.tin
+
+%start regionsend
+
+%token AUTO_
+%token AUTOCENTROID_
+%token BACKGROUND_
+%token CENTROID_
+%token COLOR_
+%token DELIM_
+%token EPSILON_
+%token EXCLUDE_
+%token FORMAT_
+%token GROUP_
+%token GROUPS_
+%token INCLUDE_
+%token ITERATION_
+%token NL_
+%token RADIUS_
+%token SELECTED_
+%token SHAPE_
+%token SHOW_
+%token SHOWTEXT_
+%token SKY_
+%token SKYFORMAT_
+%token SOURCE_
+%token STRIP_
+%token SYSTEM_
+%token WIDTH_
+
+%token DS9_
+%token XML_
+%token CIAO_
+%token SAOTNG_
+%token PROS_
+%token SAOIMAGE_
+%token XY_
+
+%token MFORMAT_
+%token MSYSTEM_
+%token MSKY_
+%token MSKYFORMAT_
+%token MSTRIP_
+%token MDELIM_
+%token MPROP_
+%token MGROUP_
+
+%%
+
+#include yesno.trl
+#include coords.trl
+#include numeric.trl
+
+regionsend : {RegionSendCmd}
+ | props {RegionSendCmd}
+
+ | EPSILON_ {ProcessSendCmdGet pmarker epsilon}
+ | SHOW_ {ProcessSendCmdYesNo marker show}
+ | SHOWTEXT_ {ProcessSendCmdYesNo marker show,text}
+ | CENTROID_ centroid
+# backword compatibility
+ | AUTOCENTROID_ {ProcessSendCmdYesNo marker centroid,auto}
+ | FORMAT_ {ProcessSendCmdGet marker format}
+ | SYSTEM_ {ProcessSendCmdGet marker system}
+ | SKY_ {ProcessSendCmdGet marker sky}
+ | SKYFORMAT_ {ProcessSendCmdGet marker skyformat}
+ | STRIP_ {ProcessSendCmdYesNo marker strip}
+# backward compatibility
+ | DELIM_ {}
+ | SHAPE_ {ProcessSendCmdGet marker shape}
+ | COLOR_ {ProcessSendCmdGet marker color}
+ | WIDTH_ {ProcessSendCmdGet marker width}
+ | GROUP_ {ProcessSendCmdCurrent "get marker tag all"}
+ | GROUPS_ {ProcessSendCmdCurrent "get marker tag all"}
+ ;
+
+centroid: AUTO_ {ProcessSendCmdYesNo marker centroid,auto}
+ | RADIUS_ {ProcessSendCmdGet marker centroid,radius}
+ | ITERATION_ {ProcessSendCmdGet marker centroid,iteration}
+ ;
+ 
+format : DS9_ {set _ ds9}
+ | XML_ {set _ xml}
+ | CIAO_ {set _ ciao}
+ | SAOTNG_ {set _ saotng}
+ | PROS_ {set _ pros}
+ | SAOIMAGE_ {set _ saoimage}
+ | XY_ {set _ xy}
+ ;
+
+delim : NL_ {set _ 0}
+ | STRING_ {set _ 1}
+ ;
+
+props : props prop
+ | prop
+ ;
+ 
+prop : MFORMAT_ format {ProcessCmdSet marker load,format $2}
+ | MSYSTEM_ coordsys {ProcessCmdSet marker load,system $2}
+ | MSYSTEM_ wcssys {ProcessCmdSet marker load,system $2}
+# backward compatibility
+ | MSYSTEM_ skyframe {ProcessCmdSet marker load,system wcs; ProcessCmdSet marker load,sky $2}
+ | MSKY_ skyframe {ProcessCmdSet marker load,sky $2}
+ | MSKYFORMAT_ skyformat {ProcessCmdSet marker load,skyformat $2}
+ | MSTRIP_ yesno {ProcessCmdSet marker load,strip $2}
+# backward compatibility
+ | MDELIM_ delim {ProcessCmdSet marker load,strip $2}
+ | MPROP_ STRING_ INT_ {ProcessCmdAppend marker load,props "$2 = $3 "}
+ | MPROP_ STRING_ STRING_ {ProcessCmdAppend marker load,props "$2 = $3 "}
+ | INCLUDE_ {ProcessCmdAppend marker load,props "include = 1 "}
+ | EXCLUDE_ {ProcessCmdAppend marker load,props "include = 0 "}
+ | SOURCE_ {ProcessCmdAppend  marker load,props "source = 1 "}
+ | BACKGROUND_ {ProcessCmdAppend marker load,props "source = 0 "}
+ | MGROUP_ STRING_ {ProcessCmdAppend marker load,tags "tag = $2 "}
+ | SELECTED_ {ProcessCmdSet marker load,select select}
+ ;
+
+%%
+
+proc regionsend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}