#!/usr/bin/env perl # # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF5. The full HDF5 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the COPYING file, which can be found at the root of the source code # distribution tree, or in https://www.hdfgroup.org/licenses. # If you do not have access to either file, you may request a copy from # help@hdfgroup.org. # use warnings; my $depend_file; my $new_depend_file; my $srcdir; my $top_srcdir; my $top_builddir; while ($_ = shift @ARGV) { if (/^--top_srcdir=([^ \t\n]*)/) { $top_srcdir = $1; $top_srcdir =~ s/\+/\\\+/g; $top_srcdir =~ s/\./\\\./g; } elsif (/^--top_builddir=([^ \t\n]*)/) { $top_builddir = $1; $top_builddir =~ s/\+/\\\+/g; $top_builddir =~ s/\./\\\./g; } else { $depend_file = $_; $new_depend_file = "$_.new"; last; } } open(DEPEND, "<$depend_file") || die "cannot open file $depend_file: $!\n"; open(NEW, ">$new_depend_file") || die "cannot open file $new_depend_file: $!\n"; while () { s/\.o(\b)/\.lo$1/g; s/ $top_srcdir/ \$\(top_srcdir\)/g; s/ $top_builddir/ \$\(top_builddir\)/g; print NEW $_; } close(DEPEND); close(NEW); `mv $new_depend_file $depend_file`;