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