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

Windows: fix setup/winstrip for different variants

Browse Source 
For the normal 3m Racket builds in non-cross mode, CGC DLLs have been
incorrectly left behind (e.g., in the Utah snapshot distributions).
This commit is contained in:
Matthew Flatt 2019-06-11 21:17:34 -06:00
parent e51c44fa3d
commit 0423ec9841
1 changed files with 35 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
racket/collects/setup/winstrip.rkt
View File

@ -8,12 +8,18 @@
;; Remove debugging and CGC files ;; Remove debugging and CGC files
(define keep-cgc? #f) (define keep-cgc? #f)
(define keep-3m? #f)
(define keep-cs? #f)
(define dir (define dir
(command-line (command-line
#:once-each #:once-each
[("--keep-cgc") "Keep CGC/3m executables and libraries" [("--keep-cgc") "Keep CGC executables and libraries"
(set! keep-cgc? #t)] (set! keep-cgc? #t)]
[("--keep-3m") "Keep 3m executables and libraries"
(set! keep-3m? #t)]
[("--keep-cs") "Keep CS executables and libraries"
(set! keep-cs? #t)]
#:args #:args
(dir) (dir)
dir)) dir))
@ -23,12 +29,27 @@
(delete-file p)) (delete-file p))
(when (eq? 'windows (cross-system-type)) (when (eq? 'windows (cross-system-type))
(define type
(call-with-input-file*
(build-path dir "Racket.exe")
(lambda (i)
(define m (regexp-match "bINARy tYPe:..(.)" i))
(case (and m (cadr m))
[(#"c") 'cgc]
[(#"s") 'cs]
[else '3m]))))
(for ([a (directory-list dir)]) (for ([a (directory-list dir)])
(define f (build-path dir a)) (define f (build-path dir a))
(define b (path-element->bytes a)) (define b (path-element->bytes a))
(when (and (file-exists? f) (when (and (file-exists? f)
(or (regexp-match? #rx#"[.](?i:pdb|ilk)$" b) (or (regexp-match? #rx#"[.](?i:pdb|ilk)$" b)
(regexp-match? #rx#"(?i:CGC[.]exe)$" b))) (and (not keep-cgc?)
(regexp-match? #rx#"(?i:CGC[.]exe)$" b))
(and (not keep-3m?)
(regexp-match? #rx#"(?i:3m[.]exe)$" b))
(and (not keep-cs?)
(regexp-match? #rx#"(?i:CS[.]exe)$" b))))
(delete-file* f))) (delete-file* f)))
(for ([f (in-directory (build-path dir "lib"))]) (for ([f (in-directory (build-path dir "lib"))])
@ -39,8 +60,18 @@
(or (regexp-match? #rx#"[.](?i:pdb|ilk|manifest)$" b) (or (regexp-match? #rx#"[.](?i:pdb|ilk|manifest)$" b)
(regexp-match? #rx#"(?i:CGC[.](?:dll|exe))$" b) (regexp-match? #rx#"(?i:CGC[.](?:dll|exe))$" b)
(and (regexp-match? #rx#"(?i:[.](?:dll|exp|obj|lib|def))$" b) (and (regexp-match? #rx#"(?i:[.](?:dll|exp|obj|lib|def))$" b)
(regexp-match? #rx#"(?i:racket|mzgc)$" b) (regexp-match? #rx#"(?i:racket|mzgc)" b)
(not (regexp-match? #rx#"3m" b)))))) (let ([dll-type
(cond
[(regexp-match? #rx#"(?i:racketcs)" b) 'cs]
[(regexp-match? #rx#"(?i:racket3m)" b) '3m]
[else 'cgc])])
(cond
[(eq? dll-type type) #f]
[else (case dll-type
[(cgc) (not keep-cgc?)]
[(cs) (not keep-cs?)]
[else (not keep-3m?)])]))))))
(delete-file* f))) (delete-file* f)))
;; Delete any subdirectory that contains ".lib" files. ;; Delete any subdirectory that contains ".lib" files.
@ -51,6 +82,3 @@
(for/or ([f (in-directory f)]) (for/or ([f (in-directory f)])
(regexp-match? #rx"[.]lib$" f))) (regexp-match? #rx"[.]lib$" f)))
(delete-directory/files f)))) (delete-directory/files f))))