Author: hawk Date: Sat Nov 10 22:56:35 2007 GMT
Module: SOURCES Tag: Titanium
---- Log message:
- from kernel-vanilla
---- Files affected:
SOURCES:
kernel-bare-vserver-config.h (NONE -> 1.1.2.1) (NEW),
kernel-bare-vserver-module-build.pl (NONE -> 1.1.2.1) (NEW)
---- Diffs:
================================================================
Index: SOURCES/kernel-bare-vserver-config.h
diff -u /dev/null SOURCES/kernel-bare-vserver-config.h:1.1.2.1
--- /dev/null Sat Nov 10 23:56:35 2007
+++ SOURCES/kernel-bare-vserver-config.h Sat Nov 10 23:56:30 2007
@@ -0,0 +1,6 @@
+#ifndef _LINUX_CONFIG_H
+#define _LINUX_CONFIG_H
+
+#include <linux/autoconf.h>
+
+#endif
================================================================
Index: SOURCES/kernel-bare-vserver-module-build.pl
diff -u /dev/null SOURCES/kernel-bare-vserver-module-build.pl:1.1.2.1
--- /dev/null Sat Nov 10 23:56:35 2007
+++ SOURCES/kernel-bare-vserver-module-build.pl Sat Nov 10 23:56:30 2007
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+#
+use strict;
+use warnings;
+use File::Find qw(find);
+
+my $rpmdir = shift @ARGV or die;
+my $fileoutdir = shift @ARGV or die;
+my @tosort;
+
+find(\&wanted, ".");
+
+sub wanted {
+ return unless -f;
+ return unless /^Kconfig/ or /^Makefile/;
+ #return if /\.orig$/;
+ return if $File::Find::name =~ /(Documentation|scripts)/;
+ (my $file = $File::Find::name) =~ s#^\./##;
+ $file =~ m#^(.*)/#;
+ my $dir = $1 || "";
+ my $subdir = "";
+ foreach my $sub ( split( '/', $dir )) {
+ $subdir .= "/" . $sub;
+ push @tosort, "\%dir $rpmdir$subdir\n";
+ }
+ push @tosort, "$rpmdir/$file\n";
+}
+
+my $last = "";
+my @toprint = grep {if ($_ ne $last) { $last = $_; 1} else {0}} sort @tosort;
+
+open F_OUT, "> $fileoutdir/aux_files" or die "Can't create aux_files: $!\n";
+print F_OUT @toprint;
+close F_OUT and print "aux_files created\n";
+
+open F_OUT, "> $fileoutdir/aux_files_exc" or die "Can't create aux_files_exc:
$!\n";
+print F_OUT map {"\%exclude $_"} @toprint;
+close F_OUT and print "aux_files_exc created\n";
================================================================
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
