-- -- Author: Robert C. Shock, Dept of CS & CEG Wright State University -- In cooperation with: WRDC/ELED WPAFB Dayton, OH -- -- source: vhdl_name_.a -- with vhdl_lexicon; package vhdl_name is subtype reserve_word is vhdl_lexicon.element_name range vhdl_lexicon.abs_id .. vhdl_lexicon.xor_id; subtype single_delimiter is vhdl_lexicon.element_name range vhdl_lexicon.ampersand .. vhdl_lexicon.vertical_bar; subtype compound_delimiter is vhdl_lexicon.element_name range vhdl_lexicon.arrow ..vhdl_lexicon. box; subtype separator is vhdl_lexicon.element_name range vhdl_lexicon.horizontal_tab .. vhdl_lexicon.end_file; -- SELECTORS function is_compound_delimiter ( the_value: in string ) return boolean; function compound_delimiter_name_is return compound_delimiter; -- Exception: raise lexical_name_is_not_known when compound_delimiter_name is not defined function is_single_delimiter ( the_character: in character ) return boolean ; function single_delimiter_name_is return single_delimiter; -- Exception: raise lexical_name_is_not_known when single_delimiter_name is not defined function is_separator ( the_character: in character ) return boolean; function separator_name_is return separator; -- Exception: raise lexical_name_is_not_known when separator_name is not defined -- RESERVE WORD MANAGEMENT function is_reserve_word ( the_value: in string ) return boolean; function reserve_word_name_is return reserve_word; -- Exception: raise lexical_name_is_not_known when reserve_word_is_not_present -- EXCEPTIONS lexical_name_is_not_known: exception; end vhdl_name;