JezK
Edit File: epspdftk
#!/usr/bin/env wish # epspdf conversion utility, GUI frontend ##### # Copyright (C) 2006-2020 Siep Kroonenberg # siepo at bitmuis dot nl # # This program is free software, licensed under the GNU GPL, >=2.0. # This software comes with absolutely NO WARRANTY. Use at your own risk! ##### package require Tk if {[string index $::tcl_patchLevel 2] <5} { tk_messageBox -message "Tcl/Tk version >= 8.5 required;\naborting..." exit } # tired of writing out this combined test again and again set classic_unix [expr {$::tcl_platform(platform) eq "unix" && \ $::tcl_platform(os) ne "Darwin"}] # normally, epspdf.tlu should be in the same directory # and texlua should be on the searchpath. # However, the Windows installer version wraps this script in a starpack. # logging: to a log window, not to a file proc write_log {s} { if {[winfo exists .log_t.text]} { .log_t.text configure -state normal .log_t.text insert end "$s\n" .log_t.text yview moveto 1 .log_t.text configure -state disabled # } else { # puts $s } } ### invoking epspdf.tlu ######################### # Get full path of epspdf.tlu. It should be in the same directory as # either this script or of the starpack containing this script, # For non-windows versions, epspdftk might be called via a symlink. # Pdftops done elsewhere. proc set_progs {} { set scriptfile [file normalize [info script]] set eproot [file dirname $scriptfile] # if symlink, get the directory of the file it points to if {! [catch {file readlink $scriptfile}]} { # evaluate readlink from symlink directory set savedir [pwd] cd $eproot set eproot [file dirname [file normalize [file readlink $scriptfile]]] cd $savedir } # find the lua script set ::epspdf_tlu [file join $eproot "epspdf.tlu"] if {! [file exists $::epspdf_tlu]} { # if starpack, look in binary directory set eproot [file dirname [file normalize [info nameofexecutable]]] set ::epspdf_tlu [file join $eproot "epspdf.tlu"] } if {$::tcl_platform(platform) eq "windows"} { # For actual conversions, epspdf invokes third-party command-line programs. # To prevent the appearing of transient black console windows for such # invocations, epspdf will be invoked via a batchfile. # This is not necessary for getting info about a file. set ::epspdf_cmd [file join $eproot "epspdf4tk.cmd"] } if {! [file exists $::epspdf_tlu]} { tk_messageBox -type ok -icon error -message "Epspdf.tlu not found" exit 1 } # texlua should be on the searchpath set ::texlua "texlua" # icon for starpack: add with sdx or with Windows utilities } set_progs ### configured and automatic settings ################################## # is_prog used for checking configured viewers under non-osx unix proc is_prog {x} { if {[expr {$::tcl_platform(platform) ne "unix"}]} {return 0} # avoid current directory except with explicit directory if {[expr {[string first "/" $x] >= 0 && \ [file executable [file normalize $x]]}]} { return 1 } # also check search path set p [split $::env(PATH) ":"] ; # no need to accomodate msw foreach d $p { if {[expr {$d ne "" && [file executable [file join $d $x]]}]} { return 1 } } return 0 } # create a global empty settings array array set ::settings [list] # ask epspdf.tlu for currently configured settings. # this does not include automatically configured or transient settings. # the availability of viewers is handled here. proc getsettings {} { if [catch {exec $::texlua $::epspdf_tlu --gui=config_w} set_str] { error "Epspdf configuration error: $set_str" } # write_log "settings from epspdf.tlu:\n$set_str\n" set l [split $set_str "\r\n"] foreach e $l { # puts "settings: $e" # $e is either a string "var = value" # or the empty string between <cr> and <lf> set i [string first "=" $e] if {$i>0} { # write_log $e set para [string trim [string range $e 0 [expr $i-1]]] 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} set ::settings($para) $val # write_log "setting $para is $val" } } # unix: viewer settings # It may depend on installed plugins whether a pdf viewer # can render postscript. # AFAIK, no such plugins exist for xpdf or mupdf. # chrome and firefox also only render pdf and not postscript. # configured viewer, if valid, heads the list if {$::classic_unix} { set ::pdf_viewers {} if {$::settings(pdf_viewer) ne "" && [is_prog $::settings(pdf_viewer)]} { lappend ::pdf_viewers $::settings(pdf_viewer) } foreach v { atril evince okular qpdfview mupdf xpdf zathura gv firefox chrome \ chromium chromium-browser} { if {$v ne $::settings(pdf_viewer) && [is_prog $v]} { lappend ::pdf_viewers $v } } # puts [join $::pdf_viewers " "] set ::ps_viewers {} if {$::settings(ps_viewer) ne "" && [is_prog $::settings(ps_viewer)]} { lappend ::ps_viewers $::settings(ps_viewer) } foreach v $::pdf_viewers { if {$v ne $::settings(ps_viewer) && \ $v ni {xpdf mupdf firefox chrome chromium chromium-browser}} { lappend ::ps_viewers $v } } # puts [join $::ps_viewers " "] if {[llength ::pdf_viewers] == 0} { tk_messageBox -message "No viewers found" } elseif {[llength ::ps_viewers] == 0} { tk_messageBox -message "No PostScript viewers found" } if {[llength ::pdf_viewers] > 0} { set ::settings(pdf_viewer) [lindex $::pdf_viewers 0] } if {[llength ::ps_viewers] > 0} { set ::settings(ps_viewer) [lindex $::ps_viewers 0] } } } getsettings proc write_settings {} { set s "" foreach el [array names ::settings] { set s "$s$el = $::settings($el)\n" } # write_log "\nsettings for epspdf.tlu\n$s\nend writing settings\n" if [catch {exec $::texlua $::epspdf_tlu --gui=config_r << $s} result] { error "Epspdf configuration error: $result" } } # directory and other file data if {$::argc > 0 && [file isdirectory [lindex $::argv 0]]} { set ::gfile(dir) [lindex $::argv 0] } elseif {[file isdirectory $::settings(default_dir)]} { set ::gfile(dir) $::settings(default_dir) } else { set ::gfile(dir) $::env(HOME) } set ::gfile(path) "" set ::gfile(type) "" set ::gfile(name) "" set ::gfile(npages) "" # transient options array set ::options [list gray "color" format "pdf" bbox 0 clean 1 \ pages "single" page 1] proc viewable {} { if { $::gfile(name) eq "" || ! [file exists $::gfile(path)] || \ $::gfile(type) eq "other" || $::gfile(type) eq ""} { return 0 } elseif {! $::classic_unix} { return 1 } elseif {$::settings(ps_viewer) ne "" && [regexp {ps} $::gfile(type)]} { return 1 } elseif {$::settings(pdf_viewer) ne "" && $::gfile(type) eq "pdf"} { return 1 } else { return 0 } } ### groundwork for GUI ################################# # padding for buttons and frames proc ppack {b args} {pack $b {*}$args -padx 3 -pady 3} # bold font font create bfont {*}[font configure TkDefaultFont] font configure bfont -weight bold proc update_combo w { # check that a manually supplied entry is actually a program # proc used for postscript- and pdf viewers set vls [$w cget -values] set new [$w get] if {$new ni $vls} { if {[is_prog $new]} { set vls [linsert $vls 0 $new] $w configure -values $vls } else { tk_messageBox -title Error -icon error -message "$new not a program" raise .config_t focus $w } } } proc revert_combo w { # aborts entry of new value if {[$w current] < 0} { $w current 0 } } ### and now the actual GUI ################################### wm title . "PostScript- and pdf conversions" # help toplevel proc readhelp {} { .help_t.text configure -state normal # this also works for the starpack: set helpfile [file join [file dirname $::epspdf_tlu] "epspdf.help"] if {! [file exists $helpfile]} { # helpfile in starpack set helpfile [file join [file dirname [info script]] "epspdf.help"] } if {[catch {set fid [open $helpfile r]}]} { .help_t.text insert end "No helpfile $helpfile found\n" } else { while {[gets $fid line] >= 0} {.help_t.text insert end "$line\n"} close $fid } .help_t.text configure -state disabled .help_t.text yview moveto 0 } toplevel .help_t wm title .help_t "EpsPdf help" pack [ttk::frame .help_t.bg -padding 3] -fill both -expand 1 ppack [ttk::button .help_t.done -text "Close" -command {wm withdraw .help_t}] \ -in .help_t.bg -side bottom -anchor e -padx 50 text .help_t.text -wrap word -width 60 -height 20 -setgrid 1 \ -yscrollcommand ".help_t.scroll set" ttk::scrollbar .help_t.scroll -command ".help_t.text yview" pack .help_t.scroll -in .help_t.bg -side right -fill y pack .help_t.text -in .help_t.bg -expand 1 -fill both readhelp .help_t.text configure -state disabled wm withdraw .help_t # log toplevel toplevel .log_t wm title .log_t "Epspdf log" pack [ttk::frame .log_t.bg -padding 3] -fill both -expand 1 ppack [ttk::button .log_t.b -text "Close" -command {wm withdraw .log_t}] \ -in .log_t.bg -side bottom -anchor e -padx 50 text .log_t.text -wrap word -relief flat -height 15 -width 60 \ -setgrid 1 -yscrollcommand ".log_t.scroll set" ttk::scrollbar .log_t.scroll -command ".log_t.text yview" pack .log_t.scroll -in .log_t.bg -side right -fill y pack .log_t.text -in .log_t.bg -expand 1 -fill both .log_t.text configure -state disabled wm withdraw .log_t ### configure toplevel ################### toplevel .config_t wm title .config_t "Configure epspdf" pack [ttk::frame .config_t.bg -padding 3] -fill both -expand 1 # The settings array is edited directly in the configuration screen: # for most control widgets, we need a global external variable anyway, # so we better use the global that is already there. # If the configuration screen is closed via the cancel button, # the original values will be re-read from disk. # If it is closed via the ok button, the new settings are written to disk. # viewers (not on windows or osx) if {$::classic_unix} { ppack [ttk::frame .config_t.viewf] -in .config_t.bg -ipadx 4 -fill x grid [ttk::label .config_t.viewf.title -font bfont -text "Viewers"] \ -row 0 -column 0 -sticky w grid [ttk::label .config_t.viewf.lb_pdf -text "Pdf"] \ -row 1 -column 0 -sticky w grid [ttk::label .config_t.viewf.lb_ps -text "PostScript"] \ -row 2 -column 0 -sticky w grid [ttk::combobox .config_t.viewf.pdf] -row 1 -column 1 -sticky e .config_t.viewf.pdf configure -values $::pdf_viewers .config_t.viewf.pdf configure -textvariable ::settings(pdf_viewer) bind .config_t.viewf.pdf <Escape> {revert_combo %W} bind .config_t.viewf.pdf <Return> {update_combo %W} bind .config_t.viewf.pdf <FocusOut> {update_combo %W} grid [ttk::combobox .config_t.viewf.ps] -row 2 -column 1 -sticky e .config_t.viewf.ps configure -values $::ps_viewers .config_t.viewf.ps configure -textvariable ::settings(ps_viewer) bind .config_t.viewf.ps <Escape> {revert_combo %W} bind .config_t.viewf.ps <Return> {update_combo %W} bind .config_t.viewf.ps <FocusOut> {update_combo %W} grid columnconfigure .config_t.viewf 1 -weight 1 -pad 2 } # settings for conversion to pdf ppack [ttk::frame .config_t.pdff] \ -in .config_t.bg -ipadx 4 -fill x -pady [list 10 0] pack [ttk::label .config_t.pdff.title -font bfont -text "Conversion to pdf"] \ -anchor w pack [ttk::label .config_t.pdff.l_target -text "Target use"] -anchor w pack [ttk::frame .config_t.pdff.f_targets] -fill x foreach t {default printer prepress screen ebook} { pack [ttk::radiobutton .config_t.pdff.f_targets.$t \ -variable ::settings(pdf_target) \ -text $t -value $t] -side left -padx 2 -pady 4 -anchor w } pack [ttk::label .config_t.pdff.l_version -text "Pdf version"] -anchor w pack [ttk::frame .config_t.pdff.f_version] -fill x foreach t {1.2 1.3 1.4 1.5 1.6 1.7 default} { regsub {\.} $t _ tp ; # replace dot in name: dots are path separators! pack [ttk::radiobutton .config_t.pdff.f_version.$tp \ -variable ::settings(pdf_version) \ -text $t -value $t] -side left -padx 2 -pady 4 -anchor w } # settings for conversion to EPS and PostScript ppack [ttk::frame .config_t.psf] \ -in .config_t.bg -pady [list 10 0] -ipadx 4 -fill x pack [ttk::label .config_t.psf.l_ps -text "Conversion to EPS and PostScript" \ -font bfont] -anchor w pack [ttk::checkbutton .config_t.psf.c \ -text "Use pdftops if available"] -anchor w .config_t.psf.c configure -variable ::settings(use_pdftops) \ -onvalue 1 -offvalue 0 # buttons for closing the configuration screen pack [ttk::frame .config_t.buttonsf] -in .config_t.bg -pady [list 10 0] -fill x ppack [ttk::button .config_t.buttonsf.done -text "Done" -command putsettings] \ -side right ppack [ttk::button .config_t.buttonsf.cancel -text "Cancel" \ -command cancelsettings] -side right wm transient .config_t wm overrideredirect .config_t wm withdraw .config_t proc edit_settings {} { wm deiconify .config_t raise .config_t grab set .config_t } # store new settings proc putsettings {} { wm withdraw .config_t grab release .config_t write_settings } proc cancelsettings {} { wm withdraw .config_t grab release .config_t # re-read config file / reg entries getsettings } ### main screen ############################# proc show_w {w} { wm deiconify $w raise $w } pack [ttk::frame .bg -padding 3] -fill both -expand 1 # buttons to call up configure-, log- and help screens pack [ttk::frame .topf] -in .bg -fill x ppack [ttk::button .topf.config_t -text "Configure" \ -command edit_settings] -side left ppack [ttk::button .topf.help_t -text "Help" \ -command {show_w .help_t}] -side right ppack [ttk::button .topf.logb -text "Show log" -command {show_w .log_t}] \ -side right -anchor w # file info in grid layout ppack [ttk::frame .infof -relief sunken -border 1 -padding 3] -in .bg -fill x grid [ttk::label .infof.dir_label -text "Directory" -anchor w] \ -row 1 -column 1 -sticky w grid [ttk::label .infof.dir_value -textvariable ::gfile(dir) -anchor w] \ -row 1 -column 2 -sticky w grid [ttk::label .infof.name_label -text "File" -anchor w] \ -row 2 -column 1 -sticky w grid [ttk::label .infof.name_value -textvariable ::gfile(name) -anchor w] \ -row 2 -column 2 -sticky w grid [ttk::label .infof.type_label -text "Type" -anchor w] \ -row 3 -column 1 -sticky w grid [ttk::label .infof.type_value -textvariable ::gfile(type) -anchor w] \ -row 3 -column 2 -sticky w grid [ttk::label .infof.npages_label -text "Pages" -anchor w] \ -row 4 -column 1 -sticky w grid [ttk::label .infof.npages_value -textvariable ::gfile(npages) -anchor w] \ -row 4 -column 2 -sticky w grid columnconfigure .infof 1 -weight 1 -pad 2 grid columnconfigure .infof 2 -weight 3 -pad 2 # conversion options pack [ttk::frame .optsf] -in .bg -pady [list 10 0] -fill x # grayscaling pack [ttk::frame .optsf.gray] -side left -anchor nw pack [ttk::label .optsf.gray.l -text "Grayscaling"] -anchor w pack [ttk::radiobutton .optsf.gray.off -text "No color conversion" \ -variable ::options(gray) -value "color"] -anchor w pack [ttk::radiobutton .optsf.gray.gray -text "Grayscale" \ -variable ::options(gray) -value "gray"] -anchor w # output format pack [ttk::label .optsf.format] -side right -anchor ne pack [ttk::label .optsf.format.l -text "Output format"] -anchor w ttk::radiobutton .optsf.format.pdf -text "pdf" \ -command set_widget_states -variable ::options(format) -value "pdf" ttk::radiobutton .optsf.format.eps -text "eps" -command set_widget_states \ -variable ::options(format) -value "eps" ttk::radiobutton .optsf.format.ps -text "ps" -command set_widget_states \ -variable ::options(format) -value "ps" pack .optsf.format.pdf -anchor w pack .optsf.format.eps -anchor w pack .optsf.format.ps -anchor w # boundingbox pack [ttk::checkbutton .bbox -text "Compute tight boundingbox" \ -variable ::options(bbox) -command set_widget_states] \ -in .bg -anchor w -pady [list 10 0] # page selection pack [ttk::frame .pagesf] -in .bg -fill x pack [ttk::radiobutton .pagesf.all -text "Convert all pages" \ -variable ::options(pages) -value "all" -command set_widget_states] \ -side left pack [ttk::radiobutton .pagesf.single -text "Page:" \ -variable ::options(pages) -value "single" -command set_widget_states] \ -side left -padx [list 10 0] pack [entry .pagesf.e -width 6 -textvariable ::options(page)] -side left #.pagesf.e configure -vcmd {page_valid %W} -validate focusout \ # -invcmd "focusAndFlash %W [.pagesf.e cget -fg] [.pagesf.e cget -bg]" .pagesf.e configure -vcmd {page_valid %W} -validate focusout \ -invcmd "see_red %W" # temp files pack [ttk::checkbutton .clean -text "Remove temp files" \ -variable ::options(clean)] -in .bg -anchor w -pady [list 10 0] proc focusAndFlash {w fg bg {count 9}} { focus $w if {$count<1} { $w configure -foreground $fg -background $bg } else { if {$count%2} { $w configure -foreground $bg -background $fg } else { $w configure -foreground $fg -background $bg } after 200 [list focusAndFlash $w $fg $bg [expr {$count-1}]] } } proc see_red {w} { focus $w set orig [$w cget -bg] $w configure -bg red update idletasks after 1000 $w configure -bg $orig update idletasks } proc page_valid {w} { # w entry widget set p [$w get] set isvalid 1 #puts "check pageno $p" if {! [string is integer $p] || $p<=0} { set isvalid 0 } elseif {$::gfile(npages) ne "" && [scan $p "%d"] > $::gfile(npages)} { set isvalid 0 } return $isvalid } # end conversion options pack [ttk::label .status -justify left -text "Idle"] \ -in .bg -side bottom -anchor w -fill x -expand 1 # main buttons pack [ttk::frame .bottomf] -in .bg -side bottom -fill x ppack [ttk::button .bottomf.view -text "View" -command view] -side left ppack [ttk::button .bottomf.open -text "Open" -command openDialog] \ -side left -padx 2 ppack [ttk::button .bottomf.convert -text "Convert and save..." \ -command saveDialog] -side left -padx 2 ppack [ttk::button .bottomf.done -text "Done" -command exit] -side right proc view {} { if {! [viewable]} { tk_messageBox -icon warning -type ok \ -message "No viewer for $::gfile(path)" return } if {$::tcl_platform(os) eq "Darwin"} { catch {exec open $::gfile(path) &} } elseif {$::tcl_platform(platform) ne "unix"} { # use shortname to sidestep quoting problems catch {exec cmd /x /c start [file attributes $::gfile(path) -shortname]} } else { if {$::gfile(type) eq "pdf"} { catch {exec $::settings(pdf_viewer) $::gfile(path) &} } elseif {$::gfile(type) ne "other" && $::gfile(type) ne ""} { catch {exec $::settings(ps_viewer) $::gfile(path) &} } } } proc openDialog {} { set types { {"PostScript and pdf" {.eps .epi .epsi .ps .prn .pdf}} {"Encapsulated PostScript" {.eps .epi .epsi}} {"General PostScript" {.ps .prn}} {"Pdf" {.pdf}} {"All files" *} } if {[file isdirectory $::gfile(dir)]} { set try [tk_getOpenFile -filetypes $types -initialdir $::gfile(dir)] } else { set try [tk_getOpenFile -filetypes $types] } if {$try != ""} { set ::gfile(path) [file normalize $try] set ::gfile(dir) [file dirname $::gfile(path)] set ::gfile(name) [file tail $::gfile(path)] set ::gfile(type) "" if {! [catch {exec $::texlua $::epspdf_tlu --gui=gui -i $::gfile(path)} \ result]} { # parse output regexp {has type (\w+)(?:.+ (\d+) pages)?\.} $result \ mtc ::gfile(type) ::gfile(npages) if {[regexp {^eps} $::gfile(type)]} {set ::gfile(npages) 1} } if {$::gfile(type) eq ""} { # unsupported type tk_messageBox -message "$try: unreadable or unsupported type" \ -title "Error" -icon error } set ::settings(default_dir) $::gfile(dir) putsettings } set_widget_states } proc saveDialog {} { if {$::options(format) eq "pdf"} { set types {{"Pdf" {.pdf}}} } elseif {$::options(format) eq "ps"} { set types {{"PostScript" {.ps}}} } elseif {$::options(format) eq "eps"} { set types {{"Encapsulated PostScript" {.eps}}} } set try [tk_getSaveFile -filetypes $types -initialdir $::gfile(dir)] if {$try != ""} { # fix extension set try [file normalize $try] set idot [string last "." [file tail $try]] if {$idot == -1} { append try ".$::options(format)" } else { # don't bother checking whether the extension is already correct set try [string range $try 0 [string last "." $try]] append try $::options(format) } set try [file normalize $try] # epspdf can read persistent options from configuration. # only options from the options array need to be converted to parameters. set args [list] if {$::options(gray) eq "gray"} {lappend args "-g"} if {$::options(bbox)} {lappend args "-b"} if {! $::options(clean)} {lappend args "-d"} if {$::options(pages) eq "single"} { if {$::options(page) eq ""} {set ::options(page) 1} lappend args "-p" $::options(page) } lappend args $::gfile(path) $try .status configure -text "Working..." -justify "left" foreach b {view open convert done} { .bottomf.$b configure -state disabled } update idletasks; # force immediate redisplay main window set cmd {} ; # necessary? if- and else blocks do not seem to define scopes if {$::tcl_platform(platform) == "windows"} { set cmd [linsert $args 0 exec -ignorestderr $::epspdf_cmd --gui=gui] } else { set cmd [linsert $args 0 exec -ignorestderr \ $::texlua $::epspdf_tlu --gui=gui] } set failed [catch $cmd result] write_log $result if $failed { tk_messageBox -icon error -type ok -message "Error; see log window" } else { set ::gfile(path) [file normalize $try] set ::gfile(dir) [file dirname $::gfile(path)] set ::gfile(type) $::options(format) set ::gfile(name) [file tail $::gfile(path)] if {$::gfile(type) eq "pdf"} { if {! [catch { exec $::texlua $::epspdf_tlu --gui=gui -i $::gfile(path)} \ result]} { regexp {(\d+) pages\.$} $result mtc ::gfile(npages) } } elseif {$::gfile(type) eq "eps"} { set ::gfile(npages) 1 } set ::settings(default_dir) $::gfile(dir) putsettings set ::options(page) 1 } .status configure -text "Idle" foreach b {view open convert done} { .bottomf.$b configure -state normal } focus .bottomf.view set_widget_states } } proc set_widget_states {} { # states (normal/disabled) for various widgets. # their values should already be mutually consistent. # widgets concerned: # view / save # output format / bbox / single page / page no. # view if {[viewable]} { .bottomf.view configure -state normal } else { .bottomf.view configure -state disabled } # convert .bottomf.convert configure -state normal if {$::gfile(path) eq "" || ! [file exists $::gfile(path)]} { \ .bottomf.convert configure -state disabled } if {$::gfile(type) eq "other"} { .bottomf.convert configure -state disabled } if {$::gfile(npages) ne "" && $::options(pages) eq "single" && \ $::options(page) > $::gfile(npages)} { .bottomf.convert configure -state disabled } # type if {[regexp {ps|pdf} $::gfile(type)]} { foreach f {pdf eps ps} {.optsf.format.$f configure -state normal} } else { foreach f {pdf eps ps} {.optsf.format.$f configure -state disabled} } # pages and page foreach f {all single} {.pagesf.$f configure -state normal} if {$::options(format) eq "eps"} { .pagesf.all configure -state disabled set ::options(pages) "single" } if {$::options(format) eq "ps"} { .pagesf.single configure -state disabled set ::options(pages) "all" } if {$::options(pages) eq "all"} { .pagesf.e configure -state disabled } else { .pagesf.e configure -state normal } # boundingbox if {$::options(format) eq "eps"} { .bbox configure -state normal } elseif {$::options(pages) eq "all"} { .bbox configure -state disabled set ::options(bbox) 0 } else { .bbox configure -state normal } update idletasks } set_widget_states