Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Include added dirs in SVN commit. [e947536c41] |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
4dcf31775f1aed92e6f18ea5e8a61f3b |
| User & Date: | peter 2019-06-12 11:37:52.534 |
Context
|
2019-06-12
| ||
| 11:47 | Correct depth with committing dirs. check-in: f26f4f3a55 user: peter tags: trunk | |
| 11:37 | Include added dirs in SVN commit. [e947536c41] check-in: 4dcf31775f user: peter tags: trunk | |
|
2019-05-22
| ||
| 08:38 | Synch text with wiki. check-in: 64dd38f229 user: peter tags: trunk | |
Changes
Changes to src/rev.tcl.
| ︙ | ︙ | |||
1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 |
} else {
set target "[file tail [lindex $args 0]] ..."
}
set precmd [list svn -q commit -m]
set postcmd $args
CommitDialog $top $target SVN $precmd $postcmd
}
# 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]]
| > > > > > > > > > > > > > > > > > | 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 |
} else {
set target "[file tail [lindex $args 0]] ..."
}
set precmd [list svn -q commit -m]
set postcmd $args
CommitDialog $top $target SVN $precmd $postcmd
}
# Does anything else needs to be committed with this file?
# Typically that would be added directories in SVN.
proc eskil::rev::SVN::commitFileDependency {filename} {
set dir [file dirname $filename]
set result {}
while {$dir ni {. /}} {
set s [exec svn status --depth=empty $dir]
if {[string match "A*" $s]} {
lappend result $dir
} else {
break
}
set dir [file dirname $dir]
}
return $result
}
# 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]]
|
| ︙ | ︙ | |||
1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 |
incr t
}
# None left means ignore.
if {[llength $todo] == 0} {
return
}
}
# Splash screen for visual feedback
set now [clock clicks -milliseconds]
ttk::label $w.splash -text "Committing" -anchor center -font myfont
place $w.splash -x 0 -y 0 -relwidth 1.0 -relheight 1.0
update
# Commit
| > > > > > > | 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 |
incr t
}
# None left means ignore.
if {[llength $todo] == 0} {
return
}
}
if {[info commands eskil::rev::${system}::commitFileDependency]} {
foreach filename $todo {
lappend todo {*}[eskil::rev::${system}::commitFileDependency $filename]
}
}
# Splash screen for visual feedback
set now [clock clicks -milliseconds]
ttk::label $w.splash -text "Committing" -anchor center -font myfont
place $w.splash -x 0 -y 0 -relwidth 1.0 -relheight 1.0
update
# Commit
|
| ︙ | ︙ |