Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix installer breaking on empty doc directories of excluded packages. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e889e365838aff7208ac98b578e833be |
| User & Date: | andreask 2014-01-10 00:03:52 |
Context
|
2014-01-18
| ||
| 12:13 | Add a procedure for estimating probability density functions by means of the kernel density estimation method check-in: bfc68668cd user: markus tags: trunk | |
|
2014-01-10
| ||
| 00:03 | Fix installer breaking on empty doc directories of excluded packages. check-in: e889e36583 user: andreask tags: trunk | |
|
2014-01-08
| ||
| 18:21 | Commit [c7f07ac148] forgot to update the package index, causing a mismatch. Fixed, likewise the Tcl requirement. check-in: 32ee5178ac user: andreask tags: trunk | |
Changes
Changes to installer.tcl.
| ︙ | ︙ | |||
88 89 90 91 92 93 94 |
return
}
proc xcopy {src dest recurse {pattern *}} {
run file mkdir $dest
if {[string equal $pattern *] || !$recurse} {
| | | | 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 |
return
}
proc xcopy {src dest recurse {pattern *}} {
run file mkdir $dest
if {[string equal $pattern *] || !$recurse} {
foreach file [glob -nocomplain [file join $src $pattern]] {
set base [file tail $file]
set sub [file join $dest $base]
if {0 == [string compare CVS $base]} {continue}
if {[file isdirectory $file]} then {
if {$recurse} {
run file mkdir $sub
xcopy $file $sub $recurse $pattern
# If the directory is empty after the recursion remove it again.
if {![llength [glob -nocomplain [file join $sub *]]]} {
file delete $sub
}
}
} else {
xcopyfile $file $sub
}
}
} else {
foreach file [glob -nocomplain [file join $src *]] {
set base [file tail $file]
set sub [file join $dest $base]
if {[string equal CVS $base]} {continue}
if {[file isdirectory $file]} then {
if {$recurse} {
|
| ︙ | ︙ |