mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 21:59:17 +02:00
23 lines
770 B
Scheme
23 lines
770 B
Scheme
|
|
(define-library (srfi 193)
|
|
(export command-line command-name command-args script-file script-directory)
|
|
(import (scheme base) (chibi filesystem) (chibi pathname)
|
|
(only (meta) command-line raw-script-file))
|
|
(begin
|
|
|
|
(define (command-name)
|
|
(let ((filename (car (command-line))))
|
|
(and (not (= 0 (string-length filename)))
|
|
(path-strip-extension (path-strip-directory filename)))))
|
|
|
|
(define (command-args)
|
|
(cdr (command-line)))
|
|
|
|
(define (script-file)
|
|
(and raw-script-file
|
|
(path-normalize
|
|
(path-resolve raw-script-file (current-directory)))))
|
|
|
|
(define (script-directory)
|
|
(let ((filename (script-file)))
|
|
(and filename (string-append (path-directory filename) "/"))))))
|