diff options
Diffstat (limited to 'ds9/parsers/vlssparser.tac')
| -rw-r--r-- | ds9/parsers/vlssparser.tac | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/ds9/parsers/vlssparser.tac b/ds9/parsers/vlssparser.tac index 55708fc..43efc1f 100644 --- a/ds9/parsers/vlssparser.tac +++ b/ds9/parsers/vlssparser.tac @@ -23,17 +23,20 @@ command : vlss vlss : {IMGSVRApply dvlss 1} | OPEN_ {} | CLOSE_ {ARDestroy dvlss} - | STRING_ {IMGSVRCmdName dvlss $1} - | NAME_ STRING_ {IMGSVRCmdName dvlss $2} - | SIZE_ numeric numeric sizeOpt {IMGSVRCmdSize dvlss $2 $3 $4} - | SAVE_ yesno {IMGSVRCmd dvlss save $2} - | FRAME_ frame {IMGSVRCmd dvlss mode $2} + | STRING_ {ProcessCmdSet dvlss name $1 "IMGSVRApply dvlss 1"} + | NAME_ CLEAR_ {ProcessCmdSet dvlss name {}} + | NAME_ STRING_ {ProcessCmdSet dvlss name $2 "IMGSVRApply dvlss 1"} + | SIZE_ numeric numeric sizeOpt + {ProcessCmdSet4 dvlss width $2 height $3 rformat $4 rformat,msg $4} + | SAVE_ yesno {ProcessCmdSet dvlss save $2} + | FRAME_ frame {ProcessCmdSet dvlss mode $2} | UPDATE_ update - | numeric numeric coordOpt {IMGSVRCmdCoord dvlss $1 $2 degrees} - | SEXSTR_ SEXSTR_ coordOpt {IMGSVRCmdCoord dvlss $1 $2 sexagesimal} - | COORD_ numeric numeric deg {IMGSVRCmdCoord dvlss $2 $3 $4} - | COORD_ SEXSTR_ SEXSTR_ sex {IMGSVRCmdCoord dvlss $2 $3 $4} + | numeric numeric deg {ProcessCmdSet4 dvlss x $1 y $2 skyformat $3 skyformat,msg $3 "IMGSVRApply dvlss 1"} + | SEXSTR_ SEXSTR_ sex {ProcessCmdSet4 dvlss x $1 y $2 skyformat $3 skyformat,msg $3 "IMGSVRApply dvlss 1"} + # backward compatibility + | COORD_ numeric numeric deg {ProcessCmdSet4 dvlss x $2 y $3 skyformat $4 skyformat,msg $4 "IMGSVRApply dvlss 1"} + | COORD_ SEXSTR_ SEXSTR_ sex {ProcessCmdSet4 dvlss x $2 y $3 skyformat $4 skyformat,msg $4 "IMGSVRApply dvlss 1"} ; update : FRAME_ {IMGSVRCmdUpdate dvlss} |