1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#!/usr/bin/perl
# This file is part of Coccinelle, licensed under the terms of the GPL v2.
# See copyright.txt in the Coccinelle source code for more information.
# The Coccinelle source code can be obtained at http://coccinelle.lip6.fr
#
# ARGV: 0 = replacement text, 1 = file w. list of files
#
$debug = 0;
$retain = 1; # 1 = retain old status
#----------------------------------------------------------------------
$header = 0; # 0 = not seen header yet; 1 = seen beginning; 2 = seen end
$currentfile = "";
$currentstatus = "";
$oldstatus = "";
@files = ();
# Get replacement text
$replace = shift;
# Get files of interest
open(FILES,shift);
@files = <FILES>;
close(FILES);
# Remove file name suffixes
foreach $_ (@files) {
s/^([^.]+)\..+$/\1/;
chop;
print "--> added [$_]\n" if $debug;
}
# Process std. input
while(<>) {
# Find an ignore header
if(/^-+$/) {
$header = $header + 1;
}
#
if($header > 1) {
# Filename
if(/^([0-9a-zA-Z_-]+)\.c\s*$/) {
$currentfile = $1;
$currentstatus = "";
print "--> currentfile: [$currentfile]\n" if $debug;
}
# Status code
if(/^(\s+\*\s+)\[status\]([ \t\f]*)(\S*)$/) {
$currentstatus = $3;
print "--> $currentfile [$currentstatus]\n" if $debug;
if(grep {/^$currentfile$/} @files) {
s/^(\s+\*\s+\[status\])[ \t\f]*(.*)$/\1 $replace/;
print "==>" if $debug;
if($retain && ($currentstatus ne "")) {
$oldstatus = " * [old-status] $currentstatus\n";
}
}
$currentfile ="";
}
}
#
print "$_";
if($oldstatus ne "") {
print $oldstatus;
$oldstatus = "";
}
}
|
