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

Basic ML loading progress.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 20:03:00 +02:00
parent ce73d56d39
commit 3aaac4ad0b
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -231,7 +231,7 @@ ENVIRONMENT-SOURCES=environment.scm ansi.import.scm
environment.o: environment.import.scm environment.o: environment.import.scm
environment.import.scm: $(ENVIRONMENT-SOURCES) environment.import.scm: $(ENVIRONMENT-SOURCES)
MAILMAN-SOURCES=mailman.scm utils.import.scm MAILMAN-SOURCES=mailman.scm utils.import.scm progress.import.scm
mailman.o: mailman.import.scm mailman.o: mailman.import.scm
mailman.import.scm: $(MAILMAN-SOURCES) mailman.import.scm: $(MAILMAN-SOURCES)

15
src/mailman.scm
View file

@ -43,7 +43,8 @@
(chicken pathname) (chicken pathname)
(chicken string) (chicken string)
(chicken sort) (chicken sort)
utils) utils
progress)
;; Where does the mailman binaries reside ;; Where does the mailman binaries reside
(define *mailman-bin* (make-parameter "/usr/lib/mailman/bin")) (define *mailman-bin* (make-parameter "/usr/lib/mailman/bin"))
@ -88,9 +89,15 @@
;; Loads all lists and members ;; Loads all lists and members
(define (load-mailman-lists) (define (load-mailman-lists)
(map (with-progress%
load-mailman-list #t "Mailman"
(list-mailman-lists))) (let loop ((lsts (list-mailman-lists))
(res '()))
(if (null? lsts)
res
(let ((mln (car lsts)))
(loop (cdr lsts)
(cons res (load-mailman-list mln))))))))
;; List of lists, returns the whole list record (including name) ;; List of lists, returns the whole list record (including name)
(define (find-mailman-list lsts name) (define (find-mailman-list lsts name)