diff options
| author | drh <drh@noemail.net> | 2016-07-28 18:55:57 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2016-07-28 18:55:57 +0000 |
| commit | 3a22fdab9a40e54065b36b48daadf00fcffd4565 (patch) | |
| tree | 162ae7a09a5698549f3d14e0ad7d87390ca5a4ef /tool/replace.tcl | |
| parent | a8914faaaa981c87f193eb62477e7ba7d0affeed (diff) | |
| parent | c0bebc1dcfe7711b80d3a3333d35c991849785ed (diff) | |
| download | sqlite-3a22fdab9a40e54065b36b48daadf00fcffd4565.tar.gz sqlite-3a22fdab9a40e54065b36b48daadf00fcffd4565.zip | |
Decorate all interfaces with calling convention macros.
FossilOrigin-Name: fd784887e125bf95f4799ad09cbcba6795173487
Diffstat (limited to 'tool/replace.tcl')
| -rw-r--r-- | tool/replace.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tool/replace.tcl b/tool/replace.tcl index b01a83acc..1ecc6dc7b 100644 --- a/tool/replace.tcl +++ b/tool/replace.tcl @@ -7,13 +7,14 @@ set mode [string tolower [lindex $argv 0]] set from [lindex $argv 1] set to [lindex $argv 2] -if {$mode ni [list exact include]} {exit 1} +if {$mode ni [list exact regsub include]} {exit 1} if {[string length $from]==0} {exit 2} while {![eof stdin]} { set line [gets stdin] if {[eof stdin]} break switch -exact $mode { exact {set line [string map [list $from $to] $line]} + regsub {regsub -all -- $from $line $to line} include {if {[regsub -all -- $from $line $to line]==0} continue} } puts stdout $line |