Jeremy Huntwork | 15a2ee7 | 2008-10-29 14:20:13 -0700 | [diff] [blame] | 1 | #!/usr/bin/perl -w |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 2 | # |
| 3 | # headers_install prepare the listed header files for use in |
| 4 | # user space and copy the files to their destination. |
| 5 | # |
Sam Ravnborg | db1bec4 | 2008-06-16 21:29:38 +0200 | [diff] [blame] | 6 | # Usage: headers_install.pl readdir installdir arch [files...] |
David Howells | 10b6395 | 2012-10-02 18:01:57 +0100 | [diff] [blame^] | 7 | # installdir: dir to install the files to |
Sam Ravnborg | db1bec4 | 2008-06-16 21:29:38 +0200 | [diff] [blame] | 8 | # arch: current architecture |
| 9 | # arch is used to force a reinstallation when the arch |
| 10 | # changes because kbuild then detect a command line change. |
| 11 | # files: list of files to check |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 12 | # |
| 13 | # Step in preparation for users space: |
| 14 | # 1) Drop all use of compiler.h definitions |
| 15 | # 2) Drop include of compiler.h |
| 16 | # 3) Drop all sections defined out by __KERNEL__ (using unifdef) |
| 17 | |
| 18 | use strict; |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 19 | |
David Howells | 10b6395 | 2012-10-02 18:01:57 +0100 | [diff] [blame^] | 20 | my ($installdir, $arch, @files) = @ARGV; |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 21 | |
Arnd Bergmann | c01226c | 2009-09-21 16:37:12 +0200 | [diff] [blame] | 22 | my $unifdef = "scripts/unifdef -U__KERNEL__ -D__EXPORTED_HEADERS__"; |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 23 | |
David Howells | 10b6395 | 2012-10-02 18:01:57 +0100 | [diff] [blame^] | 24 | foreach my $filename (@files) { |
| 25 | my $file = $filename; |
| 26 | $file =~ s!^.*/!!; |
| 27 | |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 28 | my $tmpfile = "$installdir/$file.tmp"; |
Stephen Hemminger | bae4cec | 2010-02-22 15:17:26 -0800 | [diff] [blame] | 29 | |
David Howells | 10b6395 | 2012-10-02 18:01:57 +0100 | [diff] [blame^] | 30 | open(my $in, '<', $filename) |
| 31 | or die "$filename: $!\n"; |
Stephen Hemminger | bae4cec | 2010-02-22 15:17:26 -0800 | [diff] [blame] | 32 | open(my $out, '>', $tmpfile) |
| 33 | or die "$tmpfile: $!\n"; |
| 34 | while (my $line = <$in>) { |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 35 | $line =~ s/([\s(])__user\s/$1/g; |
| 36 | $line =~ s/([\s(])__force\s/$1/g; |
| 37 | $line =~ s/([\s(])__iomem\s/$1/g; |
| 38 | $line =~ s/\s__attribute_const__\s/ /g; |
| 39 | $line =~ s/\s__attribute_const__$//g; |
Markus Trippelsdorf | f210735 | 2011-06-24 15:51:00 +0200 | [diff] [blame] | 40 | $line =~ s/\b__packed\b/__attribute__((packed))/g; |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 41 | $line =~ s/^#include <linux\/compiler.h>//; |
Mike Frysinger | 4307184 | 2008-12-27 03:23:15 -0500 | [diff] [blame] | 42 | $line =~ s/(^|\s)(inline)\b/$1__$2__/g; |
| 43 | $line =~ s/(^|\s)(asm)\b(\s|[(]|$)/$1__$2__$3/g; |
| 44 | $line =~ s/(^|\s|[(])(volatile)\b(\s|[(]|$)/$1__$2__$3/g; |
Stephen Hemminger | bae4cec | 2010-02-22 15:17:26 -0800 | [diff] [blame] | 45 | printf {$out} "%s", $line; |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 46 | } |
Stephen Hemminger | bae4cec | 2010-02-22 15:17:26 -0800 | [diff] [blame] | 47 | close $out; |
| 48 | close $in; |
| 49 | |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 50 | system $unifdef . " $tmpfile > $installdir/$file"; |
Mike Frysinger | 2979076 | 2010-11-23 19:54:02 -0500 | [diff] [blame] | 51 | # unifdef will exit 0 on success, and will exit 1 when the |
| 52 | # file was processed successfully but no changes were made, |
| 53 | # so abort only when it's higher than that. |
| 54 | my $e = $? >> 8; |
| 55 | if ($e > 1) { |
| 56 | die "$tmpfile: $!\n"; |
| 57 | } |
Sam Ravnborg | 7712401 | 2008-06-15 21:41:09 +0200 | [diff] [blame] | 58 | unlink $tmpfile; |
| 59 | } |
| 60 | exit 0; |