1	#!/usr/bin/perl
     2	use XML::DT ;
     3	my $filename = shift;
       
     4	%p_proc=(
     5	     '-default'    => sub{ "$c"},
     6	     'proceedings' => sub{ "Proceedings $c". mkKeyInd() },
     7	     'abstract'    => sub{ ""},
     8	     'article'     => sub{ dt($v{file}, %p_art) },
     9	     'chair'       => sub{ "chair: $c"},
    10	);
       
    11	%p_art=(
    12	     '-default'    => sub{ ""},
    13	     'title'       => sub{ $tit= $c; "  $c"},
    14	     'author'      => sub{ "     <i>$c</i>"},
    15	     'article'     => sub{ "$c"},
    16	     'keyword'     => sub{ $ind{$c} .= "\n      $tit"; "";}
    17	);
       
    18	print dt($filename,%p_proc); 
       
    19	sub mkKeyInd { my $r="Index by keywords\n";
    20	  for $term (sort keys %ind){ $r .= "\n   $term $ind{$term}";}
    21	  $r
    22	}