1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/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 } process sqlcipher.c process sqlcipher.h