81e78726eb
Originally, the sqlite installation was imported into the MaxScale repository in the one gigantic MaxScale 1.4 -> 2.0 commit. Consequently, there is no import commit to compare to if you want to extract all MaxScale specific changes. To make it simpler in the future, sqlite will now be imported in a commit of its own.
21 lines
557 B
Tcl
21 lines
557 B
Tcl
#!/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
|
|
}
|