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

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

@ -9,6 +9,7 @@
(define dest-dir (build-path build-dir "site")) (define dest-dir (build-path build-dir "site"))
(define built-dir (build-path build-dir "built")) (define built-dir (build-path build-dir "built"))
(define native-dir (build-path build-dir "native"))
(define installers-dir (build-path "installers")) (define installers-dir (build-path "installers"))
(define pkgs-dir (build-path "pkgs")) (define pkgs-dir (build-path "pkgs"))
@ -24,16 +25,24 @@
(define (copy dir [build-dir build-dir]) (define (copy dir [build-dir build-dir])
(make-directory* dest-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) (copy-directory/files (build-path build-dir dir)
(build-path dest-dir dir) (build-path dest-dir dir)
#:keep-modify-seconds? #t)) #:keep-modify-seconds? #t))
(delete-directory/files dest-dir #:must-exist? #f) (delete-directory/files dest-dir #:must-exist? #f)
(copy pkgs-dir built-dir)
(printf "Building catalog\n") (define (build-catalog built-dir)
(let ([c-dir (build-path built-dir catalog-dir "pkg")] (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")]) [d-dir (build-path dest-dir catalog-dir "pkg")])
(make-directory* d-dir) (make-directory* d-dir)
(define base-url (string->url (hash-ref config '#:dist-base-url))) (define base-url (string->url (hash-ref config '#:dist-base-url)))
@ -51,7 +60,10 @@
(build-path d-dir f) (build-path d-dir f)
(lambda (o) (lambda (o)
(write new-ht o) (write new-ht o)
(newline o))))) (newline o))))))
(build-catalog built-dir)
(build-catalog native-dir)
(copy installers-dir) (copy installers-dir)