--
-- Author:  Robert C. Shock,  Dept of CS & CEG   Wright State University
-- In cooperation with:  WRDC/ELED WPAFB   Dayton, OH
--
--
-- source: vhdl_shape_set_style.a
--
-- Purpose
-- The purpose of the procedure vhdl_shape_set_style is to allow one to change the shape specification of vhdl source code without recompiling code. 

-- Assumptions and process overview
-- Input:  device = text_io.standard_input;
--         data = shape specification + vhdl (syntax) source code
-- Output: device = text_io.standard_output
--         data = text format with input shape specification
-- Assumptions: the vhdl_lexicon_shape_style.is_initializing defines the required format of the 'shape specification'


-- Suggested use
-- Change the shape_style without recompiling source code

with text_io;
with vhdl_lexicon;
with vhdl_lexicon_shape_style;

procedure vhdl_shape_set_style is


begin -- MAIN CODE --

vhdl_lexicon_shape_style.iterate_to_standard_output ( 
with_the_shape_specification => 
vhdl_lexicon_shape_style.is_initializing ( text_io.standard_input ) );

exception 
when others =>
vhdl_lexicon.put ( "Error does file exist ?  " & ( 1 => vhdl_lexicon.the_end_line_character ) );

end vhdl_shape_set_style;