648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
|
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
|
+
+
+
-
-
+
+
+
|
}
# Helper to add a file argument to list of files
proc cmdLineAddFile {filesName arg} {
upvar 1 $filesName files
set apa [file normalize [file join [pwd] $arg]]
if { ! [file exists $apa]} {
if {[string length $arg] <= 2 && [string match *M* $arg]} {
puts "Ignoring argument: $arg"
} else {
puts "Bad argument: $arg"
exit
puts "Bad argument: $arg"
exit
}
} else {
lappend files $apa
}
}
# Go through all command line arguments and start the appropriate
# diff window.
|