::if 0 {
@tclkitsh "%~dp0\%~n0.bat" %*
@goto :EOF
}
# pl.bat - helper/shell for pdflatex (TexLive)
# call pdflatex with specific or with newest file (win-doubleclick)
# 05.07.2007, MHo
# if no arg specified, it's assumed that the newest .tex file should be processed
if {![llength $argv]} {
set res [list ]
foreach texfile [glob -nocomplain -- *.tex] {
lappend res [list $texfile [file mtime $texfile]]
}
if {[llength $res]} {
lappend argv [file rootname [lindex [lindex [lsort -integer -index 1 $res] end] 0]]
puts "using '$argv'"
}
}
# to be reorganized later
# 3 steps to keep tocs and indices etc. accurate - later cond' breaks
# better use bgExec to catch the output? What's if pdflatex prompts for input? hm...
puts [exec -- pdflatex [lindex $argv 0]]
puts [exec -- pdflatex [lindex $argv 0]]
puts [exec -- pdflatex [lindex $argv 0]]
exec -- $env(comspec) /c [lindex $argv 0].pdf &; # att: auto_execok-error with cmd /c