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

⟦46737d9ed⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Main, seg_041984

Derivation

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

with Fields, Models, Text_Io;


procedure Main is

    L1 : Fields.Object;
    L2 : Fields.Object;
    L3 : Fields.Object;
    M : Models.Object;

    procedure Print_With_Index (D : Models.Object) is
        Index : Models.Model_Index;
        Liste : Fields.Object;
    begin

        Models.Open_Model_Indexation (D, Index);
        while not Models.No_More_Models (Index) loop
            Text_Io.Put_Line ("****************************************");
            Text_Io.Put_Line
               (Models.Get_Indexed_Model_Name (Index) & " : " &
                Models.Get_Indexed_Model_Type (Index) & "-> WITH:");
            Fields.Create (Liste);
            Models.Get_Indexed_Model_Fields (Index, Liste);
            Fields.Dump_Fields (Liste);
            Fields.Dispose_Object (Liste);
            Models.Next_Model_Index (Index);
        end loop;

    end Print_With_Index;



begin
    Fields.Create (L1);
    Fields.Create (L2);   Fields.Create (L3);
    Models.Create (M);

    Fields.Store_Field (L1, "Description", "Chaine");
    Fields.Store_Field (L1, "NiveauEau  ", "Niveau");
    Fields.Store_Field (L1, "NiveauEnerg", "Energie");
    Text_Io.Put_Line ("----------------------------------------");
    Text_Io.Put_Line ("--- Print Liste L1             ----------");
    Fields.Dump_Fields (L1);
    Fields.Dump_Number_Of_Field (L1);

    Fields.Store_Field (L2, "Lumiere", "Eclairage");
    Fields.Store_Field (L2, "Intensite", "Entier");
    Fields.Store_Field (L2, "Tension", "Entier");
    Fields.Store_Field (L2, "Puissance", "Entier");
    Text_Io.Put_Line ("----------------------------------------");
    Text_Io.Put_Line ("--- Print Liste L2             ----------");
    Fields.Dump_Fields (L2);
    Fields.Dump_Number_Of_Field (L2);

    Fields.Store_Field (L3, "Cuisine", "Piece");
    Fields.Store_Field (L3, "Salon", "Piece");
    Text_Io.Put_Line ("----------------------------------------");
    Text_Io.Put_Line ("--- Print Liste L3             ----------");
    Fields.Dump_Fields (L3);
    Fields.Dump_Number_Of_Field (L3);


    Models.Store_Model (M, "Niveau", "Struct", L1);
    Models.Store_Model (M, "Electriqu", "Struct", L2);
    Models.Store_Model (M, "Maison", "Struct", L3);
    Text_Io.Put_Line ("----------------------------------------");
    Text_Io.Put_Line ("--- Print Modele M            ----------");
    Models.Dump_Models (M);
    Models.Dump_Number_Of_Model (M);
    Text_Io.Put_Line ("========================================");
    Text_Io.Put_Line ("--- Recherche du type Electriq ---------");
    if Models.Has_Model (M, "Electriqu") then
        declare
            List : Fields.Object;
        begin
            Text_Io.Put_Line
               ("Electriqu :" &
                Models.Get_Model_Type_By_Name (M, "Electriqu") & "WITH:");
            Fields.Create (List);
            Models.Get_Model_Fields_By_Name (M, "Electriqu", List);
            Fields.Dump_Fields (List);
            Fields.Dispose_Object (List);
        end;
    end if;


    Text_Io.Put_Line ("========================================");
    Text_Io.Put_Line ("--- Print Modele M with Index    -------");
    Print_With_Index (M);


    Fields.Dispose_Object (L1);
    Fields.Dispose_Object (L2);
    Fields.Dispose_Object (L3);
    Models.Dispose_Object (M);
end Main;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=25 rec1=00 rec2=01 rec3=002
        [0x01] rec0=16 rec1=00 rec2=02 rec3=06c
        [0x02] rec0=17 rec1=00 rec2=03 rec3=062
        [0x03] rec0=11 rec1=00 rec2=04 rec3=000
    tail 0x217423aa68626594c7e71 0x42a00088462060003