Back to...

   1  --  Portable package for getting temporary file names but the behaviour
   2  --  of normal files which can be created, closed, re-read, etc. and are
   3  --  not automatically deleted by the Ada run-time. Downside: the program
   4  --  needs to delete the files itself.
   5  
   6  with Ada.Text_IO;
   7  
   8  package Flexible_temp_files is
   9  
  10    procedure Initialize;
  11    procedure Finalize;
  12  
  13    --  Give a suitable temporary file name radix (no extension),
  14    --  eventually with a path.
  15    function Radix return String;
  16  
  17  private
  18    radix_temp_file : Ada.Text_IO.File_Type;
  19  end Flexible_temp_files;