Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #729 from lassik/srfi-193

Browse source 
Add SRFI 193 Scheme library
This commit is contained in:
Alex Shinn 2021-02-05 21:36:20 +09:00 • committed by GitHub
commit de02feb8ff
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lib/srfi/193.sld Normal file
View file

@ -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) "/"))))))