如何在球拍中獲得程序名稱？

Question

我想以編程方式檢測球拍代碼中的程序名稱。這可以通過以下方式在雞配方中完成：

#!/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中模擬這個？

Answer 1

這是你想要的嗎？

(find-system-path 'run-file) 

另請參閱racket/cmdline瞭解如何解析命令行。

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

Answer 2

注：執行這個特殊的模式，以有也可以運行作爲主庫模塊，使用一個名爲submodule主要。請參閱Main and Test Submodules，其中顯示瞭如何執行此操作。