::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'"
    }
 }

 # Trivial wrappers by DKF
 proc pdflatex args {
    eval [list exec -- pdflatex --interaction=nonstopmode] $args
 }
 proc viewPdf filename {
    exec -- $env(comspec) /c $filename &; # att: auto_execok-error with cmd /c
 }

 # to be reorganized later
 # 3 steps to keep tocs and indices etc. accurate - later cond' breaks
 # better use bgExec to catch the output?
 set root [lindex $argv 0]
 puts [pdflatex $root]
 puts [pdflatex $root]
 puts [pdflatex $root]
 viewPdf $root.pdf