# Generate a kernel patch to add socketcan to a kernel src tree.
# The list of files to be added is read from stdin.
+use POSIX qw(strftime);
+
$version = shift;
if (-r "patches/$version.diff") {
copy_file("patches/$version.diff");
+} else {
+ die "Patch patches/$version.diff not found";
}
while (<>) {
add_file($file, $name);
}
-close FILES;
-
sub copy_file {
my ($file) = @_;
sub add_file {
my ($file, $name) = @_;
- my (@lines, $count, $ts, $mtime);
+ my (@lines, $count, $ts);
- open file, "./kv $version $file |" || die "open $file\n";
+ open file, "./strip-src -i -m -v $version $file |" || die "open $file\n";
@lines = <file>;
+ close file;
+
$count = $#lines + 1;
- use POSIX qw(strftime);
- $mtime = (stat($file))[9];
$ts = strftime "%F %T", gmtime((stat($file))[9]);
print "--- a/$name 1970-01-01 00:00:00\n";
for (@lines) {
print "+$_";
}
- close file;
}