ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

self: Produce progress reports compatible with (guix status).

Browse source 
* guix/self.scm (compiled-modules)[build](report-load)
(report-compilation): Write "[M/N]" progress reports.
Use line-buffering.
This commit is contained in:
Ludovic Courtès 2019-01-27 18:15:05 +01:00
parent 3854c6429c
commit 35dcaa119e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
guix/self.scm
View file

@ -856,13 +856,23 @@ (define (regular? file)
(define (report-load file total completed) (define (report-load file total completed)
(display #\cr) (display #\cr)
(format #t (format #t
"loading...\t~5,1f% of ~d files" ;FIXME: i18n "[~3@a/~3@a] loading...\t~5,1f% of ~d files"
;; Note: Multiply TOTAL by two to account for the
;; compilation phase that follows.
completed (* total 2)
(* 100. (/ completed total)) total) (* 100. (/ completed total)) total)
(force-output)) (force-output))
(define (report-compilation file total completed) (define (report-compilation file total completed)
(display #\cr) (display #\cr)
(format #t "compiling...\t~5,1f% of ~d files" ;FIXME: i18n (format #t "[~3@a/~3@a] compiling...\t~5,1f% of ~d files"
;; Add TOTAL to account for the load phase that came
;; before.
(+ total completed) (* total 2)
(* 100. (/ completed total)) total) (* 100. (/ completed total)) total)
(force-output)) (force-output))
@ -874,8 +884,8 @@ (define (process-directory directory files output)
#:report-load report-load #:report-load report-load
#:report-compilation report-compilation))) #:report-compilation report-compilation)))
(setvbuf (current-output-port) 'none) (setvbuf (current-output-port) 'line)
(setvbuf (current-error-port) 'none) (setvbuf (current-error-port) 'line)
(set! %load-path (cons #+module-tree %load-path)) (set! %load-path (cons #+module-tree %load-path))
(set! %load-path (set! %load-path