1#!/usr/bin/tclsh 2# 3# Given an sqlite3.c source file identified by the command-line 4# argument, extract the "sqlite3.h" header file that is embedded inside 5# the sqlite3.c source file and write it to standard output. 6# 7if {[llength $argv]!=1} { 8 puts stderr "Usage: $argv0 sqlite3.c >sqlite3.h" 9 exit 1 10} 11set in [open [lindex $argv 0] rb] 12while {![eof $in]} { 13 set line [gets $in] 14 if {[string match {* Begin file sqlite3.h *} $line]} break 15} 16while {![eof $in]} { 17 set line [gets $in] 18 if {[string match {* End of sqlite3.h *} $line]} break 19 puts $line 20} 21close $in 22