如何在Racket中获取程序名称?

时间:2012-10-15 15:20:46

标签: racket

我想以编程方式检测Racket代码中的程序名称。这可以在Chicken Scheme中完成:

#!/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))

我怎么能在Racket中模仿这个?

2 个答案:

答案 0 :(得分:10)

这是你想要的吗?

(find-system-path 'run-file)

另请参阅racket/cmdline了解如何解析命令行。

http://docs.racket-lang.org/reference/Command-Line_Parsing.html

答案 1 :(得分:3)

注意:对于这种特定的执行模式,要拥有一个也可以作为main运行的库模块,请使用名为 main submodule。请参阅Main and Test Submodules,其中显示了如何执行此操作。