DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦fa2f5fd81⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Our_List, seg_04990e

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



with P_List, Our_String;

package Our_List is


    subtype List is P_List.List;
    subtype Iter is P_List.Listiter;
    subtype Object is P_List.Itemtype;


    procedure Init_List;

    function Get_List_Of_Types return List;

    procedure Printall_List_Of_Types;

    procedure Set_Part_Of_The_Script (The_Part : Integer);

    function Get_Part_Of_The_Script return Integer;

    procedure First_Field;

    procedure Add_Type (New_Type : String);

    procedure Add_Field (New_Field : String);

    procedure Complete_Field_With_Type (Type_Of_Field : String);

    procedure Add_Enum (New_Enum : String);

    function Affect (A_Name : String;
                     A_Type : String := "";
                     A_String_Value : String := "") return Object;

    function Create return List;

    function Cellvalue (The_Iter : Iter) return Object;

    procedure Attach (The_List : in out List; The_Object : Object);

    procedure Attach (The_List1 : in out List; The_List2 : List);

    function Attach (The_Object1 : Object; The_Object2 : Object) return List;

    function Copy (The_List : List) return List;

    procedure Destroy (The_List : in out List);

    procedure Forward (The_Iter : in out Iter);

    function Isinlist (The_List : List; The_Object : Object) return Boolean;

    function Isinlist (The_List : List; The_Name : String) return Boolean;

    function Makelistiter (The_List : List) return Iter;

    function Makeiterlist (The_Iter : Iter) return List;

    function Iteronobject (The_List : List; The_Name : String) return Iter;

    function More (The_Iter : Iter) return Boolean;

    procedure Print (The_Iter : Iter);

    procedure Printall (The_Iter : Iter);

    function Go_To_End (The_List : List) return List;

    function Tail (The_List : in List) return List;


end Our_List;

E3 Meta Data

    nblk1=4
    nid=3
    hdr6=4
        [0x00] rec0=2a rec1=00 rec2=01 rec3=014
        [0x01] rec0=20 rec1=00 rec2=02 rec3=000
        [0x02] rec0=04 rec1=00 rec2=03 rec3=000
        [0x03] rec0=06 rec1=00 rec2=03 rec3=000
    tail 0x21546f0c0865e6bd4fb64 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 04 00 32 80 16 20 69 6e 20 4c 69 73 74 29 20  ┆   2   in List) ┆
  0x4: 0000  00 00 00 05 80 02 65 64 02 65 64 05 06 07 08 09  ┆      ed ed     ┆