parser.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.
##################################################################


##################################################################
# this module defines a grammar for the VHDL language
# that can be used by Parse::RecDescent
##################################################################

package Hardware::Vhdl::Parser;

use Parse::RecDescent;

use strict;
use vars qw($VERSION @ISA);


@ISA = ( 'Parse::RecDescent' );

$VERSION = '0.12';
#########################################################################


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

 # get the vhdl grammar defined in this file
 my $vhdl_grammar = $pkg->grammar();

 # create a parser object, use SUPER:: to find the method via @ISA
 my $r_hash = $pkg->SUPER::new  ($vhdl_grammar);

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



##################################################################
sub grammar
##################################################################
{















































# note, q{  statement should be on line 100, 
# to make it easier to find referenced line numbers

return  q{

#START_OF_GRAMMAR

####################################################
# define reserved words. case insensitive
####################################################
reserved_word_abs : 
	/abs/i

reserved_word_access : 
	/access/i

reserved_word_after : 
	/after/i

reserved_word_alias : 
	/alias/i

reserved_word_all : 
	/all/i

reserved_word_and : 
	/and/i

reserved_word_architecture : 
	/architecture/i

reserved_word_array : 
	/array/i

reserved_word_assert : 
	/assert/i

reserved_word_attribute : 
	/attribute/i

reserved_word_begin : 
	/begin/i

reserved_word_block : 
	/block/i

reserved_word_body : 
	/body/i

reserved_word_buffer : 
	/buffer/i

reserved_word_bus : 
	/bus/i

reserved_word_case : 
	/case/i

reserved_word_component : 
	/component/i

reserved_word_configuration : 
	/configuration/i

reserved_word_constant : 
	/constant/i

reserved_word_disconnect : 
	/disconnect/i

reserved_word_downto : 
	/downto/i

reserved_word_else : 
	/else/i

reserved_word_elsif : 
	/elsif/i

reserved_word_end : 
	/end/i

reserved_word_entity : 
	/entity/i

reserved_word_exit : 
	/exit/i

reserved_word_file : 
	/file/i

reserved_word_for : 
	/for/i

reserved_word_function : 
	/function/i

reserved_word_generate : 
	/generate/i

reserved_word_generic : 
	/generic/i

reserved_word_group : 
	/group/i

reserved_word_guarded : 
	/guarded/i

reserved_word_if : 
	/if/i

reserved_word_impure : 
	/impure/i

reserved_word_in : 
	/in/i

reserved_word_inertial : 
	/inertial/i

reserved_word_inout : 
	/inout/i

reserved_word_is : 
	/is/i

reserved_word_label : 
	/label/i

reserved_word_library : 
	/library/i

reserved_word_linkage : 
	/linkage/i

reserved_word_literal : 
	/literal/i

reserved_word_loop : 
	/loop/i

reserved_word_map : 
	/map/i

reserved_word_mod : 
	/mod/i

reserved_word_nand : 
	/nand/i

reserved_word_new : 
	/new/i

reserved_word_next : 
	/next/i

reserved_word_nor : 
	/nor/i

reserved_word_not : 
	/not/i

reserved_word_null : 
	/null/i

reserved_word_of : 
	/of/i

reserved_word_on : 
	/on/i

reserved_word_open : 
	/open/i

reserved_word_or : 
	/or/i

reserved_word_others : 
	/others/i

reserved_word_out : 
	/out/i

reserved_word_package : 
	/package/i

reserved_word_port : 
	/port/i

reserved_word_postponed : 
	/postponed/i

reserved_word_procedure : 
	/procedure/i

reserved_word_process : 
	/process/i

reserved_word_pure : 
	/pure/i

reserved_word_range : 
	/range/i

reserved_word_record : 
	/record/i

reserved_word_register : 
	/register/i

reserved_word_reject : 
	/reject/i

reserved_word_rem : 
	/rem/i

reserved_word_report : 
	/report/i

reserved_word_return : 
	/return/i

reserved_word_rol : 
	/rol/i

reserved_word_ror : 
	/ror/i

reserved_word_select : 
	/select/i

reserved_word_severity : 
	/severity/i

reserved_word_signal : 
	/signal/i

reserved_word_shared : 
	/shared/i

reserved_word_sla : 
	/sla/i

reserved_word_sll : 
	/sll/i

reserved_word_sra : 
	/sra/i

reserved_word_srl : 
	/srl/i

reserved_word_subtype : 
	/subtype/i

reserved_word_then : 
	/then/i

reserved_word_to : 
	/to/i

reserved_word_transport : 
	/transport/i

reserved_word_type : 
	/type/i

reserved_word_unaffected : 
	/unaffected/i

reserved_word_units : 
	/units/i

reserved_word_until : 
	/until/i

reserved_word_use : 
	/use/i

reserved_word_variable : 
	/variable/i

reserved_word_wait : 
	/wait/i

reserved_word_when : 
	/when/i

reserved_word_while : 
	/while/i

reserved_word_with : 
	/with/i

reserved_word_xnor : 
	/xnor/i

reserved_word_xor : 
	/xor/i



eofile : /^\Z/

####################################################
####################################################

design_file :  
	design_unit(s) eofile { $return = $item[1] }

design_unit : 
	context_clause(s?) library_unit  
	| <error> 

context_clause :
	  library_clause 
	| use_clause 

library_unit : 
	  entity_declaration 
	| architecture_body 
	| package_declaration 
	| package_body 
	| configuration_declaration 

library_clause : 
	reserved_word_library library_name_list ';'  

library_name_list : 
	identifier_comma_identifier

use_clause : 
	reserved_word_use  
	selected_name_comma_selected_name
	';' 

####################################################
####################################################

entity_declaration : 
	reserved_word_entity 
	entity_name 
	reserved_word_is 
	generic_declaration_section(?)
	port_declaration_section(?)
	entity_declaritive_item(?)
	begin_entity_section(?)
	reserved_word_end 
	reserved_word_entity(?) 
	identifier(?) 
	';'  
	 

begin_entity_section :
	reserved_word_begin
	( concurrent_assertion_statement |
	passive_concurrent_procedure_call_statement |
	passive_process_statement ) 

passive_concurrent_procedure_call_statement :
	concurrent_procedure_call_statement

passive_process_statement :
	process_statement

entity_declaritive_item : 
	| signal_declaration 
	| constant_declaration 
	| type_declaration 
	| subtype_declaration 
	| shared_variable_declaration 
	| file_declaration 
	| alias_declaration 
	| attribute_declaration 
	| attribute_specification 
	| disconnection_specification 
	| use_clause 
	| group_template_declaration 
	| group_declaration 
	| subprogram_declaration 
	| subprogram_body 

architecture_body :
	reserved_word_architecture 
		identifier 
	reserved_word_of 
		entity_name 
	reserved_word_is
		block_declarative_item(s?)
	reserved_word_begin
		concurrent_statement(s?)
	reserved_word_end 
	reserved_word_architecture(?) 
	identifier(?) 
	';' 
	| <error> 

configuration_declaration :
	reserved_word_configuration 
		identifier 
	reserved_word_of 
		entity_name 
	reserved_word_is
		use_clause_or_attribute_specification_or_group_declaration(s?)
		block_configuration
	reserved_word_end 
	reserved_word_configuration(?) 
	identifier(?) 
	';' 

use_clause_or_attribute_specification_or_group_declaration : 
	  use_clause 
	| attribute_specification 
	| group_declaration


block_configuration : 
                  reserved_word_for 
                          architecture_name
                  use_clause_or_for_use_clause(s?)
                  reserved_word_end 
                  reserved_word_for 
                  ';'

use_clause_or_for_use_clause :
	  use_clause
	| for_use_clause

for_use_clause : 
                  reserved_word_for
                  identifier
                  ':'
                  identifier
                  use_clause(?)
                  reserved_word_end 
                  reserved_word_for 
                  ';'

package_declaration :
	reserved_word_package 
		identifier 
	reserved_word_is
		package_declarative_item(s?)
	reserved_word_end 
	reserved_word_package(?) 
	identifier(?) 
	';'  
	| <error> 

package_declarative_item :
	  subprogram_declaration 
	| type_declaration 
	| subtype_declaration 
	| constant_declaration 
	| signal_declaration 
	| shared_variable_declaration 
	| file_declaration 
	| alias_declaration 
	| component_declaration 
	| attribute_declaration 
	| attribute_specification 
	| disconnection_specification 
	| use_clause 
	| group_template_declaration 
	| group_declaration 

package_body :
	reserved_word_package 
	reserved_word_body 
		identifier 
	reserved_word_is
		package_body_declarative_item(s?)
	reserved_word_end 
	reserved_word_package_and_body(?) 
	identifier(?) 
	';' 
	| <error> 

reserved_word_package_and_body :
	reserved_word_package 
	reserved_word_body

package_body_declarative_item :
	  subprogram_body 
	| subprogram_declaration 
	| type_declaration 
	| subtype_declaration 
	| constant_declaration 
	| shared_variable_declaration 
	| file_declaration 
	| alias_declaration 
	| use_clause 
	| group_template_declaration