brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Members directory reading.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-15 11:57:18 +01:00
parent 83b27f4de4
commit 29dc5aa1ac
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
members-base.scm
View file

@ -57,9 +57,15 @@
(cons fn rs)
rs)))))))
(define (files+symlinks->files-dictionary ls)
(let ((links (filter pair? ls))
(files (filter string? ls)))
(print links)
(print files)))
(define (load-members dn)
;; get the directory contents
(print (get-files+symlinks dn))
(files+symlinks->files-dictionary (get-files+symlinks dn))
;; filter all ids
;; resolve links (it might be unknown!)
;; load member files