#!/usr/bin/perl

@lib = (
	"base/root/lib/libncurses.so.4","/usr/lib/libncurses.a",
#	"packages/root/lib/libslang.so.0.99.38","/usr/lib/libslang.a",
	"base/root/lib/libcrypt-2.0.7.so","/usr/lib/libcrypt.a",
#	"packages/root/lib/libc-2.0.7.so", "/usr/lib/libc_pic.a",
#	"libreadline.so", "/usr/lib/libreadline.a",
	""
);

#$exes = " packages/root/bin/* packages/root/sbin/* packages/root/usr/bin/* packages/root/usr/sbin/*";
#$exes = " base/root/bin/* base/root/sbin/* base/root/usr/bin/* base/root/usr/sbin/*";
#$exes = " packages/*";
$exes = " ash";

	for ($x = 0; $x < @lib - 1; $x+=2) {

		print "Purging " . $lib[$x] . "\n";
		system ("./generate_library /" . $lib[$x] . " " . $lib[$x+1] . " " . $lib[$x]  . $exes);
		print "\n\n./generate_library /" . $lib[$x] . " " . $lib[$x+1] . " " . $lib[$x]  . $exes;
			
	}
	
