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