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

Finish basic database querying.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-11 21:34:22 +01:00
parent 77fd6cb53d
commit 30c0a9838d
1 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

24
brmsaptool.scm
View file

@ -462,8 +462,8 @@
(find-member-by-key mdb 'id id))
;; Gets member record by member name (from file/symlink)
(define (find-member-by-fname mdb fname)
(find-member-by-key mdb 'name fname))
(define (find-member-by-name mdb name)
(find-member-by-key mdb 'name name))
;; Gets member record by member nick in member file the key 'nick
(define (find-member-by-nick mdb nick)
@ -472,14 +472,17 @@
(lambda (mr)
(equal? (dict-ref (dict-ref mr 'info) 'nick) nick))))
;; Returns the list of all members ids
(define (list-members-ids mdb)
#f)
(map (lambda (mr) (dict-ref mr 'id)) mdb))
(define (list-members-fnames mdb)
#f)
;; Returns the list of all file names in members database
(define (list-members-names mdb)
(map (lambda (mr) (dict-ref mr 'name)) mdb))
;; Returns the list of all members nicks
(define (list-members-nicks mdb)
#f)
(map (lambda (mr) (dict-ref (dict-ref mr 'info) 'nick)) mdb))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Run everything
@ -500,12 +503,5 @@
(display "Loading members ")
(define MDB (load-members))
(print " ok.")
(print "Members in database: " (length MDB))
(newline)
; (print mdb)
; (print (load-member-file "trimen"))
(print (find-member-by-id MDB 2803))
(print (find-member-by-fname MDB "joe"))
(print (find-member-by-nick MDB "joe"))