add ds9 scale parser

1 files changed, 100 insertions, 0 deletions

diff --git a/ds9/parsers/scaleparser.tac b/ds9/parsers/scaleparser.tac
new file mode 100644
index 0000000..61ffc87
--- /dev/null
+++ b/ds9/parsers/scaleparser.tac
@@ -0,0 +1,100 @@
+%{
+%}
+
+#include yesno.tin
+#include numeric.tin
+#include string.tin
+
+%start command
+
+%token ASINH_
+%token CLOSE_
+%token DATASEC_
+%token EXP_
+%token GLOBAL_
+%token HISTEQU_
+%token LIMITS_
+%token LINEAR_
+%token LOCAL_
+%token LOCK_
+%token LOG_
+%token MATCH_
+%token MINMAX_
+%token MODE_
+%token OPEN_
+%token POW_
+%token SCALELIMITS_
+%token SCOPE_
+%token SINH_
+%token SQRT_
+%token SQUARED_
+%token USER_
+%token ZMAX_
+%token ZSCALE_
+
+%%
+
+#include yesno.trl
+#include numeric.trl
+
+command : scale 
+ | scale {yyclearin; YYACCEPT} STRING_
+ ;
+
+scale : OPEN_ {ScaleDialog}
+ | CLOSE_ {ScaleDestroyDialog}
+ | MATCH_ match
+ | LOCK_ lock
+ | scales {ScaleCmdSet type $1 ChangeScale}
+ | LOG_ log
+ | DATASEC_ yesno {ScaleCmdSet datasec $2 ChangeDATASEC}
+ | LIMITS_ numeric numeric {ScaleCmdSet min $2 {}; ScaleCmdSet max $3 ChangeScaleLimit}
+ | SCALELIMITS_ numeric numeric {ScaleCmdSet min $2 {}; ScaleCmdSet max $3 ChangeScaleLimit}
+ | mode {ScaleCmdSet mode $1 ChangeScaleMode}
+ | MODE_ mode {ScaleCmdSet mode $2 ChangeScaleMode}
+ | scope {ScaleCmdSet scope $1 ChangeScaleScope}
+ | SCOPE_ scope {ScaleCmdSet scope $2 ChangeScaleScope}
+ ;
+
+scales : LINEAR_ {set _ linear}
+ | POW_ {set _ pow}
+ | SQRT_ {set _ sqrt}
+ | SQUARED_ {set _ squared}
+ | ASINH_ {set _ asinh}
+ | HISTEQU_ {set _ histequ}
+ ;
+ 
+match : {MatchScaleCurrent}
+ | LIMITS_ {MatchScaleLimitsCurrent}
+ | SCALELIMITS_ {MatchScaleLimitsCurrent}
+ ;
+
+lock : yesno {ScaleCmdSet lock $1 LockScaleCurrent}
+ | LIMITS_ yesno {ScaleCmdSet lock,limits $2 LockScaleLimitsCurrent}
+ | SCALELIMITS_ yesno {ScaleCmdSet lock,limits $2 LockScaleLimitsCurrent}
+ ;
+ 
+log : {ScaleCmdSet type log ChangeScale}
+ | EXP_ numeric {ScaleCmdSet log $2 ChangeScale}
+ ;
+
+mode : numeric {set _ $1}
+ | MINMAX_ {set _ minmax}
+ | ZSCALE_ {set _ zscale}
+ | ZMAX_ {set _ zmax}
+ | USER_ {set _ user}
+ ;
+ 
+scope : LOCAL_ {set _ local}
+ | GLOBAL_ {set _ global}
+ ;
+
+%%
+
+proc scale::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}