update ds9 skyview parser

1 files changed, 91 insertions, 0 deletions

diff --git a/ds9/parsers/skyviewparser.tac b/ds9/parsers/skyviewparser.tac
new file mode 100644
index 0000000..0dc6022
--- /dev/null
+++ b/ds9/parsers/skyviewparser.tac
@@ -0,0 +1,91 @@
+%{
+%}
+
+#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 PIXELS_
+%token UPDATE_
+%token SAVE_
+%token SIZE_
+%token SURVEY_
+
+%%
+
+#include yesno.trl
+#include coords.trl
+#include base.trl
+
+command : skyview
+ | skyview {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_
+
+skyview : {IMGSVRApply dskyview 1}
+ | OPEN_ {}
+ | CLOSE_ {ARDestroy dskyview}
+ | STRING_ {global dskyview; set dskyview(name) $1; IMGSVRApply dskyview 1}
+ | numeric numeric coordOpt {global dskyview; set dskyview(x) $1; set dskyview(y) $2; set dskyview(skyformat) degrees; set dskyview(skyformat,msg) degress; IMGSVRApply dskyview 1}
+ | SEXSTR_ SEXSTR_ coordOpt {global dskyview; set dskyview(x) $1; set dskyview(y) $2; set dskyview(skyformat) sexagesimal; set dskyview(skyformat,msg) sexagesimal; IMGSVRApply dskyview 1}
+ | SIZE_ numeric numeric sizeOpt {global dskyview; set dskyview(width) $2; set dskyview(height) $3; set dskyview(rformat) $4; set dskyview(rformat,msg) $4}
+ | PIXELS_ numeric numeric {global dskyview; set dskyview(width,pixels) $2; set dskyview(height,pixels) $3}
+ | SAVE_ yesno {global dskyview; set dskyview(save) $2}
+ | FRAME_ frame {global dskyview; set dskyview(mode) $2}
+ | UPDATE_ update
+ | SURVEY_ STRING_ {global dskyview; set dskyview(survey) $2}
+
+ | COORD_ numeric numeric deg {global dskyview; set dskyview(x) $2; set dskyview(y) $3; set dskyview(skyformat) $4; set dskyview(skyformat,msg) $4; IMGSVRApply dskyview 1}
+ | COORD_ SEXSTR_ SEXSTR_ sex {global dskyview; set dskyview(x) $2; set dskyview(y) $3; set dskyview(skyformat) $4; set dskyview(skyformat,msg) $4; IMGSVRApply dskyview 1}
+ | NAME_ STRING_ {global dskyview; set dskyview(name) $2; IMGSVRApply dskyview 1}
+ ;
+
+update : FRAME_ {IMGSVRUpdate dskyview; IMGSVRApply dskyview 1}
+ | CROSSHAIR_ {IMGSVRCrosshair dskyview; IMGSVRApply dskyview 1}
+ ;
+
+frame : NEW_ {set _ new}
+ | CURRENT_ {set _ current}
+ ;
+
+%%
+
+proc skyview::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+     
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}