Chicken Scheme 是否有相当于 Perl 的 $0 的东西？

发布于 2024-10-20 05:43:12 字数 351 浏览 7 评论 0原文

如何可靠地获取ChickenScheme中的脚本名称？

似乎 -ss 占用了脚本名称，因此除非我使用点斜杠来运行脚本，否则它是不可见的。

scriptedmain.scm：

#!/usr/bin/env csi -q

(display (command-line-arguments))
(display "\n")
(exit)

跟踪：

$ ./scriptedmain.scm 
(-q ./scriptedmain.scm)
wonko:Desktop andrew$ csi -ss scriptedmain.scm 
()

原文

How can I reliably get the script name in Chicken Scheme?

It seems that -ss eats up the script name, so it's not visible unless I use dot slash to run my scripts.

scriptedmain.scm:

#!/usr/bin/env csi -q

(display (command-line-arguments))
(display "\n")
(exit)

Trace:

$ ./scriptedmain.scm 
(-q ./scriptedmain.scm)
wonko:Desktop andrew$ csi -ss scriptedmain.scm 
()

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

平定天下 2024-10-27 05:43:12

这是一个较晚的回复，因此可能对原始发布者没有用处。但对于任何其他可能遇到这个问题的人来说，简单的答案是使用参数：

(program-name)

这应该在所有情况下返回正确的名称。此处的文档。

This is a late response, so may not be of use to the original poster. But to any others who may come across this question, the simple answer is to use the parameter:

(program-name)

This should return the correct name for all situations. Docs here.

回复收藏 0 原文

む无字情书 2024-10-27 05:43:12

(argv) 应该可以完成这项工作。示例：

#!/usr/local/bin/csi -script

(display (argv)) (newline) (exit)

打印 (/usr/local/bin/csi -script ./test.scm)

(argv) should do the job. Example:

#!/usr/local/bin/csi -script

(display (argv)) (newline) (exit)

prints (/usr/local/bin/csi -script ./test.scm)

回复收藏 0 原文

各自安好 2024-10-27 05:43:12

scriptedmain.scm 将在以下情况下运行（main）并打印程序名称：

从解释器运行：

csi -ss scriptedmain.scm

使用 shebangs 从解释器运行：

./scriptedmain.scm

已编译：

csc -o scriptedmain scriptedmain.scm
./scriptedmain

已添加到 GitHub。

#!/bin/sh
#|
exec csi -ss $0 ${1+"$@"}
exit
|#

(define (main)
    (display (format "Program: ~a\n" (program-name)))
    (exit))

(if (not (equal? (program-name) "csi"))
    (main))

scriptedmain.scm will run (main) and print the program name in the following cases:

Run from the interpreter:

csi -ss scriptedmain.scm

Run from the interpreter using shebangs:

./scriptedmain.scm

Compiled:

csc -o scriptedmain scriptedmain.scm
./scriptedmain

Added to GitHub.

#!/bin/sh
#|
exec csi -ss $0 ${1+"$@"}
exit
|#

(define (main)
    (display (format "Program: ~a\n" (program-name)))
    (exit))

(if (not (equal? (program-name) "csi"))
    (main))

回复收藏 0 原文

~没有更多了~