blob: fcc7505241537aee9d513c02ccf2ead130c6b977 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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
|
