| 13 |
|
|
| 14 |
|
set added "" |
| 15 |
|
set removed "" |
| 16 |
+ |
set added_dir "" |
| 17 |
|
|
| 18 |
|
exec -ignorestderr svn up "$svn" -r "$rev" |
| 19 |
|
exec -ignorestderr cvs up -d "$cvs" |
| 20 |
|
|
| 21 |
|
proc rescan {path prefix} { |
| 22 |
< |
global svn cvs cache old added |
| 22 |
> |
global svn cvs cache old added added_dir |
| 23 |
|
foreach name [glob -tails -nocomplain -directory "$path" *] { |
| 24 |
|
if { [file type "$path/$name"] == "directory" } { |
| 25 |
|
if { ! [file exists "$cvs/$prefix/$name"] } { |
| 26 |
|
file mkdir "$cvs/$prefix/$name" |
| 27 |
|
file mkdir "$cache/$prefix/$name" |
| 28 |
|
cd "$cvs" |
| 29 |
< |
lappend added "[string range "$prefix/$name" 1 [string length "$prefix/$name"]]" |
| 29 |
> |
lappend added_dir "[string range "$prefix/$name" 1 [string length "$prefix/$name"]]" |
| 30 |
|
cd "$old" |
| 31 |
|
} |
| 32 |
|
rescan "$path/$name" "$prefix/$name" |
| 81 |
|
remove_left "$cvs" "" |
| 82 |
|
|
| 83 |
|
cd "$cvs" |
| 84 |
+ |
if { "$added_dir" != "" } { |
| 85 |
+ |
eval exec -ignorestderr cvs add \"[join $added_dir "\" \""]\" >/dev/stdout 2>@1 |
| 86 |
+ |
} |
| 87 |
|
if { "$added" != "" } { |
| 88 |
|
eval exec -ignorestderr cvs add \"[join $added "\" \""]\" >/dev/stdout 2>@1 |
| 89 |
|
} |
| 90 |
|
if { "$removed" != "" } { |
| 91 |
< |
eval exec -ignorestderr cvs rm \"[join $added "\" \""]\" >/dev/stdout 2>@1 |
| 91 |
> |
eval exec -ignorestderr cvs rm \"[join $removed "\" \""]\" >/dev/stdout 2>@1 |
| 92 |
|
} |
| 93 |
|
exec -ignorestderr cvs ci -m "$log" |
| 94 |
|
cd "$old" |
