#! perl

use strict;

# update_repos.pl

my %repos;

foreach my $layer ("os", "mw", "app", "ostools")

	{

	opendir DIR, $layer;

	my @packages = grep !/^\.\.?$/, readdir DIR;

	closedir DIR;

	foreach my $package (@packages)

		{

		next if (-f "$layer/$package");

		$repos{"$layer/$package"} = 1;

		}

	}

print join("\n",sort keys %repos,"","");

my $tree = "d:/Mercurial/";

foreach my $layer ("os", "mw", "app", "ostools")

	{

	opendir DIR, "$tree$layer";

	my @packages = grep !/^\.\.?$/, readdir DIR;

	closedir DIR;

	foreach my $package (@packages)

		{

		next if (-f "$tree$package");

		if (defined $repos{"$layer/$package"})

			{

			# this one is still relevant

			next;

			}

		# package name has changed, I expect

		print "Old package $layer/$package is now obsolete\n";

		rename "$tree$layer/$package", "$tree"."obsolete/".$package;

		}

	}

foreach my $repo (sort keys %repos)

	{

	print "\n\nProcessing $repo\n";

	my ($layer,$package) = split /\//, $repo;

	my $master = "$tree$repo/MCL_$package/.hg";

	if (-d $master)

		{

		# repo already exists - move it into place

		rename "$tree$repo/MCL_$package/.hg", "$repo/.hg";

		}

	else

		{

		# New repo

		print "New repository $repo\n";

		mkdir "$tree$layer";

		mkdir "$tree$layer/$package";

		mkdir "$tree$layer/$package/MCL_$package";

		}

	chdir $repo;

	system("hg init") if (!-d ".hg");

	system("hg", "commit", "--addremove", "-m", "add wk04 Nokia source");

	chdir "../..";

	rename "$repo/.hg", "$tree$repo/MCL_$package/.hg";

	}