| Index: third_party/sqlite/sqlite-src-3100200/ext/fts5/tool/mkfts5c.tcl
|
| diff --git a/third_party/sqlite/sqlite-src-3100200/ext/fts5/tool/mkfts5c.tcl b/third_party/sqlite/sqlite-src-3100200/ext/fts5/tool/mkfts5c.tcl
|
| deleted file mode 100644
|
| index 797811d46e201c2c74d8055747d4191e88251829..0000000000000000000000000000000000000000
|
| --- a/third_party/sqlite/sqlite-src-3100200/ext/fts5/tool/mkfts5c.tcl
|
| +++ /dev/null
|
| @@ -1,113 +0,0 @@
|
| -#!/bin/sh
|
| -# restart with tclsh \
|
| -exec tclsh "$0" "$@"
|
| -
|
| -set srcdir [file dirname [file dirname [info script]]]
|
| -set G(src) [string map [list %dir% $srcdir] {
|
| - %dir%/fts5.h
|
| - %dir%/fts5Int.h
|
| - fts5parse.h
|
| - fts5parse.c
|
| - %dir%/fts5_aux.c
|
| - %dir%/fts5_buffer.c
|
| - %dir%/fts5_config.c
|
| - %dir%/fts5_expr.c
|
| - %dir%/fts5_hash.c
|
| - %dir%/fts5_index.c
|
| - %dir%/fts5_main.c
|
| - %dir%/fts5_storage.c
|
| - %dir%/fts5_tokenize.c
|
| - %dir%/fts5_unicode2.c
|
| - %dir%/fts5_varint.c
|
| - %dir%/fts5_vocab.c
|
| -}]
|
| -
|
| -set G(hdr) {
|
| -
|
| -#if !defined(SQLITE_CORE) || defined(SQLITE_ENABLE_FTS5)
|
| -
|
| -#if !defined(NDEBUG) && !defined(SQLITE_DEBUG)
|
| -# define NDEBUG 1
|
| -#endif
|
| -#if defined(NDEBUG) && defined(SQLITE_DEBUG)
|
| -# undef NDEBUG
|
| -#endif
|
| -
|
| -}
|
| -
|
| -set G(footer) {
|
| -
|
| -#endif /* !defined(SQLITE_CORE) || defined(SQLITE_ENABLE_FTS5) */
|
| -}
|
| -
|
| -#-------------------------------------------------------------------------
|
| -# Read and return the entire contents of text file $zFile from disk.
|
| -#
|
| -proc readfile {zFile} {
|
| - set fd [open $zFile]
|
| - set data [read $fd]
|
| - close $fd
|
| - return $data
|
| -}
|
| -
|
| -#-------------------------------------------------------------------------
|
| -# This command returns a string identifying the current sqlite version -
|
| -# the equivalent of the SQLITE_SOURCE_ID string.
|
| -#
|
| -proc fts5_source_id {zDir} {
|
| - set top [file dirname [file dirname $zDir]]
|
| - set uuid [string trim [readfile [file join $top manifest.uuid]]]
|
| -
|
| - set L [split [readfile [file join $top manifest]]]
|
| - set date [lindex $L [expr [lsearch -exact $L D]+1]]
|
| - set date [string range $date 0 [string last . $date]-1]
|
| - set date [string map {T { }} $date]
|
| -
|
| - return "fts5: $date $uuid"
|
| -}
|
| -
|
| -proc fts5c_init {zOut} {
|
| - global G
|
| - set G(fd) stdout
|
| - set G(fd) [open $zOut w]
|
| -
|
| - puts -nonewline $G(fd) $G(hdr)
|
| -}
|
| -
|
| -proc fts5c_printfile {zIn} {
|
| - global G
|
| - set data [readfile $zIn]
|
| - set zTail [file tail $zIn]
|
| - puts $G(fd) "#line 1 \"$zTail\""
|
| -
|
| - set sub_map [list --FTS5-SOURCE-ID-- [fts5_source_id $::srcdir]]
|
| - if {$zTail=="fts5parse.c"} {
|
| - lappend sub_map yy fts5yy YY fts5YY TOKEN FTS5TOKEN
|
| - }
|
| -
|
| - foreach line [split $data "\n"] {
|
| - if {[regexp {^#include.*fts5} $line]} {
|
| - set line "/* $line */"
|
| - } elseif {
|
| - ![regexp { sqlite3Fts5Init\(} $line]
|
| - && [regexp {^(const )?[a-zA-Z][a-zA-Z0-9]* [*]?sqlite3Fts5} $line]
|
| - } {
|
| - set line "static $line"
|
| - }
|
| - set line [string map $sub_map $line]
|
| - puts $G(fd) $line
|
| - }
|
| -}
|
| -
|
| -proc fts5c_close {} {
|
| - global G
|
| - puts -nonewline $G(fd) $G(footer)
|
| - if {$G(fd)!="stdout"} {
|
| - close $G(fd)
|
| - }
|
| -}
|
| -
|
| -
|
| -fts5c_init fts5.c
|
| -foreach f $G(src) { fts5c_printfile $f }
|
| -fts5c_close
|
|
|