File: lint-fsck-msgids.perl

package info (click to toggle)
git 1%3A2.50.1-0.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 61,696 kB
  • sloc: ansic: 302,907; sh: 260,696; perl: 27,874; tcl: 22,303; makefile: 4,280; python: 3,442; javascript: 772; csh: 45; lisp: 12
file content (70 lines) | stat: -rwxr-xr-x 1,501 bytes parent folder | download | duplicates (5)
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
#!/usr/bin/perl

my ($fsck_h, $fsck_msgids_txt, $okfile) = @ARGV;

my (%in_fsck_h, $fh, $bad);

open($fh, "<", "$fsck_h") or die;
while (<$fh>) {
	if (/^\s+FUNC\(([0-9A-Z_]+), ([A-Z]+)\)/) {
		my ($name, $severity) = ($1, $2);
		my ($first) = 1;
		$name = join('',
			     map {
				     y/A-Z/a-z/;
				     if (!$first) {
					     s/^(.)/uc($1)/e;
				     } else {
					     $first = 0;
				     }
				     $_;
			     }
			     split(/_/, $name));
		$in_fsck_h{$name} = $severity;
	}
}
close($fh);

open($fh, "<", "$fsck_msgids_txt") or die;
my ($previous, $current);
while (<$fh>) {
	if (!defined $current) {
		if (/^\`([a-zA-Z0-9]*)\`::/) {
			$current = $1;
			if ((defined $previous) &&
			    ($current le $previous)) {
				print STDERR "$previous >= $current in doc\n";
				$bad = 1;
			}
		}
	} elsif (/^\s+\(([A-Z]+)\) /) {
		my ($level) = $1;
		if (!exists $in_fsck_h{$current}) {
			print STDERR "$current does not exist in fsck.h\n";
			$bad = 1;
		} elsif ($in_fsck_h{$current} eq "") {
			print STDERR "$current defined twice\n";
			$bad = 1;
		} elsif ($in_fsck_h{$current} ne $level) {
			print STDERR "$current severity $level != $in_fsck_h{$current}\n";
			$bad = 1;
		}
		$previous = $current;
		$in_fsck_h{$current} = ""; # mark as seen.
		undef $current;
	}
}
close($fh);

for my $key (keys %in_fsck_h) {
	if ($in_fsck_h{$key} ne "") {
		print STDERR "$key not explained in doc.\n";
		$bad = 1;
	}
}

die if ($bad);

open($fh, ">", "$okfile");
print $fh "good\n";
close($fh);