From: Rob Landley <rob@landley.net>
Organization: Boundaries Unlimited
To: Embedded Linux mailing list <linux-embedded@vger.kernel.org>
Subject: [PATCH 2/3]: Remove perl from make headers_install
Date: Fri, 2 Jan 2009 02:14:32 -0600
User-Agent: KMail/1.10.1 (Linux/2.6.27-7-generic; KDE/4.1.2; x86_64; ; )
Cc: linux-kernel@vger.kernel.org, Andrew Morton <akpm@linux-foundation.org>,
       "H. Peter Anvin" <hpa@zytor.com>, Sam Ravnborg <sam@ravnborg.org>
References: <200901020207.30359.rob@landley.net>
In-Reply-To: <200901020207.30359.rob@landley.net>
MIME-Version: 1.0
Content-Type: text/plain;
  charset="iso-8859-1"
Content-Disposition: inline
Message-Id: <200901020214.33123.rob@landley.net>
Sender: linux-kernel-owner@vger.kernel.org
Content-Transfer-Encoding: 8bit
Content-Length: 3825
Lines: 6

From: Rob Landley <rob@landley.net>
Remove perl from make headers_install by replacing a perl script (doinga simple regex search and replace) with a smaller and faster shell scriptimplementation.  The new shell script is a single for loop calling sed andpiping its output through unifdef to produce the target file.
Sam Ravnborg added this perl to 2.6.27.
Signed-off-by: Rob Landley <rob@landley.net>---
 scripts/Makefile.headersinst |    6 ++-- scripts/headers_install.pl   |   46 --------------------------------- scripts/headers_install.sh   |   23 ++++++++++++++++ 3 files changed, 26 insertions(+), 49 deletions(-)
--- /dev/null	2008-11-21 04:46:41.000000000 -0600+++ b/scripts/headers_install.sh	2008-12-15 22:09:45.000000000 -0600@@ -0,0 +1,23 @@+#!/bin/bash++# Grab arguments++INDIR="$1"+shift+OUTDIR="$1"+shift+ARCH="$1"+shift++# Iterate through files listed on command line++for i in "$@"+do+	sed -r \+		-e 's/([ \t(])(__user|__force|__iomem)[ \t]/\1/g' \+		-e 's/__attribute_const__([ \t]|$)/\1/g' \+		-e 's@^#include <linux/compiler.h>@@' "$INDIR/$i" |+	scripts/unifdef -U__KERNEL__ - > "$OUTDIR/$i"+done++exit 0diff -r d9b501c91442 scripts/Makefile.headersinst--- a/scripts/Makefile.headersinst	Sun Dec 14 16:25:19 2008 -0800+++ b/scripts/Makefile.headersinst	Mon Dec 15 23:30:15 2008 -0600@@ -44,8 +44,8 @@ quiet_cmd_install = INSTALL $(printdir) ($(words $(all-files))\                             file$(if $(word 2, $(all-files)),s))       cmd_install = \-        $(PERL) $< $(srctree)/$(obj) $(install) $(SRCARCH) $(header-y); \-        $(PERL) $< $(objtree)/$(obj) $(install) $(SRCARCH) $(objhdr-y); \+		$(CONFIG_SHELL) $< $(srctree)/$(obj) $(install) $(SRCARCH) $(header-y); \+		$(CONFIG_SHELL) $< $(objtree)/$(obj) $(install) $(SRCARCH) $(objhdr-y); \         touch $@  quiet_cmd_remove = REMOVE  $(unwanted)@@ -64,7 +64,7 @@ 	@:  targets += $(install-file)-$(install-file): scripts/headers_install.pl $(input-files) FORCE+$(install-file): scripts/headers_install.sh $(input-files) FORCE 	$(if $(unwanted),$(call cmd,remove),) 	$(if $(wildcard $(dir $@)),,$(shell mkdir -p $(dir $@))) 	$(call if_changed,install)--- hg/scripts/headers_install.pl	2008-11-22 19:09:21.000000000 -0600+++ /dev/null	1970-01-01 00:00:00 -0600@@ -1,46 +0,0 @@-#!/usr/bin/perl -w-#-# headers_install prepare the listed header files for use in-# user space and copy the files to their destination.-#-# Usage: headers_install.pl readdir installdir arch [files...]-# readdir:    dir to open files-# installdir: dir to install the files-# arch:       current architecture-#             arch is used to force a reinstallation when the arch-#             changes because kbuild then detect a command line change.-# files:      list of files to check-#-# Step in preparation for users space:-# 1) Drop all use of compiler.h definitions-# 2) Drop include of compiler.h-# 3) Drop all sections defined out by __KERNEL__ (using unifdef)--use strict;--my ($readdir, $installdir, $arch, @files) = @ARGV;--my $unifdef = "scripts/unifdef -U__KERNEL__";--foreach my $file (@files) {-	local *INFILE;-	local *OUTFILE;-	my $tmpfile = "$installdir/$file.tmp";-	open(INFILE, "<$readdir/$file")-		or die "$readdir/$file: $!\n";-	open(OUTFILE, ">$tmpfile") or die "$tmpfile: $!\n";-	while (my $line = <INFILE>) {-		$line =~ s/([\s(])__user\s/$1/g;-		$line =~ s/([\s(])__force\s/$1/g;-		$line =~ s/([\s(])__iomem\s/$1/g;-		$line =~ s/\s__attribute_const__\s/ /g;-		$line =~ s/\s__attribute_const__$//g;-		$line =~ s/^#include <linux\/compiler.h>//;-		printf OUTFILE "%s", $line;-	}-	close OUTFILE;-	close INFILE;-	system $unifdef . " $tmpfile > $installdir/$file";-	unlink $tmpfile;-}-exit 0; ????{.n?+???????+%?????ݶ??w??{.n?+????{??G?????{ay?ʇڙ?,j??f???h?????????z_??(?階?ݢj"???m??????G????????????&???~???iO???z??v?^?m????????????I?