New upstream version 3.2.1+dfsg1upstream/3.2.1+dfsg1

1 files changed, 29 insertions, 0 deletions

diff --git a/Plugins/DbSqliteWx/add_prefix.tcl b/Plugins/DbSqliteWx/add_prefix.tcl
new file mode 100644
index 0000000..74e3e9f
--- /dev/null
+++ b/Plugins/DbSqliteWx/add_prefix.tcl
@@ -0,0 +1,29 @@
+#!/usr/bin/env tclsh
+
+proc process {f} {
+  set fd [open $f r]
+  set data [read $fd]  
+  close $fd
+  
+  set data [string map [list sqlite3 wx_sqlite3] $data]
+  set data [string map [list wx_sqlite3.c wxsqlite3.c] $data]
+  set data [string map [list wx_sqlite3.h wxsqlite3.h] $data]
+  
+  set fd [open $f w]
+  puts $fd $data
+  close $fd
+}
+
+if {[file exists sqlite3.c]} {
+	file rename -force sqlite3.c wxsqlite3.c
+}
+
+if {[file exists sqlite3.h]} {
+	file rename -force sqlite3.h wxsqlite3.h
+	file copy -force wxsqlite3.h wxsqlite3_unmodified.h
+}
+
+foreach f [concat [glob -nocomplain *.c] [glob -nocomplain *.h]] {
+	if {[string match -nocase "dbsqlitewx*" $f]} continue
+	process $f
+}