aa62d2e48f
from version control and update the makefiles to build it automatically. FossilOrigin-Name: 36acc0a97fdcc6f54f29c68c4e131702f69c3e59e58237ff4e5c647928699956
54 lines
2.0 KiB
Tcl
54 lines
2.0 KiB
Tcl
#!/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]
|
|
while {1} {
|
|
set lx [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 [gets $in2]
|
|
if {[regexp {^#include "sqlite} $lx]} continue
|
|
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
|