xref: /sqlite-3.40.0/ext/lsm1/tool/mklsm1c.tcl (revision 62128540) 
1#!/bin/sh
2# restart with tclsh \
3exec tclsh "$0" "$@"
4
5set srcdir [file dirname [file dirname [info script]]]
6set G(src) [string map [list %dir% $srcdir] {
7  %dir%/lsm.h
8  %dir%/lsmInt.h
9  %dir%/lsm_vtab.c
10  %dir%/lsm_ckpt.c
11  %dir%/lsm_file.c
12  %dir%/lsm_log.c
13  %dir%/lsm_main.c
14  %dir%/lsm_mem.c
15  %dir%/lsm_mutex.c
16  %dir%/lsm_shared.c
17  %dir%/lsm_sorted.c
18  %dir%/lsm_str.c
19  %dir%/lsm_tree.c
20  %dir%/lsm_unix.c
21  %dir%/lsm_varint.c
22  %dir%/lsm_win32.c
23}]
24
25set G(hdr) {
26
27#if !defined(SQLITE_CORE) || defined(SQLITE_ENABLE_LSM1)
28
29#if !defined(NDEBUG) && !defined(SQLITE_DEBUG)
30# define NDEBUG 1
31#endif
32#if defined(NDEBUG) && defined(SQLITE_DEBUG)
33# undef NDEBUG
34#endif
35
36}
37
38set G(footer) {
39
40#endif /* !defined(SQLITE_CORE) || defined(SQLITE_ENABLE_LSM1) */
41}
42
43#-------------------------------------------------------------------------
44# Read and return the entire contents of text file $zFile from disk.
45#
46proc readfile {zFile} {
47  set fd [open $zFile]
48  set data [read $fd]
49  close $fd
50  return $data
51}
52
53proc lsm1c_init {zOut} {
54  global G
55  set G(fd) stdout
56  set G(fd) [open $zOut w]
57
58  puts -nonewline $G(fd) $G(hdr)
59}
60
61proc lsm1c_printfile {zIn} {
62  global G
63  set data [readfile $zIn]
64  set zTail [file tail $zIn]
65  puts $G(fd) "#line 1 \"$zTail\""
66
67  foreach line [split $data "\n"] {
68    if {[regexp {^# *include.*lsm} $line]} {
69      set line "/* $line */"
70    } elseif { [regexp {^(const )?[a-zA-Z][a-zA-Z0-9]* [*]?lsm[^_]} $line] } {
71      set line "static $line"
72    }
73    puts $G(fd) $line
74  }
75}
76
77proc lsm1c_close {} {
78  global G
79  puts -nonewline $G(fd) $G(footer)
80  if {$G(fd)!="stdout"} {
81    close $G(fd)
82  }
83}
84
85
86lsm1c_init lsm1.c
87foreach f $G(src) { lsm1c_printfile $f }
88lsm1c_close
89