#! perl
use RISCOS;
use File::Copy syscopy;

die "$0 <RISCOSSourceDir> <UnixDestDir>" if( $#ARGV < 1 );

$sourcedir = $ARGV[0];
$destdir = $ARGV[1];

foreach( 'cc', 'c', 'h' )
{
  $ext{ $_ } = $_;	# Hash directory name by suffix
			# (Currently dirname == suffix )
}


foreach $dir ( keys %ext )
{
    print "$sourcedir.$dir\n";
    opendir( MYDIR, "$sourcedir.$dir" ) || next;


    foreach $file ( readdir( MYDIR ) )
    {
	$source = "$sourcedir.$dir.$file";
	$dest = "$destdir.$file/$ext{$dir}";
	print "$source -> $dest\n";
	syscopy $source, $dest, 0x102 or print STDERR "$!\n";
    }
}
