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

⟦af287ede4⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body View_List, seg_045fde, seg_046c74, seg_047197, seg_049496

Derivation

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

with Text_Io;
package body View_List is


    procedure Transfert (Input_List : in Object; Output_List : in out Object) is

        Iterator : View_List.Iterator;

    begin
        View_List.Init (Iterator, Input_List.Object);
        while not View_List.Done (Iterator) loop
            Output_List.Object :=
               View_List.Make (View_List.Value (Iterator), Output_List.Object);
            View_List.Next (Iterator);
        end loop;
    end Transfert;

    procedure Put (List : in out Object; A_View : in View.Object) is

        Temporary_List : Object;

    begin
        Transfert (List, Temporary_List);
        Temporary_List.Object := View_List.Make (A_View, Temporary_List.Object);
        Free (List);
        Transfert (Temporary_List, List);
        Free (Temporary_List);
    end Put;

    procedure Copy (Input_List : in Object; Output_List : in out Object) is

        Temporary_List : Object;
        Iterator : View_List.Iterator;

    begin
        Transfert (Input_List, Temporary_List);
        Transfert (Temporary_List, Output_List);
        Free (Temporary_List);
    end Copy;

    procedure Free (List : in out Object) is

    begin
        View_List.Free (List.Object);
    end Free;

    procedure Display (List : in Object) is

        Iterator : View_List.Iterator;

    begin
        View_List.Init (Iterator, List.Object);
        while not View_List.Done (Iterator) loop
            View.Display (View_List.Value (Iterator));

            View_List.Next (Iterator);
        end loop;
    end Display;

    procedure Show (List : in Object) is

    begin
        Text_Io.Put_Line ("View List :");
        Display (List);
        Text_Io.New_Line;
    end Show;

end View_List;

    nblk1=4
    nid=2
    hdr6=4
        [0x00] rec0=22 rec1=00 rec2=01 rec3=036
        [0x01] rec0=24 rec1=00 rec2=04 rec3=000
        [0x02] rec0=1e rec1=00 rec2=03 rec3=00c
        [0x03] rec0=0b rec1=00 rec2=02 rec3=000
    tail 0x21748019e864d33c9f2d7 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 03 00 1e 80 04 68 6f 77 3b 04 00 00 00 00 0e  ┆      how;      ┆
  0x3: 0000  00 00 03 fc 80 4c 20 20 20 20 20 20 20 20 54 65  ┆     L        Te┆