Root/
Source at commit 2604e7f9a98c27be50a0c3ff7503b6a5ea8f6cfe created 12 years 7 months ago. By Maarten ter Huurne, cpufreq_stats: Support runtime changes to frequency table | |
---|---|
1 | #!/usr/bin/perl -w |
2 | # |
3 | # headers_install prepare the listed header files for use in |
4 | # user space and copy the files to their destination. |
5 | # |
6 | # Usage: headers_install.pl readdir installdir arch [files...] |
7 | # readdir: dir to open files |
8 | # installdir: dir to install the files |
9 | # arch: current architecture |
10 | # arch is used to force a reinstallation when the arch |
11 | # changes because kbuild then detect a command line change. |
12 | # files: list of files to check |
13 | # |
14 | # Step in preparation for users space: |
15 | # 1) Drop all use of compiler.h definitions |
16 | # 2) Drop include of compiler.h |
17 | # 3) Drop all sections defined out by __KERNEL__ (using unifdef) |
18 | |
19 | use strict; |
20 | |
21 | my ($readdir, $installdir, $arch, @files) = @ARGV; |
22 | |
23 | my $unifdef = "scripts/unifdef -U__KERNEL__ -D__EXPORTED_HEADERS__"; |
24 | |
25 | foreach my $file (@files) { |
26 | my $tmpfile = "$installdir/$file.tmp"; |
27 | |
28 | open(my $in, '<', "$readdir/$file") |
29 | or die "$readdir/$file: $!\n"; |
30 | open(my $out, '>', $tmpfile) |
31 | or die "$tmpfile: $!\n"; |
32 | while (my $line = <$in>) { |
33 | $line =~ s/([\s(])__user\s/$1/g; |
34 | $line =~ s/([\s(])__force\s/$1/g; |
35 | $line =~ s/([\s(])__iomem\s/$1/g; |
36 | $line =~ s/\s__attribute_const__\s/ /g; |
37 | $line =~ s/\s__attribute_const__$//g; |
38 | $line =~ s/\b__packed\b/__attribute__((packed))/g; |
39 | $line =~ s/^#include <linux\/compiler.h>//; |
40 | $line =~ s/(^|\s)(inline)\b/$1__$2__/g; |
41 | $line =~ s/(^|\s)(asm)\b(\s|[(]|$)/$1__$2__$3/g; |
42 | $line =~ s/(^|\s|[(])(volatile)\b(\s|[(]|$)/$1__$2__$3/g; |
43 | printf {$out} "%s", $line; |
44 | } |
45 | close $out; |
46 | close $in; |
47 | |
48 | system $unifdef . " $tmpfile > $installdir/$file"; |
49 | # unifdef will exit 0 on success, and will exit 1 when the |
50 | # file was processed successfully but no changes were made, |
51 | # so abort only when it's higher than that. |
52 | my $e = $? >> 8; |
53 | if ($e > 1) { |
54 | die "$tmpfile: $!\n"; |
55 | } |
56 | unlink $tmpfile; |
57 | } |
58 | exit 0; |
59 |
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