| Index: third_party/sqlite/sqlite-src-3100200/tool/replace.tcl
|
| diff --git a/third_party/sqlite/sqlite-src-3100200/tool/replace.tcl b/third_party/sqlite/sqlite-src-3100200/tool/replace.tcl
|
| deleted file mode 100644
|
| index b01a83accb8c158ecb8e10ae4b8b2221856326ad..0000000000000000000000000000000000000000
|
| --- a/third_party/sqlite/sqlite-src-3100200/tool/replace.tcl
|
| +++ /dev/null
|
| @@ -1,20 +0,0 @@
|
| -#!/usr/bin/tcl
|
| -#
|
| -# Replace string with another string -OR- include
|
| -# only lines successfully modified with a regular
|
| -# expression.
|
| -#
|
| -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 {[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]}
|
| - include {if {[regsub -all -- $from $line $to line]==0} continue}
|
| - }
|
| - puts stdout $line
|
| -}
|
|
|