| 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 |