1#!/usr/bin/tclsh 2# 3# To build a single huge source file holding all of SQLite (or at 4# least the core components - the test harness, shell, and TCL 5# interface are omitted.) first do 6# 7# make target_source 8# 9# The make target above moves all of the source code files into 10# a subdirectory named "tsrc". (This script expects to find the files 11# there and will not work if they are not found.) There are a few 12# generated C code files that are also added to the tsrc directory. 13# For example, the "parse.c" and "parse.h" files to implement the 14# the parser are derived from "parse.y" using lemon. And the 15# "keywordhash.h" files is generated by a program named "mkkeywordhash". 16# 17# After the "tsrc" directory has been created and populated, run 18# this script: 19# 20# tclsh mksqlite3c.tcl 21# 22# The amalgamated SQLite code will be written into sqlite3.c 23# 24 25# Begin by reading the "sqlite3.h" header file. Count the number of lines 26# in this file and extract the version number. That information will be 27# needed in order to generate the header of the amalgamation. 28# 29set in [open tsrc/sqlite3.h] 30set cnt 0 31set VERSION ????? 32while {![eof $in]} { 33 set line [gets $in] 34 if {$line=="" && [eof $in]} break 35 incr cnt 36 regexp {#define\s+SQLITE_VERSION\s+"(.*)"} $line all VERSION 37} 38close $in 39 40# Open the output file and write a header comment at the beginning 41# of the file. 42# 43set out [open sqlite3internal.h w] 44set today [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S UTC" -gmt 1] 45puts $out [subst \ 46{/****************************************************************************** 47** This file is an amalgamation of many private header files from SQLite 48** version $VERSION. 49*/}] 50 51# These are the header files used by SQLite. The first time any of these 52# files are seen in a #include statement in the C code, include the complete 53# text of the file in-line. The file only needs to be included once. 54# 55foreach hdr { 56 btree.h 57 btreeInt.h 58 hash.h 59 hwtime.h 60 keywordhash.h 61 opcodes.h 62 os_common.h 63 os.h 64 os_os2.h 65 pager.h 66 parse.h 67 sqlite3ext.h 68 sqlite3.h 69 sqliteInt.h 70 sqliteLimit.h 71 vdbe.h 72 vdbeInt.h 73} { 74 set available_hdr($hdr) 1 75} 76 77# 78 stars used for comment formatting. 78set s78 \ 79{*****************************************************************************} 80 81# Insert a comment into the code 82# 83proc section_comment {text} { 84 global out s78 85 set n [string length $text] 86 set nstar [expr {60 - $n}] 87 set stars [string range $s78 0 $nstar] 88 puts $out "/************** $text $stars/" 89} 90 91# Read the source file named $filename and write it into the 92# sqlite3.c output file. If any #include statements are seen, 93# process them approprately. 94# 95proc copy_file {filename} { 96 global seen_hdr available_hdr out 97 set tail [file tail $filename] 98 section_comment "Begin file $tail" 99 set in [open $filename r] 100 while {![eof $in]} { 101 set line [gets $in] 102 if {[regexp {^#\s*include\s+["<]([^">]+)[">]} $line all hdr]} { 103 if {[info exists available_hdr($hdr)]} { 104 if {$available_hdr($hdr)} { 105 section_comment "Include $hdr in the middle of $tail" 106 copy_file tsrc/$hdr 107 section_comment "Continuing where we left off in $tail" 108 } 109 } elseif {![info exists seen_hdr($hdr)]} { 110 set seen_hdr($hdr) 1 111 puts $out $line 112 } 113 } elseif {[regexp {^#ifdef __cplusplus} $line]} { 114 puts $out "#if 0" 115 } elseif {[regexp {^#line} $line]} { 116 # Skip #line directives. 117 } else { 118 puts $out $line 119 } 120 } 121 close $in 122 section_comment "End of $tail" 123} 124 125 126# Process the source files. Process files containing commonly 127# used subroutines first in order to help the compiler find 128# inlining opportunities. 129# 130foreach file { 131 sqliteInt.h 132 sqlite3.h 133 btree.h 134 hash.h 135 os.h 136 pager.h 137 parse.h 138 sqlite3ext.h 139 vdbe.h 140} { 141 if {$available_hdr($file)} { 142 copy_file tsrc/$file 143 } 144} 145 146close $out 147