diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-02-13 18:27:13 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-02-13 18:27:13 +1100 |
commit | 2b8b55de4a18757e8d6769e458c84f7c1df1e261 (patch) | |
tree | cbd62219babccc04e57fa7708f88385a7f6413d3 /src/crypto-types-random_source.ads | |
parent | 2b842cb65ce29071d5786bdecc834c026d1f2db2 (diff) |
Swapped out crypto package for something smaller, revised other code and readme/notes slightly
Diffstat (limited to 'src/crypto-types-random_source.ads')
-rw-r--r-- | src/crypto-types-random_source.ads | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/crypto-types-random_source.ads b/src/crypto-types-random_source.ads deleted file mode 100644 index 9ad55f6..0000000 --- a/src/crypto-types-random_source.ads +++ /dev/null @@ -1,27 +0,0 @@ -with Ada.Finalization; - -package Crypto.Types.Random_Source is - use Crypto.Types; - package Fin renames Ada.Finalization; - - type Random_Source is abstract new Fin.Controlled with null record; - type Random_Source_Access is access Random_Source; - - Random_Source_Read_Error : exception; - - procedure Initialize (This: in out Random_Source) is abstract; - - procedure Read(This : in out Random_Source; B : out Byte) is abstract; - - procedure Read(This : in out Random_Source; Byte_Array : out Bytes); - - procedure Read(This : in out Random_Source; B : out B_Block128); - - procedure Read(This : in out Random_Source; W : out Word); - procedure Read(This : in out Random_Source; Word_Array : out Words); - - procedure Read(This : in out Random_Source; D : out DWord); - procedure Read(This : in out Random_Source; DWord_Array : out DWords); - - pragma Inline(Read); -end Crypto.Types.Random_Source; |