Commit | Line | Data |
---|---|---|
7712401a SR |
1 | #!/usr/bin/perl |
2 | # | |
3 | # headers_install prepare the listed header files for use in | |
4 | # user space and copy the files to their destination. | |
5 | # | |
db1bec4f SR |
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 | |
7712401a SR |
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 | use warnings; | |
21 | ||
db1bec4f | 22 | my ($readdir, $installdir, $arch, @files) = @ARGV; |
7712401a SR |
23 | |
24 | my $unifdef = "scripts/unifdef -U__KERNEL__"; | |
25 | ||
26 | foreach my $file (@files) { | |
27 | my $tmpfile = "$installdir/$file.tmp"; | |
28 | open(my $infile, '<', "$readdir/$file") | |
29 | or die "$readdir/$file: $!\n"; | |
30 | open(my $outfile, '>', "$tmpfile") or die "$tmpfile: $!\n"; | |
31 | while (my $line = <$infile>) { | |
32 | $line =~ s/([\s(])__user\s/$1/g; | |
33 | $line =~ s/([\s(])__force\s/$1/g; | |
34 | $line =~ s/([\s(])__iomem\s/$1/g; | |
35 | $line =~ s/\s__attribute_const__\s/ /g; | |
36 | $line =~ s/\s__attribute_const__$//g; | |
37 | $line =~ s/^#include <linux\/compiler.h>//; | |
38 | printf $outfile "%s", $line; | |
39 | } | |
40 | close $outfile; | |
41 | close $infile; | |
42 | system $unifdef . " $tmpfile > $installdir/$file"; | |
43 | unlink $tmpfile; | |
44 | } | |
45 | exit 0; |