mirror of
https://github.com/python/cpython.git
synced 2024-11-24 02:15:30 +08:00
8ee3e5aa93
with IBM's 64-bit compiler (SF patch #1284289). This also closes SF bug #105470: test_pwd fails on 64bit system (Opteron).
82 lines
3.2 KiB
Bash
Executable File
82 lines
3.2 KiB
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# ===========================================================================
|
|
# FILE: makexp_aix
|
|
# TYPE: standalone executable
|
|
# SYSTEM: AIX 3.2.5 and AIX 4
|
|
#
|
|
# DESCRIPTION: This script creates an export list of ALL global symbols
|
|
# from a list of object or archive files.
|
|
#
|
|
# USAGE: makexp_aix <OutputFile> "<FirstLine>" <InputFile> ...
|
|
#
|
|
# where:
|
|
# <OutputFile> is the target export list filename.
|
|
# <FirstLine> is the path/file string to be appended
|
|
# after the "#!" symbols in the first line of the
|
|
# export file. Passing "" means deferred resolution.
|
|
# <InputFile> is an object (.o) or an archive file (.a).
|
|
#
|
|
# HISTORY:
|
|
# 3-Apr-1998 -- remove C++ entries of the form Class::method
|
|
# Vladimir Marangozov
|
|
#
|
|
# 1-Jul-1996 -- added header information
|
|
# Vladimir Marangozov
|
|
#
|
|
# 28-Jun-1996 -- initial code
|
|
# Vladimir Marangozov (Vladimir.Marangozov@imag.fr)
|
|
# ==========================================================================
|
|
|
|
# Variables
|
|
expFileName=$1
|
|
toAppendStr=$2
|
|
shift; shift;
|
|
inputFiles=$*
|
|
automsg="Generated automatically by makexp_aix"
|
|
notemsg="NOTE: lists _all_ global symbols defined in the above file(s)."
|
|
curwdir=`pwd`
|
|
|
|
# Create the export file and setup the header info
|
|
echo "#!"$toAppendStr > $expFileName
|
|
echo "*" >> $expFileName
|
|
echo "* $automsg (`date -u`)" >> $expFileName
|
|
echo "*" >> $expFileName
|
|
echo "* Base Directory: $curwdir" >> $expFileName
|
|
echo "* Input File(s) : $inputFiles" >> $expFileName
|
|
echo "*" >> $expFileName
|
|
echo "* $notemsg" >> $expFileName
|
|
echo "*" >> $expFileName
|
|
|
|
# Extract the symbol list using 'nm' which produces quite
|
|
# different output under AIX 4 than under AIX 3.2.5.
|
|
# The following handles both versions by using a common flagset.
|
|
# Here are some hidden tricks:
|
|
# 1. Use /usr/ccs/bin/nm. Relevant to AIX 3.2.5 which has
|
|
# another version under /usr/ucb/bin/nm.
|
|
# 2. Use the -B flag to have a standard BSD representation
|
|
# of the symbol list on both AIX 3.2.5 and AIX 4. The "-B"
|
|
# flag is missing in the AIX 3.2.5 online usage help of 'nm'.
|
|
# 3. Use the -x flag to have a hex representation of the symbol
|
|
# values. This fills the leading whitespaces on AIX 4,
|
|
# thus simplifying the sed statement.
|
|
# 4. Eliminate all entries except those with either "B", "D"
|
|
# or "T" key letters. We are interested only in the global
|
|
# (extern) BSS, DATA and TEXT symbols. With the same statement
|
|
# we eliminate object member lines relevant to AIX 4.
|
|
# 5. Eliminate entries containing a dot. We can have a dot only
|
|
# as a symbol prefix, but such symbols are undefined externs.
|
|
# 6. Eliminate everything including the key letter, so that we're
|
|
# left with just the symbol name.
|
|
# 7. Eliminate all entries containing two colons, like Class::method
|
|
#
|
|
|
|
# Use -X32_64 if it appears to be implemented in this version of 'nm'.
|
|
NM=/usr/ccs/bin/nm
|
|
xopt=-X32_64
|
|
$NM -e $xopt $1 >/dev/null 2>&1 || xopt=""
|
|
|
|
$NM -Bex $xopt $inputFiles \
|
|
| sed -e '/ [^BDT] /d' -e '/\./d' -e 's/.* [BDT] //' -e '/::/d' \
|
|
| sort | uniq >> $expFileName
|