1#!/usr/bin/tclsh 2# 3# Run this script to generate the "shell.c" source file from 4# constituent parts. 5# 6# No arguments are required. This script determines the location 7# of its input files relative to the location of the script itself. 8# This script should be tool/mkshellc.tcl. If the directory holding 9# the script is $DIR, then the component parts are located in $DIR/../src 10# and $DIR/../ext/misc. 11# 12set topdir [file dir [file dir [file normal $argv0]]] 13set out stdout 14fconfigure stdout -translation binary 15puts $out {/* DO NOT EDIT! 16** This file is automatically generated by the script in the canonical 17** SQLite source tree at tool/mkshellc.tcl. That script combines source 18** code from various constituent source files of SQLite into this single 19** "shell.c" file used to implement the SQLite command-line shell. 20** 21** Most of the code found below comes from the "src/shell.c.in" file in 22** the canonical SQLite source tree. That main file contains "INCLUDE" 23** lines that specify other files in the canonical source tree that are 24** inserted to getnerate this complete program source file. 25** 26** The code from multiple files is combined into this single "shell.c" 27** source file to help make the command-line program easier to compile. 28** 29** To modify this program, get a copy of the canonical SQLite source tree, 30** edit the src/shell.c.in" and/or some of the other files that are included 31** by "src/shell.c.in", then rerun the tool/mkshellc.tcl script. 32*/} 33set in [open $topdir/src/shell.c.in] 34fconfigure $in -translation binary 35proc omit_redundant_typedefs {line} { 36 global typedef_seen 37 if {[regexp {^typedef .*\y([a-zA-Z0-9_]+);} $line all typename]} { 38 if {[info exists typedef_seen($typename)]} { 39 return "/* [string map {/* // */ //} $line] */" 40 } 41 set typedef_seen($typename) 1 42 } 43 return $line 44} 45set iLine 0 46while {1} { 47 set lx [omit_redundant_typedefs [gets $in]] 48 if {[eof $in]} break; 49 incr iLine 50 if {[regexp {^INCLUDE } $lx]} { 51 set cfile [lindex $lx 1] 52 puts $out "/************************* Begin $cfile ******************/" 53# puts $out "#line 1 \"$cfile\"" 54 set in2 [open $topdir/src/$cfile] 55 fconfigure $in2 -translation binary 56 while {![eof $in2]} { 57 set lx [omit_redundant_typedefs [gets $in2]] 58 if {[regexp {^#include "sqlite} $lx]} { 59 set lx "/* $lx */" 60 } 61 if {[regexp {^# *include "test_windirent.h"} $lx]} { 62 set lx "/* $lx */" 63 } 64 set lx [string map [list __declspec(dllexport) {}] $lx] 65 puts $out $lx 66 } 67 close $in2 68 puts $out "/************************* End $cfile ********************/" 69# puts $out "#line [expr $iLine+1] \"shell.c.in\"" 70 continue 71 } 72 puts $out $lx 73} 74close $in 75close $out 76