brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Port original parse-command-line.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-13 22:42:03 +01:00
parent 387678a01e
commit 08d365ff6a
2 changed files with 24 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

24
command-line.scm
View file

@ -26,6 +26,7 @@
(module
command-line
(command-line
parse-command-line
command-line-tests!)
(import scheme
@ -56,9 +57,24 @@
(cdr rargs)
(cdr args))))
;; Performs the actual parsing based on specification.
(define (parse-command-line specs)
#f)
(let loop ((args (get-command-line-arguments)))
(when (not (null? args))
(let* ((arg (car args))
(specp (assoc arg specs)))
(when (not specp)
(error 'parse-command-line "Unknown argument" arg))
(let* ((proc (caddr specp))
(info (procedure-information proc))
(nargs (- (length info) 1))
(aargsl (consume-args (cdr args) nargs))
(args (car aargsl))
(aargs (cadr aargsl)))
(apply proc aargs)
(loop args))))))
;; Syntax for expanding various types of options.
(define-syntax make-option
(syntax-rules ()
((_ opt help (args ...) body ...)
@ -68,11 +84,13 @@
((_ opt help proc)
(list (symbol->string 'opt) help proc))
((_ opt help)
(list (symbol->string 'opt help 'help)))))
(list (symbol->string 'opt) help 'help))))
;; Simple syntax wrapper for command-line arguments specification and
;; immediate parsing.
(define-syntax command-line
(syntax-rules ()
((_ ((exps ...) ...))
((_ (exps ...) ...)
(parse-command-line
(list (make-option exps ...) ...)))))