OLD | NEW |
1 #!/bin/sh | 1 #!/bin/sh |
2 # restart with tclsh \ | 2 # restart with tclsh \ |
3 exec tclsh "$0" "$@" | 3 exec tclsh "$0" "$@" |
4 | 4 |
5 set srcdir [file dirname [file dirname [info script]]] | 5 set srcdir [file dirname [file dirname [info script]]] |
6 set G(src) [string map [list %dir% $srcdir] { | 6 set G(src) [string map [list %dir% $srcdir] { |
7 %dir%/fts5.h | 7 %dir%/fts5.h |
8 %dir%/fts5Int.h | 8 %dir%/fts5Int.h |
9 fts5parse.h | 9 fts5parse.h |
10 fts5parse.c | 10 fts5parse.c |
(...skipping 93 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
104 puts -nonewline $G(fd) $G(footer) | 104 puts -nonewline $G(fd) $G(footer) |
105 if {$G(fd)!="stdout"} { | 105 if {$G(fd)!="stdout"} { |
106 close $G(fd) | 106 close $G(fd) |
107 } | 107 } |
108 } | 108 } |
109 | 109 |
110 | 110 |
111 fts5c_init fts5.c | 111 fts5c_init fts5.c |
112 foreach f $G(src) { fts5c_printfile $f } | 112 foreach f $G(src) { fts5c_printfile $f } |
113 fts5c_close | 113 fts5c_close |
OLD | NEW |