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

raco setup: allow dependency checking to continue after error

Browse Source 
When reading a bytecode file fails, record the error and continue.
This commit is contained in:
Matthew Flatt 2019-03-09 08:42:54 -07:00
parent e46e791724
commit 17e5a56569
2 changed files with 34 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
racket/collects/setup/private/pkg-deps.rkt
View File

@ -28,7 +28,7 @@
coll-paths
coll-main?s
coll-modes
setup-printf setup-fprintf
setup-printf setup-fprintf report-error
check-unused? fix? verbose?
all-pkgs-lazily?
must-declare-deps?)
@ -369,32 +369,36 @@
(append (map path-element->string coll-path) (list base))
"/")))
(define zo-path (build-path dir zo-f))
(define mod-code (call-with-input-file*
zo-path
(lambda (i)
(parameterize ([read-accept-compiled #t]
[read-on-demand-source zo-path])
(read i)))))
;; Recur to cover submodules:
(let loop ([mod-code mod-code])
(define name (module-compiled-name mod-code))
(unless (and (list? name)
(memq (last name) build-only-submod-names))
;; Check the module's imports:
(for* ([imports (in-list (module-compiled-imports mod-code))]
[import (cdr imports)])
(define mod (let ([m (collapse-module-path-index import in-mod)])
(if (and (pair? m)
(eq? (car m) 'submod))
(cadr m)
m)))
(when (and (pair? mod) (eq? 'lib (car mod)))
(check-mod! mod 'run pkg zo-f dir)))
;; Recur for submodules:
(for-each loop
(append
(module-compiled-submodules mod-code #t)
(module-compiled-submodules mod-code #f)))))))
(let/ec esc
(define mod-code (with-handlers ([exn:fail? (lambda (exn)
(report-error exn)
(esc (void)))])
(call-with-input-file*
zo-path
(lambda (i)
(parameterize ([read-accept-compiled #t]
[read-on-demand-source zo-path])
(read i))))))
;; Recur to cover submodules:
(let loop ([mod-code mod-code])
(define name (module-compiled-name mod-code))
(unless (and (list? name)
(memq (last name) build-only-submod-names))
;; Check the module's imports:
(for* ([imports (in-list (module-compiled-imports mod-code))]
[import (cdr imports)])
(define mod (let ([m (collapse-module-path-index import in-mod)])
(if (and (pair? m)
(eq? (car m) 'submod))
(cadr m)
m)))
(when (and (pair? mod) (eq? 'lib (car mod)))
(check-mod! mod 'run pkg zo-f dir)))
;; Recur for submodules:
(for-each loop
(append
(module-compiled-submodules mod-code #t)
(module-compiled-submodules mod-code #f))))))))
;; ----------------------------------------
(define (find-compiled-directories path)

3
racket/collects/setup/setup-core.rkt
View File

@ -2034,6 +2034,9 @@
'build
'run))))
setup-printf setup-fprintf
(lambda (exn)
(set! exit-code 1)
(setup-printf #f "check failure: ~a" (exn->string exn)))
(check-unused-dependencies)
(fix-dependencies)
(verbose)