59 lines
750 B
Awk
59 lines
750 B
Awk
|
#!/usr/bin/gawk -f
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
FNR == 1 {
|
||
|
|
if (_filename_ != "")
|
||
|
|
endfile(_filename_)
|
||
|
|
_filename_ = FILENAME
|
||
|
|
#print "processing: " FILENAME >"/dev/stderr"
|
||
|
|
beginfile(FILENAME)
|
||
|
|
}
|
||
|
|
|
||
|
|
END { endfile(_filename_) }
|
||
|
|
|
||
|
|
###### begin user code ########################
|
||
|
|
|
||
|
|
BEGIN{
|
||
|
|
}
|
||
|
|
|
||
|
|
/if(.*) *my_free/{
|
||
|
|
$0 = gensub(/( +)(if\(.*\) +)(my_free.*)/, "\\1\\3","1")
|
||
|
|
found = 1
|
||
|
|
}
|
||
|
|
|
||
|
|
function replace_pattern(old, new)
|
||
|
|
{
|
||
|
|
if($0 ~ old) {
|
||
|
|
gsub(old, new)
|
||
|
|
found = 1
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
###### end user code ########################
|
||
|
|
|
||
|
|
|
||
|
|
{
|
||
|
|
__a[__lines++] = $0
|
||
|
|
}
|
||
|
|
|
||
|
|
function beginfile(f)
|
||
|
|
{
|
||
|
|
__lines=0
|
||
|
|
found=0
|
||
|
|
}
|
||
|
|
|
||
|
|
function endfile(f, i)
|
||
|
|
{
|
||
|
|
if(found) {
|
||
|
|
print "patching: " f >"/dev/stderr"
|
||
|
|
for(i=0;i<__lines;i++)
|
||
|
|
{
|
||
|
|
print __a[i] > f
|
||
|
|
}
|
||
|
|
close(f)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|