diff options
Diffstat (limited to 'ds9/library/cat.tcl')
| -rw-r--r-- | ds9/library/cat.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ds9/library/cat.tcl b/ds9/library/cat.tcl index dac57ec..a875a36 100644 --- a/ds9/library/cat.tcl +++ b/ds9/library/cat.tcl @@ -1518,6 +1518,14 @@ proc ProcessSendCatalogCmd {proc id param sock fn} { catsend::yyparse } +proc CatalogSendCmdHeader {} { + global parse + global cvarname + + ProcessSend $parse(proc) $parse(id) $parse(sock) $parse(fn) \ + {.txt} [CATGetHeader $cvarname] +} + proc CatalogSendCmdRef {ref} { global icat global cvarname |