refactoring of hashlib4pascal interfaces.

src/libraries/hashlib4pascal/HlpAP.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TAP = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TAP = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpAdler32.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TAdler32 = class sealed(THash, IChecksum, IBlockHash, IHash32,
+  TAdler32 = class sealed(THash, IChecksum, IHash32,
     ITransformBlock)
 
   strict private

src/libraries/hashlib4pascal/HlpBKDR.pas

@@ -14,7 +14,7 @@ uses
 
 type
 
-  TBKDR = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TBKDR = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpBernstein.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TBernstein = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TBernstein = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpBernstein1.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TBernstein1 = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TBernstein1 = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpCRC16.pas

@@ -24,7 +24,7 @@ type
 
   end;
 
-  TCRC16 = class(THash, IChecksum, IBlockHash, IHash16, ITransformBlock)
+  TCRC16 = class(THash, IChecksum, IHash16, ITransformBlock)
 
   strict private
 

src/libraries/hashlib4pascal/HlpCRC32.pas

@@ -26,7 +26,7 @@ type
 
   end;
 
-  TCRC32 = class(THash, IChecksum, IBlockHash, IHash32, ITransformBlock)
+  TCRC32 = class(THash, IChecksum, IHash32, ITransformBlock)
 
   strict private
 

src/libraries/hashlib4pascal/HlpCRC64.pas

@@ -24,7 +24,7 @@ type
 
   end;
 
-  TCRC64 = class(THash, IChecksum, IBlockHash, IHash64, ITransformBlock)
+  TCRC64 = class(THash, IChecksum, IHash64, ITransformBlock)
 
   strict private
 

src/libraries/hashlib4pascal/HlpDJB.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TDJB = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TDJB = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpELF.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TELF = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TELF = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpFNV.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TFNV = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TFNV = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpFNV1a.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TFNV1a = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TFNV1a = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpFNV1a64.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TFNV1a64 = class sealed(THash, IHash64, IBlockHash, ITransformBlock)
+  TFNV1a64 = class sealed(THash, IHash64, ITransformBlock)
   strict private
 
     Fm_hash: UInt64;

src/libraries/hashlib4pascal/HlpFNV64.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TFNV64 = class sealed(THash, IHash64, IBlockHash, ITransformBlock)
+  TFNV64 = class sealed(THash, IHash64, ITransformBlock)
   strict private
 
     Fm_hash: UInt64;

src/libraries/hashlib4pascal/HlpICRC.pas

@@ -5,12 +5,12 @@ unit HlpICRC;
 interface
 
 uses
-  HlpIHash,
+  HlpIHashInfo,
   HlpHashLibTypes;
 
 type
 
-  ICRC = Interface(IHash)
+  ICRC = Interface(IChecksum)
     ['{44A105E5-6716-43C0-BE69-AE80F87FDC39}']
 
     function GetNames: THashLibStringArray;

src/libraries/hashlib4pascal/HlpIHashInfo.pas

@@ -16,7 +16,7 @@ type
     ['{0C375CFF-B379-41B8-955F-A32E22991651}']
   end;
 
-  IBlockHash = Interface(IHash)
+  IBlockHash = Interface(IInterface)
     ['{3B9A2D29-AC4E-44E4-92B1-6AF9A64DFF0A}']
   end;
 
@@ -24,11 +24,11 @@ type
     ['{7C7E8B14-DBC7-44A3-BB7C-B24E0BFAA09C}']
   end;
 
-  IChecksum = Interface(IInterface)
+  IChecksum = Interface(IHash)
     ['{EF0885C5-D331-44D8-89CA-05409E20F76E}']
   end;
 
-  ICrypto = Interface(IBlockHash)
+  ICrypto = Interface(IHash)
     ['{5C669048-644C-4E96-B411-9FEA603D7086}']
   end;
 

src/libraries/hashlib4pascal/HlpJS.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TJS = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TJS = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpNullDigest.pas

@@ -15,7 +15,7 @@ uses
   HlpIHashResult;
 
 type
-  TNullDigest = class sealed(THash, IBlockHash, ITransformBlock)
+  TNullDigest = class sealed(THash, ITransformBlock)
   strict private
   var
     FbOut: TMemoryStream;

src/libraries/hashlib4pascal/HlpOneAtTime.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TOneAtTime = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TOneAtTime = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpPJW.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TPJW = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TPJW = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpRS.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TRS = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TRS = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash, Fm_a: UInt32;

src/libraries/hashlib4pascal/HlpRotating.pas

@@ -14,7 +14,7 @@ uses
   HlpIHashResult;
 
 type
-  TRotating = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TRotating = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpSDBM.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TSDBM = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TSDBM = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpShiftAndXor.pas

@@ -13,7 +13,7 @@ uses
   HlpIHashResult;
 
 type
-  TShiftAndXor = class sealed(THash, IHash32, IBlockHash, ITransformBlock)
+  TShiftAndXor = class sealed(THash, IHash32, ITransformBlock)
   strict private
 
     Fm_hash: UInt32;

src/libraries/hashlib4pascal/HlpXXHash32.pas

@@ -20,7 +20,7 @@ resourcestring
 
 type
 
-  TXXHash32 = class sealed(THash, IHash32, IBlockHash, IHashWithKey,
+  TXXHash32 = class sealed(THash, IHash32, IHashWithKey,
     ITransformBlock)
 
   strict private

src/libraries/hashlib4pascal/HlpXXHash64.pas

@@ -20,7 +20,7 @@ resourcestring
 
 type
 
-  TXXHash64 = class sealed(THash, IHash64, IBlockHash, IHashWithKey,
+  TXXHash64 = class sealed(THash, IHash64, IHashWithKey,
     ITransformBlock)
 
   strict private