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

⟦7fb9d539d⟧ Ada Source

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

Derivation

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

with Dynamic_Value, T_T2, V_T2, Text_Io;

procedure T_V_T2 is
    V : Dynamic_Value.Object;  
    Vi : Dynamic_Value.Object;
    Vb : Dynamic_Value.Object;
begin

--_-_-_-_-_-_-_-_-_-_-_ Declaration des types

    T_T2.Declare_Type_Name ("premier type", 1, 1);

    T_T2.Append_Field_In_Current_Type
       ("v1", Dynamic_Value.Integer_Number, 2, 2);

    T_T2.Append_Field_In_Current_Type
       ("v2", Dynamic_Value.Integer_Number, 3, 3);

    T_T2.Declare_Type_Name ("deuxieme type", 4, 4);

    T_T2.Append_Field_In_Current_Type
       ("v3", Dynamic_Value.Integer_Number, 5, 5);
    T_T2.Append_Field_In_Current_Type
       ("v4", Dynamic_Value.Integer_Number, 6, 6);

    T_T2.Declare_Type_Name ("troisieme type", 7, 7);

    T_T2.Append_Field_In_Current_Type
       ("v5", Dynamic_Value.Integer_Number, 8, 8);
    T_T2.Append_Field_In_Current_Type
       ("v6", Dynamic_Value.Integer_Number, 9, 9);

    T_T2.Declare_Type_Name ("type herite", 98, 98);
    T_T2.Inherite_Type (Name => "le fiston",
                        Parent_Name => "deuxieme type",
                        L => 333,
                        C => 333);
    T_T2.Append_Field_In_Current_Type
       ("v8", Dynamic_Value.Boolean_Number, 99, 99);
    T_T2.Inherite_Type (Name => "le fiston2",
                        Parent_Name => "premier type",
                        L => 222,
                        C => 222);

    T_T2.Print;
--_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ Declaration de variables

    V_T2.Create ("variable1", "type herite", 999, 999);

    V_T2.Create ("variable2", Dynamic_Value.Boolean_Number, 888, 888);

    V_T2.Create ("variable3", "type herite", 777, 777);


    V_T2.Print;

    V_T2.Go_In ("variable1");
    V_T2.Go_In ("le fiston");
    V := V_T2.Get_Access_On ("v3");
    Dynamic_Value.Set_Value (V, 123456);

    V_T2.Print;

    V_T2.Init_Acces_Path;
    V_T2.Append_To_Acces_Path ("v3");
    V_T2.Append_To_Acces_Path ("le fiston");
    V_T2.Append_To_Acces_Path ("variable1");
    V := V_T2.Get_Access_Through_Path;
    Dynamic_Value.Set_Value (V, 54);
    V_T2.Print;

    V_T2.Go_To_Top_Level;  
    V_T2.Go_In ("variable1");
    V_T2.Begin_Initialization;

    Dynamic_Value.Set_Value (Vi, 98);
    V_T2.Initialize_With (Vi);
    Dynamic_Value.Set_Value (Vi, 76);
    V_T2.Initialize_With (Vi);
    Dynamic_Value.Set_Value (Vi, 54);
    Dynamic_Value.Set_Value (Vb, True);
    V_T2.Initialize_With (Vb);  
    Dynamic_Value.Set_Value (Vi, 32);
    V_T2.Initialize_With (Vi);
    Dynamic_Value.Set_Value (Vi, 10);
    V_T2.Initialize_With (Vi);

    V_T2.Print;

    V_T2.Go_To_Top_Level;
    V_T2.Go_In ("variable3");

    V_T2.Begin_Initialization;
    V_T2.Initialize_With ("variable1");

end T_V_T2;

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=22 rec1=00 rec2=01 rec3=04a
        [0x01] rec0=21 rec1=00 rec2=02 rec3=006
        [0x02] rec0=1f rec1=00 rec2=03 rec3=000
        [0x03] rec0=16 rec1=00 rec2=02 rec3=000
    tail 0x215419a4a864a7ccbdbc6 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 01 cc 80 0c 20 56 5f 54 32 2e 50 72 69 6e  ┆       V_T2.Prin┆