with Text_Io;                           use Text_Io;
package body Libsens.Virtual.Nl_Network is
   procedure Print (Filename : in String; Plug : in NL_Network_Plugin_Record) is
      
      File : File_Type;
      
   begin
      Put_Line("NL network : ");
      Print(Filename, Plugin_Class(Plug));
      
      Open(File, Append_File, Filename);      
      
      --Put_Line(File, Plug.Text.all);
      
      
      Put_Line(File, boolean'Image(Plug.gen_Reuse));	    
      --  Put_Line(File, boolean'Image(Plug.Lead_Reuse));	    
      --  Put_Line(File, boolean'Image(Plug.Drum_Reuse));	    
      
      
      --  Put_Line(File, Plug.Lexical.all);
      --  Put_Line(File, Plug.Train_filename.all);
      
      --  Put_Line(File, real'Image(Plug.converged));
      --  Put_Line(File, Positive'Image(Plug.Max_epoch));
      --  Put_Line(File, boolean'Image(Plug.Reuse));	    
      
      --Put_Line(File, Positive'Image(Plug.Width));
      --Put_Line(File, Positive'Image(Plug.Sample_Max));
      Close(File);
      
      
   end Print;
end Libsens.Virtual.Nl_Network;