Back to...

   1  --  Contributed by ITEC - NXP Semiconductors
   2  --
   3  --  June 2008
   4  --
   5  
   6  with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
   7  
   8  package RW_File is
   9  
  10     procedure Read_File (Filename : String;
  11                          Content : out Unbounded_String);
  12  
  13     procedure Write_File (Filename : String;
  14                           Content : Unbounded_String);
  15  
  16     type Line_processing is access procedure (Line : String);
  17  
  18     procedure Process_Lines (S : Unbounded_String;
  19                              Process_Line : Line_processing);
  20  
  21  end RW_File;