Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 116 lines (107 sloc) 3.378 kB
617ed01 @sjlombardo commit of sqlite 3.6.0
sjlombardo authored
1 #!/usr/bin/tclsh
2 #
3 # This script builds a single C code file holding all of FTS3 code.
4 # The name of the output file is fts3amal.c. To build this file,
5 # 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.)
12 #
13 # After the "tsrc" directory has been created and populated, run
14 # this script:
15 #
16 # tclsh mkfts3amal.tcl
17 #
18 # The amalgamated FTS3 code will be written into fts3amal.c
19 #
20
21 # Open the output file and write a header comment at the beginning
22 # of the file.
23 #
24 set out [open fts3amal.c w]
25 set today [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S UTC" -gmt 1]
26 puts $out [subst \
27 {/******************************************************************************
28 ** This file is an amalgamation of separate C source files from the SQLite
29 ** Full Text Search extension 2 (fts3). By combining all the individual C
30 ** code files into this single large file, the entire code can be compiled
31 ** as a one translation unit. This allows many compilers to do optimizations
32 ** that would not be possible if the files were compiled separately. It also
33 ** makes the code easier to import into other projects.
34 **
35 ** This amalgamation was generated on $today.
36 */}]
37
38 # These are the header files used by FTS3. The first time any of these
39 # files are seen in a #include statement in the C code, include the complete
40 # text of the file in-line. The file only needs to be included once.
41 #
42 foreach hdr {
43 fts3.h
44 fts3_hash.h
45 fts3_tokenizer.h
46 sqlite3.h
47 sqlite3ext.h
48 } {
49 set available_hdr($hdr) 1
50 }
51
52 # 78 stars used for comment formatting.
53 set s78 \
54 {*****************************************************************************}
55
56 # Insert a comment into the code
57 #
58 proc section_comment {text} {
59 global out s78
60 set n [string length $text]
61 set nstar [expr {60 - $n}]
62 set stars [string range $s78 0 $nstar]
63 puts $out "/************** $text $stars/"
64 }
65
66 # Read the source file named $filename and write it into the
67 # sqlite3.c output file. If any #include statements are seen,
68 # process them approprately.
69 #
70 proc copy_file {filename} {
71 global seen_hdr available_hdr out
72 set tail [file tail $filename]
73 section_comment "Begin file $tail"
74 set in [open $filename r]
75 while {![eof $in]} {
76 set line [gets $in]
77 if {[regexp {^#\s*include\s+["<]([^">]+)[">]} $line all hdr]} {
78 if {[info exists available_hdr($hdr)]} {
79 if {$available_hdr($hdr)} {
80 section_comment "Include $hdr in the middle of $tail"
81 copy_file tsrc/$hdr
82 section_comment "Continuing where we left off in $tail"
83 }
84 } elseif {![info exists seen_hdr($hdr)]} {
85 set seen_hdr($hdr) 1
86 puts $out $line
87 }
88 } elseif {[regexp {^#ifdef __cplusplus} $line]} {
89 puts $out "#if 0"
90 } elseif {[regexp {^#line} $line]} {
91 # Skip #line directives.
92 } else {
93 puts $out $line
94 }
95 }
96 close $in
97 section_comment "End of $tail"
98 }
99
100
101 # Process the source files. Process files containing commonly
102 # used subroutines first in order to help the compiler find
103 # inlining opportunities.
104 #
105 foreach file {
106 fts3.c
107 fts3_hash.c
108 fts3_porter.c
109 fts3_tokenizer.c
110 fts3_tokenizer1.c
111 } {
112 copy_file tsrc/$file
113 }
114
115 close $out
Something went wrong with that request. Please try again.