suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pkg catalog sever: get dependencies and implemented modules on update

Browse Source
This commit is contained in:
Matthew Flatt 2013-04-26 08:32:04 -06:00
parent 385d6dbe83
commit 27053884d8
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/meta/pkg-index/official/main.rkt
View File

@ -8,6 +8,7 @@
racket/runtime-path
web-server/dispatch
pkg/util
(prefix-in pkg: pkg/lib)
racket/match
racket/package
racket/system
@ -718,11 +719,24 @@
(define* i
(hash-set i 'last-checked now))
(define* i
(if (and new-checksum (equal? new-checksum old-checksum))
(if (and new-checksum (equal? new-checksum old-checksum)
;; update if 'modules was not present:
(hash-ref i 'modules #f))
i
(hash-set i 'last-updated now)))
(hash-set (update-from-content i) 'last-updated now)))
(package-info-set! pkg-name i))))
(define (update-from-content i)
(define-values (checksum module-paths dependencies)
(pkg:get-pkg-content (pkg:pkg-desc (hash-ref i 'source)
#f
(hash-ref i 'checksum)
#f)))
(package-begin
(define* i (hash-set i 'modules module-paths))
(define* i (hash-set i 'dependencies dependencies))
i))
(define basic-start
(pkg-index/basic package-list package-info))