-----------------------------------------------------------------------
--  keystore-tools -- Tools for the keystore
--  Copyright (C) 2019 Stephane Carrez
--  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
--  SPDX-License-Identifier: Apache-2.0
-----------------------------------------------------------------------

with Ada.Directories;

package Keystore.Tools is

   subtype Directory_Entry_Type is Ada.Directories.Directory_Entry_Type;

   --  Store the file in the keystore and use the prefix followed by the file basename
   --  for the name to identify the stored the content.
   procedure Store (Wallet  : in out Keystore.Wallet'Class;
                    Path    : in String;
                    Prefix  : in String);

   --  Scan the directory for files matching the pattern and store them in the
   --  keystore when the filter predicate accepts them.
   procedure Store (Wallet  : in out Keystore.Wallet'Class;
                    Path    : in String;
                    Prefix  : in String;
                    Pattern : in String;
                    Filter  : not null
                    access function (Ent : in Directory_Entry_Type) return Boolean);

end Keystore.Tools;