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

Fix web-static to work with new data structures.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-04 23:07:19 +02:00
parent 993dce8750
commit f3cf268a3c
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -220,7 +220,7 @@ members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES)
WEB-STATIC-SOURCES=web-static.scm member-record.import.scm \ WEB-STATIC-SOURCES=web-static.scm member-record.import.scm \
utils.import.scm configuration.import.scm \ utils.import.scm configuration.import.scm \
members-payments.import.scm members-payments.import.scm members-base.import.scm
web-static.o: web-static.import.scm web-static.o: web-static.import.scm
web-static.import.scm: $(WEB-STATIC-SOURCES) web-static.import.scm: $(WEB-STATIC-SOURCES)

9
src/web-static.scm
View file

@ -39,10 +39,12 @@
(chicken process-context) (chicken process-context)
(chicken pathname) (chicken pathname)
(chicken file) (chicken file)
(chicken file posix)
member-record member-record
utils utils
configuration configuration
members-payments) members-payments
members-base)
;; Generate all the files in specified (default current) directory. ;; Generate all the files in specified (default current) directory.
(define (gen-web-static-member mr . dirs) (define (gen-web-static-member mr . dirs)
@ -79,11 +81,12 @@
;; Generates all member files in given directory ;; Generates all member files in given directory
(define (gen-web-static mb dir) (define (gen-web-static mb dir)
(when (file-exists? dir) (when (and (file-exists? dir)
(regular-file? dir))
(error 'gen-web-static "Directory is a file:" dir)) (error 'gen-web-static "Directory is a file:" dir))
(when (not (directory-exists? dir)) (when (not (directory-exists? dir))
(create-directory dir)) (create-directory dir))
(let loop ((mb mb)) (let loop ((mb (members-base-members mb)))
(when (not (null? mb)) (when (not (null? mb))
(gen-web-static-member (car mb) dir) (gen-web-static-member (car mb) dir)
(loop (cdr mb))))) (loop (cdr mb)))))