Contents of /alx-src/tags/kernel26-2.6.12-alx-r9/scripts/checkversion.pl
Parent Directory | Revision Log
Revision 630 -
(show annotations)
(download)
Wed Mar 4 11:03:09 2009 UTC (15 years, 2 months ago) by niro
File MIME type: text/plain
File size: 1905 byte(s)
Wed Mar 4 11:03:09 2009 UTC (15 years, 2 months ago) by niro
File MIME type: text/plain
File size: 1905 byte(s)
Tag kernel26-2.6.12-alx-r9
1 | #! /usr/bin/perl |
2 | # |
3 | # checkversion find uses of LINUX_VERSION_CODE, KERNEL_VERSION, or |
4 | # UTS_RELEASE without including <linux/version.h>, or cases of |
5 | # including <linux/version.h> that don't need it. |
6 | # Copyright (C) 2003, Randy Dunlap <rddunlap@osdl.org> |
7 | |
8 | $| = 1; |
9 | |
10 | my $debugging = 0; |
11 | |
12 | foreach $file (@ARGV) |
13 | { |
14 | # Open this file. |
15 | open(FILE, $file) || die "Can't open $file: $!\n"; |
16 | |
17 | # Initialize variables. |
18 | my $fInComment = 0; |
19 | my $fInString = 0; |
20 | my $fUseVersion = 0; |
21 | my $iLinuxVersion = 0; |
22 | |
23 | LINE: while ( <FILE> ) |
24 | { |
25 | # Strip comments. |
26 | $fInComment && (s+^.*?\*/+ +o ? ($fInComment = 0) : next); |
27 | m+/\*+o && (s+/\*.*?\*/+ +go, (s+/\*.*$+ +o && ($fInComment = 1))); |
28 | |
29 | # Pick up definitions. |
30 | if ( m/^\s*#/o ) { |
31 | $iLinuxVersion = $. if m/^\s*#\s*include\s*"linux\/version\.h"/o; |
32 | } |
33 | |
34 | # Strip strings. |
35 | $fInString && (s+^.*?"+ +o ? ($fInString = 0) : next); |
36 | m+"+o && (s+".*?"+ +go, (s+".*$+ +o && ($fInString = 1))); |
37 | |
38 | # Pick up definitions. |
39 | if ( m/^\s*#/o ) { |
40 | $iLinuxVersion = $. if m/^\s*#\s*include\s*<linux\/version\.h>/o; |
41 | } |
42 | |
43 | # Look for uses: LINUX_VERSION_CODE, KERNEL_VERSION, UTS_RELEASE |
44 | if (($_ =~ /LINUX_VERSION_CODE/) || ($_ =~ /\WKERNEL_VERSION/) || |
45 | ($_ =~ /UTS_RELEASE/)) { |
46 | $fUseVersion = 1; |
47 | last LINE if $iLinuxVersion; |
48 | } |
49 | } |
50 | |
51 | # Report used version IDs without include? |
52 | if ($fUseVersion && ! $iLinuxVersion) { |
53 | print "$file: $.: need linux/version.h\n"; |
54 | } |
55 | |
56 | # Report superfluous includes. |
57 | if ($iLinuxVersion && ! $fUseVersion) { |
58 | print "$file: $iLinuxVersion linux/version.h not needed.\n"; |
59 | } |
60 | |
61 | # debug: report OK results: |
62 | if ($debugging) { |
63 | if ($iLinuxVersion && $fUseVersion) { |
64 | print "$file: version use is OK ($iLinuxVersion)\n"; |
65 | } |
66 | if (! $iLinuxVersion && ! $fUseVersion) { |
67 | print "$file: version use is OK (none)\n"; |
68 | } |
69 | } |
70 | |
71 | close(FILE); |
72 | } |
Properties
Name | Value |
---|---|
svn:executable | * |