Posted to tcl by dbohdan at Thu Jan 09 12:33:05 GMT 2020view raw
- 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
- }
- }