817
818
819
820
821
822
823
824
825
826
827
828
829
830
|
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
if {[llength $args] == 0} {
catch {exec git commit -a -m $logmsg}
} else {
catch {exec git commit -m $logmsg {*}$args}
}
}
# Check in Fossil controlled file
proc eskil::rev::FOSSIL::commitFile {top args} {
if {[llength $args] == 0} {
set target all
} elseif {[llength $args] == 1} {
set target [file tail [lindex $args 0]]
} else {
set target "[file tail [lindex $args 0]] ..."
}
set logmsg [LogDialog $top $target]
if {$logmsg eq ""} return
catch {exec fossil commit -m $logmsg {*}$args}
}
# View log between displayed versions
proc eskil::rev::CVS::viewLog {top filename revs} {
set cmd [list exec cvs -q log -N]
if {[llength $revs] > 1} {
lappend cmd -r[join $revs ":"]
} else {
|