perl tcl Tclkit链接到特定安装

时间:2018-10-31 00:10:46

标签: perl tkinter tcl tk

如何在Mac OS上将tcl.pm模块链接到Tclkit,就像可用的here一样?

作为一种选择,我也很乐意将Tcl.pm链接到正常的Tcl / Tk安装。如Tcl.pod中所述,应在编译模块时完成此操作。他们写道:

perl Makefile.PL --library=-l/path/to/tcl(stub).a         \
   --include=-I/path/to/tcl/include                       \
   --define="-DLIB_RUNTIME_DIR=... -DTCL_LIB_FILE=..."

因此,要尝试一下,我采用了macOS上预装的Tcl / Tk框架,将其移至另一个目录,然后尝试使用以下参数进入Makefile.pl:

perl Makefile.PL \
   --library="-L/xxx/Tcl.framework/Versions/8.5 -ltclstub8.5" \
   --include=-I/xxx/Tcl.framework/Versions/8.5/Headers        \
   --define="-DUSE_TCL_STUBS -DTCLSH_PATH=\\\"/usr/bin\\\" -DLIB_RUNTIME_DIR=\\\"/xxx/Tcl.framework\\\" -DTCL_LIB_FILE=\\\"Tcl\\\""

然后我继续进行常规的make,make测试和make install。我没有得到任何可以指出解决方案的错误。我比较了不带参数和我的Makefile.pl创建的make文件,发现旁边没有区别:路径(很明显),并且我的makefile错过了这一行:

#     dynamic_lib => { OTHERLDFLAGS=>q[-framework Carbon] }

无论我尝试什么,我的脚本都使用标准的Tcl / Tk启动...我不知道下一步该怎么做

1 个答案:

答案 0 :(得分:1)

Tcl模块不需要您自己设置其他详细信息(--library--include--define),但是您可以引用已安装的tclshtclConfig.sh使其自动加载。

运行时,请参见--tclconfig--tclsh

% perl Makefile.PL --help

这对我来说确实有效,既可以使用通过MacPorts获得的Tcl安装(sudo port install tcl; 8.6.8),也可以使用从Tcl化石签出(core-8-6-branch)开始的安装。

% tar -xzf Tcl-1.27.tar.gz
% cd Tcl-1.27/
% perl Makefile.PL --tclconfig /opt/local/lib/tclConfig.sh
% make
% make test

这给了我

$ make test
"/opt/local/bin/perl5.26" -MExtUtils::Command::MM -e 'cp_nonempty' -- Tcl.bs blib/arch/auto/Tcl/Tcl.bs 644
PERL_DL_NONLAZY=1 "/opt/local/bin/perl5.26" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/call.t ............. ok     
t/constants.t ........ ok   
t/createcmd.t ........ ok   
t/disposal-subs-a.t .. skipped: because: not installed use Devel::Refcount qw( refcount )
t/disposal-subs-b.t .. ok   
t/disposal-subs-c.t .. ok   
t/disposal-subs-d.t .. ok   
t/disposal-subs-e.t .. ok   
t/disposal-subs-f.t .. ok   
t/disposal-subs.t .... 1/2 [[::perl::CODE(0x7fe3e3802a68) ::perl::Eval; ]]
t/disposal-subs.t .... ok   
t/eval.t ............. ok   
t/export_to_tcl.t .... ok   
t/info.t ............. ok   
t/memleak-a.t ........ skipped: because: not installed use Devel::Refcount qw( refcount )
t/result.t ........... ok   
t/set-callback.t ..... ok   
t/subclass.t ......... ok   
t/trace.t ............ ok   
t/unicode.t .......... ok   
t/var.t .............. ok   
All tests successful.

Test Summary Report
-------------------
t/info.t           (Wstat: 0 Tests: 6 Failed: 0)
  TODO passed:   2
Files=20, Tests=101, 15 wallclock secs ( 0.08 usr  0.03 sys +  0.99 cusr  0.32 csys =  1.42 CPU)
Result: PASS