diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 15:35:39 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 15:35:39 (GMT) |
commit | a03f2552f6d9f20d602fc82b139d46fb059c85db (patch) | |
tree | b6d2f35b0f740c02d520d789d643128f1c526ed9 /ds9/parsers | |
parent | 5e379797126ae52c57fa5fb8e8d3984e6a0a359e (diff) | |
download | blt-a03f2552f6d9f20d602fc82b139d46fb059c85db.zip blt-a03f2552f6d9f20d602fc82b139d46fb059c85db.tar.gz blt-a03f2552f6d9f20d602fc82b139d46fb059c85db.tar.bz2 |
add ds9 2mass send parser
Diffstat (limited to 'ds9/parsers')
-rw-r--r-- | ds9/parsers/twomassparser.tac | 6 | ||||
-rw-r--r-- | ds9/parsers/twomasssendlex.fcl | 13 | ||||
-rw-r--r-- | ds9/parsers/twomasssendparser.tac | 28 |
3 files changed, 44 insertions, 3 deletions
diff --git a/ds9/parsers/twomassparser.tac b/ds9/parsers/twomassparser.tac index 4432080..ce02100 100644 --- a/ds9/parsers/twomassparser.tac +++ b/ds9/parsers/twomassparser.tac @@ -16,11 +16,11 @@ #include imgsvr.trl #include numeric.trl -command : 2mass - | 2mass {yyclearin; YYACCEPT} STRING_ +command : twomass + | twomass {yyclearin; YYACCEPT} STRING_ ; -2mass : {IMGSVRApply dtwomass 1} +twomass : {IMGSVRApply dtwomass 1} | OPEN_ {} | CLOSE_ {ARDestroy dtwomass} | STRING_ {IMGSVRCmdName dtwomass $1} diff --git a/ds9/parsers/twomasssendlex.fcl b/ds9/parsers/twomasssendlex.fcl new file mode 100644 index 0000000..82c9463 --- /dev/null +++ b/ds9/parsers/twomasssendlex.fcl @@ -0,0 +1,13 @@ +#tab twomasssendparser.tab.tcl + +%{ +%} + +#include defs.fin + +%% + +#include imgsvr.fin +#include string.fin + +%% diff --git a/ds9/parsers/twomasssendparser.tac b/ds9/parsers/twomasssendparser.tac new file mode 100644 index 0000000..0c8abe4 --- /dev/null +++ b/ds9/parsers/twomasssendparser.tac @@ -0,0 +1,28 @@ +%{ +%} + +#include imgsvr.tin +#include string.tin + +%start twomasssend + +%% + +twomasssend : {ProcessSendCmdGet dtwomass name} + | NAME_ {ProcessSendCmdGet dtwomass name} + | SAVE_ {ProcessSendCmdYesNo dtwomass save} + | FRAME_ {ProcessSendCmdGet dtwomass mode} + | SURVEY_ {ProcessSendCmdGet dtwomass survey} + | SIZE_ {ProcessSendCmdGet3 dtwomass width height rformat} + | COORD_ {ProcessSendCmdGet3 dtwomass x y skyformat} + ; + +%% + +proc twomasssend::yyerror {msg} { + variable yycnt + variable yy_current_buffer + variable index_ + + ParserError $msg $yycnt $yy_current_buffer $index_ +} |