Eskil

Check-in [4dcf31775f]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Include added dirs in SVN commit. [e947536c41]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 4dcf31775f1aed92e6f18ea5e8a61f3bd322d411a0bee5189efeae589f85c8fb
User & Date: peter 2019-06-12 11:37:52
Context
2019-06-12
11:47
Correct depth with committing dirs. Leaf 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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/rev.tcl.

1283
1284
1285
1286
1287
1288
1289

















1290
1291
1292
1293
1294
1295
1296
....
1857
1858
1859
1860
1861
1862
1863






1864
1865
1866
1867
1868
1869
1870
    } 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]]
................................................................................
            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







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







>
>
>
>
>
>







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
....
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
    } 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]]
................................................................................
            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