使用“命令-行”函数在Scheme中获取命令行参数

Question

这个问题以前肯定有人问过，这里。除了在command-line中提到的命令行访问和退出值中提到的r6rs-lib函数之外，所提供的一些解决方案确实有效(在r6rs-lib中)。

我设法在Gauche(非r6rs兼容的实现)中使用*argv*实现了我想要的结果。

(display *argv*)
> gosh test.ss first 1 2 3 4 5 6 7 8 9 10 11 12 13
         >> (first 1 2 3 4 5 6 7 8 9 10 11 12 13)

我也想使用Petite Chez Scheme函数对r6rs兼容的command-line做同样的处理。我试图在这一章中使用代码，但我得到的只是一个包含脚本名称的列表，并且只有第一个参数。e.g

#!r6rs
(import (rnrs programs (6)))
(display (command-line))

> petite --script test.ss first second
    >> (test.ss first)

还有其他一些我缺少的库导入可以让它工作

Answer 1

在“Ikarus方案”中，以下的“脚本”为我工作：

#!/usr/bin/env scheme-script
(import (rnrs))
(display (command-line))
(newline)

ebg@ebg$ ./ik.scm a b c
(./ik.scm a b c)
ebg@ebg$ ikarus --r6rs-script ./ik.scm a b c
(./ik.scm a b c)

对佩蒂来说

ebg@ebg$ petite --script ~/ik.scm a b c
(/Users/ebg/ik.scm a b c)

请注意，(import (rnrs programs (6)))不会正式导入display，因此您的代码应该会失败。