#!/usr/bin/perl -w
# Using XML::DT
# Author: Jose Joao Dias de Almeida <jj@di.uminho.pt>
# modified by Michel Rodriguez <mirod@xmltwig.com>

use strict;
use XML::DT ;
my $i=0;

my %handler=(
     -type => { prod => MMAPON("rhs","com","wfc","vc") },
     -default => sub{"$c"},
     com  => sub{""},                            #remove comments
     prod => sub{ $i++;
         my $prod= "[$i] $c->{lhs} ::= ". join("" , @{$c->{rhs}});
         print clean( $prod), "\n";
       }
     );

dt('REC-xml-19980210.xml',%handler);  

sub clean { 
        my( $string)= @_;
        $string =~ s/\xc2\xa0/ /sg;
        $string =~ s/\s+/ /g; $string=~ s{\s$}{}g;
        return $string;
}