Move more into dir.

Makefile

@@ -219,7 +219,8 @@ member-fees.o: member-fees.import.scm
 member-fees.import.scm: $(MEMBER-FEES-SOURCES)
 
 MEMBERS-DIR-SOURCES=members-dir.scm testing.import.scm		\
-	dictionary.import.scm utils.import.scm
+	dictionary.import.scm utils.import.scm			\
+	member-record.import.scm member-parser.import.scm
 
 members-dir.so: members-dir.o
 members-dir.o: members-dir.import.scm

members-base.scm

@@ -64,15 +64,6 @@
 	 table
 	 members-dir)
  
- ;; Returns a dictionary containing file-name, symlinks, id and info
- ;; keys. The info key contains whatever load-member-file from the
- ;; member-file module returns. The id key contains whatever is the
- ;; first 4-digit symbol in (cons fname aliases) list.
- (define (members-base-load-member mdir fname symlinks)
-   (let* ((mr0 (make-member-record fname
-				   (make-pathname mdir (symbol->string fname))
-				   symlinks)))
-     (load-member-file mr0)))
 
  ;; Loads members database, if the second argument is true, shows
  ;; progress. Members database is a dictionary with id being the key
@@ -87,7 +78,7 @@
 		   (lambda (symfn symlinks)
 		     (when progress?
 		       (progress-advance "."))
-		     (members-base-load-member dn
+		     (members-dir-load-member dn
 					      symfn
 					      symlinks))
 		   fss))

members-dir.scm

@@ -29,6 +29,7 @@
  members-dir
  (
   load-members-dir
+  members-dir-load-member
   members-dir-tests!
   )
 
@@ -41,7 +42,9 @@
 	 (chicken irregex)
 	 testing
 	 dictionary
-	 utils)
+	 utils
+	 member-record
+	 member-parser)
 
  ;; Gets all files and symbolic links from given directory. The
  ;; symbolic links are represented by cons cells with car being the
@@ -141,6 +144,16 @@
     (files+symlinks->files-dictionary
      (get-files+symlinks dn))))
 
+ ;; Returns a dictionary containing file-name, symlinks, id and info
+ ;; keys. The info key contains whatever load-member-file from the
+ ;; member-file module returns. The id key contains whatever is the
+ ;; first 4-digit symbol in (cons fname aliases) list.
+ (define (members-dir-load-member mdir fname symlinks)
+   (let* ((mr0 (make-member-record fname
+				   (make-pathname mdir (symbol->string fname))
+				   symlinks)))
+     (load-member-file mr0)))
+
  ;; Performs self-tests of this module.
  (define (members-dir-tests!)
    (run-tests