mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

fix parallel render inventory

Browse Source
dev-render-audit
Matthew Butterick 6 years ago
parent 9dc89e35bc
commit b9551de05e
2 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File

2
pollen/private/ts.rktd
Unescape Escape View File

@ -1 +1 @@
1559937170 1559938751

19
pollen/render.rkt
Unescape Escape View File

@ -69,25 +69,24 @@
(loop))))) (loop)))))
(define flattened-paths (define flattened-paths
(filter file-exists?
(let loop ([paths paths]) (let loop ([paths paths])
(if (null? paths) (if (null? paths)
null null
(match (->complete-path (car paths)) (match (->complete-path (car paths))
[(? pagetree-source? pt) (append (loop (pagetree->paths pt)) (loop (cdr paths)))] [(? pagetree-source? pt) (append (loop (pagetree->paths pt)) (loop (cdr paths)))]
[path (cons path (loop (cdr paths)))]))))) [path (cons path (loop (cdr paths)))]))))
(for ([path-group (in-list (slice-at flattened-paths (length worker-places)))]) (define source-paths (for*/list ([p (in-list flattened-paths)]
(define source-paths (for*/list ([path (in-list path-group)] [maybe-source-path (in-value (->source-path p))]
[source-path (in-value (->source-path path))] #:when (and maybe-source-path (file-exists? maybe-source-path)))
#:when source-path) maybe-source-path))
source-path)) (for ([source-path-group (in-list (slice-at source-paths (length worker-places)))])
(for ([source-path (in-list source-paths)] (for ([source-path (in-list source-path-group)]
[(wp wpidx) (in-indexed worker-places)]) [(wp wpidx) (in-indexed worker-places)])
(message (format "rendering parallel on core ~a /~a" (add1 wpidx) (message (format "rendering parallel on core ~a /~a" (add1 wpidx)
(find-relative-path (current-project-root) source-path))) (find-relative-path (current-project-root) source-path)))
(place-channel-put wp (cons source-path (current-poly-target)))) (place-channel-put wp (cons source-path (current-poly-target))))
(for ([source-path (in-list source-paths)] (for ([source-path (in-list source-path-group)]
[(wp wpidx) (in-indexed worker-places)]) [(wp wpidx) (in-indexed worker-places)])
(message (format "rendered parallel on core ~a /~a" (add1 wpidx) (message (format "rendered parallel on core ~a /~a" (add1 wpidx)
(find-relative-path (current-project-root) (->output-path source-path)))) (find-relative-path (current-project-root) (->output-path source-path))))

Write Preview
Loading…
Cancel
Save