Fossil SCM
State log output, moved to slightly higher verbosity level to allow them to be suppressed.
Commit
00e041dd220e6ee1006ea20bc0e536396d9186d2
Parent
eb43120ac13c419…
1 file changed
+3
-3
| --- tools/cvs2fossil/lib/c2f_state.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_state.tcl | ||
| @@ -98,21 +98,21 @@ | ||
| 98 | 98 | typemethod writing {name definition} { |
| 99 | 99 | # Method for a user to declare a table its needs for storing |
| 100 | 100 | # persistent state, and the expected structure. A possibly |
| 101 | 101 | # previously existing definition is dropped. |
| 102 | 102 | |
| 103 | - log write 0 state "writing $name" ; # TODO move to level 5 or so | |
| 103 | + log write 1 state "writing $name" ; # TODO move to level 5 or so | |
| 104 | 104 | |
| 105 | 105 | $mystate transaction { |
| 106 | 106 | catch { $mystate eval "DROP TABLE $name" } |
| 107 | 107 | $mystate eval "CREATE TABLE $name ( $definition )" |
| 108 | 108 | } |
| 109 | 109 | return |
| 110 | 110 | } |
| 111 | 111 | |
| 112 | 112 | typemethod reading {name} { |
| 113 | - log write 0 state "reading $name" ; # TODO move to level 5 or so | |
| 113 | + log write 1 state "reading $name" ; # TODO move to level 5 or so | |
| 114 | 114 | |
| 115 | 115 | # Method for a user to declare a table it wishes to read |
| 116 | 116 | # from. A missing table is an internal error causing an |
| 117 | 117 | # immediate exit. |
| 118 | 118 | |
| @@ -133,11 +133,11 @@ | ||
| 133 | 133 | |
| 134 | 134 | typemethod discard {name} { |
| 135 | 135 | # Method for a user to remove outdated information from the |
| 136 | 136 | # persistent state, table by table. |
| 137 | 137 | |
| 138 | - log write 0 state "discard $name" ; # TODO move to level 5 or so | |
| 138 | + log write 1 state "discard $name" ; # TODO move to level 5 or so | |
| 139 | 139 | |
| 140 | 140 | $mystate transaction { |
| 141 | 141 | catch { $mystate eval "DROP TABLE $name" } |
| 142 | 142 | } |
| 143 | 143 | return |
| 144 | 144 |
| --- tools/cvs2fossil/lib/c2f_state.tcl | |
| +++ tools/cvs2fossil/lib/c2f_state.tcl | |
| @@ -98,21 +98,21 @@ | |
| 98 | typemethod writing {name definition} { |
| 99 | # Method for a user to declare a table its needs for storing |
| 100 | # persistent state, and the expected structure. A possibly |
| 101 | # previously existing definition is dropped. |
| 102 | |
| 103 | log write 0 state "writing $name" ; # TODO move to level 5 or so |
| 104 | |
| 105 | $mystate transaction { |
| 106 | catch { $mystate eval "DROP TABLE $name" } |
| 107 | $mystate eval "CREATE TABLE $name ( $definition )" |
| 108 | } |
| 109 | return |
| 110 | } |
| 111 | |
| 112 | typemethod reading {name} { |
| 113 | log write 0 state "reading $name" ; # TODO move to level 5 or so |
| 114 | |
| 115 | # Method for a user to declare a table it wishes to read |
| 116 | # from. A missing table is an internal error causing an |
| 117 | # immediate exit. |
| 118 | |
| @@ -133,11 +133,11 @@ | |
| 133 | |
| 134 | typemethod discard {name} { |
| 135 | # Method for a user to remove outdated information from the |
| 136 | # persistent state, table by table. |
| 137 | |
| 138 | log write 0 state "discard $name" ; # TODO move to level 5 or so |
| 139 | |
| 140 | $mystate transaction { |
| 141 | catch { $mystate eval "DROP TABLE $name" } |
| 142 | } |
| 143 | return |
| 144 |
| --- tools/cvs2fossil/lib/c2f_state.tcl | |
| +++ tools/cvs2fossil/lib/c2f_state.tcl | |
| @@ -98,21 +98,21 @@ | |
| 98 | typemethod writing {name definition} { |
| 99 | # Method for a user to declare a table its needs for storing |
| 100 | # persistent state, and the expected structure. A possibly |
| 101 | # previously existing definition is dropped. |
| 102 | |
| 103 | log write 1 state "writing $name" ; # TODO move to level 5 or so |
| 104 | |
| 105 | $mystate transaction { |
| 106 | catch { $mystate eval "DROP TABLE $name" } |
| 107 | $mystate eval "CREATE TABLE $name ( $definition )" |
| 108 | } |
| 109 | return |
| 110 | } |
| 111 | |
| 112 | typemethod reading {name} { |
| 113 | log write 1 state "reading $name" ; # TODO move to level 5 or so |
| 114 | |
| 115 | # Method for a user to declare a table it wishes to read |
| 116 | # from. A missing table is an internal error causing an |
| 117 | # immediate exit. |
| 118 | |
| @@ -133,11 +133,11 @@ | |
| 133 | |
| 134 | typemethod discard {name} { |
| 135 | # Method for a user to remove outdated information from the |
| 136 | # persistent state, table by table. |
| 137 | |
| 138 | log write 1 state "discard $name" ; # TODO move to level 5 or so |
| 139 | |
| 140 | $mystate transaction { |
| 141 | catch { $mystate eval "DROP TABLE $name" } |
| 142 | } |
| 143 | return |
| 144 |