53 lines
1.6 KiB
Bash
Executable File
53 lines
1.6 KiB
Bash
Executable File
#!/bin/sh -x
|
|
# speclib - Make a special version of the cygwin import library.
|
|
#
|
|
# Copyright 2001, 2002 Red Hat, Inc.
|
|
#
|
|
# This file is part of Cygwin.
|
|
#
|
|
# This software is a copyrighted work licensed under the terms of the
|
|
# Cygwin license. Please consult the file "CYGWIN_LICENSE" for
|
|
# details.
|
|
|
|
case "$1" in
|
|
-v) shift; v() { :; } ;;
|
|
*) v() { /bin/false; } ;;
|
|
esac
|
|
lib=$1; shift
|
|
nm=$1; shift
|
|
ar=$1; shift
|
|
libdll=$1; shift
|
|
cp /dev/null /tmp/$$.objs
|
|
trap "cd /tmp; /bin/rm -rf $lib.bak /tmp/$$.dir /tmp/$$.syms /tmp/$$.objs /tmp/$$.raw" 0 1 2 15
|
|
$nm --extern-only --defined-only $* | sed -n -e 's%^.* [TD] \(.*\)$%/ \1\$/p%p' > /tmp/$$.syms
|
|
v || $nm -Ap --extern-only --defined-only $libdll | egrep ' I __head| I _.*_iname' | awk -F: '{print $2}' > /tmp/$$.objs
|
|
$nm -Ap --extern-only --defined-only $libdll | sed -n -f /tmp/$$.syms | awk -F: '{print $2}' >> /tmp/$$.objs
|
|
sort -o /tmp/$$.objs -u /tmp/$$.objs
|
|
|
|
[ -s /tmp/$$.objs ] || { echo "speclib: couldn't find symbols for $lib" 1>&2; exit 1; }
|
|
|
|
/bin/rm -rf /tmp/$$.dir
|
|
mkdir /tmp/$$.dir
|
|
cd /tmp/$$.dir
|
|
if v; then
|
|
$ar x $libdll
|
|
/bin/rm -f `cat /tmp/$$.objs`
|
|
else
|
|
$ar x $libdll `cat /tmp/$$.objs`
|
|
fi
|
|
/bin/rm -f $lib
|
|
$ar crus $lib *.o
|
|
export lib;
|
|
perl -pi.bak -- - $lib << 'EOF'
|
|
BEGIN {
|
|
binmode STDIN;
|
|
binmode STDOUT;
|
|
$lib = ($ENV{lib} =~ m!/([^/]+)$!o)[0] || $ENV{lib};
|
|
$lib =~ s/\.a//o;
|
|
my $pad = length('cygwin1_dll') - length($lib);
|
|
die "speclib: library name too long (" . length($lib) . ")\n" if $pad < 0;
|
|
$lib = "__head_$lib" . "\0" x $pad;
|
|
}
|
|
s/__head_cygwin1_dll/$lib/g;
|
|
EOF
|