diff options
Diffstat (limited to 'Plugins/DbSqliteSystemData/fix_files.sh')
| -rw-r--r-- | Plugins/DbSqliteSystemData/fix_files.sh | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Plugins/DbSqliteSystemData/fix_files.sh b/Plugins/DbSqliteSystemData/fix_files.sh new file mode 100644 index 0000000..fcc7505 --- /dev/null +++ b/Plugins/DbSqliteSystemData/fix_files.sh @@ -0,0 +1,41 @@ +#!/usr/bin/env tclsh + +proc process {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/ ""] $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_extension-functions.c + systemdata_crypt.c +} { + process $f +} + +# Concat +set targetFile systemdata_sqlite3.c +set srcFiles { + systemdata_interop.c + systemdata_crypt.c + systemdata_extension-functions.c +} + +set trgFd [open $targetFile a+] +foreach f $srcFiles { + set fd [open $f r] + puts $trgFd [read $fd] + close $fd +} +close $trgFd |
