summaryrefslogtreecommitdiffstats
path: root/Plugins/DbSqliteWx/add_prefix.tcl
diff options
context:
space:
mode:
authorLibravatarUnit 193 <unit193@unit193.net>2021-12-17 07:06:30 -0500
committerLibravatarUnit 193 <unit193@unit193.net>2021-12-17 07:06:30 -0500
commit1fdc150116cad39aae5c5da407c3312b47a59e3a (patch)
tree123c79a4d7ad2d45781ba03ce939f7539fb428d8 /Plugins/DbSqliteWx/add_prefix.tcl
parentfeda8a7db8d1d7c5439aa8f8feef7cc0dd2b59a0 (diff)
New upstream version 3.3.3+dfsg1.upstream/3.3.3+dfsg1
Diffstat (limited to 'Plugins/DbSqliteWx/add_prefix.tcl')
-rw-r--r--Plugins/DbSqliteWx/add_prefix.tcl29
1 files changed, 0 insertions, 29 deletions
diff --git a/Plugins/DbSqliteWx/add_prefix.tcl b/Plugins/DbSqliteWx/add_prefix.tcl
deleted file mode 100644
index 74e3e9f..0000000
--- a/Plugins/DbSqliteWx/add_prefix.tcl
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/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
-}