with
  DC_Disk;

use
  DC_Disk;

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

procedure Demo is
---------------------------------------------------------------------------
  Name : Name_Type;
  Patterns_Max : constant positive := 4;
  Patterns : Patterns_Type ( 1..Patterns_Max );
  Weights : Weights_Type ( 1..Neuron_Count, 1..Neuron_Count );
begin
  Name_Fetch    ( Name               );
  Patterns_Load ( Name,     Patterns );
  Weights_Load  ( Name,     Weights  );
  Weights_Train ( Patterns, Weights  );
  Weights_Save  ( Name,     Weights  );
end Demo;

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

procedure Patterns_Load (
	    Name     : in     Name_Type;
	    Patterns :    out Patterns_Type ) is
---------------------------------------------------------------------------
  Error : Error_Type;
  Handle: File_Handle_Type;
  Is_EOF: boolean := false;
begin
  Patterns ( 1 ) :=
    ( Input_Last      => Input_Last,
      Output_First    => Output_First,
      Neuron_Count    => Neuron_Count,
      Pattern_Inputs  => ( true, true ),
      Pattern_Outputs => ( others => false ) );
--  Open_File ( Name, Handle, Error );
--  for index in Patterns'range loop
--    ReadLn ( Handle, Patterns ( index ), Is_EOF, Error );
--    exit when Is_EOF;
--  end loop;
--  Close_File ( Handle, Error );
end Patterns_Load;

procedure Weights_Load (
	    Name    : in     Name_Type;
	    Weights :    out Weights_Type ) is
---------------------------------------------------------------------------
begin
  Weights
end Weights_Load;

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;