use strict;

# ==============================================================================
# list of all used elements
sub DTDe
{
    my ($node, $dtd) = @_;
    $_ = $node->{'parent'}{'tag'} . "/" . $node->{'tag'};
#    $_ = "/" . $node->{'tag'};

    if( $node->{'tag'} eq 'TEXT' )
    {
        return $node->Proc( $dtd );
    }

    $_ =~ s</(tt|i|b)$></(tt|i|b)>;
    $_ =~ s<^(tt|i|b)/><(tt|i|b)/>;
    $_ =~ s</(dd|dt|li)$></(dd|dt|li)>;
    $_ =~ s<^(dd|dt|li)/><(dd|dt|li)/>;
    $_ =~ s</h[1234]$></h[1234]>;
    $_ =~ s<^h[1234]/><h[1234]/>;
    $_ =~ s</[uod]l$></[uod]l>;
    $_ =~ s<^[uod]l/><[uod]l/>;
    $_ =~ s</t[dh]$></t[dh]>;
    $_ =~ s<^t[dh]/><t[dh]/>;


    if( !defined( $main::tags{$_}) )
    {
        $main::tags{$_} = 1;
        print STDOUT $_, "\n";
    }
    
    return $node->Proc( $dtd );
}
    
1;
