Differences From Artifact [9e72db66cb]:

• File tools/cvs2fossil/lib/log.tcl — part of check-in [70b0aa899a] at 2007-10-06 22:13:25 on branch trunk — Found easier way to access the typevariables of singletons when writing the rcs parser. Now moved the other singletons to the same construction. (user: aku size: 4503)

To Artifact [2d2937d11b]:

• File tools/cvs2fossil/lib/log.tcl — part of check-in [08ebab80cd] at 2007-11-10 23:44:29 on branch trunk — Rewrote the algorithm for breaking internal dependencies to my liking. The complex part handling multiple splits has moved from the pass code to the changeset class itself, reusing the state computed for the first split. The state is a bit more complex to allow for its incremental update after a break has been done. Factored major pieces into separate procedures to keep the highlevel code readable. Added lots of official log output to help debugging in case of trouble. (user: aku size: 4591) [more...]

42
43
44
45
46
47
48




49
50
51
52
53
54
55

    # empty 'max' indicates an infinite progress display.

    typemethod progress {verbosity system n max} {
	if {$verbosity > $myloglevel} return
	uplevel #0 [linsert $mylogcmd end progress [System $system] $n $max]
	return
    }





    # # ## ### ##### ######## #############
    # Public API, Administrative methods

    # Set verbosity to the chosen 'level'. Only messages with a level
    # less or equal to this one will be shown.

>
>
>
>

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

    # empty 'max' indicates an infinite progress display.

    typemethod progress {verbosity system n max} {
	if {$verbosity > $myloglevel} return
	uplevel #0 [linsert $mylogcmd end progress [System $system] $n $max]
	return
    }

    typemethod visible? {verbosity} {
	return [expr {$verbosity <= $myloglevel}]
    }

    # # ## ### ##### ######## #############
    # Public API, Administrative methods

    # Set verbosity to the chosen 'level'. Only messages with a level
    # less or equal to this one will be shown.