summaryrefslogtreecommitdiff
path: root/aix/mkexps
diff options
context:
space:
mode:
authorMark Adler <madler@alumni.caltech.edu>2011-09-09 23:22:10 -0700
committerMark Adler <madler@alumni.caltech.edu>2011-09-09 23:22:10 -0700
commit8e34b3a8024c028dd9fd21d70525fc6d215efde5 (patch)
tree896a32f54abdf42ae3c1bb3c5d5627668b481ce4 /aix/mkexps
parent13a294f044ef0a89b2dcbfbb5d4d4c792673348e (diff)
downloadzlib-1.2.0.2.tar.gz
zlib-1.2.0.2.tar.bz2
zlib-1.2.0.2.zip
zlib 1.2.0.2v1.2.0.2
Diffstat (limited to 'aix/mkexps')
-rw-r--r--aix/mkexps37
1 files changed, 0 insertions, 37 deletions
diff --git a/aix/mkexps b/aix/mkexps
deleted file mode 100644
index 6c55eae..0000000
--- a/aix/mkexps
+++ /dev/null
@@ -1,37 +0,0 @@
1#!/bin/ksh
2#
3# mkexps - make export list
4# This program creates an export list by combining all the "." and normal names
5# into one list.
6#
7if [[ "$#" -ne 1 ]]
8then
9 print "Usage: mkexps ArchiveFile"
10 exit -2
11fi
12if [[ ! -f $1 ]]
13then
14 print "mkexps: Cannot open file \"$1\""
15 exit -1
16fi
17
18dump -g $1 | awk '
19BEGIN {
20 top = 1
21}
22/^[ ]*[0-9][0-9]*/ {
23 if ( (n = index( $2, "." )) > 0 ) {
24 export_array[ top++ ] = substr( $2, n+1, length( $2 ))
25 }
26 else {
27 export_array[ top++ ] = $2
28 }
29}
30
31END {
32 for ( i = 1; i < top; i++ )
33 {
34 print export_array[ i ]
35 }
36
37}' | sort | uniq