5 # Generate a kernel patch to add socketcan to a kernel src tree.
6 # The list of files to be added is read from stdin.
8 use POSIX qw(strftime);
12 if (-r "patches/$version.diff") {
13 copy_file("patches/$version.diff");
15 die "Patch patches/$version.diff not found";
20 my ($file, $n) = split;
26 $name =~ s/[^\/]*$/$n/;
28 $name =~ s/[^\/]*\/[^\/]*\///;
30 add_file($file, $name);
36 open file, "$file" || die "open $file\n";
44 my ($file, $name) = @_;
45 my (@lines, $count, $ts);
47 open file, "./strip-src -i -m -v $version $file |" || die "open $file\n";
52 $ts = strftime "%F %T", gmtime((stat($file))[9]);
54 print "--- a/$name 1970-01-01 00:00:00\n";
55 print "+++ b/$name $ts\n";
56 print "@@ -0,0 +1,$count @@\n";