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

Finish integrated command-line help system.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-14 10:57:27 +01:00
parent 9a438758b3
commit d44dc759fc
2 changed files with 16 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
command-line.scm
View file

@ -100,10 +100,18 @@
descrs))))
(let loop ((descrs descrs))
(when (not (null? descrs))
(let ((desc (car descrs)))
(print (car desc)
(cadr desc)
(caddr desc))
(let* ((desc (car descrs))
(opt (car desc))
(args (cadr desc))
(help (caddr desc)))
(print " "
opt
(make-string (- owidth (string-length opt)) #\space)
" "
args
(make-string (- awidth (string-length args)) #\space)
" "
help)
(loop (cdr descrs)))))))
;; Syntax for expanding various types of options.