From ba37d9019ce239be54cb91f0b8441f8db7d8c002 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sat, 11 Mar 2023 18:26:43 +0100
Subject: [PATCH] Members database loading progress.

---
 brmsaptool.scm | 33 ++++++++++++++++++++++++++-------
 1 file changed, 26 insertions(+), 7 deletions(-)

diff --git a/brmsaptool.scm b/brmsaptool.scm
index e56eb2d..9ac682c 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -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)