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

⟦4b85c9302⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_List1, seg_0448c3

Derivation

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

E3 Source Code



with Action_List, Dynamic_Value, Dynamic_Node, Compiler_Action, Text_Io;
procedure Test_List1 is
    D_V1, D_V2, D_V3, D_V4 : Dynamic_Value.Object;  
    Dnc1 : Dynamic_Node.Object;

    D_V5, D_V6, D_V7 : Dynamic_Value.Object;
    Dnc2 : Dynamic_Node.Object;


    use Dynamic_Node;


begin
    Dynamic_Value.Set_Value (D_V1, True);
    Dynamic_Node.Create_Value (Dnc1);
    Dynamic_Node.Set_Value (Dnc1, D_V1);

    Dynamic_Value.Set_Value (D_V2, "je suis dans true");
    Dynamic_Value.Set_Value (D_V3, "je suis dans false");

    Dynamic_Value.Set_Value (D_V4, "j'ai fini");

    Action_List.Initialize;

    -- creation d'un si
    Action_List.Create_If;


    Action_List.Go_In_Then;

    Action_List.Create (Compiler_Action.Write_Action);

    Action_List.Append_Write_Argument (D_V2);

    Action_List.Set_Condition (Dnc1);

    -- creation d'un si imbrique
    Dynamic_Value.Set_Value (D_V5, True);
    Dynamic_Node.Create_Value (Dnc2);
    Dynamic_Node.Set_Value (Dnc2, D_V5);

    Dynamic_Value.Set_Value (D_V6, "je suis dans imb true");
    Dynamic_Value.Set_Value (D_V7, "je suis dans imb false");

    Action_List.Create_If;
    Action_List.Set_Condition (Dnc2);
    Action_List.Go_In_Then;

    Action_List.Create (Compiler_Action.Write_Action);
    Action_List.Append_Write_Argument (D_V6);
    Action_List.Go_In_Else;
    Action_List.Create (Compiler_Action.Write_Action);
    Action_List.Append_Write_Argument (D_V7);
    Action_List.End_Of_If;

    Action_List.Go_In_Else;

    Action_List.Create (Compiler_Action.Write_Action);
    Action_List.Append_Write_Argument (D_V3);

    Action_List.End_Of_If;

    Action_List.Create (Compiler_Action.Write_Action);

    Action_List.Append_Write_Argument (D_V4);

    Text_Io.Put_Line ("1");
    Action_List.Evaluate;
    Text_Io.Put_Line ("2");
    Action_List.Execute;

    Dynamic_Value.Set_Value (D_V1, False);
    Action_List.Evaluate;
    Action_List.Execute;

end Test_List1;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=28 rec1=00 rec2=01 rec3=03c
        [0x01] rec0=22 rec1=00 rec2=03 rec3=014
        [0x02] rec0=04 rec1=00 rec2=02 rec3=000
    tail 0x21540699c863f8b386fc6 0x42a00088462060003