Posted to tcl by dbohdan at Thu Jan 09 12:33:05 GMT 2020view pretty

foreach file $files {
    lib::pipe x $file {
        lib::file::read $x
    } {
        lib::checksum::parse::many $x
    } {
        lmap {_ path _} $x {
            lindex [file dirname $file]/$path
        }
    } -filter {
        ![file exists $x]
    } -each {
        puts $x
    }
}