diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-11 17:11:55 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-11 17:11:55 (GMT) |
| commit | 237eb51e0bdbab7b65e2f36b4bcc455785b167b7 (patch) | |
| tree | e455a37325112be0a3b58c5f4fb9a830bd5ed8e2 /ds9/library | |
| parent | 6489dc12e00c3704176619f7e6a43369ae50b2ec (diff) | |
| download | blt-237eb51e0bdbab7b65e2f36b4bcc455785b167b7.zip blt-237eb51e0bdbab7b65e2f36b4bcc455785b167b7.tar.gz blt-237eb51e0bdbab7b65e2f36b4bcc455785b167b7.tar.bz2 | |
add ds9 xpa send parser
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/source.tcl | 2 | ||||
| -rw-r--r-- | ds9/library/xpa.tcl | 10 |
2 files changed, 9 insertions, 3 deletions
diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 0623c54..e6e75e4 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -432,6 +432,8 @@ source $ds9(root)/library/widthparser.tcl source $ds9(root)/library/widthlex.tcl source $ds9(root)/library/xpaparser.tcl source $ds9(root)/library/xpalex.tcl +source $ds9(root)/library/xpasendparser.tcl +source $ds9(root)/library/xpasendlex.tcl source $ds9(root)/library/xpafirstparser.tcl source $ds9(root)/library/xpafirstlex.tcl source $ds9(root)/library/zscaleparser.tcl diff --git a/ds9/library/xpa.tcl b/ds9/library/xpa.tcl index 16aa16b..5dde6b5 100644 --- a/ds9/library/xpa.tcl +++ b/ds9/library/xpa.tcl @@ -2222,7 +2222,11 @@ proc ProcessXPACmd {varname iname} { } proc ProcessSendXPACmd {proc id param {sock {}} {fn {}}} { - switch -- [string tolower [lindex $param 0]] { - info {$proc $id [XPAInfoResult]} - } + global parse + set parse(proc) $proc + set parse(id) $id + + xpasend::YY_FLUSH_BUFFER + xpasend::yy_scan_string $param + xpasend::yyparse } |