Optional progress in loading the members-base.

brmsaptool.scm

@@ -62,5 +62,5 @@
  (-mfkq () "Member-File invalid Key Quiet" (*member-file-check-syntax* 'quiet))
  (-mfec (n) "Member-File parser Error Context (lines)" (*member-file-context* (string->number n))))
 
-(load-members "members")
+(load-members "members" #t)
 

member-file.scm

@@ -215,10 +215,8 @@
  ;; Loads lines from given file and parses them.
  (define (load-member-file ffn)
    (let* ((f (open-input-file ffn))
-	  (ls (read-lines f))
+	  (ls (read-lines f)))
-	  (md (parse-member-lines ls ffn)))
+     (parse-member-lines ls ffn)))
-     (display ".")
-     md))
 
  ;; Performs self-tests of the member-file module.
  (define (member-file-tests!)

members-base.scm

@@ -137,18 +137,29 @@
 	       (load-member-file
 		(make-pathname mdir fname)))))
 
- ;; Loads members database
+ ;; Loads members database, if the second argument is true, shows
- (define (load-members dn)
+ ;; progress.
-   (let ((fss (files-dictionary-filter-4digit-symbols
+ (define (load-members dn . opts)
-	       (files+symlinks->files-dictionary
+   (let ((progress? (and (not (null? opts))
-		(get-files+symlinks dn)))))
+			 (car opts))))
-     (dict-map
+     (when progress?
-      (lambda (symfn symlinks)
+       (display "Loading members "))
-	(members-base-load-member dn
+     (let* ((fss (files-dictionary-filter-4digit-symbols
-				  (symbol->string symfn)
+		  (files+symlinks->files-dictionary
-				  symlinks))
+		   (get-files+symlinks dn))))
-      fss)))
+	    (mb (dict-map
+		 (lambda (symfn symlinks)
+		   (when progress?
+		     (display "."))
+		   (members-base-load-member dn
+					     (symbol->string symfn)
+					     symlinks))
+		 fss)))
+       (when progress?
+	 (print " ok."))
+       mb)))
 
+ ;; Performs self-tests of this module.
  (define (members-base-tests!)
    (run-tests
     members-base