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

Improve command-line syntax.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-14 21:10:18 +01:00
parent 0f9e5e2313
commit 84c5aac95e
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
brmsaptool.scm
View file

@ -57,12 +57,14 @@
(command-line
print-help
(-h "This help" ()
(-h () "This help"
(print "Command-line options:")
(newline)
(print-help)
(newline)
(exit 0))
(-mfkw "Member-File invalid Key Warning" () (*member-file-check-syntax* 'warning))
(-mfkq "Member-File invalid Key Quiet" () (*member-file-check-syntax* 'quiet))
(-mfec "Member-File parser Error Context (lines)" (n) (*member-file-context* (string->number n))))
(-mfkw () "Member-File invalid Key Warning" (*member-file-check-syntax* 'warning))
(-mfkq () "Member-File invalid Key Quiet" (*member-file-check-syntax* 'quiet))
(-mfec (n) "Member-File parser Error Context (lines)" (*member-file-context* (string->number n))))
(load-member-file "members/joe")

6
command-line.scm
View file

@ -121,12 +121,10 @@
(syntax-rules ()
((_ opt help proc)
(list (symbol->string 'opt) help proc))
((_ opt help (args ...) body ...)
((_ opt (args ...) help body ...)
(list (symbol->string 'opt)
help
(lambda (args ...) body ...)))
((_ opt help)
(list (symbol->string 'opt) help 'help))))
(lambda (args ...) body ...)))))
;; Simple syntax wrapper for command-line arguments specification and
;; immediate parsing.