1

我无法使用TclDevKit5.2包装最简单的 TCL 应用程序。

我在 64 位 CentOS 上，这里uname -a返回：

Linux hp1 2.6.18-194.11.1.el5 #1 SMP Tue Aug 10 19:05:06 EDT 2010 x86_64 x86_64 x86_64 GNU/Linux

打字时：

/opt/TclDevKit-5.2/bin/tclapp -out wrap empty.tcl

（这里 empty.tcl 是一个空文件）它生成./wrap可执行文件，但是在尝试运行时./wrap，它会报告：

can't find package starkit
    while executing
"package require starkit"
    (file "./wrap" line 5)

以下是 的第一行./wrap：

#!/bin/sh
# \
exec tclsh "$0" ${1+"$@"}
##
package require starkit
starkit::header mk4 -readonly
##
# here goes the binary executable ....

我究竟做错了什么？starkit包裹在哪里？也许我必须添加一些东西add_path？

我正在使用 TclDevKit 的 21 天试用版，这是它在生成时报告的日志./wrap：

info      | Tcl Dev Kit TclApp
info      | Copyright (C) 2001-2010 ActiveState Software Inc. All rights reserved.
info      | Licensed to Trial User (Trial license, serial number *6928738*).
info      |
info      | Embedding license information into wrap result as comments.
info      |
info      | Expires: 18-11-2010.
info      | 
info      | WARNING:  All applications generated by this trial version
info      |           will also stop working on 18-11-2010.
info      Expanding...
info          Following only profile dependencies
info       
info      Issues...
info       
notice    Packages ...
notice    * No packages
info      Inserting "tclsh" into starkit header.
info      Inserting "-readonly" into starkit header.
info      Inserting TEApot metadata
info        Nothing to insert
info       
notice      Extending the list of provided packages
info       
info      F     0B   /home/vminasyan/workspace/tests/TclDevKit/empty.tcl
info       
info      Generated wrap
4

1 回答 1

1

我没有测试，但我认为你缺少前缀参数

-prefix /TclDevKit/bin/base-tk-<whatever-your-platform>

所以你的命令应该是这样的：

/opt/TclDevKit-5.2/bin/tclapp -prefix /TclDevKit/bin/base-tk-<whatever-your-platform> -out wrap empty.tcl

无论如何，我建议您使用项目文件。您可以在没有任何参数的情况下创建它tclapp（注意：您需要一个图形环境）

于 2010-11-03T11:18:42.163 回答