mirror of
https://github.com/sqlite/sqlite.git
synced 2024-11-24 16:18:08 +01:00
91ed9ce0dd
sqlite3.c amalgamation. FossilOrigin-Name: 38d2e510cdedf38153466b161c0842b1604aef7b5589c51f628ae7cbb6a8722a
22 lines
571 B
Tcl
Executable File
22 lines
571 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
#
|
|
# Given an sqlite3.c source file identified by the command-line
|
|
# argument, extract the "sqlite3.h" header file that is embedded inside
|
|
# the sqlite3.c source file and write it to standard output.
|
|
#
|
|
if {[llength $argv]!=1} {
|
|
puts stderr "Usage: $argv0 sqlite3.c >sqlite3.h"
|
|
exit 1
|
|
}
|
|
set in [open [lindex $argv 0] rb]
|
|
while {![eof $in]} {
|
|
set line [gets $in]
|
|
if {[string match {* Begin file sqlite3.h *} $line]} break
|
|
}
|
|
while {![eof $in]} {
|
|
set line [gets $in]
|
|
if {[string match {* End of sqlite3.h *} $line]} break
|
|
puts $line
|
|
}
|
|
close $in
|