24 lines
576 B
Scheme
24 lines
576 B
Scheme
#lang scheme/base
|
|
|
|
(provide current-command-name
|
|
program+command-name
|
|
short-program+command-name)
|
|
|
|
(define current-command-name (make-parameter #f))
|
|
|
|
(define (program+command-name)
|
|
(let ([p (find-system-path 'run-file)]
|
|
[n (current-command-name)])
|
|
(if n
|
|
(format "~a ~a" p n)
|
|
p)))
|
|
|
|
(define (short-program+command-name)
|
|
(let ([p (find-system-path 'run-file)]
|
|
[n (current-command-name)])
|
|
(let-values ([(base name dir?) (split-path p)])
|
|
(if n
|
|
(format "~a ~a" name n)
|
|
(path->string name)))))
|
|
|