Differences From:
File
tools/cvs2fossil/lib/c2f_state.tcl
part of check-in
[38b967dcf5]
- Merge aku's CVS import changes into the main line. Fix a small bug in diff.c.
by
drh on
2007-11-17 00:29:42.
Also file
tools/cvs2fossil/lib/c2f_state.tcl
part of check-in
[96b7bfb834]
- Added convenience command to the state package when the sql returns a single row. Added more statistics about revisions, tags, branches, symbols, changesets to various passes.
by
aku on
2007-11-16 08:32:40.
[view]
To:
File
tools/cvs2fossil/lib/c2f_state.tcl
part of check-in
[00e041dd22]
- State log output, moved to slightly higher verbosity level to allow them to be suppressed.
by
aku on
2007-11-25 07:32:37.
[view]
@@ -99,9 +99,9 @@
# Method for a user to declare a table its needs for storing
# persistent state, and the expected structure. A possibly
# previously existing definition is dropped.
- log write 0 state "writing $name" ; # TODO move to level 5 or so
+ log write 1 state "writing $name" ; # TODO move to level 5 or so
$mystate transaction {
catch { $mystate eval "DROP TABLE $name" }
$mystate eval "CREATE TABLE $name ( $definition )"
@@ -109,9 +109,9 @@
return
}
typemethod reading {name} {
- log write 0 state "reading $name" ; # TODO move to level 5 or so
+ log write 1 state "reading $name" ; # TODO move to level 5 or so
# Method for a user to declare a table it wishes to read
# from. A missing table is an internal error causing an
# immediate exit.
@@ -134,9 +134,9 @@
typemethod discard {name} {
# Method for a user to remove outdated information from the
# persistent state, table by table.
- log write 0 state "discard $name" ; # TODO move to level 5 or so
+ log write 1 state "discard $name" ; # TODO move to level 5 or so
$mystate transaction {
catch { $mystate eval "DROP TABLE $name" }
}