Jak uzyskać nazwę programu w Racket?

Question

Chciałbym programowo wykryć nazwę programu w kodzie Racket. Można to zrobić na Scenie z kurczaka:

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

Jak mogę to naśladować w Racket?

Answer 1

Czy tego chcesz?

(find-system-path 'run-file) 

Zobacz także, jak analizować wiersz polecenia.

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

Answer 2

Uwaga: dla tego konkretnego wzoru wykonania, aby mieć moduł biblioteki, które można również uruchomić jako główny, użyj submodule nazwie główny. Zobacz Main and Test Submodules, który pokazuje, jak to zrobić.