with ANN7S, DC_Type;
use  ANN7S, DC_Type;

package ANN_Demo is
---------------------------------------------------------------------------
---------------------------------------------------------------------------
subtype Name_Type is string ( 1..8 );
Input_Last   : constant positive := 2;
Output_First : constant positive := 1;
Neuron_Count : constant positive := 2;
type Patterns_Type is array ( positive range <> )
  of Pattern_Type ( Input_Last, Output_First, Neuron_Count );
subtype Weights_Type is Array_Float_2;
---------------------------------------------------------------------------
procedure Demo;
procedure Name_Fetch (
	    Name    :    out Name_Type );
procedure Patterns_Load (
	    Name     : in     Name_Type;
	    Patterns :    out Patterns_Type );
procedure Weights_Load (
	    Name    : in     Name_Type;
	    Weights :    out Weights_Type );
procedure Weights_Train (
	    Patterns    : in     Patterns_Type;
	    Weights : in out Weights_Type );
procedure Weights_Save (
	    Name : in     Name_Type;
	    Weights : in     Weights_Type );
---------------------------------------------------------------------------
---------------------------------------------------------------------------
end ANN_Demo;