Members database loading progress.

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)))
+	 (ls (read-lines f))
-    (parse-member-lines ls)))
+	 (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)
+  (load-members-from-expanded-index
    (expand-members-raw-index
-   (load-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)