Differences From:

File tools/cvs2fossil/lib/c2f_state.tcl part of check-in [042d54bae5] - Completed integration of state with pass I, now saving projects and files into it. by aku on 2007-10-05 07:27:52. [view]

To:

File tools/cvs2fossil/lib/c2f_state.tcl part of check-in [10f9d51bb2] - Added documentation to state definition, and debugging output to the state system itself. by aku on 2007-10-06 03:55:06. [view]

@@ -99,8 +99,10 @@
 	# 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
+
 	$mystate transaction {
 	    catch { $mystate eval "DROP TABLE $name" }
 	    $mystate eval "CREATE TABLE $name ( $definition )"
 	}
@@ -107,8 +109,10 @@
 	return
     }
 
     typemethod reading {name} {
+	log write 0 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.