#!/usr/bin/perl -w#    mkpatch - Create patches against the Linux kernel#    Copyright (c) 1999  Frodo Looijaard <frodol@dds.nl>##    This program is free software; you can redistribute it and/or modify#    it under the terms of the GNU General Public License as published by#    the Free Software Foundation; either version 2 of the License, or#    (at your option) any later version.##    This program is distributed in the hope that it will be useful,#    but WITHOUT ANY WARRANTY; without even the implied warranty of#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the#    GNU General Public License for more details.##    You should have received a copy of the GNU General Public License#    along with this program; if not, write to the Free Software#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.use strict;use vars qw($temp);$temp = "mkpatch/.temp";# Generate a diff between the old kernel file and the new i2c file. We# arrange the headers to tell us the old tree was under directory# `linux-old', and the new tree under `linux'.# $_[0]: i2c package root (like /tmp/i2c)# $_[1]: Linux kernel tree (like /usr/src/linux)# $_[2]: Name of the kernel file# $_[3]: Name of the patched filesub print_diff{  my ($package_root,$kernel_root,$kernel_file,$package_file) = @_;  my ($diff_command,$package_mtime,$kernel_mtime);  $diff_command = "diff -u";  if ( -e "$kernel_root/$kernel_file") {    $diff_command .= " $kernel_root/$kernel_file";    $kernel_mtime = (stat("$kernel_root/$kernel_file"))[9];  } else {    $diff_command .= " /dev/null";    $kernel_mtime = 0;  }  if ( -e "$package_root/$package_file") {    $diff_command .= " $package_root/$package_file";    $package_mtime = (stat("$package_root/$package_file"))[9];  } else {    $diff_command .= " /dev/null";    $package_mtime = 0;  }  open INPUT, "$diff_command|" or die "Can't execute `$diff_command'";  if (<INPUT>) {    <INPUT>;    print "--- linux-old/$kernel_file\t".gmtime($kernel_mtime)."\n".          "+++ linux/$kernel_file\t".gmtime($package_mtime)."\n";    print while <INPUT>;  }  close INPUT;}# Find all the lm_sensors code in a file# $_[0]: Linux kernel tree (like /usr/src/linux)# $_[1]: Name of the kernel file# Returns a list of strings with the sensors codessub find_sensors_code{  my ($kernel_root,$kernel_file) = @_;  my @res;  open INPUT, "$kernel_root/$kernel_file"        or return @res;  while (<INPUT>) {    if (m@sensors code starts here@) {      push @res,"";      while (<INPUT>) {        last if m@sensors code ends here@;        $res[$#res] .= $_;      }    }  }  return @res;    } # This generates diffs for kernel file Documentation/Configure.help. This# file contains the help texts that can be displayed during `make *config'# for the kernel.# The generated diff will replace the whole I2C section with the one we# have in our (partial) Configure.help file.# $_[0]: i2c package root (like /tmp/i2c)# $_[1]: Linux kernel tree (like /usr/src/linux)sub gen_Documentation_Configure_help{  my ($package_root,$kernel_root) = @_;  my $kernel_file = "Documentation/Configure.help";  my $package_file = "mkpatch/Configure.help";# First, we generate a temporary file which is the same as the kernel's# Configure.help file, except that we replace the I2C section (starts with# "I2C support" included and ends with "Bus Mouse Support" excluded).  open INPUT,"$kernel_root/$kernel_file"        or die "Can't open `$kernel_root/$kernel_file'";  open INPUTI,"$package_root/$package_file"        or die "Can't open `$package_root/$package_file'";  open OUTPUT,">$package_root/$temp"        or die "Can't open `$package_root/$temp'";  while(<INPUT>) {    unless (m/^I2C support$/) {      print OUTPUT;      next;    }    print OUTPUT while <INPUTI>;    while(<INPUT>) {      if (m/^Bus Mouse Support$/) {        print OUTPUT;        last;      }    }  }     close INPUT;  close OUTPUT;  close INPUTI;# Now we can generate the diff between the original Configure.help# and the temporary file.  print_diff $package_root,$kernel_root,$kernel_file,$temp;}# This generates the diff for drivers/i2c/Makefilesub gen_drivers_i2c_Makefile{  my ($package_root,$kernel_root) = @_;  my $kernel_file = "drivers/i2c/Makefile";  my $package_file = $temp;  open INPUT, "<$kernel_root/$kernel_file"        or die "Can't open $kernel_root/$kernel_file";  open OUTPUT,">$package_root/$package_file"        or die "Can't open $package_root/$package_file";# First, we generate a temporary file which is the same as the kernel's# drivers/i2c/Makefile file, except that we add all the new drivers.  while (<INPUT>) {    if (m/^export-objs/) {      while (m/\\\s*$/) { print OUTPUT; $_ = <INPUT>; }      print OUTPUT "\t\t   i2c-algo-8xx.o i2c-algo-ibm_ocp.o \\\n";    } elsif (m/\bCONFIG_I2C_PROC\b/) {      print OUTPUT <<'EOF';obj-$(CONFIG_I2C_PPORT)		+= i2c-pport.oobj-$(CONFIG_I2C_FRODO)		+= i2c-frodo.oobj-$(CONFIG_I2C_PCFEPP)	+= i2c-pcf-epp.oobj-$(CONFIG_I2C_ALGO8XX)	+= i2c-algo-8xx.oobj-$(CONFIG_I2C_RPXLITE)	+= i2c-rpx.oobj-$(CONFIG_I2C_IBM_OCP_ALGO)	+= i2c-algo-ibm_ocp.oobj-$(CONFIG_I2C_IBM_OCP_ADAP)	+= i2c-adap-ibm_ocp.oEOF    }    print OUTPUT;  }  close OUTPUT;# Now we can generate the diff between the original Makefile# and the temporary file.  print_diff $package_root,$kernel_root,$kernel_file,$package_file;}# This generates the diff for drivers/i2c/Config.insub gen_drivers_i2c_Config_in{  my ($package_root,$kernel_root) = @_;  my $kernel_file = "drivers/i2c/Config.in";  my $package_file = $temp;  open INPUT, "<$kernel_root/$kernel_file"        or die "Can't open $kernel_root/$kernel_file";  open OUTPUT,">$package_root/$package_file"        or die "Can't open $package_root/$package_file";# First, we generate a temporary file which is the same as the kernel's# drivers/i2c/Config file, except that we add all the new drivers.  while (<INPUT>) {    if (m/\bVelleman\s+K[89]000\s+adapter\b/i) {      print OUTPUT;      print OUTPUT <<'EOF';      dep_tristate '  Basic I2C on Parallel Port' CONFIG_I2C_PPORT $CONFIG_I2C_ALGOBIT      if [ "$CONFIG_ARCH_SA1100" = "y" ]; then         dep_tristate 'SA1100 I2C Adapter' CONFIG_I2C_FRODO $CONFIG_I2C_ALGOBIT      fiEOF    } elsif (m/\bElektor\s+ISA\s+card\b/i) {      print OUTPUT;      print OUTPUT <<'EOF';      dep_tristate '  PCF on EPP port' CONFIG_I2C_PCFEPP $CONFIG_I2C_ALGOPCFEOF    } elsif (m/\bsensors\s+code\s+starts\s+here\b/i) {      print OUTPUT <<'EOF';   if [ "$CONFIG_IBM_OCP" = "y" ]; then      dep_tristate 'IBM on-chip I2C Algorithm' CONFIG_I2C_IBM_OCP_ALGO $CONFIG_I2C      if [ "$CONFIG_I2C_IBM_OCP_ALGO" != "n" ]; then         dep_tristate '  IBM on-chip I2C Adapter' CONFIG_I2C_IBM_OCP_ADAP $CONFIG_I2C_IBM_OCP_ALGO      fi   fiEOF      print OUTPUT;    } else {      print OUTPUT;    }  }  close OUTPUT;# Now we can generate the diff between the original Config.in# and the temporary file.  print_diff $package_root,$kernel_root,$kernel_file,$package_file;} # This generates diffs for kernel drivers/i2c/ directory, except Config.in# and Makefile.# The lists of files to be handled is read in FILES, the list of headers to# be translated is read in INCLUDES.# $_[0]: i2c package root (like /tmp/i2c)# $_[1]: Linux kernel tree (like /usr/src/linux)sub gen_drivers_i2c_core{  my ($package_root,$kernel_root) = @_;  my (%files,%includes,$package_file,$kernel_file);  my ($dummy,$data0,$data1,$sedscript,@sensors_subs);  # --> Read FILES  open INPUT, "$package_root/mkpatch/FILES"         or die "Can't open `$package_root/mkpatch/FILES'";  while (<INPUT>) {    ($data0,$data1) = /(\S+)\s+(\S+)/;    $files{$data0} = $data1;  }   close INPUT;  # --> Read INCLUDES  open INPUT, "$package_root/mkpatch/INCLUDES"         or die "Can't open `$package_root/mkpatch/INCLUDES'";  while (<INPUT>) {    ($data0,$data1) = /(\S+)\s+(\S+)/;    $includes{$data0} = $data1;    $sedscript .= 's,(#\s*include\s*)'.$data0.'(\s*),$1'."$data1".'$2, ; ';  }   close INPUT;  # --> Start generating  foreach $package_file (sort keys %files) {    $kernel_file = $files{$package_file};    @sensors_subs = find_sensors_code "$kernel_root","$kernel_file";    open INPUT, "$package_root/$package_file"      or open INPUT, "/dev/null"         or die "Can't open `$package_root/$package_file'";    open OUTPUT, ">$package_root/$temp"         or die "Can't open `$package_root/$temp'";    while (<INPUT>) {      eval $sedscript;      if (m@sensors code starts here@) {        print OUTPUT;        while (<INPUT>) {           last if m@sensors code ends here@;        }        print OUTPUT $sensors_subs[0];        shift @sensors_subs      }      print OUTPUT;    }    close INPUT;    close OUTPUT;    print_diff "$package_root","$kernel_root","$kernel_file","$temp";  }}sub usage{  print "Usage: $0 package_root kernel_root\n";  exit 1;}# Read the command linemy $package_root = $ARGV[0];my $kernel_root = $ARGV[1];usage()  unless -d "$package_root/mkpatch"  and -f "$kernel_root/Rules.make";gen_Documentation_Configure_help $package_root, $kernel_root;gen_drivers_i2c_Config_in $package_root, $kernel_root;gen_drivers_i2c_Makefile $package_root, $kernel_root;gen_drivers_i2c_core $package_root, $kernel_root;# Clear temporary fileunlink("$package_root/$temp");