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

Finish splitting dir from base.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 20:22:32 +02:00
parent 3693b9860d
commit 3c1a75eb9d
4 changed files with 18 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Makefile
View file

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

5
bbstool.scm
View file

@ -41,7 +41,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
cards cards
member-print member-print
member-parser member-parser
member-fees) member-fees
members-dir)
;; Print banner ;; Print banner
(print "bbstool 0.5 (c) 2023 Brmlab, z.s.") (print "bbstool 0.5 (c) 2023 Brmlab, z.s.")
@ -100,7 +101,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(utils-tests!) (utils-tests!)
(ansi-tests!) (ansi-tests!)
(command-line-tests!) (command-line-tests!)
(members-base-tests!) (members-dir-tests!)
(primes-tests!) (primes-tests!)
(member-record-tests!) (member-record-tests!)
(member-parser-tests!) (member-parser-tests!)

7
members-base.scm
View file

@ -41,16 +41,11 @@
get-free-members-ids get-free-members-ids
print-members-ids-stats print-members-ids-stats
gen-member-id gen-member-id
members-base-tests!
) )
(import scheme (import scheme
(chicken base) (chicken base)
(chicken pathname) (chicken pathname)
(chicken file posix)
(chicken file)
(chicken format)
(chicken irregex)
(chicken sort) (chicken sort)
(chicken string) (chicken string)
(chicken format) (chicken format)
@ -87,7 +82,7 @@
(car opts)))) (car opts))))
(with-progress (with-progress
progress? "Loading-members " " ok." progress? "Loading-members " " ok."
(let* ((fss (get-files+symlinks-dictionary dn)) (let* ((fss (load-members-dir dn))
(mb0 (dict-map (mb0 (dict-map
(lambda (symfn symlinks) (lambda (symfn symlinks)
(when progress? (when progress?

15
members-dir.scm
View file

@ -23,16 +23,25 @@
;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; ;;
(declare (unit members-base)) (declare (unit members-dir))
(module (module
members-dir members-dir
( (
load-members-dir load-members-dir
members-dir-tests members-dir-tests!
) )
(import scheme) (import scheme
(chicken base)
(chicken pathname)
(chicken file posix)
(chicken file)
(chicken format)
(chicken irregex)
testing
dictionary
utils)
;; Gets all files and symbolic links from given directory. The ;; Gets all files and symbolic links from given directory. The
;; symbolic links are represented by cons cells with car being the ;; symbolic links are represented by cons cells with car being the