update ds9 dsssao parser

1 files changed, 87 insertions, 0 deletions

diff --git a/ds9/parsers/dsssaoparser.tac b/ds9/parsers/dsssaoparser.tac
new file mode 100644
index 0000000..3adff82
--- /dev/null
+++ b/ds9/parsers/dsssaoparser.tac
@@ -0,0 +1,87 @@
+%{
+%}
+
+#include yesno.tin
+#include coords.tin
+#include base.tin
+
+%start command
+
+%token CLOSE_
+%token COORD_
+%token CROSSHAIR_
+%token CURRENT_
+%token FRAME_
+%token NAME_
+%token NEW_
+%token OPEN_
+%token UPDATE_
+%token SAVE_
+%token SIZE_
+
+%%
+
+#include yesno.trl
+#include coords.trl
+#include base.trl
+
+command : dsssao
+ | dsssao {yyclearin; YYACCEPT} CMD_
+ ;
+
+deg : {set _ degrees}
+ | DEGREES_ {set _ degrees}
+ ;
+
+sex : {set _ sexagesimal}
+ | SEXAGESIMAL_ {set _ sexagesimal}
+ ;
+
+coordOpt :
+ | WCS_
+ | FK5_
+ | WCS_ FK5_
+ ;
+
+sizeOpt : {set _ degrees}
+ | skyformat {set _ $1}
+ ;
+
+# COORD_ is depricated
+# NAME_ is depricated
+# new optional WCS_ FK5_, does nothing
+# SIZE_ default is DEGREES_
+
+dsssao : {IMGSVRApply dsao 1}
+ | OPEN_ {}
+ | CLOSE_ {ARDestroy dsao}
+ | STRING_ {global dsao; set dsao(name) $1; IMGSVRApply dsao 1}
+ | numeric numeric coordOpt {global dsao; set dsao(x) $1; set dsao(y) $2; set dsao(skyformat) degrees; set dsao(skyformat,msg) degress; IMGSVRApply dsao 1}
+ | SEXSTR_ SEXSTR_ coordOpt {global dsao; set dsao(x) $1; set dsao(y) $2; set dsao(skyformat) sexagesimal; set dsao(skyformat,msg) sexagesimal; IMGSVRApply dsao 1}
+ | SIZE_ numeric numeric sizeOpt {global dsao; set dsao(width) $2; set dsao(height) $3; set dsao(rformat) $4; set dsao(rformat,msg) $4}
+ | SAVE_ yesno {global dsao; set dsao(save) $2}
+ | FRAME_ frame {global dsao; set dsao(mode) $2}
+ | UPDATE_ update
+
+ | COORD_ numeric numeric deg {global dsao; set dsao(x) $2; set dsao(y) $3; set dsao(skyformat) $4; set dsao(skyformat,msg) $4; IMGSVRApply dsao 1}
+ | COORD_ SEXSTR_ SEXSTR_ sex {global dsao; set dsao(x) $2; set dsao(y) $3; set dsao(skyformat) $4; set dsao(skyformat,msg) $4; IMGSVRApply dsao 1}
+ | NAME_ STRING_ {global dsao; set dsao(name) $2; IMGSVRApply dsao 1}
+ ;
+
+update : FRAME_ {IMGSVRUpdate dsao; IMGSVRApply dsao 1}
+ | CROSSHAIR_ {IMGSVRCrosshair dsao; IMGSVRApply dsao 1}
+ ;
+
+frame : NEW_ {set _ new}
+ | CURRENT_ {set _ current}
+ ;
+
+%%
+
+proc dsssao::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+     
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}