file delete $dirsSaved
file delete $dirsStash
set fh [open "| diff -urN $Saved/$opt $Stash/$opt" r]
- puts -nonewline [read $fh]
+ set prefixSaved "--- $Saved/"
+ set prefixSavedLen [string length $prefixSaved]
+ set prefixStash "+++ $Stash/"
+ set prefixStashLen [string length $prefixStash]
+ while {[gets $fh line] >= 0} {
+ if {[string range $line 0 3] == "diff"} {
+ continue
+ }
+ if {[string range $line 0 $prefixSavedLen-1] == $prefixSaved} {
+ puts "--- [string range $line $prefixSavedLen end]"
+ continue
+ }
+ if {[string range $line 0 $prefixStashLen-1] == $prefixStash} {
+ puts "+++ [string range $line $prefixStashLen end]"
+ continue
+ }
+ puts $line
+ }
catch {close $fh}
}
revert {