Dictionary reduce, prepare members-base usage.
This commit is contained in:
parent
e26b78b254
commit
77204b80e4
3 changed files with 56 additions and 5 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue