在VC中调用Tcl脚本遇到了问题，该脚本通过tclsh 执行是没问题的

JAMESBONE

以下是一个expect的简单测试程序。
在windows下的cmd下可以通过指令：
“E:\Tcl\bin\tclsh 脚本名”成功执行。但是在用VC调用该脚本时，却不能成功。
因为在VC跟踪
char *scriptpath="e:/test";
tclres＝Tcl_Evalfile（interp，scriptpath);
tclres 返回为1。（TCL_ERROR)
请问各位大侠是不是我的Tcl脚本出了什么问题啊？谢谢了！

#!/bin/sh
# \
exec tclsh "$0"  ${1+"$@"}

# This is required to declare that we will use Expect
package require Expect 5.40
package require Tcl 8.4
package require cmdline

log_file -noappend /log_expect_ericsson
send_log "hello world\r"

[ 本帖最后由 JAMESBONE 于 2007-8-3 09:48 编辑 ]

JAMESBONE

VC程序中，在tclres＝Tcl_Evalfile（interp，scriptpath);一行设置断点。经过调试，发现VC调用Tcl脚本时，在执行到package require Expect 5.40 一行时出现错误，interp变量中有以下文字： “can＇t find package Expect 5.40”
于是我试着把Tcl脚本改成最简单的形式：
#!/bin/sh
# \
exec tclsh "$0"  ${1+"$@"}
# This is required to declare that we will use Expect
#package require Expect 5.40   <－－－注释掉该行
package require Tcl 8.4
set a 1

主要就是注释掉#package require Expect 5.40，发现VC调用该Tcl脚本可以正常执行了。tclres＝Tcl_Evalfile（interp，scriptpath);返回结果是tclres为0，代表正常。
我觉得不解的地方有2点：
1)脚本没有改动过前，可以通过“E:\Tcl\bin\tclsh 脚本名”成功执行该Tcl脚本。那证明是可以找到package Expect的。但是为什么用VC调用该Tcl脚本的时候就找不到package Expect了呢？
2)如果在Tcl脚本中只是保留package require Tcl 8.4，VC调用该脚本是成功的。证明此时VC是可以找到该package的。那是不是说需要设置某个隐藏变量或路径（应该Tcl 8.4这个包的路径已经就是包含在该变量或路径中了），使得VC才可以找到expect包呢？
在这方面的资料非常有限，恳请各位大侠指点迷津，谢谢啦

wrwcwq

我今天遇到的问题应该和你的一样，这个问题你是怎么解决的呢？