【XMLRPC实现跨语言编程】Tcl <----> python

转载请声明出处，谢谢合作。

# 期望一种能实现tcl、python两者解释器能双向通讯的结合体
# py->tcl: from Tkinter import Tcl; tcl = Tcl(); tcl.eval('')
# tcl->py: 通过xmlrpc机制

具体实现如下

python服务器端：

 import os
 import SimpleXMLRPCServer
 import time, threading
 from Tkinter import Tcl
 from selenium import webdriver

 #os.system('taskkill /F /IM python.exe')

 # 切换当前目录至ATOP
 print os.path.abspath(os.curdir)
 G_ATOP = '%s%sATOP'%(os.getenv('TCLSPACE'), os.sep)
 os.chdir(G_ATOP)
 print os.path.abspath(os.curdir)

 # 创建Tcl解释器(自带默认是tcl8.5)、快捷调用函数
 # G_Tcl = Tcl()   ;# 设置环境变量TCL_LIBRARY=D:/tclSpace/Tcl/lib/tcl8.6  反的
 # def t(cmd):
   # return G_Tcl.eval(cmd)

   # 这里会各种找不到package: 注意把需要用到的扩展包都放在TCLLIBPATH中，这样可以共用
   #   同时编译py下的tcl8.5为tcl8.6
   # t('source lib/tclcommon.tcl') 

 # Start xmlrpcServer
 #
 _b = 'global_var'
 class MyObject:
   def XMLRPCCMD_py(self,word):
     global _b
     #_b = G_ChromeBrowser          ;# exec中只能与局部变量交互
     _ret = ''                     ;# exec中只能与局部变量交互
     #pre = ''
     try:
       # RER = 1+3
       exec(u'%s'%word)
       # % word.decode('GB2312')
       #G_ChromeBrowser = _b
     except SyntaxError,e:
       return "Error-Syntax: ",e
     except NameError,e:
       return "Error-Name: ",e
     _ret=str(_ret)
     print '  \'%s\'' %_ret
     return _ret

 _obj = MyObject()
 _server = SimpleXMLRPCServer.SimpleXMLRPCServer(("127.0.0.1", 23230))#, encoding='utf_8')
 _server.register_instance(_obj)
 def run_rpcSrv():
   print "rpcServer Listening on port 23230, %s" %threading.current_thread().name
   _server.serve_forever()

 #
 # End xmlrpcServer

 # 新线程执行的代码:
 print 'thread %s is running...' % threading.current_thread().name
 _thread = threading.Thread(target=run_rpcSrv, name='Thread-RpcSrv')
 _thread.start()
 #t.join()
 #print 'thread %s ended.' % threading.current_thread().name

 #t('source v4-MainCli.tcl')

tcl客户端：

 package require base64
 package require XMLRPC

 set DEBUG_XMLRPC 1

 source lib/tclcommon.tcl
 #f_Kills python.exe
 #set pyId [open "|python lib/dv/py_rpcSrv.py"]
 after 1000
 puts "set url http://localhost:23230"

 set url "http://127.0.0.1:23230/RPC2"
 XMLRPC::create "XMLRPCCMD_py" -proxy $url -params {word string}

 # 默认发命令且获取返回值 带-d时可打印调试信息 -t时仅发命令如[p {print 123} -t]
 proc p {args} {
   set ret ""
   lassign [f_optsAna $args] argLs optLs
   set cmd [f_str_chinese2u [lindex $argLs 0]]
   set old_DEBUG_XMLRPC $::DEBUG_XMLRPC
   set cmdSend "_ret=$cmd"
   if {"-t" in $optLs} {set cmdSend $cmd}
   if {"-d" in $optLs} {
     puts "    p {$cmdSend}"
     set ::DEBUG_XMLRPC 1
   }
   if {[catch {set ret [::XMLRPCCMD_py $cmdSend]} ::err]} {
     set ::DEBUG_XMLRPC $old_DEBUG_XMLRPC
     error $::err
   }
   set ::DEBUG_XMLRPC $old_DEBUG_XMLRPC
   return $ret
 }
 ;

特别注意：

1、WIN 7下若使用本机测试，则写127.0.0.1会比较好，localhost有可能会解析失败而导致连接不成功。

2、tcl的包用teacup安装，python pip。