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.adb | |
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.adb')
-rw-r--r-- | src/crypto-types-random_source.adb | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/src/crypto-types-random_source.adb b/src/crypto-types-random_source.adb deleted file mode 100644 index 5fd4dbb..0000000 --- a/src/crypto-types-random_source.adb +++ /dev/null @@ -1,55 +0,0 @@ -package body Crypto.Types.Random_Source is - - procedure Read(This : in out Random_Source; Byte_Array : out Bytes) is - begin - for I in Byte_Array'Range loop - Read(Random_Source'class(This),Byte_Array(I)); - end loop; - end Read; - - ---------------------------------------------------------------------- - - procedure Read(This : in out Random_Source; B : out B_Block128) is - begin - for I in B'Range loop - Read(Random_Source'class(This),B(I)); - end loop; - end Read; - - ---------------------------------------------------------------------- - - procedure Read(This : in out Random_Source; W : out Word) is - B : Byte_Word; - begin - This.Read(Bytes(B)); - W := To_Word(B); - end Read; - - ---------------------------------------------------------------------- - - procedure Read(This : in out Random_Source; Word_Array : out Words) is - begin - for I in Word_Array'Range loop - This.Read(Word_Array(I)); - end loop; - end Read; - - ---------------------------------------------------------------------- - - procedure Read(This : in out Random_Source; D : out DWord) is - B : Byte_DWord; - begin - This.Read(Bytes(B)); - D := To_DWord(B); - end Read; - - ---------------------------------------------------------------------- - - procedure Read(This : in out Random_Source; DWord_Array : out DWords) is - begin - for I in DWord_Array'Range loop - This.Read(DWord_Array(I)); - end loop; - end Read; - -end Crypto.Types.Random_Source; |