From c8f9d81515adf1f2a8bdd513a1fc7593a200a98e Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 14 Jul 2017 11:03:00 -0400
Subject: update parser

---
 ds9/library/lex.fcl    | 2 ++
 ds9/library/parser.tac | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl
index b00a978..fb5aa30 100644
--- a/ds9/library/lex.fcl
+++ b/ds9/library/lex.fcl
@@ -38,6 +38,7 @@ E   [Ee][+-]?{D}+
 -frame	    {return $::FRAMECMD_}
 -green	    {return $::GREENCMD_}
 -help	    {return $::HELPCMD_}
+-height	    {return $::HEIGHTCMD_}
 -histequ    {return $::HISTEQUCMD_}
 -iconify    {return $::ICONIFYCMD_}
 -irafalign  {return $::IRAFALIGNCMD_}
@@ -67,6 +68,7 @@ E   [Ee][+-]?{D}+
 -theme	    {return $::THREMECMD_}
 -threads    {return $::THREADSCMD_}
 -tile	    {return $::TILECMD_}
+-width	    {return $::WIDTHCMD_}
 -zmax	    {return $::ZMAXCMD_}
 -zoom	    {return $::ZOOMCMD_}
 -zscale	    {return $::ZSCALECMD_}
diff --git a/ds9/library/parser.tac b/ds9/library/parser.tac
index 029cf97..5a08f94 100644
--- a/ds9/library/parser.tac
+++ b/ds9/library/parser.tac
@@ -32,6 +32,7 @@ set file(load) 0
 %token GREENCMD_
 %token FITSCMD_
 %token FRAMECMD_
+%token HEIGHTCMD_
 %token HELPCMD_
 %token HISTEQUCMD_
 %token ICONIFYCMD_
@@ -62,6 +63,7 @@ set file(load) 0
 %token THEMECMD_
 %token THREADSCMD_
 %token TILECMD_
+%token WIDTHCMD_
 %token ZMAXCMD_
 %token ZOOMCMD_
 %token ZSCALECMD_
@@ -280,6 +282,7 @@ command : 2MASSCMD_ {2MASSDialog} 2mass
  | FITSCMD_ fits
  | FRAMECMD_ frame
  | GREENCMD_ {global current; set current(rgb) green; RGBChannel}
+ | HEIGHTCMD_ INT_ {global canvas; RealizeDS9; set canvas(height) $2; UpdateView}
  | HELPCMD_ {HelpCommand}
  | HISTEQUCMD_ {global scale; set scale(type) histequ; ChangeScale}
  # backward compatibility
@@ -313,6 +316,7 @@ command : 2MASSCMD_ {2MASSDialog} 2mass
  | THEMECMD_
  | THREADSCMD_ INT_ {global ds9; set ds9(threads) $2; ChangeThreads}
  | TILECMD_ tile
+ | WIDTHCMD_ INT_ {global canvas; RealizeDS9; set canvas(width) $2; UpdateView}
  | ZMAXCMD_ {global scale; set scale(mode) zmax; ChangeScaleMode}
  | ZOOMCMD_ {ProcessRealizeDS9} zoom
  | ZSCALECMD_ zscale
-- 
cgit v0.12