所以我花了一些时间阅读和测试代码,看起来它与remote-client.tcl
than remote.tcl
。当与ltk-remote.lisp
,Lisp 端创建一个可以接受多个客户端的服务器,每个客户端都是一个 tcl/tk 解释器。
lisp <=== socket stream ===> [ server socket ]
^
|
(wish interpreter)
Lisp 端期望解释器维护一个名为server
。对于本地口译员,这是在init-wish
,哪里有set server stdout
。在远程愿望的情况下,希望愿望解释器自己设置该变量。
情况就是这样remote-client.tcl
,并且测试应用程序运行良好(例如ltk-remote::lrtest
),除了它添加了一个.status
永远不会被删除的小部件。应该可以清理一下remote-client.tcl
script.
如果是remote.tcl
, 口译员opens一对流到另一个流wish
过程:
set wi [open "|wish" RDWR]
它还连接到服务器(变量server
),并将输入从服务器复制到愿望进程。不幸的是,嵌入的愿望过程没有定义server
多变的:
lisp <=== socket stream ===> [ server socket ]
^
|
(wish interpreter 1)
"server" variable
|
"wi" variable
^
| pipe connection
v
(wish interpreter 2)
no "server" variable
但是如果你设置server
to stdout
,正如另一个答案中所解释的,该作业在第二个愿望解释器中进行评估。输出被发送回第一个 Wish 解释器,该解释器将答案复制回 Lisp 服务器。
我没有通过另一个愿望解释器,而是使用修改后的本地测试remote-client.tcl
不添加任何小部件:
package require Tk
set host localhost
set port 19790
set server ""
if {[llength $argv] > 0} {
set host [lindex $argv 0]
}
if {[llength $argv] > 1} {
set port [lindex $argv 1]
}
if {[catch {global server; global host; global port; set server [socket $host $port]}]} {
tk_messageBox -icon error -type ok -title "Connection failed!" -message "Cannot connect to server $host port $port."
exit
}
fconfigure $server -blocking 0 -translation binary -encoding utf-8
fileevent $server readable [list sread $server]
set buffer ""
proc getcount {s} {
if {[regexp {^\s*(\d+) } $s match num]} {
return $num
}
}
proc getstring {s} {
if {[regexp {^\s*(\d+) } $s match]} {
return [string range $s [string length $match] end]
}
}
proc process_buffer {} {
global buffer
global server
set count [getcount $buffer]
set tmp_buf [getstring $buffer]
while {($count > 0) && ([string length $tmp_buf] >= $count)} {
set cmd [string range $tmp_buf 0 $count]
set buffer [string range $tmp_buf [expr $count+1] end]
if {[catch $cmd result]>0} {
tk_messageBox -icon error -type ok -title "Error!" -message $result
puts $server "(error: \"$result\")"
flush $server
close $server
exit
}
set count [getcount $buffer]
set tmp_buf [getstring $buffer]
}
}
proc sread {server} {
global buffer
if {[eof $server]} {
tk_messageBox -icon info -type ok -title "Connection closed" -message "The connection has been closed by the server."
close $server
exit
} else {
set txt [read $server];
set buffer "$buffer$txt"
process_buffer
}
}