blob: 9ff190649ce0096ab4019c9b6209e734c79ef716 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/env tclsh
proc process {f} {
set fd [open $f r]
set data [read $fd]
close $fd
set data [string map [list sqlite3 sqlcipher_sqlite3] $data]
set fd [open $f w]
puts $fd $data
close $fd
}
if {[file exists sqlite3.c]} {
file rename -force sqlite3.c sqlcipher.c
}
if {[file exists sqlite3.h]} {
file rename -force sqlite3.h sqlcipher.h
}
process sqlcipher.c
process sqlcipher.h
|
