|
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 Unbounded_Array, seg_011861
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
generic type Element is private; type Content is array (Positive range <>) of Element; package Unbounded_Array is type Object is private; function Create (The_Content : Content) return Object; function "&" (The_Object : Object; With_Element : Element) return Object; function "&" (The_Object, With_Object : Object) return Object; procedure Free (The_Object : in out Object); procedure Remove (In_Object : in out Object; The_Item : Positive); procedure Remove (In_Object : in out Object; The_Element : Element); function Get (In_Object : Object; The_Item : Positive) return Element; function Get (The_Object : Object) return Content; function Length (Of_Object : Object) return Natural; procedure Set (In_Object : Object; The_Item : Positive; With_Element : Element); function Dupplicate (The_Object : Object) return Object; Illegal_Access : exception; private Max_Size : constant := 100; subtype Fixed_Array is Content (1 .. Max_Size); type Array_Range; type Array_Pointer is access Array_Range; type Array_Range is record The_Values : Fixed_Array; Next_Array : Array_Pointer := null; end record; type Object is record Array_Count : Natural := 0; Element_Count : Natural := 0; First_Array : Array_Pointer := null; Last_Array : Array_Pointer := null; end record; end Unbounded_Array;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=25 rec1=00 rec2=01 rec3=078 [0x01] rec0=1f rec1=00 rec2=02 rec3=000 tail 0x2150d03da823d49dc650c 0x42a00088462063c03