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

Load members, find them by id or nick.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-16 12:04:51 +01:00
parent a38992edf7
commit dbb7ab7fd8
2 changed files with 62 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

18
brmsaptool.scm
View file

@ -52,6 +52,9 @@
;; Command-line options and configurable parameters
(define *members-directory* (make-parameter "members"))
(define -member-id- (make-parameter #f))
(define -member-nick- (make-parameter #f))
(define -action- (make-parameter #f))
;; Arguments parsing
(command-line
@ -65,11 +68,20 @@
(-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))))
(-mfec (n) "Member-File parser Error Context (lines)" (*member-file-context* (string->number n)))
(-mi (id) "Specif member by id" (-member-id- (string->number id)))
(-mn (nick) "Specify member by nick" (-member-nick- nick))
)
;; Load the members database (required for everything anyway)
(define MB (load-members "members" #t))
(print MB)
(define MB (load-members (*members-directory*) #t))
;; If a member is specified by either id or nick, get its record
(define mr (if (-member-id-)
(find-member-by-id MB (-member-id-))
(if (-member-nick-)
(find-member-by-nick (-member-nick-))
#f)))
;; ...
(void)