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/pagesetup.tcl | |
| parent | bbd309cf4ad6a9aec2bf1dca5e5c2bd29765e9c9 (diff) | |
| download | blt-12e5a42f7ba80ba930a5c3cc2cf29c98651bc590.zip blt-12e5a42f7ba80ba930a5c3cc2cf29c98651bc590.tar.gz blt-12e5a42f7ba80ba930a5c3cc2cf29c98651bc590.tar.bz2 | |
add ds9 pagesetup parser
Diffstat (limited to 'ds9/library/pagesetup.tcl')
| -rw-r--r-- | ds9/library/pagesetup.tcl | 9 |
1 files changed, 9 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 |