head	1.2;
access;
symbols
	rpm-4_3_1-start:1.1
	rpm-4_3:1.1.0.2;
locks; strict;
comment	@# @;


1.2
date	2004.08.02.19.32.37;	author jbj;	state dead;
branches;
next	1.1;

1.1
date	2003.05.18.18.33.40;	author jbj;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Out with the old.
@
text
@#!/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
@


1.1
log
@Upgrade to zlib-1.2.0.1.
@
text
@@

