package body ANN_Demo is
---------------------------------------------------------------------------
---------------------------------------------------------------------------

procedure Demo is
---------------------------------------------------------------------------
begin
  Name_Fetch ( Name );
  Net_Load   ( Name, Data );
  Weights_Load  ( Name, Weights );
  Weights_Train ( Data, Weights );
  Weights_Save  ( Name, Weights );
end Demo;

procedure Name_Fetch (
	    Name    :    out Name_Type ) is
---------------------------------------------------------------------------
begin
  Name := "TEST0001";
end Name_Fetch;

procedure Data_Load (
	    Name    : in     Name_Type;
	    Data    :    out Data_Type ) is
---------------------------------------------------------------------------
begin

end Data_Load;

procedure Weights_Load (
	    Name    : in     Name_Type;
	    Weights :    out Weights_Type );
procedure Weights_Train (
	    Data    : in     Data_Type;
	    Weights : in out Weights_Type );
procedure Weights_Save (
	    Name : in     Name_Type;
	    Weights : in     Weights_Type );
---------------------------------------------------------------------------
---------------------------------------------------------------------------
end ANN_Demo;