(0 . 0)(1 . 22)
1091 -- S.MG, 2018
1092
1093 with Ada.Exceptions; use Ada.Exceptions;
1094
1095 package body RNG is
1096
1097 procedure Get_Octets( O: out Raw_Types.Octets ) is
1098 F : Octet_IO.File_Type;
1099 begin
1100 begin
1101 Octet_IO.Open( File => F, Mode => Octet_IO.In_File, Name => RNG_PATH );
1102 for I in O'Range loop
1103 Octet_IO.Read( F, O(I) );
1104 end loop;
1105 Octet_IO.Close(F);
1106 exception
1107 when others => Raise_Exception(FG_Failure'Identity,
1108 "Failed to access default RNG source!");
1109 end;
1110 end Get_Octets;
1111
1112 end RNG;