delibtoolize.pl revision 241
1062N/A# Copyright 2007 Sun Microsystems, Inc. All rights reserved. 32N/A# Permission is hereby granted, free of charge, to any person obtaining a 919N/A# copy of this software and associated documentation files (the 919N/A# "Software"), to deal in the Software without restriction, including 919N/A# without limitation the rights to use, copy, modify, merge, publish, 919N/A# distribute, and/or sell copies of the Software, and to permit persons 919N/A# to whom the Software is furnished to do so, provided that the above 919N/A# copyright notice(s) and this permission notice appear in all copies of 919N/A# the Software and that both the above copyright notice(s) and this 919N/A# permission notice appear in supporting documentation. 919N/A# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS 919N/A# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 919N/A# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT 919N/A# OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR 919N/A# HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL 919N/A# INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING 919N/A# FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, 919N/A# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION 32N/A# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 32N/A# Except as contained in this notice, the name of a copyright holder 32N/A# shall not be used in advertising or otherwise to promote the sale, use 493N/A# or other dealings in this Software without prior written authorization 32N/A# of the copyright holder. 1062N/A# Undo libtool damage to makefiles to allow us to control the linker 911N/A# settings that libtool tries to force on us. if (
exists($
opts{
'P'})) {
if ($_
eq 'Makefile' && -f $_) {
print "delibtoolizing $File::Find::name...\n";
die "Can't rename $new_file to $old_file: $!\n";
or die "Can't open $old_file for reading: $!\n";
or die "Can't open $new_file for writing: $!\n";
# Read in original file and preprocess for data we'll need later if ($l =~ m/^\s*
CC\s*=\s*(\S*)/) {
# TODO: handle line continuation # Remove libtool script from compile steps & # add PIC flags that libtool normally provides # Remove libtool script from link step # Change -rpath to -R in link arguments # Change flags for building shared object from arguments to libtool # script into arguments to linker }
elsif ($l =~ m/^\s*$/) {
$l =~ s{(\$\((?:\w*_)?
AR\).*\s+)-R\s*\$\(
libdir\)}{$
1}
msg;