Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update script

Browse source
This commit is contained in:
Locria Cyber 2023-06-19 22:56:22 +00:00
parent 99b793118b
commit 162ef8d235
No known key found for this signature in database
GPG key ID: ED0D424AE4406330
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/generate-docs.scm
View file

@ -31,6 +31,7 @@
(define (filename-filter filename)
(and
(string-contains filename "chibi/")
(string-suffix? ".sld" filename)
(not (string-contains filename "-test"))))
@ -46,6 +47,8 @@
(substring x 0 (- (string-length x) strlen-ext))
".html"))
(define doc-mod-name (string-map (char-replacer #\/ #\.) (substring x (string-length "lib/") (- (string-length x) strlen-ext))))
(display `("Started" ,doc-mod-name ,x ,outfile))
(newline)
(let ((output (process->string `("./chibi-scheme" "tools/chibi-doc" "--html" ,doc-mod-name))))
(create-directory* (path-directory outfile))
(call-with-output-file
@ -68,6 +71,11 @@
; fork-map is naive
; BUG: some files like chibi.show are broken
; BUG: editing this script when running breaks it
; example error:
; ERROR: undefined variable: k-map
; called from <anonymous> on line 1268 of file lib/init-7.scm
; called from <anonymous> on line 800 of file lib/init-7.scm
(define (main)
(define CHIBI_MODULE_PATH (get-environment-variable "CHIBI_MODULE_PATH"))