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

Find members by various means.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-11 21:28:55 +01:00
parent ba37d9019c
commit 77fd6cb53d
1 changed files with 21 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

30
brmsaptool.scm
View file

@ -440,26 +440,37 @@
(expand-members-raw-index
(load-members-raw-index))))
;; Gets member record by member key
(define (find-member-by-key mdb key val)
;; Gets member based by generic predicate
(define (find-member-by-predicate mdb pred)
(let loop ((mdb mdb))
(if (null? mdb)
#f
(let ((mr (car mdb)))
(if (equal? (dict-ref mr key) val)
(if (pred mr)
mr
(loop (cdr mdb)))))))
;; Gets member record by member key
(define (find-member-by-key mdb key val)
(find-member-by-predicate
mdb
(lambda (mr)
(equal? (dict-ref mr key) val))))
;; Gets member record by member id (from file/symlink)
(define (find-member-by-id mdb id)
(find-member-by-key mdb 'id id))
;; Gets member record by member name (from file/symlink)
(define (find-member-by-fname mb fname)
(define (find-member-by-fname mdb fname)
(find-member-by-key mdb 'name fname))
(define (find-member-by-nick mb nick)
#f)
;; Gets member record by member nick in member file the key 'nick
(define (find-member-by-nick mdb nick)
(find-member-by-predicate
mdb
(lambda (mr)
(equal? (dict-ref (dict-ref mr 'info) 'nick) nick))))
(define (list-members-ids mdb)
#f)
@ -487,7 +498,7 @@
;; Perform requested action
(display "Loading members ")
(define mdb (load-members))
(define MDB (load-members))
(print " ok.")
(newline)
@ -495,5 +506,6 @@
; (print (load-member-file "trimen"))
(print (find-member-by-id mdb 2803))
(print (find-member-by-fname mdb "joe"))
(print (find-member-by-id MDB 2803))
(print (find-member-by-fname MDB "joe"))
(print (find-member-by-nick MDB "joe"))