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

Make locating dot executable more robust.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-04-04 10:43:35 -04:00
parent a7eba53efc
commit e0a0c5f999
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/contract-profile/dot.rkt
View File

@ -18,11 +18,15 @@
(define dot.exe (if (eq? (system-type) 'windows) "dot.exe" "dot"))
(define dot
(or (find-executable-path dot.exe)
(ormap (λ (x)
(define candidate (build-path x dot.exe))
(and (file-exists? candidate) candidate))
dot-paths)))
(with-handlers ([(lambda (e) ; may not have permission
(and (exn:fail? e)
(regexp-match "access denied" (exn-message e))))
(lambda _ #f)])
(or (find-executable-path dot.exe)
(ormap (λ (x)
(define candidate (build-path x dot.exe))
(and (file-exists? candidate) candidate))
dot-paths))))
(define (render-dot input-file)
(when (and dot (not (dry-run?)))