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

cs: remove "GRacket3m.exe" from Racket CS build

Browse Source 
When "GRacket3m.exe" is present, then "DrRacket3m.exe", etc.,
created created.
This commit is contained in:
Matthew Flatt 2019-12-22 11:03:50 -07:00
parent f95beb40ad
commit f95abbbf85
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,7 +58,12 @@
(let-values ([(base name dir?) (split-path f)]) (let-values ([(base name dir?) (split-path f)])
name))]) name))])
(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) (and (not keep-cgc?)
(regexp-match? #rx#"(?i:CGC[.](?:dll|exe))$" b))
(and (not keep-3m?)
(regexp-match? #rx#"(?i:3m[.]exe)$" b))
(and (not keep-cs?)
(regexp-match? #rx#"(?i:CS[.]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)
(let ([dll-type (let ([dll-type