Differences From:

File tools/cvs2fossil/lib/c2f_state.tcl part of check-in [e288af3995] - Fluff: Renamed state methods use/reading/writing to usedb/use/extend for clarity. Updated all callers. Extended state module with code to dump the SQL statements it receives to a file for analysis. Extended the 'use' declarations of several passes. by aku on 2007-12-02 23:47:45. [view]

To:

File tools/cvs2fossil/lib/c2f_state.tcl part of check-in [7208c7ac4d] - Changes to cvs2fossil to import tcllib CVS into fossil on Win32

* using ::file instead of file in snit methods to get the core file command * taking care of files that only differ in case in the Attic and the repo on case insensitive FS * passing platform specific

by mjanssen on 2008-01-28 23:57:27. [view]

@@ -43,9 +43,9 @@
 	# In the second case we have to be able to create the file,
 	# and check that. This is done by opening it, sqlite will then
 	# try to create it, and may fail.
 
-	if {[file exists $path]} {
+	if {[::file exists $path]} {
 	    if {![fileutil::test $path frw msg {cvs2fossil state}]} {
 		trouble fatal $msg
 		return
 	    }
@@ -52,8 +52,9 @@
 	}
 
 	if {[catch {
 	    sqlite3 ${type}::TEMP $path
+	    ${type}::TEMP eval {PRAGMA synchronous=OFF;}
 	} res]} {
 	    trouble fatal $res
 	    return
 	}
@@ -81,8 +82,9 @@
 
 	set mypath  [fileutil::tempfile cvs2fossil_state_]
 	set mystate ${type}::STATE
 	sqlite3 $mystate $mypath
+        $mystate eval {PRAGMA synchronous=OFF;}
 
 	log write 2 state "using $mypath"
 	return
     }
@@ -90,9 +92,9 @@
     typemethod release {} {
 	log write 2 state release
 	${type}::STATE close
 	if {$mypath eq ""} return
-	file delete $mypath
+	::file delete $mypath
 	return
     }
 
     # Declare a table needed for the storing of persistent state, and