← Back to branch summary

~ubuntu-branches/ubuntu/saucy/db/saucy-proposed

« back to all changes in this revision

Viewing changes to sql/sqlite/ext/fts3/mkfts3amal.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Colin Watson
  • Date: 2010-10-25 22:16:35 UTC
  • mfrom: (13.1.11 sid)
  • Revision ID: james.westby@ubuntu.com-20101025221635-k0o38lxdx9kle3mh
Tags: 5.0.26-3ubuntu1
* Resynchronise with Debian.  Remaining changes:
  - Pass --build/--host to configure to support cross-building, and don't
    override CC.
  - Disable the Java build when cross-building, for now.

Show diffs side-by-side

added added

removed removed

Lines of Context:
sql/sqlite/ext/fts3/mkfts3amal.tcl
 
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