ilyakooo0/nixpkgs
1
0
Fork 0
mirror of https://github.com/ilyakooo0/nixpkgs.git synced 2024-12-25 20:34:52 +03:00
Code Issues Projects Releases Wiki Activity

gnupdate: Make `nix-prefetch-url' memoizing.

Browse Source 
* maintainers/scripts/gnu/gnupdate (memoize): New procedure.
  (nix-prefetch-url): Use it.

svn path=/nixpkgs/trunk/; revision=30109
This commit is contained in:
Ludovic Courtès 2011-10-30 00:00:20 +00:00
parent 354b1a12c1
commit 573c9178b5
1 changed files with 31 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
maintainers/scripts/gnu/gnupdate
View File

@ -328,21 +328,36 @@ replaced by the result of their application to DERIVATIONS, a vhash."
status status
#f))) #f)))
(define (nix-prefetch-url url) (define (memoize proc)
;; Download URL in the Nix store and return the base32-encoded SHA256 hash "Return a memoizing version of PROC."
;; of the file at URL (let ((cache (make-hash-table)))
(let* ((pipe (open-pipe* OPEN_READ "nix-prefetch-url" url)) (lambda args
(hash (read-line pipe))) (let ((results (hash-ref cache args)))
(if (or (pipe-failed? pipe) (if results
(eof-object? hash)) (apply values results)
(values #f #f) (let ((results (call-with-values (lambda ()
(let* ((pipe (open-pipe* OPEN_READ "nix-store" "--print-fixed-path" (apply proc args))
"sha256" hash (basename url))) list)))
(path (read-line pipe))) (hash-set! cache args results)
(if (or (pipe-failed? pipe) (apply values results)))))))
(eof-object? path))
(values #f #f) (define nix-prefetch-url
(values (string-trim-both hash) (string-trim-both path))))))) (memoize
(lambda (url)
"Download URL in the Nix store and return the base32-encoded SHA256 hash of
the file at URL."
(let* ((pipe (open-pipe* OPEN_READ "nix-prefetch-url" url))
(hash (read-line pipe)))
(if (or (pipe-failed? pipe)
(eof-object? hash))
(values #f #f)
(let* ((pipe (open-pipe* OPEN_READ "nix-store" "--print-fixed-path"
"sha256" hash (basename url)))
(path (read-line pipe)))
(if (or (pipe-failed? pipe)
(eof-object? path))
(values #f #f)
(values (string-trim-both hash) (string-trim-both path)))))))))
(define (update-nix-expression file (define (update-nix-expression file
old-version old-hash old-version old-hash
@ -926,6 +941,7 @@ pairs. Example: (\"mit-scheme-9.0.1\" . \"/gnu/mit-scheme/stable.pkg/9.0.1\").
gnu-packages)) gnu-packages))
(define (fetch-gnu project directory version archive-type) (define (fetch-gnu project directory version archive-type)
"Download PROJECT's tarball over FTP."
(let* ((server (ftp-server/directory project)) (let* ((server (ftp-server/directory project))
(base (string-append project "-" version ".tar." archive-type)) (base (string-append project "-" version ".tar." archive-type))
(url (string-append "ftp://" server "/" directory "/" base)) (url (string-append "ftp://" server "/" directory "/" base))