diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-12 18:27:58 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-12 18:27:58 (GMT) |
commit | 18c60a7a59ee8c876c64200d11d442a773b79200 (patch) | |
tree | a0338e83f7dd7989e0f9b8e2007537678a382635 /ds9/library/backup.tcl | |
parent | 1fa2f76477fee65170bf8b4f6f219949a45647e5 (diff) | |
download | blt-18c60a7a59ee8c876c64200d11d442a773b79200.zip blt-18c60a7a59ee8c876c64200d11d442a773b79200.tar.gz blt-18c60a7a59ee8c876c64200d11d442a773b79200.tar.bz2 |
add ds9 backup parser
Diffstat (limited to 'ds9/library/backup.tcl')
-rw-r--r-- | ds9/library/backup.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ds9/library/backup.tcl b/ds9/library/backup.tcl index c221908..d2882dc 100644 --- a/ds9/library/backup.tcl +++ b/ds9/library/backup.tcl @@ -783,6 +783,14 @@ proc ProcessBackupCmd {varname iname} { upvar $varname var upvar $iname i + global debug + if {$debug(tcl,parser)} { + backup::YY_FLUSH_BUFFER + backup::yy_scan_string [lrange $var $i end] + backup::yyparse + incr i [expr $backup::yycnt-1] + } else { + set fn [lindex $var $i] if {$fn != {}} { FileLast backupfbox $fn @@ -791,6 +799,12 @@ proc ProcessBackupCmd {varname iname} { Error [msgcat::mc {Unable to open file}] } } +} + +proc BackupCmd {fn} { + FileLast backupfbox $fn + Backup $fn +} proc ProcessRestoreCmd {varname iname} { upvar $varname var |