diff options
| author | David S. Miller <davem@davemloft.net> | 2008-07-27 19:51:21 -0400 | 
|---|---|---|
| committer | David S. Miller <davem@davemloft.net> | 2008-07-27 19:51:21 -0400 | 
| commit | 281c7413ed914623d3245299a4761b6b27ab9fdb (patch) | |
| tree | 182b5222a7ad4b77c32f7845ea777ca665d7def2 /scripts/headers_install.pl | |
| parent | 2ab61b01110aa04cd853c619a74881e3225a5e24 (diff) | |
| parent | c9272c4f9fbe2087beb3392f526dc5b19efaa56b (diff) | |
Merge branch 'master' of master.kernel.org:/pub/scm/linux/kernel/git/torvalds/linux-2.6
Diffstat (limited to 'scripts/headers_install.pl')
| -rw-r--r-- | scripts/headers_install.pl | 45 | 
1 files changed, 45 insertions, 0 deletions
| diff --git a/scripts/headers_install.pl b/scripts/headers_install.pl new file mode 100644 index 000000000000..68591cd08731 --- /dev/null +++ b/scripts/headers_install.pl | |||
| @@ -0,0 +1,45 @@ | |||
| 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 | # | ||
| 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 | use warnings; | ||
| 21 | |||
| 22 | my ($readdir, $installdir, $arch, @files) = @ARGV; | ||
| 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; | ||
