New upstream version 3.2.1+dfsg1upstream/3.2.1+dfsg1

1 files changed, 37 insertions, 0 deletions

diff --git a/Plugins/DbSqliteSystemData/fix_files.tcl b/Plugins/DbSqliteSystemData/fix_files.tcl
new file mode 100644
index 0000000..d67abd0
--- /dev/null
+++ b/Plugins/DbSqliteSystemData/fix_files.tcl
@@ -0,0 +1,37 @@
+#!/usr/bin/env tclsh
+
+proc process {f} {
+  set shortName [string map [list systemdata_ ""] $f]
+  if {[file exists $shortName]} {
+    file rename -force $shortName $f
+  }
+
+  set fd [open $f r]
+  set data [read $fd]  
+  close $fd
+  
+  #set data [string map [list systemdata_systemdata_ systemdata_] $data]
+  set data [string map [list \
+	sqlite3 systemdata_sqlite3 \
+	../core/ "" \
+	interop.h systemdata_interop.h \
+	../win/crypt.c systemdata_crypt.c \
+	../contrib/extension-functions.c systemdata_extension-functions.c \
+  ] $data]
+  
+  set fd [open $f w]
+  puts $fd $data
+  close $fd
+}
+
+foreach f {
+	systemdata_sqlite3.c
+	systemdata_sqlite3.h
+	systemdata_sqlite3ext.h
+	systemdata_interop.c
+	systemdata_interop.h
+	systemdata_extension-functions.c
+	systemdata_crypt.c
+} {
+	process $f
+}