| #!/bin/sh |
| |
| # Copyright (C) 2002-2021 Free Software Foundation, Inc. |
| # |
| # This file is part of the GNU ISO C++ Library. This library is free |
| # software; you can redistribute it and/or modify it under the |
| # terms of the GNU General Public License as published by the |
| # Free Software Foundation; either version 3, or (at your option) |
| # any later version. |
| # |
| # This library is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| # GNU General Public License for more details. |
| # |
| # You should have received a copy of the GNU General Public License along |
| # with this library; see the file COPYING3. If not see |
| # <http://www.gnu.org/licenses/>. |
| |
| |
| if test ${#} -lt 2 || test $1 = '--help'; then |
| echo "Usage: extract_symvers shared_lib output_file" 1>&2 |
| exit 1 |
| fi |
| |
| lib=$1 |
| output=$2 |
| |
| # This avoids weird sorting problems later. |
| LC_ALL=C |
| export LC_ALL |
| LANG=C |
| export LANG |
| |
| tmp=extract.$$ |
| |
| case `uname -s` in |
| SunOS) |
| # Ensure that output on Solaris 2 matches readelf below without requiring |
| # GNU binutils to be installed. This requires a combination of pvs and |
| # elfdump, which is easier handled in a perl script. |
| perl @glibcxx_srcdir@/scripts/extract_symvers.pl ${lib} > $tmp 2>&1 |
| ;; |
| *) |
| # GNU binutils, somewhere after version 2.11.2, requires -W/--wide to |
| # avoid default line truncation. -W is not supported and truncation did |
| # not occur by default before that point. |
| readelf="readelf --symbols" |
| if readelf --help | grep -- --wide > /dev/null; then |
| readelf="$readelf --wide" |
| fi |
| # Omit _DYNAMIC etc. for consistency with extract_symvers.pl, only |
| # present on Solaris. |
| ${readelf} ${lib} |\ |
| sed -e 's/ \[<other>: [A-Fa-f0-9]*\] //' -e '/\.dynsym/,/^$/p;d' |\ |
| sed -e 's/ \[<localentry>: [0-9]*\] //' |\ |
| egrep -v ' (LOCAL|UND) ' |\ |
| egrep -v ' (_DYNAMIC|_GLOBAL_OFFSET_TABLE_|_PROCEDURE_LINKAGE_TABLE_|_edata|_end|_etext)$' |\ |
| sed -e 's/ <processor specific>: / <processor_specific>:_/g' |\ |
| sed -e 's/ <OS specific>: / <OS_specific>:_/g' |\ |
| sed -e 's/ <unknown>: / <unknown>:_/g' |\ |
| awk '{ if ($4 == "FUNC" || $4 == "NOTYPE") |
| printf "%s:%s\n", $4, $8; |
| else if ($4 == "OBJECT" || $4 == "TLS") |
| printf "%s:%s:%s\n", $4, $3, $8; |
| }' | sort | uniq > $tmp 2>&1 |
| # else printf "Huh? What is %s?\n", $8; |
| ;; |
| esac |
| |
| # I think we'll be doing some more with this file, but for now, dump. |
| mv $tmp $output |
| |
| exit 0 |