diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-17 18:28:03 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-17 18:28:03 (GMT) |
commit | e8ee5fa11878a7be31e5327b4d7abbecdfbad35f (patch) | |
tree | 2930e3962b4a032e25bbebd970686c5d09e53fb5 /ds9/library/url.tcl | |
parent | 6cb5c6f14c66b5f21214cfc4aa3e08e1f113c856 (diff) | |
download | blt-e8ee5fa11878a7be31e5327b4d7abbecdfbad35f.zip blt-e8ee5fa11878a7be31e5327b4d7abbecdfbad35f.tar.gz blt-e8ee5fa11878a7be31e5327b4d7abbecdfbad35f.tar.bz2 |
add ds9 urlfits parser
Diffstat (limited to 'ds9/library/url.tcl')
-rw-r--r-- | ds9/library/url.tcl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/ds9/library/url.tcl b/ds9/library/url.tcl index 2643e32..8a65ab7 100644 --- a/ds9/library/url.tcl +++ b/ds9/library/url.tcl @@ -313,9 +313,16 @@ proc ProcessURLFitsCmd {varname iname} { upvar $varname var upvar $iname i + global debug + if {$debug(tcl,parser)} { + urlfits::YY_FLUSH_BUFFER + urlfits::yy_scan_string [lrange $var $i end] + urlfits::yyparse + incr i [expr $urlfits::yycnt-1] + } else { + set layer {} set mode {} - switch -- [string tolower [lindex $var $i]] { new { incr i @@ -333,4 +340,5 @@ proc ProcessURLFitsCmd {varname iname} { LoadURLFits [lindex $var $i] $layer $mode } +} |