util/add-depends.pl

   1 #! /usr/bin/env perl
   2 # Copyright 2018 The OpenSSL Project Authors. All Rights Reserved.
   3 #
   4 # Licensed under the OpenSSL license (the "License").  You may not use
   5 # this file except in compliance with the License.  You can obtain a copy
   6 # in the file LICENSE in the source distribution or at
   7 # https://www.openssl.org/source/license.html
   8
   9 use lib '.';
  10 use configdata;
  11
  12 use File::Compare qw(compare_text);
  13
  14 my $buildfile = $config{build_file};
  15 my $buildfile_new = "$buildfile-$$";
  16 my $depext = $target{dep_extension} || ".d";
  17 my @deps =
  18     grep { -f $_ }
  19     map { (my $x = $_) =~ s|\.o$|$depext|; $x; }
  20     grep { $unified_info{sources}->{$_}->[0] =~ /\.cc?$/ }
  21     keys %{$unified_info{sources}};
  22
  23 open IBF, $buildfile or die "Trying to read $buildfile: $!\n";
  24 open OBF, '>', $buildfile_new or die "Trying to write $buildfile_new: $!\n";
  25 while (<IBF>) {
  26     $force_rewrite = 0;
  27     last if /^# DO NOT DELETE THIS LINE/;
  28     print OBF or die "$!\n";
  29     $force_rewrite = 1;
  30 }
  31 close IBF;
  32
  33 print OBF "# DO NOT DELETE THIS LINE -- make depend depends on it.\n";
  34
  35 foreach (@deps) {
  36     open IBF,$_ or die "Trying to read $_: $!\n";
  37     while (<IBF>) {
  38         print OBF or die "$!\n";
  39     }
  40     close IBF;
  41 }
  42 close OBF;
  43
  44 if (compare_text($buildfile_new, $buildfile) != 0) {
  45     rename $buildfile_new, $buildfile
  46         or die "Trying to rename $buildfile_new -> $buildfile: $!\n";
  47 }
  48 # On VMS, we want to remove all generations of this file, in case there are
  49 # more than one
  50 while (unlink $buildfile_new) {}