diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-07-12 18:01:22 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-07-12 18:01:22 (GMT) |
commit | cbbf2d86ec32d49690ccf49d1e3d3825781e7661 (patch) | |
tree | ac53873d6e29b1744fe670388a20a5aa53213170 /ds9 | |
parent | 258f1d74b845cbe821d38235add45a2ee1f16635 (diff) | |
download | blt-cbbf2d86ec32d49690ccf49d1e3d3825781e7661.zip blt-cbbf2d86ec32d49690ccf49d1e3d3825781e7661.tar.gz blt-cbbf2d86ec32d49690ccf49d1e3d3825781e7661.tar.bz2 |
update parser
Diffstat (limited to 'ds9')
-rw-r--r-- | ds9/library/lex.fcl | 2 | ||||
-rw-r--r-- | ds9/library/parser.tac | 9 |
2 files changed, 11 insertions, 0 deletions
diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl index 0d32162..169cdff 100644 --- a/ds9/library/lex.fcl +++ b/ds9/library/lex.fcl @@ -23,6 +23,7 @@ E [Ee][+-]?{D}+ -asinh {return $::ASINHCMD_} -bg {return $::BGCMD_} -background {return $::BGCMD_} +-blink {return $::BLINKCMD_} -blue {return $::BLUECMD_} -cd {return $::CDCMD_} -console {return $::CONSOLECMD_} @@ -107,6 +108,7 @@ highlite {return $::HIGHLITE_} histequ {return $::HISTEQU_} image {return $::IMAGE_} in {return $::IN_} +interval {return $::INTERVAL_} irafalign {return $::IRAFALIGN_} last {return $::LAST_} layout {return $::LAYOUT_} diff --git a/ds9/library/parser.tac b/ds9/library/parser.tac index adc1388..611ef51 100644 --- a/ds9/library/parser.tac +++ b/ds9/library/parser.tac @@ -20,6 +20,7 @@ set file(load) 0 %token ASINHCMD_ %token BGCMD_ %token BLUECMD_ +%token BLINKCMD_ %token CDCMD_ %token CONSOLECMD_ %token CURSORCMD_ @@ -99,6 +100,7 @@ set file(load) 0 %token HISTEQU_ %token IMAGE_ %token IN_ +%token INTERVAL_ %token IRAFALIGN_ %token LAST_ %token LAYOUT_ @@ -195,6 +197,7 @@ command : 2MASSCMD_ {2MASSDialog} 2mass | ALIGNCMD_ align | ASINHCMD_ {global scale; set scale(type) asinh; ChangeScale} | BGCMD_ STRING_ {global pds9; set pds9(bg) $2; PrefsBgColor} + | BLINKCMD_ blink | BLUECMD_ {global current; set current(rgb) blue; RGBChannel} | CDCMD_ cd | CONSOLECMD_ {global ds9; OpenConsole; InitError $ds9(msg,src)} @@ -403,6 +406,12 @@ align : {global current; set current(align) 1; AlignWCSFrame} | yesno {global current; set current(align) $1; AlignWCSFrame} ; +blink : {global current; set current(display) blink; DisplayMode} + | yes {global current; set current(display) blink; DisplayMode} + | no {global current; set current(display) single; DisplayMode} + | INTERVAL_ numeric {global blink; set blink(interval) [expr int($2*1000)]; DisplayMode} + ; + cd : STRING_ {cd $2} | '.' {cd .} | '/' {cd /} |