ctr_eFuse/trunk/tools/merge_lib_objs.plx

#!/usr/bin/perl -w
use strict;

my $lib_name = "../libgenid.a";

my @lib_list = 
(
	"../openssl-1.0.0-beta5/libcrypto.a",
	"../openssl-1.0.0-beta5/libssl.a",
);

# move work directory
print "cd dep_objs/\n";
chdir 'dep_objs';

# merge lib
foreach ( @lib_list )
{
	print "ar x $_\n";
	system "ar", "x", $_;
	if ( /libnf(.*)\.a/ )
	{
		print "mv sys-unix.o sys-unix-$1.o\n";
		system "mv", "sys-unix.o", "sys-unix-$1.o";
	}
	&merge_obj;
}

sub merge_obj
{
	my @object_files = glob "*.o";
	print "ar rcs $lib_name @object_files\n";
	system "ar", "rcs", $lib_name, @object_files;
	print "rm *.o\n";
	system "rm", @object_files;
}