diff options
Diffstat (limited to 'chromium/third_party/sqlite/sqlite-src-3240000/tool/mkshellc.tcl')
-rw-r--r-- | chromium/third_party/sqlite/sqlite-src-3240000/tool/mkshellc.tcl | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/chromium/third_party/sqlite/sqlite-src-3240000/tool/mkshellc.tcl b/chromium/third_party/sqlite/sqlite-src-3240000/tool/mkshellc.tcl deleted file mode 100644 index 534ac6156a4..00000000000 --- a/chromium/third_party/sqlite/sqlite-src-3240000/tool/mkshellc.tcl +++ /dev/null @@ -1,66 +0,0 @@ -#!/usr/bin/tclsh -# -# Run this script to generate the "shell.c" source file from -# constituent parts. -# -# No arguments are required. This script determines the location -# of its input files relative to the location of the script itself. -# This script should be tool/mkshellc.tcl. If the directory holding -# the script is $DIR, then the component parts are located in $DIR/../src -# and $DIR/../ext/misc. -# -set topdir [file dir [file dir [file normal $argv0]]] -set out stdout -puts $out {/* DO NOT EDIT! -** This file is automatically generated by the script in the canonical -** SQLite source tree at tool/mkshellc.tcl. That script combines source -** code from various constituent source files of SQLite into this single -** "shell.c" file used to implement the SQLite command-line shell. -** -** Most of the code found below comes from the "src/shell.c.in" file in -** the canonical SQLite source tree. That main file contains "INCLUDE" -** lines that specify other files in the canonical source tree that are -** inserted to getnerate this complete program source file. -** -** The code from multiple files is combined into this single "shell.c" -** source file to help make the command-line program easier to compile. -** -** To modify this program, get a copy of the canonical SQLite source tree, -** edit the src/shell.c.in" and/or some of the other files that are included -** by "src/shell.c.in", then rerun the tool/mkshellc.tcl script. -*/} -set in [open $topdir/src/shell.c.in rb] -proc omit_redundant_typedefs {line} { - global typedef_seen - if {[regexp {^typedef .*;} $line]} { - if {[info exists typedef_seen($line)]} { - return "/* $line */" - } - set typedef_seen($line) 1 - } - return $line -} -while {1} { - set lx [omit_redundant_typedefs [gets $in]] - if {[eof $in]} break; - if {[regexp {^INCLUDE } $lx]} { - set cfile [lindex $lx 1] - puts $out "/************************* Begin $cfile ******************/" - set in2 [open $topdir/src/$cfile rb] - while {![eof $in2]} { - set lx [omit_redundant_typedefs [gets $in2]] - if {[regexp {^#include "sqlite} $lx]} continue - if {[regexp {^# *include "test_windirent.h"} $lx]} { - set lx "/* $lx */" - } - set lx [string map [list __declspec(dllexport) {}] $lx] - puts $out $lx - } - close $in2 - puts $out "/************************* End $cfile ********************/" - continue - } - puts $out $lx -} -close $in -close $out |