Differences From Artifact [2697d806a7]:
- File tools/cvs2fossil/lib/trouble.tcl — part of check-in [52f2254007] at 2007-10-04 04:34:59 on branch trunk — Continued work on pass I. Filled in the repository management, and basic implementation of project objects. Missing are persistence and the foundation for that (cache database). (user: aku size: 3044)
To Artifact [f653273970]:
- File tools/cvs2fossil/lib/trouble.tcl — part of check-in [7eaa420a23] at 2007-11-05 09:04:25 on branch trunk — Extended options processing to handle --exclude, --force-tag, and --force-branch options. Extended project::sym class with in-memkory databases to hold the option information and replaced the 'UserConfig' placeholder with the actual code using the new databases to determine symbol types based on user-requests. Extended the pass itself with code performing various checks on the results of type determination, partially paranoia, partially to find genuine bad requests (excluding symbols with unexcluded blockers, making a symbol with commits on it a tag, ...). NYI: Computation of the prefered parent for all symbols. (user: aku size: 3169) [more...]
| ︙ | |||
49 50 51 52 53 54 55 56 57 58 59 60 61 62 | 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | + + + + + + + + |
typemethod show {} {
foreach m $myinfo { log write 0 "" $m }
foreach m $mywarn { log write 0 warning $m }
foreach m $myfatal { log write 0 fatal $m }
return
}
typemethod ? {} {
return [expr {
[llength $myinfo] ||
[llength $mywarn] ||
[llength $myfatal]
}]
}
typemethod abort? {} {
if {
![llength $myinfo] &&
![llength $mywarn] &&
![llength $myfatal]
} return
|
| ︙ |