Check-in [2b25880b82]
Overview
Comment:Use the SQLite3 way to generate a temporary DB
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 2b25880b82578265917ad9058f354615f761309cb8fec641c3fde6ccf021a512
User & Date: rkeene on 2019-01-23 07:21:45
Other Links: manifest | tags
Context
2019-01-23
07:36
Support getaddrinfo() checks on Windows check-in: f61852edde user: rkeene tags: trunk
07:21
Use the SQLite3 way to generate a temporary DB check-in: 2b25880b82 user: rkeene tags: trunk
07:21
Better win32 support check-in: 58cfb962c2 user: rkeene tags: trunk
Changes

Modified nano.tcl from [36ea6c846f] to [857c216b2e].

3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
	set db ::nano::node::stats::_db
	if {[llength [info command $db]] != 0} {
		return
	}

	package require sqlite3

	::close [file tempfile dbFileName]
	file delete $dbFileName

	sqlite3 $db $dbFileName -create true

	$db eval {PRAGMA journal_mode = OFF}

	file delete $dbFileName

	tailcall clear
}

proc ::nano::node::stats::close {} {
	set db ::nano::node::stats::_db

	$db close







<
<
<
|



<
<







3834
3835
3836
3837
3838
3839
3840



3841
3842
3843
3844


3845
3846
3847
3848
3849
3850
3851
	set db ::nano::node::stats::_db
	if {[llength [info command $db]] != 0} {
		return
	}

	package require sqlite3




	sqlite3 $db ""

	$db eval {PRAGMA journal_mode = OFF}



	tailcall clear
}

proc ::nano::node::stats::close {} {
	set db ::nano::node::stats::_db

	$db close