Back to...

   1  --  Console I/O for ZipAda, UnZipAda and ReZip tools.
   2  --  It's not nice code (global variables), so please don't use it elsewhere.
   3  
   4  with UnZip;
   5  with Zip;
   6  
   7  with Ada.Strings.Unbounded;
   8  
   9  package Zip_Console_IO is
  10  
  11    package Summary is
  12      total_uncompressed, total_compressed : Zip.Zip_64_Data_Size_Type;
  13      total_entries                        : Natural;
  14      files_per_method                     : array (Zip.PKZip_method) of Natural;
  15      uncompressed_per_method,
  16      compressed_per_method                : array (Zip.PKZip_method) of Zip.Zip_64_Data_Size_Type;
  17      --
  18      procedure Reset;
  19      function Nice_image (format : Zip.PKZip_method) return String;
  20    end Summary;
  21  
  22    procedure My_feedback
  23     (percents_done :  in Natural;
  24      entry_skipped :  in Boolean;
  25      user_abort    : out Boolean);
  26  
  27    procedure My_tell_data
  28     (file_name          : String;
  29      compressed_bytes   : Zip.Zip_64_Data_Size_Type;
  30      uncompressed_bytes : Zip.Zip_64_Data_Size_Type;
  31      method             : Zip.PKZip_method);
  32  
  33    procedure My_resolve_conflict
  34     (file_name       :  in String;
  35      name_encoding   :  in Zip.Zip_Name_Encoding;
  36      action          : out UnZip.Name_Conflict_Intervention;
  37      new_name        : out String;
  38      new_name_length : out Natural);
  39  
  40    procedure My_get_password
  41     (password : out Ada.Strings.Unbounded.Unbounded_String);
  42  
  43  end Zip_Console_IO;