diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-18 21:27:09 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-18 21:27:09 (GMT) |
commit | 12e5a42f7ba80ba930a5c3cc2cf29c98651bc590 (patch) | |
tree | 06d4fe242b3c46ea3cb5bf9c5f2119d403b7217f /ds9/library | |
parent | bbd309cf4ad6a9aec2bf1dca5e5c2bd29765e9c9 (diff) | |
download | blt-12e5a42f7ba80ba930a5c3cc2cf29c98651bc590.zip blt-12e5a42f7ba80ba930a5c3cc2cf29c98651bc590.tar.gz blt-12e5a42f7ba80ba930a5c3cc2cf29c98651bc590.tar.bz2 |
add ds9 pagesetup parser
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/pagesetup.tcl | 9 | ||||
-rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 11 insertions, 0 deletions
diff --git a/ds9/library/pagesetup.tcl b/ds9/library/pagesetup.tcl index 75f64db..e88982a 100644 --- a/ds9/library/pagesetup.tcl +++ b/ds9/library/pagesetup.tcl @@ -181,6 +181,14 @@ proc ProcessPSPageSetupCmd {varname iname} { upvar $varname var upvar $iname i + global debug + if {$debug(tcl,parser)} { + pagesetup::YY_FLUSH_BUFFER + pagesetup::yy_scan_string [lrange $var $i end] + pagesetup::yyparse + incr i [expr $pagesetup::yycnt-1] + } else { + global ps switch -- [string tolower [lindex $var $i]] { @@ -192,6 +200,7 @@ proc ProcessPSPageSetupCmd {varname iname} { size {incr i; set ps(size) [string tolower [lindex $var $i]] } } } +} proc ProcessSendPSPageSetupCmd {proc id param} { global ps diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 511ac15..222c92f 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -244,6 +244,8 @@ source $ds9(root)/library/orientparser.tcl source $ds9(root)/library/orientlex.tcl source $ds9(root)/library/rotateparser.tcl source $ds9(root)/library/rotatelex.tcl +source $ds9(root)/library/pagesetupparser.tcl +source $ds9(root)/library/pagesetuplex.tcl source $ds9(root)/library/panparser.tcl source $ds9(root)/library/panlex.tcl source $ds9(root)/library/pixeltableparser.tcl |