hierarchy.pm

這是一個VHDL的parser目前版本為0.12

##################################################################
# Copyright (C) 2000 Greg London   All Rights Reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
##################################################################

##################################################################
package Hardware::Vhdl::Hierarchy;
use Hardware::Vhdl::Parser;
@ISA = ( 'Hardware::Vhdl::Parser' );
##################################################################
use vars qw ( $VERSION );
$VERSION = '0.02';
##################################################################

##################################################################
sub new
##################################################################
{
 my ($pkg) = @_;

 # make Hardware::Vhdl::Parser object, use SUPER:: to find the method via @ISA
 my $r_hash = $pkg->SUPER::new;

 $r_hash -> Replace ( q( 

component_instantiation_statement :
	instantiation_label 
	':'
	entity_configuration_component
	generic_map_section(?)
	port_map_section(?)
	';'

		{ print "INSTANCENAME $item{instantiation_label} \n"; }

entity_name : identifier 
		{ print "ENTITY_NAME $item{identifier} \n"; }

 ));





 # bless it as a vhdl_hierarchy object
 bless $r_hash, $pkg;
 return $r_hash;
}