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

Members database loading progress.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-11 18:26:43 +01:00
parent de6ff6e706
commit ba37d9019c
1 changed files with 26 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

33
brmsaptool.scm
View file

@ -372,8 +372,10 @@
(define (load-member-file fn)
(let* ((ffn (make-pathname (*members-directory*) fn))
(f (open-input-file ffn))
(ls (read-lines f)))
(parse-member-lines ls)))
(ls (read-lines f))
(md (parse-member-lines ls)))
(display ".")
md))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Members database
@ -384,7 +386,9 @@
(let loop ((fns (directory (*members-directory*)))
(rs '()))
(if (null? fns)
rs
(let ()
(display "-")
rs)
(let* ((fn (car fns))
(ffn (make-pathname (*members-directory*) fn))
(sl (if (symbolic-link? ffn) (read-symbolic-link ffn) #f)))
@ -399,7 +403,9 @@
(let loop ((ri ri)
(ds '()))
(if (null? ri)
ds
(let ()
(display "*")
ds)
(let* ((mp (car ri))
(lnk (car mp))
(dfn (cdr mp))
@ -430,8 +436,9 @@
;; Loads all member information from given members database.
(define (load-members)
(expand-members-raw-index
(load-members-raw-index)))
(load-members-from-expanded-index
(expand-members-raw-index
(load-members-raw-index))))
;; Gets member record by member key
(define (find-member-by-key mdb key val)
@ -454,6 +461,15 @@
(define (find-member-by-nick mb nick)
#f)
(define (list-members-ids mdb)
#f)
(define (list-members-fnames mdb)
#f)
(define (list-members-nicks mdb)
#f)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Run everything
@ -470,7 +486,10 @@
(newline)
;; Perform requested action
(define mdb (load-members-from-expanded-index (expand-members-raw-index (load-members-raw-index))))
(display "Loading members ")
(define mdb (load-members))
(print " ok.")
(newline)
; (print mdb)