diff options
| author | Masamichi Hosoda <trueroad@trueroad.jp> | 2015-06-01 22:15:09 +0900 |
|---|---|---|
| committer | Masamichi Hosoda <trueroad@trueroad.jp> | 2015-06-14 22:36:29 +0900 |
| commit | 1585dd6c7b781e9f91490eb463b4aa96610b66fd (patch) | |
| tree | 6dab28abf6dfada8f90dcf45058088583fb65412 | |
| parent | c50743b786e68dfd298ffbe7ee2c01e794ac9fda (diff) | |
Issue 4431 / 3: Add Netpbm commands search procedures
pngtopnm is obsoleted by pngtopam.
pnmscale is obsoleted by pamscale.
| -rw-r--r-- | scm/ps-to-png.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm index 20569ca358..0d1e174ed6 100644 --- a/scm/ps-to-png.scm +++ b/scm/ps-to-png.scm @@ -33,6 +33,24 @@ (define-public (gulp-file file-name . max-size) (ly:gulp-file file-name (if (pair? max-size) (car max-size)))) +(define (search-pngtopam) + (search-executable + (if (eq? PLATFORM 'windows) + '("pngtopam.exe" "pngtopnm.exe") + '("pngtopam" "pngtopnm")))) + +(define (search-pamscale) + (search-executable + (if (eq? PLATFORM 'windows) + '("pamscale.exe" "pnmscale.exe") + '("pamscale" "pnmscale")))) + +(define (search-pnmtopng) + (search-executable + (if (eq? PLATFORM 'windows) + '("pnmtopng.exe") + '("pnmtopng")))) + (define (scale-down-image factor file) (let* ((old (string-append file ".old")) ;; Netpbm commands (pngtopnm, pnmscale, pnmtopng) |