Commit e4e919f9 authored by unknown's avatar unknown
Browse files

When coyright text is changed, autotools must be run after all 

other actions, as otherwise timestamps of "config.h.in" will 
cause re-run on compilation machine (fatal version problem!).


Build-tools/mysql-copyright:
  1) Ensure that autotools are run as last action, after copyright
  change, for proper timestamps.
  2) Move the trimming of subtrees to an own function "trim_the_fat".
  3) Align 4.0 and 4.1 versions.
parent 79950521

Build-tools/mysql-copyright

+112 −28
Original line number Diff line number Diff line 
#!/usr/bin/perl -i

#!/usr/bin/perl -wi



# Untar a MySQL distribution, change the copyright texts,

# pack it up again to a given directory



$VER="1.3";

$VER="1.4";



use Cwd;

use File::Basename;
@@ -104,37 +104,25 @@ sub main 
    unlink("$destdir/COPYING", "$destdir/EXCEPTIONS-CLIENT");

    copy("$WD/Docs/MySQLEULA.txt", "$destdir");

    

    # remove readline subdir and update configure accordingly

    system("rm -rf $destdir/cmd-line-utils/readline");

    if ($win_flag) {

      chdir("$destdir") or (print "$! Unable to change directory to $destdir!\n" && exit(0));

    } else {

      chdir("$destdir");

      unlink ("configure") or die "Can't delete $destdir/configure: $!\n";

      open(CONFIGURE,"<configure.in") or die "$! Unable to open configure.in to read from!\n";

      local $/;

      undef $/;

      my $configure = <CONFIGURE>;

      close(CONFIGURE);

      $configure =~ s|cmd\-line\-utils/readline/Makefile dnl\n?||g;

      open(CONFIGURE,">configure.in") or die "$! Unable to open configure.in to write to!\n";

      print CONFIGURE $configure;

      close(CONFIGURE);

      `aclocal && autoheader && aclocal && automake && autoconf`;

      if (! -f "configure") {

        print "\"./configure\" was not produced, exiting!\n";

        exit(0);

      }

      if (-d "autom4te.cache") {

        print "Trying to delete autom4te.cache dir\n" if $opt_verbose;

        system("rm -rf autom4te.cache") or print "Unable to delete autom4te.cache dir: $!\n";

      }

    # remove subdirectories 'bdb', 'cmd-line-utils/readline'

    #   (latter does not apply to 4.0, but is in different place there!)

    my @extra_fat= ('bdb', 'cmd-line-utils/readline');



    foreach my $fat (@extra_fat)

    {

        &trim_the_fat($fat);

    }



    # fix file copyrights

    &fix_usage_copyright();

    &add_copyright();

    

    # fix LICENSE tag in include/mysql_version.h

    &fix_mysql_version();



    # apply "autotools" - must be last to ensure proper timestamps

    &run_autotools();



    # rename the directory with new distribution name

    chdir("$WD/$dir");

    print "renaming $destdir $newdistname\n" if $opt_verbose;
@@ -160,6 +148,101 @@ sub main 
  exit(0);

}  



####

#### This function will s/GPL/Commercial/ in include/mysql_version.h for the

#### LICENSE tag.

####

sub fix_mysql_version

{

  my $cwd= getcwd();

  chdir("$destdir");

  my $header_file= (-f 'include/mysql_version.h.in')? 'include/mysql_version.h.in' : 'include/mysql_version.h';



  open(MYSQL_VERSION,"<$header_file") or die "Unable to open $header_file for read: $!\n";

  undef $/;

  my $mysql_version= <MYSQL_VERSION>;

  close(MYSQL_VERSION);



  $mysql_version=~ s/\#define LICENSE[\s\t]+GPL/#define LICENSE Commercial/;



  open(MYSQL_VERSION,">$header_file") or die "Unable to open $header_file for write: $!\n";

  print MYSQL_VERSION $mysql_version;

  close(MYSQL_VERSION);

  chdir("$cwd");

}



####

#### This function will remove unwanted parts of a src tree for the mysqlcom

#### distributions.

####

sub trim_the_fat

{

  my $the_fat= shift;

  my $cwd= getcwd();



  chdir("$destdir");

  if ( -d "${the_fat}" )

  {

    system("rm -rf ${the_fat}");

    if (!$win_flag)

    {

      open(CONFIG_IN,"<configure.in") or die "Unable to open configure.in for read: $!\n";

      undef $/;

      my $config_in= <CONFIG_IN>;

      close(CONFIG_IN);



      #

      # If $the_fat Makefile line closes the parenthesis, then

      # replace that line with just the closing parenthesis.

      #

      if ($config_in=~ m|${the_fat}/Makefile\)\n?|)

      {

        $config_in=~ s|${the_fat}/Makefile(\)\n?)|$1|;

      }

      #

      # Else just delete the line

      #

      else

      {

        $config_in=~ s|${the_fat}/Makefile dnl\n?||;

      }



      open(CONFIG_IN,">configure.in") or die "Unable to open configure.in for write: $!\n";

      print CONFIG_IN $config_in;

      close(CONFIG_IN);

    }

  }

  chdir("$cwd");

}





####

#### This function will run the autotools on the reduced source tree.

####

sub run_autotools

{

  my $cwd= getcwd();



  if (!$win_flag)

  {

    chdir("$destdir");

    unlink ("configure") or die "Can't delete $destdir/configure: $!\n";



    # File "configure.in" has already been modified by "trim_the_fat()"



    `aclocal && autoheader && aclocal && automake && autoconf`;

    die "'./configure' was not produced!" unless (-f "configure");



    if (-d "autom4te.cache") {

      print "Trying to delete autom4te.cache dir\n" if $opt_verbose;

      system("rm -rf autom4te.cache") or print "Unable to delete autom4te.cache dir: $!\n";

    }



    chdir("$cwd");

  }

}





####

#### mysqld and MySQL client programs have a usage printed with --help.

#### This usage includes a copyright, which needs to be modified
@@ -191,6 +274,7 @@ sub add_copyright 
  foreach my $file (@files)

  {

    next if ! -f $file;

    next if -B $file;

    print "processing file $file in cwd $cwd\n" if $opt_verbose;

    `$WD/Build-tools/mysql-copyright-2 "$file"`;

  }