www

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

unpack-collects.rkt (620B)

      1 #lang racket/base
      2 (require racket/cmdline
      3          racket/file
      4          racket/port
      5          net/url
      6          file/untgz
      7          "display-time.rkt")
      8 
      9 (module test racket/base)
     10 
     11 (define dest-dir "bundle/racket")
     12 
     13 (define server
     14   (command-line
     15    #:args (server)
     16    server))
     17 
     18 (define zip-content
     19   (port->bytes
     20    (get-pure-port
     21     (combine-url/relative
     22      (string->url server)
     23      "collects.tgz"))))
     24 
     25 (display-time)
     26 
     27 (define collects-dir (build-path dest-dir "collects"))
     28 (when (directory-exists? collects-dir)
     29   (delete-directory/files collects-dir))
     30 
     31 (untgz (open-input-bytes zip-content)
     32        #:dest dest-dir)