Dictionary reduce, prepare members-base usage.

This commit is contained in:
Dominik Pantůček 2023-03-16 11:24:04 +01:00
parent e26b78b254
commit 77204b80e4
3 changed files with 56 additions and 5 deletions

View file

@ -50,6 +50,10 @@
(members-base-tests!)
(newline)
;; Command-line options and configurable parameters
(define *members-directory* (make-parameter "members"))
;; Arguments parsing
(command-line
print-help
(-h () "This help"
@ -58,9 +62,13 @@
(print-help)
(newline)
(exit 0))
(-MB (dir) "Members base directory" (*members-directory* dir))
(-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-members "members" #t)
;; Load the members database (required for everything anyway)
(define MB (load-members "members" #t))
;; ...
(void)