suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

distro-build/assemble-site: merge native libraries

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-02 13:17:53 -06:00
parent c90365e560
commit 270ca41e4a
1 changed files with 34 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkgs/distro-build/assemble-site.rkt
View File

@ -9,6 +9,7 @@
(define dest-dir (build-path build-dir "site"))
(define built-dir (build-path build-dir "built"))
(define native-dir (build-path build-dir "native"))
(define installers-dir (build-path "installers"))
(define pkgs-dir (build-path "pkgs"))
@ -24,15 +25,23 @@
(define (copy dir [build-dir build-dir])
(make-directory* dest-dir)
(printf "Copying ~s\n" (build-path build-dir dir))
(printf "Copying ~a\n" (build-path build-dir dir))
(copy-directory/files (build-path build-dir dir)
(build-path dest-dir dir)
#:keep-modify-seconds? #t))
(delete-directory/files dest-dir #:must-exist? #f)
(copy pkgs-dir built-dir)
(printf "Building catalog\n")
(define (build-catalog built-dir)
(printf "Building catalog from ~a\n" built-dir)
(let ([c-dir (build-path built-dir "pkgs")]
[d-dir (build-path dest-dir "pkgs")])
(make-directory* d-dir)
(for ([f (directory-list c-dir)])
(define c (build-path c-dir f))
(define d (build-path d-dir f))
(copy-file c d)
(file-or-directory-modify-seconds d (file-or-directory-modify-seconds c))))
(let ([c-dir (build-path built-dir catalog-dir "pkg")]
[d-dir (build-path dest-dir catalog-dir "pkg")])
(make-directory* d-dir)
@ -51,7 +60,10 @@
(build-path d-dir f)
(lambda (o)
(write new-ht o)
(newline o)))))
(newline o))))))
(build-catalog built-dir)
(build-catalog native-dir)
(copy installers-dir)