Move more into dir.

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