summaryrefslogtreecommitdiffstats
path: root/ds9/library/iis.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-06-18 19:16:39 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-06-18 19:16:39 (GMT)
commit5f4cbb5973a88ddd0124660108f220bf297b69ba (patch)
tree030017201b449998a1db6ea56bedbc08606b1a5e /ds9/library/iis.tcl
parentf503c9ee3374f07764864b5db1f8dc6eab10f43a (diff)
downloadblt-5f4cbb5973a88ddd0124660108f220bf297b69ba.zip
blt-5f4cbb5973a88ddd0124660108f220bf297b69ba.tar.gz
blt-5f4cbb5973a88ddd0124660108f220bf297b69ba.tar.bz2
add ds9 iis send parser
Diffstat (limited to 'ds9/library/iis.tcl')
-rw-r--r--ds9/library/iis.tcl9
1 files changed, 9 insertions, 0 deletions
diff --git a/ds9/library/iis.tcl b/ds9/library/iis.tcl
index 091861d..837a6ed 100644
--- a/ds9/library/iis.tcl
+++ b/ds9/library/iis.tcl
@@ -375,6 +375,15 @@ proc IISCmd {filename {which {}}} {
}
proc ProcessSendIISCmd {proc id param {sock {}} {fn {}}} {
+ global parse
+ set parse(proc) $proc
+ set parse(id) $id
+
+ iissend::YY_FLUSH_BUFFER
+ iissend::yy_scan_string $param
+ iissend::yyparse
+ return
+
global current
switch -- [string tolower [lindex $param 0]] {