Fossil SCM
Tune log output tracking the creation workspace objects, make them less stilted.
Commit
300f31260bf7d0f4dff94a30e3444fba032e0371
Parent
6d5de5f1c19ddfa…
1 file changed
+7
-7
| --- tools/cvs2fossil/lib/c2f_ristate.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_ristate.tcl | ||
| @@ -35,25 +35,25 @@ | ||
| 35 | 35 | # Start with an empty state |
| 36 | 36 | return |
| 37 | 37 | } |
| 38 | 38 | |
| 39 | 39 | method new {lod {parentlod {}}} { |
| 40 | - # Create the workspace state for a line of development | |
| 41 | - # (LOD). If a parent LOD is specified let the new state | |
| 42 | - # inherit the current state of the parent. | |
| 40 | + # Create a workspace for a line of development (LOD). If a | |
| 41 | + # parent LOD is specified let the new workspace inherit the | |
| 42 | + # current state of the parent. | |
| 43 | 43 | |
| 44 | - log write 8 ristate {Open workspace state for LOD "$lod"} | |
| 44 | + log write 8 ristate {Open workspace for LOD "$lod"} | |
| 45 | 45 | |
| 46 | 46 | integrity assert { |
| 47 | 47 | ![info exists mystate($lod)] |
| 48 | 48 | } {Trying to override existing state for lod "$lod"} |
| 49 | 49 | |
| 50 | 50 | set wss [wsstate ${selfns}::%AUTO% $lod] |
| 51 | 51 | set mystate($lod) $wss |
| 52 | 52 | |
| 53 | 53 | if {$parentlod ne ""} { |
| 54 | - log write 8 ristate {Inheriting from workspace state for LOD "$parentlod"} | |
| 54 | + log write 8 ristate {Inheriting from workspace for LOD "$parentlod"} | |
| 55 | 55 | |
| 56 | 56 | integrity assert { |
| 57 | 57 | [info exists mystate($parentlod)] |
| 58 | 58 | } {Trying to inherit from undefined lod "$parentlod"} |
| 59 | 59 | |
| @@ -70,21 +70,21 @@ | ||
| 70 | 70 | method has {lod} { return [info exists mystate($lod)] } |
| 71 | 71 | |
| 72 | 72 | method names {} { return [array names mystate] } |
| 73 | 73 | |
| 74 | 74 | method dup {dst _from_ src} { |
| 75 | - log write 8 ristate {Duplicate workspace state for LOD "$dst" from "$src"} | |
| 75 | + log write 8 ristate {Duplicate workspace for LOD "$dst" from "$src"} | |
| 76 | 76 | set mystate($dst) $mystate($src) |
| 77 | 77 | return |
| 78 | 78 | } |
| 79 | 79 | |
| 80 | 80 | # # ## ### ##### ######## ############# |
| 81 | 81 | ## State |
| 82 | 82 | |
| 83 | 83 | variable mystate -array {} ; # Map from lines of development |
| 84 | 84 | # (identified by name) to their |
| 85 | - # workspace state. | |
| 85 | + # workspace. | |
| 86 | 86 | |
| 87 | 87 | # # ## ### ##### ######## ############# |
| 88 | 88 | ## Configuration |
| 89 | 89 | |
| 90 | 90 | pragma -hastypeinfo no ; # no type introspection |
| 91 | 91 |
| --- tools/cvs2fossil/lib/c2f_ristate.tcl | |
| +++ tools/cvs2fossil/lib/c2f_ristate.tcl | |
| @@ -35,25 +35,25 @@ | |
| 35 | # Start with an empty state |
| 36 | return |
| 37 | } |
| 38 | |
| 39 | method new {lod {parentlod {}}} { |
| 40 | # Create the workspace state for a line of development |
| 41 | # (LOD). If a parent LOD is specified let the new state |
| 42 | # inherit the current state of the parent. |
| 43 | |
| 44 | log write 8 ristate {Open workspace state for LOD "$lod"} |
| 45 | |
| 46 | integrity assert { |
| 47 | ![info exists mystate($lod)] |
| 48 | } {Trying to override existing state for lod "$lod"} |
| 49 | |
| 50 | set wss [wsstate ${selfns}::%AUTO% $lod] |
| 51 | set mystate($lod) $wss |
| 52 | |
| 53 | if {$parentlod ne ""} { |
| 54 | log write 8 ristate {Inheriting from workspace state for LOD "$parentlod"} |
| 55 | |
| 56 | integrity assert { |
| 57 | [info exists mystate($parentlod)] |
| 58 | } {Trying to inherit from undefined lod "$parentlod"} |
| 59 | |
| @@ -70,21 +70,21 @@ | |
| 70 | method has {lod} { return [info exists mystate($lod)] } |
| 71 | |
| 72 | method names {} { return [array names mystate] } |
| 73 | |
| 74 | method dup {dst _from_ src} { |
| 75 | log write 8 ristate {Duplicate workspace state for LOD "$dst" from "$src"} |
| 76 | set mystate($dst) $mystate($src) |
| 77 | return |
| 78 | } |
| 79 | |
| 80 | # # ## ### ##### ######## ############# |
| 81 | ## State |
| 82 | |
| 83 | variable mystate -array {} ; # Map from lines of development |
| 84 | # (identified by name) to their |
| 85 | # workspace state. |
| 86 | |
| 87 | # # ## ### ##### ######## ############# |
| 88 | ## Configuration |
| 89 | |
| 90 | pragma -hastypeinfo no ; # no type introspection |
| 91 |
| --- tools/cvs2fossil/lib/c2f_ristate.tcl | |
| +++ tools/cvs2fossil/lib/c2f_ristate.tcl | |
| @@ -35,25 +35,25 @@ | |
| 35 | # Start with an empty state |
| 36 | return |
| 37 | } |
| 38 | |
| 39 | method new {lod {parentlod {}}} { |
| 40 | # Create a workspace for a line of development (LOD). If a |
| 41 | # parent LOD is specified let the new workspace inherit the |
| 42 | # current state of the parent. |
| 43 | |
| 44 | log write 8 ristate {Open workspace for LOD "$lod"} |
| 45 | |
| 46 | integrity assert { |
| 47 | ![info exists mystate($lod)] |
| 48 | } {Trying to override existing state for lod "$lod"} |
| 49 | |
| 50 | set wss [wsstate ${selfns}::%AUTO% $lod] |
| 51 | set mystate($lod) $wss |
| 52 | |
| 53 | if {$parentlod ne ""} { |
| 54 | log write 8 ristate {Inheriting from workspace for LOD "$parentlod"} |
| 55 | |
| 56 | integrity assert { |
| 57 | [info exists mystate($parentlod)] |
| 58 | } {Trying to inherit from undefined lod "$parentlod"} |
| 59 | |
| @@ -70,21 +70,21 @@ | |
| 70 | method has {lod} { return [info exists mystate($lod)] } |
| 71 | |
| 72 | method names {} { return [array names mystate] } |
| 73 | |
| 74 | method dup {dst _from_ src} { |
| 75 | log write 8 ristate {Duplicate workspace for LOD "$dst" from "$src"} |
| 76 | set mystate($dst) $mystate($src) |
| 77 | return |
| 78 | } |
| 79 | |
| 80 | # # ## ### ##### ######## ############# |
| 81 | ## State |
| 82 | |
| 83 | variable mystate -array {} ; # Map from lines of development |
| 84 | # (identified by name) to their |
| 85 | # workspace. |
| 86 | |
| 87 | # # ## ### ##### ######## ############# |
| 88 | ## Configuration |
| 89 | |
| 90 | pragma -hastypeinfo no ; # no type introspection |
| 91 |