summaryrefslogtreecommitdiffstats
path: root/ds9/parsers
diff options
context:
space:
mode:
Diffstat (limited to 'ds9/parsers')
-rw-r--r--ds9/parsers/binsendparser.tac6
-rw-r--r--ds9/parsers/cmapsendlex.fcl17
-rw-r--r--ds9/parsers/cmapsendparser.tac32
-rw-r--r--ds9/parsers/colorbarsendlex.fcl21
-rw-r--r--ds9/parsers/colorbarsendparser.tac42
-rw-r--r--ds9/parsers/cropsendparser.tac24
-rw-r--r--ds9/parsers/pansendparser.tac16
-rw-r--r--ds9/parsers/regionsendparser.tac4
-rw-r--r--ds9/parsers/scalesendparser.tac4
9 files changed, 139 insertions, 27 deletions
diff --git a/ds9/parsers/binsendparser.tac b/ds9/parsers/binsendparser.tac
index 7c6266f..f855995 100644
--- a/ds9/parsers/binsendparser.tac
+++ b/ds9/parsers/binsendparser.tac
@@ -17,12 +17,12 @@
%%
binsend : LOCK_ {ProcessSendCmdYesNo bin lock}
- | ABOUT_ {ProcessSendCmdCurrent "get bin cursor"}
+ | ABOUT_ {ProcessSendCmdCurrent frame "get bin cursor"}
| BUFFERSIZE_ {ProcessSendCmdGet bin buffersize}
- | COLS_ {ProcessSendCmdCurrent "get bin cols"}
+ | COLS_ {ProcessSendCmdCurrent frame "get bin cols"}
| FACTOR_ {ProcessSendCmdGet bin factor}
| DEPTH_ {ProcessSendCmdGet bin depth}
- | FILTER_ {ProcessSendCmdCurrent "get bin filter"}
+ | FILTER_ {ProcessSendCmdCurrent frame "get bin filter"}
| FUNCTION_ {ProcessSendCmdGet bin function}
;
diff --git a/ds9/parsers/cmapsendlex.fcl b/ds9/parsers/cmapsendlex.fcl
new file mode 100644
index 0000000..7a6af6c
--- /dev/null
+++ b/ds9/parsers/cmapsendlex.fcl
@@ -0,0 +1,17 @@
+#tab cmapsendparser.tab.tcl
+
+%{
+%}
+
+#include defs.fin
+
+%%
+
+file {return $FILE_}
+invert {return $INVERT_}
+lock {return $LOCK_}
+value {return $VALUE_}
+
+#include string.fin
+
+%%
diff --git a/ds9/parsers/cmapsendparser.tac b/ds9/parsers/cmapsendparser.tac
new file mode 100644
index 0000000..24ec0cd
--- /dev/null
+++ b/ds9/parsers/cmapsendparser.tac
@@ -0,0 +1,32 @@
+%{
+%}
+
+#include string.tin
+
+%start cmapsend
+
+%token FILE_
+%token INVERT_
+%token LOCK_
+%token VALUE_
+
+%%
+
+cmapsend : {ProcessSendCmdCurrent colorbar "get name"}
+ | FILE_ {ProcessSendCmdCurrent colorbar "get file name"}
+ | INVERT_ {ProcessSendCmdYesNo colorbar invert}
+# backward compatibility
+ | VALUE_ {ProcessSendCmdCurrent2 colorbar "get contrast" "get bias"}
+# backward compatibility
+ | LOCK_ {ProcessSendCmdYesNo colorbar lock}
+ ;
+
+%%
+
+proc cmapsend::yyerror {msg} {
+ variable yycnt
+ variable yy_current_buffer
+ variable index_
+
+ ParserError $msg $yycnt $yy_current_buffer $index_
+}
diff --git a/ds9/parsers/colorbarsendlex.fcl b/ds9/parsers/colorbarsendlex.fcl
new file mode 100644
index 0000000..05d06f2
--- /dev/null
+++ b/ds9/parsers/colorbarsendlex.fcl
@@ -0,0 +1,21 @@
+#tab colorbarsendparser.tab.tcl
+
+%{
+%}
+
+#include defs.fin
+
+%%
+
+lock {return $LOCK_}
+numerics {return $NUMERICS_}
+orientation {return $ORIENTATION_}
+size {return $SIZE_}
+space {return $SPACE_}
+ticks {return $TICKS_}
+value {return $VALUE_}
+
+#include font.fin
+#include string.fin
+
+%%
diff --git a/ds9/parsers/colorbarsendparser.tac b/ds9/parsers/colorbarsendparser.tac
new file mode 100644
index 0000000..0f27545
--- /dev/null
+++ b/ds9/parsers/colorbarsendparser.tac
@@ -0,0 +1,42 @@
+%{
+%}
+
+#include font.tin
+#include string.tin
+
+%start colorbarsend
+
+%token LOCK_
+%token NUMERICS_
+%token ORIENTATION_
+%token SIZE_
+%token SPACE_
+%token TICKS_
+%token VALUE_
+
+%%
+
+colorbarsend : {ProcessSendCmdYesNo view colorbar}
+ | LOCK_ {ProcessSendCmdYesNo colorbar lock}
+ | ORIENTATION_ {ProcessSendCmdGet colorbar orientation}
+ | NUMERICS_ {ProcessSendCmdYesNo colorbar numerics}
+ | SPACE_ {ColorbarSendCmdSpace}
+ | FONT_ {ProcessSendCmdGet colorbar font}
+ | FONTSIZE_ {ProcessSendCmdGet colorbar font,size}
+ | FONTWEIGHT_ {ProcessSendCmdGet colorbar font,weight}
+ | FONTSLANT_ {ProcessSendCmdGet colorbar font,slant}
+# backward compatibility
+ | FONTSTYLE_ {ProcessSendCmdGet colorbar font,weight}
+ | SIZE_ {ProcessSendCmdGet colorbar size}
+ | TICKS_ {ProcessSendCmdGet colorbar ticks}
+ ;
+
+%%
+
+proc colorbarsend::yyerror {msg} {
+ variable yycnt
+ variable yy_current_buffer
+ variable index_
+
+ ParserError $msg $yycnt $yy_current_buffer $index_
+}
diff --git a/ds9/parsers/cropsendparser.tac b/ds9/parsers/cropsendparser.tac
index b6100cb..96e97ef 100644
--- a/ds9/parsers/cropsendparser.tac
+++ b/ds9/parsers/cropsendparser.tac
@@ -14,32 +14,32 @@
#include matchlock.trl
#include coords.trl
-cropsend : {ProcessSendCmdCurrent "get crop center physical fk5 degrees physical degrees"}
- | coordsys {ProcessSendCmdCurrent "get crop center $1 fk5 degrees $1 degrees"}
+cropsend : {ProcessSendCmdCurrent frame "get crop center physical fk5 degrees physical degrees"}
+ | coordsys {ProcessSendCmdCurrent frame "get crop center $1 fk5 degrees $1 degrees"}
- | wcssys {ProcessSendCmdCurrent "get crop center $1 fk5 degrees $1 degrees"}
- | skyframe {ProcessSendCmdCurrent "get crop center wcs $1 degrees wcs degrees"}
+ | wcssys {ProcessSendCmdCurrent frame "get crop center $1 fk5 degrees $1 degrees"}
+ | skyframe {ProcessSendCmdCurrent frame "get crop center wcs $1 degrees wcs degrees"}
| wcssys skyformat
- {ProcessSendCmdCurrent "get crop center $1 fk5 $2 $1 degrees"}
+ {ProcessSendCmdCurrent frame "get crop center $1 fk5 $2 $1 degrees"}
| skyframe skyformat
- {ProcessSendCmdCurrent "get crop center wcs $1 $2 wcs degrees"}
+ {ProcessSendCmdCurrent frame "get crop center wcs $1 $2 wcs degrees"}
| wcssys skyformat rformat
- {ProcessSendCmdCurrent "get crop center $1 fk5 $2 $1 $3"}
+ {ProcessSendCmdCurrent frame "get crop center $1 fk5 $2 $1 $3"}
| skyframe skyformat rformat
- {ProcessSendCmdCurrent "get crop center wcs $1 $2 wcs $3"}
+ {ProcessSendCmdCurrent frame "get crop center wcs $1 $2 wcs $3"}
| wcssys skyframe skyformat rformat
- {ProcessSendCmdCurrent "get crop center $1 $2 $3 $1 $4"}
+ {ProcessSendCmdCurrent frame "get crop center $1 $2 $3 $1 $4"}
| 3D_ 3d
| LOCK_ {ProcessSendCmdGet crop lock}
;
-3d : {ProcessSendCmdCurrent "get crop 3d image"}
- | coordsys {ProcessSendCmdCurrent "get crop 3d $1"}
- | wcssys {ProcessSendCmdCurrent "get crop 3d $1"}
+3d : {ProcessSendCmdCurrent frame "get crop 3d image"}
+ | coordsys {ProcessSendCmdCurrent frame "get crop 3d $1"}
+ | wcssys {ProcessSendCmdCurrent frame "get crop 3d $1"}
;
%%
diff --git a/ds9/parsers/pansendparser.tac b/ds9/parsers/pansendparser.tac
index d9d4481..806104d 100644
--- a/ds9/parsers/pansendparser.tac
+++ b/ds9/parsers/pansendparser.tac
@@ -10,14 +10,14 @@
#include coords.trl
-pansend : {ProcessSendCmdCurrent "get cursor image fk5 degrees"}
- | coordsys {ProcessSendCmdCurrent "get cursor $1 fk5 degrees"}
- | wcssys {ProcessSendCmdCurrent "get cursor $1 fk5 degrees"}
- | skyframe {ProcessSendCmdCurrent "get cursor wcs $1 degrees"}
- | wcssys skyframe {ProcessSendCmdCurrent "get cursor $1 $2 degrees"}
- | wcssys skyformat {ProcessSendCmdCurrent "get cursor $1 fk5 $2"}
- | skyframe skyformat {ProcessSendCmdCurrent "get cursor wcs $1 $2"}
- | wcssys skyframe skyformat {ProcessSendCmdCurrent "get cursor $1 $2 $3"}
+pansend : {ProcessSendCmdCurrent frame "get cursor image fk5 degrees"}
+ | coordsys {ProcessSendCmdCurrent frame "get cursor $1 fk5 degrees"}
+ | wcssys {ProcessSendCmdCurrent frame "get cursor $1 fk5 degrees"}
+ | skyframe {ProcessSendCmdCurrent frame "get cursor wcs $1 degrees"}
+ | wcssys skyframe {ProcessSendCmdCurrent frame "get cursor $1 $2 degrees"}
+ | wcssys skyformat {ProcessSendCmdCurrent frame "get cursor $1 fk5 $2"}
+ | skyframe skyformat {ProcessSendCmdCurrent frame "get cursor wcs $1 $2"}
+ | wcssys skyframe skyformat {ProcessSendCmdCurrent frame "get cursor $1 $2 $3"}
;
%%
diff --git a/ds9/parsers/regionsendparser.tac b/ds9/parsers/regionsendparser.tac
index 294bd97..26149c5 100644
--- a/ds9/parsers/regionsendparser.tac
+++ b/ds9/parsers/regionsendparser.tac
@@ -76,8 +76,8 @@ regionsend : {RegionSendCmd}
| SHAPE_ {ProcessSendCmdGet marker shape}
| COLOR_ {ProcessSendCmdGet marker color}
| WIDTH_ {ProcessSendCmdGet marker width}
- | GROUP_ {ProcessSendCmdCurrent "get marker tag all"}
- | GROUPS_ {ProcessSendCmdCurrent "get marker tag all"}
+ | GROUP_ {ProcessSendCmdCurrent frame "get marker tag all"}
+ | GROUPS_ {ProcessSendCmdCurrent frame "get marker tag all"}
;
centroid: AUTO_ {ProcessSendCmdYesNo marker centroid,auto}
diff --git a/ds9/parsers/scalesendparser.tac b/ds9/parsers/scalesendparser.tac
index b47f4a6..1af2c5b 100644
--- a/ds9/parsers/scalesendparser.tac
+++ b/ds9/parsers/scalesendparser.tac
@@ -20,9 +20,9 @@ scalesend : {ProcessSendCmdGet scale type}
| LOCK_ {ProcessSendCmdYesNo scale lock}
| LOCK_ LIMITS_ {ProcessSendCmdYesNo scale lock,limits}
| DATASEC_ {ProcessSendCmdGet scale datasec}
- | LIMITS_ {ProcessSendCmdCurrent "get clip"}
+ | LIMITS_ {ProcessSendCmdCurrent frame "get clip"}
# backward compatibility
- | SCALELIMITS_ {ProcessSendCmdCurrent "get clip"}
+ | SCALELIMITS_ {ProcessSendCmdCurrent frame "get clip"}
| MODE_ {ProcessSendCmdGet scale mode}
| SCOPE_ {ProcessSendCmdGet scale scope}
| LOG_ EXP_ {ProcessSendCmdGet scale log}