# add order information to corpus XML document

%ordermap = ();
$curterm = 1;
$minlc = 99;
$curid="";

while (<>) {
    if (($key) = m'<t .*id="([^"]*)"') {
	# add ID/position info to hash
	$ordermap{$key} = $curterm++;
	print;
    }
    elsif (($temp) = m'<nt .*id="([^"]*)"') {
        # update $curid
	$curid = $temp;
	print;
    }
    elsif (($key) = m'<edge .*idref="([^"]*)"') {
        # lookup $1 in hash to $hval and replace /> with lc="$hval"/>
        # update $minlc
	$temp = $ordermap{$key};
	s!/>!lc="$temp" />!;
	print;
	$minlc = $temp if $temp < $minlc;
    }
    elsif (m!</nt>!) {
        #   add $minlc to hash for $curid
	$ordermap{$curid} = $minlc;
	$minlc = 99;
	print;
    }
    elsif (m!</s>!) {
        #   reset hash
	%ordermap = ();
	$curterm = 1;
	print;
    }
    else {
	print;
    }
}