kernel-doc: allow more whitespace in macros
[linux-2.6.git] / scripts / headers_install.pl
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;