with Text_Io;                           use Text_Io;
package body Libsens.Virtual.NN_Plugin is
   procedure Print (Filename : in String; Plug : in NN_Mono_Plugin_Record) is
      
      File : File_Type;
   begin
      Put_Line("NN Mono Plugin : ");
      Print(Filename, Plugin_Class(Plug));
      
      Open(File, Append_File, Filename);      
      Put_Line(File, Plug.Name.all);                  
      Put_Line(File, Positive'Image(Plug.Width));
      Put_Line(File, Positive'Image(Plug.Sample_Max));
      Put_Line(File, boolean'Image(Plug.Reuse));	    
      Put_Line(File, real'Image(Plug.converged));
      Put_Line(File, Positive'Image(Plug.Max_epoch));
      Close(File);
      
   end Print;
   
   procedure Print (Filename : in String; Plug : in NN_Poly_Plugin_Record) is
      
      File : File_Type;
   begin
      Put_Line("NN Poly Plugin : ");
      Print(Filename, Plugin_Class(Plug));
      
      Open(File, Append_File, Filename);      
      Put_Line(File, Plug.Name.all);                  
      Put_Line(File, Positive'Image(Plug.Width));
      Put_Line(File, Positive'Image(Plug.Sample_Max));
      Put_Line(File, boolean'Image(Plug.Reuse));	    
      Put_Line(File, real'Image(Plug.converged));
      Put_Line(File, Positive'Image(Plug.Max_epoch));
      Close(File);
      
      
   end Print;
   
   procedure Print (Filename : in String; Plug : in NN_Rythm_Plugin_Record) is
      
      File : File_Type;
   begin
      Put_Line("NN Rythm Plugin : ");
      Print(Filename, Plugin_Class(Plug));
      
      Open(File, Append_File, Filename);      
      Put_Line(File, Plug.Name.all);                  
      Put_Line(File, Positive'Image(Plug.Width));
      Put_Line(File, Positive'Image(Plug.Sample_Max));
      Put_Line(File, boolean'Image(Plug.Reuse));	    
      Put_Line(File, real'Image(Plug.converged));
      Put_Line(File, Positive'Image(Plug.Max_epoch));
      Close(File);
      
      
   end Print;
end Libsens.Virtual.NN_Plugin;