#!/usr/bin/perl -w
# Por fari novajn konvertilojn

my ($el,$al) = @ARGV;
my $eldos = $el . "2";
my $aldos = "2$al";
my $nomo = $el . "2$al";
my @eliteroj;
my @aliteroj;

print "Uzado: unua_sistemo dua_sistemo > unua_sistemo2dua_sistemo\n" if (! $el | ! $al);
exit if (! $el | ! $al);

while (<$eldos*>) {
    unless ($_ eq $nomo) {
	$eldos = $_;
	last;
    }
}
while (<*$aldos>) {
    unless ($_ eq $nomo) {
	$aldos = $_;
	last;
    }
}

print STDERR "kreas $nomo el $eldos kaj $aldos\n";

open(EL,$eldos) or die "ne povas malfermi $eldos : $!";
$i = 0;
while (<EL>) {
    next if (! m!s\@!);
    m!s\@(.*?)\@!;
    $eliteroj[$i] = $1;
    $i++;
}
open(AL,$aldos) or die "ne povas melfermi $aldos : $!";
$i = 0;
while (<AL>) {
    next if (! m!s\@!);
    m!s\@.*?\@(.*?)\@!;
    $aliteroj[$i] = $1;
    $i++;
}

print "#!/usr/bin/perl\nwhile (<>) {\n";
$i = 0;
while ($eliteroj[$i]) {
    print "    s\@$eliteroj[$i]\@$aliteroj[$i]\@g;\n";
    $i++;
}
print "    print;\n};\n";