|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 1698 (0x6a2)
Types: TextFile
Names: »V«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦12c68c704⟧
└─⟦this⟧
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─ ⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦220843204⟧
└─⟦this⟧
with System;
package Random is
type Handle is private;
function Float_Value (The_Handle : Handle) return Float;
--
-- Will return values in the range [0.0 .. 1.0), but note that type
-- conversion may cause rounding.
function Natural_Value (The_Handle : Handle; Max : Natural) return Natural;
--
-- Return a value in the range 0 .. Max with uniform distribution.
generic
type Result_Type is (<>);
function Enumeration_Value_Generic (The_Handle : Handle) return Result_Type;
--
-- Return a uniform distribution of enumeration literals.
function String_Value (The_Handle : Handle;
Max_Length : Natural;
Min_Length : Natural := 0;
Anchored : Boolean := False) return String;
--
-- Return a random string. If Anchored is true, the lower bound
-- will always be 1.
----------------------------------------------------------------------
subtype Seed_Type is Integer;
function Generate_Seed return Seed_Type;
--
-- Construct a Seed based on the current time of day.
procedure Initialize (The_Handle : out Handle;
Seed : Seed_Type := Generate_Seed;
Storage : System.Segment := System.Null_Segment);
--
-- Start the generator.
function Initial_Seed (The_Handle : Handle) return Seed_Type;
--
-- Return the seed used to initialize this handle.
function Calls (The_Handle : Handle) return Natural;
--
-- Return the number of calls to this handle.
pragma Subsystem (Tools);
pragma Module_Name (4, 3563);
end Random;