www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

pack-collects.rkt (628B)

      1 #lang racket/base
      2 (require file/tar
      3          file/gzip
      4          racket/file)
      5 
      6 (module test racket/base)
      7 
      8 (define origin-dir (build-path "build" "origin"))
      9 
     10 (make-directory* origin-dir)
     11 
     12 (define tgz-file
     13   (path->complete-path (build-path origin-dir "collects.tgz")))
     14 
     15 (when (file-exists? tgz-file)
     16   (delete-file tgz-file))
     17 
     18 (parameterize ([current-directory (build-path "racket")])
     19   (tar-gzip tgz-file "collects"
     20             ;; Skip "." files:
     21             #:path-filter (lambda (p)
     22                             (define-values (base name dir?) (split-path p))
     23                             (not (regexp-match? #rx"^[.]" name)))))