| ︙ | | |
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
|
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
|
+
+
+
+
+
+
-
+
|
return $result
}
# Figure out HG revision from arguments
proc eskil::rev::HG::ParseRevs {filename revs} {
set result ""
foreach rev $revs {
# HG internally supports negative numbers for backwards search
# though -1 means current. Translate to Eskil notation by adding one
if {[string is integer $rev] && $rev < 0} {
incr rev -1
}
if {$rev eq "_" || $rev eq "0"} {set rev tip}
# No parsing yet...
|
| ︙ | | |
975
976
977
978
979
980
981
982
983
984
985
986
987
988
|
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
set sts [catch {exec svn -q commit -m $logmsg {*}$args} svnmsg]
set svnmsg [string trim $svnmsg]
if {$svnmsg ne ""} {
tk_messageBox -icon error -title "SVN commit error" -message $svnmsg \
-parent $top
}
}
# Check in HG controlled file
proc eskil::rev::HG::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
set sts [catch {exec hg -q commit -m $logmsg {*}$args} svnmsg]
set svnmsg [string trim $svnmsg]
if {$svnmsg ne ""} {
tk_messageBox -icon error -title "HG commit error" -message $svnmsg \
-parent $top
}
}
# Check in GIT controlled file
proc eskil::rev::GIT::commitFile {top args} {
if {[llength $args] == 0} {
set target all
} elseif {[llength $args] == 1} {
set target [file tail [lindex $args 0]]
|
| ︙ | | |
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
|
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
set sts [catch {exec svn revert -q {*}$args} svnmsg]
set svnmsg [string trim $svnmsg]
if {$svnmsg ne ""} {
tk_messageBox -icon error -title "SVN revert error" -message $svnmsg \
-parent $top
}
}
# Revert HG controlled file
proc eskil::rev::HG::revertFile {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 ok [RevertDialog $top $target]
if {$ok ne "ok"} return
if {[llength $args] == 0} {
set args "--all"
}
set sts [catch {exec hg revert -q -C {*}$args} svnmsg]
set svnmsg [string trim $svnmsg]
if {$svnmsg ne ""} {
tk_messageBox -icon error -title "HG revert error" -message $svnmsg \
-parent $top
}
}
# Revert Fossil controlled file
proc eskil::rev::FOSSIL::revertFile {top args} {
if {[llength $args] == 0} {
set target all
} elseif {[llength $args] == 1} {
set target [file tail [lindex $args 0]]
|
| ︙ | | |
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
|
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
|
+
+
+
+
+
|
return [vcsvfs::fossil::mount $dir $rev]
}
# Mount a directory revision as a VFS, and return the mount point
proc eskil::rev::SVN::mount {dir rev} {
return [vcsvfs::svn::mount $dir $rev]
}
# Mount a directory revision as a VFS, and return the mount point
proc eskil::rev::HG::mount {dir rev} {
return [vcsvfs::hg::mount $dir $rev]
}
# Mount a directory revision as a VFS, and return the mount point
proc eskil::rev::GIT::mount {dir rev} {
return [vcsvfs::git::mount $dir $rev]
}
# View log between displayed versions
|
| ︙ | | |
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
|
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
|
+
+
+
+
+
+
+
+
+
+
+
+
+
|
proc eskil::rev::SVN::viewLog {top filename revs} {
set cmd [list exec svn log]
if {[llength $revs] > 1} {
lappend cmd -r [join $revs ":"]
} else {
lappend cmd -r HEAD:[lindex $revs 0]
}
lappend cmd $filename
if {[catch {eval $cmd} result]} {
#return
}
ViewLog $top $filename $result
}
# View log between displayed versions
proc eskil::rev::HG::viewLog {top filename revs} {
set cmd [list exec hg log]
foreach rev $revs {
lappend cmd -r $rev
}
lappend cmd $filename
if {[catch {eval $cmd} result]} {
#return
}
ViewLog $top $filename $result
}
|
| ︙ | | |