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

⟦3b43c3573⟧ Ada Source

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

Derivation

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

package body Struct_Component is

    procedure Is_Inside (Name : in String;
                         In_The_List : in Liste_Attribut.List;
                         Iterator : in out Liste_Attribut.Listiter;
                         Ok : in out Boolean) is
        Continue : Boolean := True;
        V : Attribut;
    begin
        Iterator := Liste_Attribut.Makelistiter (In_The_List);
        while (Liste_Attribut.More (Iterator) and Continue) loop
            Liste_Attribut.Next (Iterator, V);
            if Bounded_String.Image (V.Name) = Name then
                Continue := False;
            end if;
        end loop;
        Ok := not (Continue);
    end Is_Inside;

    procedure Is_Inside (Name : in String;
                         In_The_List : in Liste_Structure.List;
                         Iterator : in out Liste_Structure.Listiter;
                         Ok : in out Boolean) is  
        Continue : Boolean := True;
        V : Structure;
    begin
        Iterator := Liste_Structure.Makelistiter (In_The_List);
        while (Liste_Structure.More (Iterator) and Continue) loop
            Liste_Structure.Next (Iterator, V);
            if Bounded_String.Image (V.Name) = Name then
                Continue := False;
            end if;
        end loop;
        Ok := not (Continue);
    end Is_Inside;

    procedure Image (Of_A_Structure_List : in Liste_Structure.List) is  
        Iterator : Liste_Structure.Listiter;  
        Struct : Structure;
    begin  
        Iterator := Liste_Structure.Makelistiter (Of_A_Structure_List);
        while Liste_Structure.More (Iterator) loop
            Liste_Structure.Next (Iterator, Struct);

            Text_Io.Put_Line ("------------------------------------");
            Text_Io.Put (" Nom : ");
            Text_Io.Put_Line (Bounded_String.Image (Struct.Name));  
            Text_Io.Put_Line ("------------------------------------");  
            Image (Struct.Attribut);
        end loop;
    end Image;

    procedure Image (Of_An_Attribut_List : in Liste_Attribut.List) is  
        Iterator : Liste_Attribut.Listiter;  
        Att : Attribut;
    begin  
        Iterator := Liste_Attribut.Makelistiter (Of_An_Attribut_List);
        while Liste_Attribut.More (Iterator) loop
            Liste_Attribut.Next (Iterator, Att);
            Text_Io.Put (" Nom : ");  
            Text_Io.Put_Line (Bounded_String.Image (Att.Name));  
            Text_Io.Put (" Donnee : ");
            Text_Io.Put_Line (Natural'Image (Att.Data));
            Text_Io.Put_Line ("- - - - - - - - - - - - - - - - - -");
        end loop;
    end Image;

    function Permute (List : in Liste_Structure.List)
                     return Liste_Structure.List is
        Tmp_List : Liste_Structure.List;
        Iterator : Liste_Structure.Listiter;
        Struct : Structure;
    begin
        Iterator := Liste_Structure.Makelistiter (List);
        while (Liste_Structure.More (Iterator)) loop
            Liste_Structure.Next (Iterator, Struct);
            Liste_Structure.Attach (Struct, Tmp_List);
        end loop;
        -- Liste_Structure.Destroy (List);
        return Tmp_List;
    end Permute;

    function Permute (List : in Liste_Attribut.List)
                     return Liste_Attribut.List is
        Tmp_List : Liste_Attribut.List;
        Iterator : Liste_Attribut.Listiter;
        Att : Attribut;
    begin
        Iterator := Liste_Attribut.Makelistiter (List);
        while (Liste_Attribut.More (Iterator)) loop
            Liste_Attribut.Next (Iterator, Att);
            Liste_Attribut.Attach (Att, Tmp_List);
        end loop;
        -- Liste_Attribut.Destroy (List);
        return Tmp_List;
    end Permute;


end Struct_Component;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1a rec1=00 rec2=01 rec3=02c
        [0x01] rec0=18 rec1=00 rec2=04 rec3=020
        [0x02] rec0=19 rec1=00 rec2=02 rec3=068
        [0x03] rec0=1a rec1=00 rec2=03 rec3=000
    tail 0x21747b220864b97b00313 0x42a00088462060003