SOURCES (LINUX_2_6): kernel-module-build.pl (NEW) - helper script.

[pluto]

Author: pluto                        Date: Tue May 16 17:22:45 2006 GMT
Module: SOURCES                       Tag: LINUX_2_6
---- Log message:
- helper script.

---- Files affected:
SOURCES:
   kernel-module-build.pl (NONE -> 1.1.2.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/kernel-module-build.pl
diff -u /dev/null SOURCES/kernel-module-build.pl:1.1.2.1
--- /dev/null	Tue May 16 19:22:45 2006
+++ SOURCES/kernel-module-build.pl	Tue May 16 19:22:40 2006
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+open( F, $ARGV[0]) or die("cannot open file: $ARGV[0]\n" );
+ at lines = <F>;
+close( F );
+
+foreach (@lines)
+{
+	@pe = split( '/', $_ );
+	my $tmp;
+	for my $p (0 .. $#pe - 1)
+	{
+		$tmp = $tmp . '/' . $pe[$p];
+		print( "%dir $ARGV[1]$tmp\n" );
+	}
+	my $file = join( '/', @pe );
+	print( "$ARGV[1]/$file" );
+}
================================================================