/usr/share/racket/collects/setup/winstrip.rkt is in racket-common 6.7-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | #lang racket/base
(require racket/cmdline
setup/cross-system
racket/file)
(module test racket/base)
;; Remove debugging and CGC files
(define keep-cgc? #f)
(define dir
(command-line
#:once-each
[("--keep-cgc") "Keep CGC/3m executables and libraries"
(set! keep-cgc? #t)]
#:args
(dir)
dir))
(define (delete-file* p)
(printf "Deleting ~a\n" p)
(delete-file p))
(when (eq? 'windows (cross-system-type))
(for ([a (directory-list dir)])
(define f (build-path dir a))
(define b (path-element->bytes a))
(when (and (file-exists? f)
(or (regexp-match? #rx#"[.](?i:pdb|ilk)$" b)
(regexp-match? #rx#"(?i:CGC[.]exe)$" b)))
(delete-file* f)))
(for ([f (in-directory (build-path dir "lib"))])
(when (and (file-exists? f)
(let ([b (path-element->bytes
(let-values ([(base name dir?) (split-path f)])
name))])
(or (regexp-match? #rx#"[.](?i:pdb|ilk|manifest)$" b)
(regexp-match? #rx#"(?i:CGC[.](?:dll|exe))$" b)
(and (regexp-match? #rx#"(?i:[.](?:dll|exp|obj|lib|def))$" b)
(regexp-match? #rx#"(?i:racket|mzgc)$" b)
(not (regexp-match? #rx#"3m" b))))))
(delete-file* f)))
;; Delete any subdirectory that contains ".lib" files.
;; Those are compiler-specific directories, and so we
;; don't want to include them in a distribution.
(for ([f (in-directory (build-path dir "lib"))])
(when (and (directory-exists? f)
(for/or ([f (in-directory f)])
(regexp-match? #rx"[.]lib$" f)))
(delete-directory/files f))))
|