From 7c2a874e50b871d04fbd19501f7b42cff55e5abc Mon Sep 17 00:00:00 2001
From: Mark Adler <madler@alumni.caltech.edu>
Date: Fri, 9 Sep 2011 23:21:47 -0700
Subject: zlib 1.2.0

---
 aix/mkexps | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 aix/mkexps

(limited to 'aix/mkexps')

diff --git a/aix/mkexps b/aix/mkexps
new file mode 100644
index 0000000..6c55eae
--- /dev/null
+++ b/aix/mkexps
@@ -0,0 +1,37 @@
+#!/bin/ksh
+#
+# mkexps - make export list
+# This program creates an export list by combining all the "." and normal names
+# into one list.
+#
+if [[ "$#" -ne 1 ]]
+then
+    print "Usage: mkexps ArchiveFile"
+    exit -2
+fi
+if [[ ! -f $1 ]]
+then
+    print "mkexps: Cannot open file \"$1\""
+    exit -1
+fi
+
+dump -g $1 | awk '
+BEGIN {
+        top = 1
+}
+/^[ ]*[0-9][0-9]*/ {
+    if ( (n = index( $2, "." )) > 0 ) {
+        export_array[ top++ ] = substr( $2, n+1, length( $2 ))
+    }
+    else {
+	export_array[ top++ ] = $2
+    }
+}
+
+END {
+    for ( i = 1; i < top; i++ )
+    {
+	print export_array[ i ]
+    }
+
+}' | sort | uniq
-- 
cgit v1.2.3-55-g6feb