1 files changed, 37 insertions, 0 deletions

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