|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Random, pragma Module_Name 4 3563, pragma Subsystem Tools, seg_00644c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=20 rec1=00 rec2=01 rec3=03c [0x01] rec0=19 rec1=00 rec2=02 rec3=000 tail 0x21701b21281bf8270ac91 0x42a00088462065003