From fa52b4987a48b8252add7d2efb1bb3c5c35c7984 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Fri, 5 Feb 2021 14:08:31 +0200 Subject: [PATCH] Add SRFI 193 Scheme library This was accidentally left out of the previous commit. --- lib/srfi/193.sld | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 lib/srfi/193.sld diff --git a/lib/srfi/193.sld b/lib/srfi/193.sld new file mode 100644 index 00000000..9e4610ea --- /dev/null +++ b/lib/srfi/193.sld @@ -0,0 +1,23 @@ + +(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) "/"))))))