blob: 008ec34cf86ef37b6f5292da07d93cb8976521e7 (
plain)
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
|
#!/usr/bin/env perl
#
# $FML: .gen_todo.pl,v 1.2 2003/03/06 04:19:39 fukachan Exp $
#
use strict;
use Carp;
my $function;
my $todo = {};
my $KEY = "__FILE_GLOBAL__";
my $all = 0;
my $prev = 0;
while (<>) {
if (/^sub (\S+)/o) {
$function = $1;
}
if (/^sub .*\}/o || /^\}/o) {
$function = $KEY;
$prev = 0;
}
next if /XXX-TODO.*curproc->util->/ && (! $all);
if (/(XXX-TODO:|XXX-TODO)\s*(.*)\s*$/o) {
my ($xtodo) = $2;
$todo->{ $ARGV }->{ $function } .=
abs($.-$prev) == 1 ? "\t\t" : "\t[TODO]\t";
$todo->{ $ARGV }->{ $function } .= $xtodo;
$todo->{ $ARGV }->{ $function } .= "\n";
$prev = $.;
}
}
for my $file (sort keys %$todo) {
my $hash = $todo->{ $file };
$file =~ s@lib//@@g;
printf "\n%s\n", $file;
for my $k (keys %$hash) {
if ($k eq $KEY) {
my $buf = $hash->{ $k };
$buf =~ s/^\t/ [GLOBL]/g;
print $buf;
}
else {
printf " sub %s\n%s\n", $k, $hash->{ $k };
}
}
}
exit 0;
|
