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

Preliminary static assets serving.

Browse source
This commit is contained in:
Dominik Pantůček 2025-03-31 22:30:28 +02:00
parent cd36a88d12
commit 03c744e9f1
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/schemify-tree.scm
View file

@ -23,10 +23,10 @@
;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; ;;
(import (chicken process-context) (import (chicken process-context)
srfi-4
(chicken file) (chicken file)
(chicken pathname) (chicken pathname)
(chicken format)) (chicken format)
(chicken io))
(define (get-argv) (define (get-argv)
(let* ((args (argv)) (let* ((args (argv))
@ -78,8 +78,11 @@
(if (null? tree) (if (null? tree)
alst alst
(let* ((fpath (car tree)) (let* ((fpath (car tree))
(key (substring fpath dir-len)) (key0 (substring fpath dir-len))
(value (with-input-from-file fpath read-u8vector))) (key (if (eq? (string-ref key0 0) #\/)
(substring key0 1)
key0))
(value (with-input-from-file fpath read-string)))
(loop (cdr tree) (loop (cdr tree)
(cons (cons key value) (cons (cons key value)
alst))))))) alst)))))))