#!/usr/bin/perl

$/ = "**";

%LANGS = qw/English 1 French 1 German 1/;

print "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n";
print "<trados>\n";

while(<>) {
  my $clang = undef;
  s!\*\*$!!;
  next if m!^[\n\s]*$!s;

  print "<_entry_>\n";

  @entries = split /\n/, $_;
  for $x (@entries) {
    next if $x =~ m!^\s*$!;

    $x =~ m!<([^>]*)>!;
    $id = $1;
    $term = $';

    if ($LANGS{$id}) {
      if ($clang) {
	print " </_lang_>\n";
      }
      $clang = $id;
      print " ", start_tag("_lang_", { lang => $clang, term => $term }), "\n";
    } else {
      print " " if $clang;
      print " ",start_tag($id),$term,end_tag($id),"\n";
    }
    #print "-$x\n";
  }
  if ($clang) {
    print " </_lang_>\n";
  }

  print "</_entry_>\n";

  print "\n <!-- - - - - - - - - - - - - - - - - - - - - -->\n\n";
}

print "</trados>\n";

sub end_tag {
  my $tagname = shift;
  $tagname =~ s/\s+//g;
  $tagname = lc($tagname);
  return "</$tagname>";
}

sub start_tag {
  my $tagname = shift;
  my $a = shift;
  my %x = %$a;
  my $attrs = join("",map {" $_=\"$x{$_}\"" } keys %x);
  $tagname =~ s/\s+//g;
  $tagname = lc($tagname);
  return "<$tagname$attrs>";
}