diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2016-05-06 12:21:28 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2016-05-06 12:21:28 +0000 |
commit | 46b1c1b4d581fcb533618024c84361a3f1847daa (patch) | |
tree | 711a5a80b710d3d21c0d669b351d066757f3495d /Master/texmf-dist/scripts/epspdf/epspdftk.tcl | |
parent | 34f25ba917e3cbf44054fa84bbd0ab97b1ffc843 (diff) |
epspdf 0.6.3 compatibility fixes for luatex 0.95
git-svn-id: svn://tug.org/texlive/trunk@40917 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/epspdf/epspdftk.tcl')
-rwxr-xr-x | Master/texmf-dist/scripts/epspdf/epspdftk.tcl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/texmf-dist/scripts/epspdf/epspdftk.tcl b/Master/texmf-dist/scripts/epspdf/epspdftk.tcl index e28118853f3..7e4a7bc4c3c 100755 --- a/Master/texmf-dist/scripts/epspdf/epspdftk.tcl +++ b/Master/texmf-dist/scripts/epspdf/epspdftk.tcl @@ -3,7 +3,7 @@ # epspdf conversion utility, GUI frontend ##### -# Copyright (C) 2006, 2008, 2009, 2010, 2011, 2013, 2014, 2015 Siep Kroonenberg +# Copyright (C) 2006, 2008, 2009, 2010, 2011, 2013, 2014, 2015, 2016 Siep Kroonenberg # n dot s dot kroonenberg at rug dot nl # # This program is free software, licensed under the GNU GPL, >=2.0. @@ -95,7 +95,8 @@ proc is_prog {x} { # create a global empty settings array array set ::settings [list] -set ::is_tl 1 +# windows: pdftops from tex distro? +set ::psp_config 0 # ask epspdf.tlu for currently configured settings. # this does not include automatically configured or transient settings. @@ -107,7 +108,7 @@ proc getsettings {} { # write_log "settings from epspdf.tlu:\n$set_str\n" set l [split $set_str "\r\n"] if {$::tcl_platform(platform) eq "windows"} { - set ::is_tl 1 + set ::psp_config 0 set settings(pdftops_prog) "" } foreach e $l { @@ -121,8 +122,8 @@ proc getsettings {} { set val [string trim [string range $e [expr $i+1] end]] if {$val eq "true"} {set val 1} if {$val eq "false"} {set val 0} - if {$para eq "tl_w"} { - set ::is_tl 0 + if {$para eq "psp_config"} { + set ::psp_config 1 write_log "TL for Windows not detected by epspdf" } else { set ::settings($para) $val @@ -503,7 +504,7 @@ spacing .config_t packf [frame .config_t.psf] -ipadx 4 -fill x pack [label .config_t.psf.l_ps -text "Conversion to EPS and PostScript" \ -font boldfont] -anchor w -if {! $::is_tl} { +if { $::psp_config} { if {[string tolower [string range $::settings(pdftops_prog) end-3 end]] ne \ ".exe"} {set ::settings(pdftops_prog) ""} pack [label .config_t.psf.l_pdftops -text "Find pdftops"] -anchor w |