diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-04 18:56:09 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-04 18:56:09 (GMT) |
| commit | b2e4e09a867e5818a145eaf346e69cd88efeadc5 (patch) | |
| tree | 306de34d0d914e9970f24aa6b3bbec57f4507355 /ds9/library/util.tcl | |
| parent | c4d56a837ea043404ca8cff41330770bc0614b1f (diff) | |
| download | blt-b2e4e09a867e5818a145eaf346e69cd88efeadc5.zip blt-b2e4e09a867e5818a145eaf346e69cd88efeadc5.tar.gz blt-b2e4e09a867e5818a145eaf346e69cd88efeadc5.tar.bz2 | |
add ds9 catalog send parser
Diffstat (limited to 'ds9/library/util.tcl')
| -rw-r--r-- | ds9/library/util.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index de85100..e8e82fa 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -218,7 +218,12 @@ proc ProcessSendCmdSend {ext cmd} { return } - set rr [$current(frame) $cmd] + ProcessSendCmdResult $ext [$current(frame) $cmd] +} + +proc ProcessSendCmdResult {ext rr} { + global parse + if {$parse(sock) != {}} { # not implemented } elseif {$parse(fn) != {}} { @@ -232,6 +237,7 @@ proc ProcessSendCmdSend {ext cmd} { } } +# old proc ProcessSend {proc id sock fn ext rr} { if {$sock != {}} { # not implemented |