|
|
|
|
@ -88,7 +88,8 @@
|
|
|
|
|
directory
|
|
|
|
|
"[[:blank:]]*\\)"))
|
|
|
|
|
"")))
|
|
|
|
|
'( "wadsrc_extra" ;game_support.pk3
|
|
|
|
|
'(
|
|
|
|
|
;"wadsrc_extra" ;game_support.pk3
|
|
|
|
|
"wadsrc_bm")) ;brightmaps.pk3
|
|
|
|
|
|
|
|
|
|
;; removing game_support.pk3 entirely would break freedoom & remove
|
|
|
|
|
@ -96,21 +97,21 @@
|
|
|
|
|
;; non-functional data. that can't be right. out of an abundance of
|
|
|
|
|
;; caution, remove anything from the pk3 that could conceivably be
|
|
|
|
|
;; derived from copyrightable data that's not freely redistributable.
|
|
|
|
|
(display "keeping only the following game_support.pk3 files:\n")
|
|
|
|
|
(let* ((regexps (list "/font\\.inf$"
|
|
|
|
|
"/harmony/.*\\.(txt|zs)$"
|
|
|
|
|
"/(iwadinfo|mapinfo|sprofs)\\.txt$"
|
|
|
|
|
"\\.z$"))
|
|
|
|
|
(regexp* (format #f "(~{~a~^|~})" regexps))
|
|
|
|
|
(regexp (make-regexp regexp* regexp/icase)))
|
|
|
|
|
(define (keep-file? file stat)
|
|
|
|
|
(let ((keep? (regexp-exec regexp file)))
|
|
|
|
|
(when keep?
|
|
|
|
|
(format #t " ~a~%" file))
|
|
|
|
|
keep?))
|
|
|
|
|
;; (display "keeping only the following game_support.pk3 files:\n")
|
|
|
|
|
;; (let* ((regexps (list "/font\\.inf$"
|
|
|
|
|
;; "/harmony/.*\\.(txt|zs)$"
|
|
|
|
|
;; "/(iwadinfo|mapinfo|sprofs)\\.txt$"
|
|
|
|
|
;; "\\.z$"))
|
|
|
|
|
;; (regexp* (format #f "(~{~a~^|~})" regexps))
|
|
|
|
|
;; (regexp (make-regexp regexp* regexp/icase)))
|
|
|
|
|
;; (define (keep-file? file stat)
|
|
|
|
|
;; (let ((keep? (regexp-exec regexp file)))
|
|
|
|
|
;; (when keep?
|
|
|
|
|
;; (format #t " ~a~%" file))
|
|
|
|
|
;; keep?))
|
|
|
|
|
|
|
|
|
|
(for-each delete-file (find-files "wadsrc_extra/static"
|
|
|
|
|
(negate keep-file?))))
|
|
|
|
|
;; (for-each delete-file (find-files "wadsrc_extra/static"
|
|
|
|
|
;; (negate keep-file?))))
|
|
|
|
|
|
|
|
|
|
;; remove some bundled libraries. xxx there are more, but removing
|
|
|
|
|
;; them would require, at least, patching the build system.
|
|
|
|
|
|
