diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-07-12 15:35:11 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-07-12 15:35:11 (GMT) |
commit | ea4fad5f47770802c2781ae21068aca179533ed9 (patch) | |
tree | 5cdab9220bcc496ac290869a9f72fb3c162014b4 /ds9 | |
parent | 805e9585c25c2bffbf1249f2706f31441c1ed569 (diff) | |
download | blt-ea4fad5f47770802c2781ae21068aca179533ed9.zip blt-ea4fad5f47770802c2781ae21068aca179533ed9.tar.gz blt-ea4fad5f47770802c2781ae21068aca179533ed9.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 7586ac8..abad5d0 100644 --- a/ds9/library/lex.fcl +++ b/ds9/library/lex.fcl @@ -23,6 +23,8 @@ E [Ee][+-]?{D}+ -asinh {return $::ASINHCMD_} -bg {return $::BGCMD_} -background {return $::BGCMD_} +-cd {return $::CDCMD_} +-console {return $::CONSOLECMD_} -cursor {return $::CURSORCMD_} -exit {return $::QUITCMD_} -help {return $::HELPCMD_} diff --git a/ds9/library/parser.tac b/ds9/library/parser.tac index 9ce1e6f..f3c2497 100644 --- a/ds9/library/parser.tac +++ b/ds9/library/parser.tac @@ -19,6 +19,8 @@ set file(load) 0 %token ALIGNCMD_ %token ASINHCMD_ %token BGCMD_ +%token CDCMD_ +%token CONSOLECMD_ %token CURSORCMD_ %token HELPCMD_ %token HISTEQUCMD_ @@ -131,6 +133,8 @@ command : 2MASSCMD_ {2MASSDialog} 2mass | ALIGNCMD_ align | ASINHCMD_ {global scale; set scale(type) asinh; ChangeScale} | BGCMD_ STRING_ {global pds9; set pds9(bg) $2; PrefsBgColor} + | CDCMD_ cd + | CONSOLECMD_ {global ds9; OpenConsole; InitError $ds9(msg,src)} | CURSORCMD_ INT_ INT_ {CursorCmd $2 $3} | HELPCMD_ {HelpCommand} | HISTEQUCMD_ {global scale; set scale(type) histequ; ChangeScale} @@ -295,6 +299,11 @@ align : {global current; set current(align) 1; AlignWCSFrame} | yesno {global current; set current(align) $1; AlignWCSFrame} ; +cd : STRING_ {cd $2} + | '.' {cd .} + | '/' {cd /} + ; + iconify : {global ds9; wm iconify $ds9(top)} | yes {global ds9; wm iconify $ds9(top)} | no {global ds9; wm deiconify $ds9(top)} |