add hg and python

1 files changed, 81 insertions, 0 deletions

diff --git a/sys/src/cmd/python/Modules/makexp_aix b/sys/src/cmd/python/Modules/makexp_aix
new file mode 100755
index 000000000..cb349c287
--- /dev/null
+++ b/sys/src/cmd/python/Modules/makexp_aix
@@ -0,0 +1,81 @@
+#!/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