#!/usr/bin/perl

require 'metadata.pl';
require 'ltime.pl';

local $/;
open(IN, $ARGV[0]);
undef $/;
my $abc = <IN>;
close IN;

($rec, $fields) = &ReadBibData(\$abc);

@author = split(/\sand\s/, $rec->{AUTHOR});
$authornbr = scalar @author;
$email = 'email';
$authors = '';
for(my $nr=1; $nr <= $authornbr; $nr++){
    $author[$nr-1] =~ /^(.+),\s+(.*)$/;
    my $given = $2;
    my $surname = $1;
    $insts = '';
    foreach my $i (split(/,/, $rec->{'INST'.$nr})) {
	$insts .= "      <inst nr=\"$i\"/>\n";
    }
    $authors .= <<ENDofAUTHOR;
    <author nr="$nr">
      <givennames>$given</givennames>
      <surname>$surname</surname>
      <$email>$rec->{'EMAIL'.$nr}</email>
$insts
      <addr>$rec->{'ADDRESS'.$nr}</addr>
      <note>$rec->{'NOTE'.$nr}</note>
    </author>
ENDofAUTHOR
}


$instnbr = (grep {/INSTITUT/} (keys %$rec));
$instituts = '';
for(my $nr=1; $nr <= $instnbr; $nr++){
    my @part = split(/\\\\\s*/, $rec->{'INSTITUT'.$nr});
    $instituts .= <<ENDofINST;
    <institut nr="$nr">
      <chapter>$part[0]</chapter>
      <university>$part[1]</university>
      <addr>$part[2]</addr>
      <country>$part[3]</country>
    </institut>
ENDofINST
}

sub MainItems{
    my $content = $rec->{$_[0]};
    my @mitem = split(/;\s*/, $content);
    my $mi = '';
    foreach my $m (@mitem) {
	if ($m =~ /^(\w+)\s+(\d+)$/) {
	    my $k = $1; $k =~ tr/A-Z/a-z/;
	    $mi .= "     <mitem kind=\"$k\" nr=\"$2\"/>\n";
	}
    }
    $mi;
}

@key = split(/;\s*/, $rec->{'KEYWORDS'});
$keywords = '';
foreach my $m (@key) {
    if ($m) {
	$keywords .= "    <keyword>$m</keyword>\n";
    }
}

@ext = split(/;\s*/, $rec->{'EXTERNALREFS'});
$extrefs = '';
foreach my $m (@ext) {
    if ($m) {
	$extrefs .= "    <extref>$m</extref>\n";
    }
}

@env = split(/;\s*/, $rec->{'ENVIRONMENT'});
$environ = '';
foreach my $m (@env) {
    if ($m =~ /^(\w+):(.+)$/) {
	$environ .= "    <envref artid=\"$1\" kind=\"$2\"/>\n";
    }
}

sub Elements{
    my $secnr = $_[0];
    my $elem = '';
    my $gard = 0;
    foreach my $item (@$fields) {
	if ($item =~ /^SECTION(\d+)$/) {
	    if ($1 == $secnr) {$gard = 1} else {$gard = 0};
	}
	if ($gard && ($item =~ /^ITEM([A-Z]+)(\d+)$/)) {
	    my $k = $1; $k =~ tr/A-Z/a-z/;
	    $elem .= "      <item kind=\"$k\" nr=\"$2\">\n";
	    if ($rec->{$item} =~ /^(.*) -- (.*)$/) {
		$elem .= "        <lname>$1</lname>\n";
		$elem .= "        <fullname>$2</fullname>\n";
	    }
	    $elem .= "      </item>\n";
	}
    }
    $elem;
}

$secnbr = (grep {/SECTION/} (keys %$rec));
$sections = '';
for(my $nr=1; $nr <= $secnbr; $nr++){
    my $mainitems = &MainItems('MAINITEMS'.$nr);
    my $elements = &Elements($nr);
    $sections .= <<ENDofSEC;
  <section nr="$nr">
    <sectitle>$rec->{'SECTION'.$nr}</sectitle>
    <note>$rec->{'SECNOTE'.$nr}</note>
    <intro>$rec->{'INTRO'.$nr}</intro>
    <goal>$rec->{'GOAL'.$nr}</goal>
    <main-items>
$mainitems    </main-items>
    <elements>
$elements    </elements>
  </section>
ENDofSEC
}

$mainitems = &MainItems('MAINITEMS');

print <<ENDofXML;
<?xml version="1.0"?>
<!DOCTYPE article SYSTEM "bxb.dtd">

<?xml-stylesheet type="text/xml" href="bxb2html.xsl"?>

<article mmlid="$rec->{'name'}"
	 volume="$rec->{'VOLUME'}" number="$rec->{'NUMBER'}"
         pages="$rec->{'PAGES'}" year="$rec->{'YEAR'}"
	 mmlversion="$rec->{'VERSION'}"
	 doi="$rec->{'DOI'}">
  <title>
    <maintitle>$rec->{'TITLE'}</maintitle>
    <note>$rec->{'NOTE'}</note>
    <subtitle>$rec->{'SUBTITLE'}</subtitle>
    <subnote>$rec->{'SUBNOTE'}</subnote>
  </title>

  <authors nbr="$authornbr">
$authors  </authors>

  <institutions>
$instituts  </institutions>

  <externalrefs>
$extrefs  </externalrefs>

  <summary>$rec->{'SUMMARY'}  </summary>

  <keywords>
$keywords  </keywords>

  <submitted>$rec->{'SUBMITTED'}</submitted>
  <revised>$rec->{'REVISED'}</revised>

  <environment>
$environ  </environment>

  <intro>$rec->{'INTRO'}</intro>

  <goal>$rec->{'GOAL'}</goal>

  <main-items>
$mainitems  </main-items>

  <acknowledgement>$rec->{'ACKNOWLEDGEMENT'}</acknowledgement>

$sections
</article>

ENDofXML