diff options
| author | 2021-12-17 07:06:30 -0500 | |
|---|---|---|
| committer | 2021-12-17 07:06:30 -0500 | |
| commit | 1fdc150116cad39aae5c5da407c3312b47a59e3a (patch) | |
| tree | 123c79a4d7ad2d45781ba03ce939f7539fb428d8 /Plugins/DbSqliteWx/add_prefix.tcl | |
| parent | feda8a7db8d1d7c5439aa8f8feef7cc0dd2b59a0 (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.tcl | 29 |
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 -} |
