这里有四个(!)问题:
-
test-a.scm 包含一个单元声明。这是不正确的;总有一个文件需要编译为具有main() C 函数。那是没有单元声明的文件。如果您仔细研究您链接的手册页,它会说“在这种情况下,foo.scm 是主模块,因为它没有单元声明”。
- 既然你决定使用模块,你需要编译
test-b.scm,如下:csc -c -j test-b test-b.scm。 -j 开关将导致编译器发出一个模块库test-b.import.scm,这是编译器在编译test-a.scm 时所寻找的。当缺少导入库时,它会抱怨模块未定义。在解释器中没有问题,因为您在导入它定义的模块之前load 文件。
- 您正在使用
load,即使在程序的编译版本中也是如此。这意味着它会在任何情况下读取和评估 test-b.scm 文件(如果丢失则抱怨)。
- 您正在使用
use,它将在运行时需要该库。这用于加载和导入由动态链接库定义的模块。
所以,要解决这个问题,你可以这样做:
test-a.scm
#!/usr/bin/csi -script
;; Declare that this uses test-b, so that its toplevel is initialised
(declare (uses test-b))
;; No (declare (unit test-a)) because this file should generate main().
;; Because we tell the compiler what to link together and we want to
;; avoid passing all the .scm files on the csi command line, we can load
;; the test-b.scm file here, but only when interpreting:
(cond-expand
((not compiling) (load "test-b.scm"))
(else))
;; Only import the module; we take care of loading the code above,
;; or in the linking step when compiling. If we had (use test-b),
;; the library would be searched for at runtime.
;; Alternatively, (use test-b) here, but add (register-feature! 'test-b)
;; to test-b.scm, which prevents the runtime from attempting to load test-b.
(import test-b)
(test-syntax)
test-b.scm (不变)
(declare (unit test-b))
(module test-b *
(import scheme chicken)
(define-syntax test-syntax
(syntax-rules ()
((_)
(print "In test-syntax")))))
并且,编译它:
csc -c -j test-b test-b.scm
csc -c test-a.scm
csc test-a.o test-b.o -o test
我意识到这需要知道很多东西,而且也很棘手,而且像use 加上register-feature! 这样的东西根本没有多大意义。我们正试图在 CHICKEN 5 中让这变得不那么繁琐,并且我们还将在 wiki 中添加一个常见问题解答,因为这真的不明显而且有点常见问题解答。
您链接的手册页很长时间没有更改:例如,它完全忽略了模块的存在。这就是为什么你无法编译它,-j 开关丢失了,因为手册页中的示例文件没有定义模块。
编辑:
这可以稍微清理一下,因为无论如何declare 只被编译器认可。所以我们也可以把它移到cond-expand:
test-a.scm
#!/usr/bin/csi -script
(cond-expand
(compiling (declare (uses test-b)))
(else (load "test-b.scm")))
(import test-b)
(test-syntax)