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

⟦c503565f5⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Animate_List, seg_0475f8

Derivation

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

with Text_Io, Generic_Index, Exclusive_Generic_List,
     Complement_Identifier_Array;
package body Animate_List is

    package Animate_Index is
       new Generic_Index (Element_Image => Complement_Identifier_Array.Image);
-- avec le zero !!!!!!!!!!!
    package Animate_Index_List is
       new Exclusive_Generic_List (Element => Animate_Index.Object,
                                   Null_Element => Animate_Index.Null_Object,
                                   Show_Element => Animate_Index.Show,
                                   Get_Key => Animate_Index.Image);

    The_List : Animate_Index_List.Object := Animate_Index_List.Null_Object;
    The_Iterator : Animate_Index_List.Iterator;

    procedure Put (An_Animate_Index : in Positive; Ok : out Boolean) is

        Iterator : Animate_Index_List.Iterator;
        An_Index : Animate_Index.Object;
        Local_Ok : Boolean := False;


    begin
        Animate_Index.Put (An_Index, An_Animate_Index);
        Animate_Index_List.Put (The_List, An_Index, Ok);  
    end Put;

    procedure Show is

    begin
        Text_Io.Put_Line ("Animate List :");
        Animate_Index_List.Show (The_List);
    end Show;

    procedure Init is

    begin
        Animate_Index_List.Init (The_Iterator, The_List);  -- voir ordre
    end Init;

    procedure Next is

    begin
        Animate_Index_List.Next (The_Iterator);
    end Next;

    function Value return Positive is

    begin
        return Animate_Index.Value (Animate_Index_List.Value (The_Iterator));
    end Value;

    function Done return Boolean is

    begin
        return Animate_Index_List.Done (The_Iterator);
    end Done;

end Animate_List;

-- with Text_Io, Index_List;
-- package body Animate_List is
--
--     The_List : Index_List.Object := Index_List.Null_Object;
--
--     procedure Put (Animate_Index : in Positive; Ok : out Boolean) is
--
--     begin
--         Index_List.Put (The_List, Animate_Index, Ok);
--     end Put;
--
--     procedure Show is
--
--     begin
--         Text_Io.Put_Line ("Animate List :");
--         Index_List.Show (The_List);
--     end Show;
--
--     procedure Init is
--
--     begin
--         Index_List.Init (The_List);
--     end Init;
--
--     procedure Next is
--
--     begin
--         Index_List.Next (The_List);
--     end Next;
--
--     function Value return Positive is
--
--     begin
--         return Index_List.Value (The_List);
--     end Value;
--
--     function Done return Boolean is
--
--     begin
--         return Index_List.Done (The_List);
--     end Done;
--
-- end Animate_List;

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=06e
        [0x01] rec0=2d rec1=00 rec2=02 rec3=00a
        [0x02] rec0=23 rec1=00 rec2=03 rec3=000
        [0x03] rec0=22 rec1=00 rec2=03 rec3=000
    tail 0x2174ad3c886543b0d1d66 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 00 04 80 01 64 01 02 03 04 05 65 78 5f 4c  ┆      d     ex_L┆