首页 > 解决方案 > 使用 Gambit-C 编译方案

问题描述

我正在运行 Ubuntu 18.04,并安装gambc了执行 Scheme 脚本。 gsi工作正常,可以解释我提供的任何文件,并且 REPL 也按预期工作。

不幸的是,我不知道如何使用gsc.

http://gambitscheme.org/wiki/index.php/A_Tour_of_Scheme_in_Gambit几乎没有提供关于如何使用gsc编译程序的信息,man gsc更多的是关于gsi并且没有涵盖所有可用的选项(选项-o-c例如man页面中没有提到),而我能找到的所有其他资源都对我不起作用。

让我详细说明最后一部分:

$ cat hello.scm
;#!/usr/local/bin/gsi-script -:d0
;
(define hello-world
        (lambda ()
                (begin (write `Hello-World) (newline) (hello-world))))

(define (main)
        (hello-world))

然后

$ gsc hello.scm
$ ls
hello.o1  hello.scm
$ ./hello.o1
Segmentation fault (core dumped)

失败,也是如此

$ gsc -c hello.scm
$ ls
hello.c hello.scm
$ gcc -o hello hello.c
/usr/lib/gcc/x86_64-linux-gnu/7/../../../x86_64-linux-gnu/Scrt1.o : In function « _start » :
(.text+0x20) : Undefined reference to « main »
/tmp/ccnDUVi0.o : [30 more lines]
collect2: error: ld returned 1 exit status
/* File: "m1.c" */
int power_of_2 (int x) { return 1<<x; }

; File: "m2.scm"
(c-declare "extern int power_of_2 ();")
(define pow2 (c-lambda (int) int "power_of_2"))
(define (twice x) (cons x x))

; File: "m3.scm"
(write (map twice (map pow2 '(1 2 3 4)))) (newline)

$ gsc -c m2.scm        # create m2.c (note: .scm is optional)
$ gsc -c m3.scm        # create m3.c (note: .scm is optional)
$ gsc -link m2.c m3.c  # create the incremental link file m3_.c

$ gsc -obj m1.c m2.c m3.c m3_.c
m1.c:
m2.c:
m3.c:
m3_.c:
$ gcc m1.o m2.o m3.o m3_.o -lgambit -lm -ldl -lutil
$ ./a.out
((2 . 2) (4 . 4) (8 . 8) (16 . 16))

正如http://www.iro.umontreal.ca/~gambit/doc/gambit.html所建议的那样,它没有$ gsc -obj m1.c m2.c m3.c m3_.cm3_.c没有定义,甚至忽略了这一点,它再次$ gcc m1.o m2.o m3.o m3_.o -lgambit -lm -ldl -lutil抱怨-lgambit没有定义。然而,该文档确实解释了-o-c选项的用法。

我会在这里停下来,但我确实尝试遵循其他两个教程,但都没有奏效,我再也找不到它们了。

如果可以修改上述任何方法以适合我,或者如果任何其他过程允许将脚本编译为可执行文件(现在即使是简单的 1 文件程序也足够了),我将不胜感激。

标签: schemegambit

解决方案


在您提到的 Gambit 手册的第3 部分。Gambit Scheme 编译器中,对编译器及其所采用的所有选项进行了非常丰富的描述。

如果要将 Scheme 源文件编译hello.scm为可执行程序,请尝试:

gsc -exe hello

您不必提供文件扩展名。生成的可执行文件将与源文件同名,没有扩展名(所以hello.scm-> hello)。


推荐阅读