diff options
Diffstat (limited to 'Plugins/DbSqliteSystemData/fix_files.tcl')
| -rw-r--r-- | Plugins/DbSqliteSystemData/fix_files.tcl | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/Plugins/DbSqliteSystemData/fix_files.tcl b/Plugins/DbSqliteSystemData/fix_files.tcl deleted file mode 100644 index d67abd0..0000000 --- a/Plugins/DbSqliteSystemData/fix_files.tcl +++ /dev/null @@ -1,37 +0,0 @@ -#!/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 -} |
