Root/
1 | #! /usr/bin/perl |
2 | # |
3 | # checkversion find uses of LINUX_VERSION_CODE or KERNEL_VERSION |
4 | # without including <linux/version.h>, or cases of |
5 | # including <linux/version.h> that don't need it. |
6 | # Copyright (C) 2003, Randy Dunlap <rdunlap@xenotime.net> |
7 | |
8 | use strict; |
9 | |
10 | $| = 1; |
11 | |
12 | my $debugging; |
13 | |
14 | foreach my $file (@ARGV) { |
15 | # Open this file. |
16 | open( my $f, '<', $file ) |
17 | or die "Can't open $file: $!\n"; |
18 | |
19 | # Initialize variables. |
20 | my ($fInComment, $fInString, $fUseVersion); |
21 | my $iLinuxVersion = 0; |
22 | |
23 | while (<$f>) { |
24 | # Strip comments. |
25 | $fInComment && (s+^.*?\*/+ +o ? ($fInComment = 0) : next); |
26 | m+/\*+o && (s+/\*.*?\*/+ +go, (s+/\*.*$+ +o && ($fInComment = 1))); |
27 | |
28 | # Pick up definitions. |
29 | if ( m/^\s*#/o ) { |
30 | $iLinuxVersion = $. if m/^\s*#\s*include\s*"linux\/version\.h"/o; |
31 | } |
32 | |
33 | # Strip strings. |
34 | $fInString && (s+^.*?"+ +o ? ($fInString = 0) : next); |
35 | m+"+o && (s+".*?"+ +go, (s+".*$+ +o && ($fInString = 1))); |
36 | |
37 | # Pick up definitions. |
38 | if ( m/^\s*#/o ) { |
39 | $iLinuxVersion = $. if m/^\s*#\s*include\s*<linux\/version\.h>/o; |
40 | } |
41 | |
42 | # Look for uses: LINUX_VERSION_CODE, KERNEL_VERSION, UTS_RELEASE |
43 | if (($_ =~ /LINUX_VERSION_CODE/) || ($_ =~ /\WKERNEL_VERSION/)) { |
44 | $fUseVersion = 1; |
45 | last if $iLinuxVersion; |
46 | } |
47 | } |
48 | |
49 | # Report used version IDs without include? |
50 | if ($fUseVersion && ! $iLinuxVersion) { |
51 | print "$file: $.: need linux/version.h\n"; |
52 | } |
53 | |
54 | # Report superfluous includes. |
55 | if ($iLinuxVersion && ! $fUseVersion) { |
56 | print "$file: $iLinuxVersion linux/version.h not needed.\n"; |
57 | } |
58 | |
59 | # debug: report OK results: |
60 | if ($debugging) { |
61 | if ($iLinuxVersion && $fUseVersion) { |
62 | print "$file: version use is OK ($iLinuxVersion)\n"; |
63 | } |
64 | if (! $iLinuxVersion && ! $fUseVersion) { |
65 | print "$file: version use is OK (none)\n"; |
66 | } |
67 | } |
68 | |
69 | close($f); |
70 | } |
71 |
Branches:
ben-wpan
ben-wpan-stefan
javiroman/ks7010
jz-2.6.34
jz-2.6.34-rc5
jz-2.6.34-rc6
jz-2.6.34-rc7
jz-2.6.35
jz-2.6.36
jz-2.6.37
jz-2.6.38
jz-2.6.39
jz-3.0
jz-3.1
jz-3.11
jz-3.12
jz-3.13
jz-3.15
jz-3.16
jz-3.18-dt
jz-3.2
jz-3.3
jz-3.4
jz-3.5
jz-3.6
jz-3.6-rc2-pwm
jz-3.9
jz-3.9-clk
jz-3.9-rc8
jz47xx
jz47xx-2.6.38
master
Tags:
od-2011-09-04
od-2011-09-18
v2.6.34-rc5
v2.6.34-rc6
v2.6.34-rc7
v3.9