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

Make sure the warning case returns false.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-14 20:13:04 +01:00
parent 06159627aa
commit 0f9e5e2313
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
brmsaptool.scm
View file

@ -59,8 +59,10 @@
print-help print-help
(-h "This help" () (-h "This help" ()
(print "Command-line options:") (print "Command-line options:")
(newline)
(print-help) (print-help)
(newline)
(exit 0)) (exit 0))
(-a "One-argument" (x) (print "Argument x " x)) (-mfkw "Member-File invalid Key Warning" () (*member-file-check-syntax* 'warning))
(-b "Two arguments" (x y) (print "Arguments " x y)) (-mfkq "Member-File invalid Key Quiet" () (*member-file-check-syntax* 'quiet))
(-c "Argument lambda" (lambda (x) (print "Lambda x " x)))) (-mfec "Member-File parser Error Context (lines)" (n) (*member-file-context* (string->number n))))

5
member-file.scm
View file

@ -97,8 +97,9 @@
(*member-file-context*) (*member-file-context*)
(ansi #:red #:bold) (ansi #:default) (ansi #:red #:bold) (ansi #:default)
"" "" "...")) "" "" "..."))
(when (eq? (*member-file-check-syntax*) 'error) (if (eq? (*member-file-check-syntax*) 'error)
(exit 1))) (exit 1)
#f))
;; Parses given key-value line. Key is up to first space, value is the ;; Parses given key-value line. Key is up to first space, value is the
;; rest of the line. If the line doesn't contain anything, returns #f. ;; rest of the line. If the line doesn't contain anything, returns #f.