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 - metrics - download

⟦96a61e3f7⟧ Ada Source

    Length: 12288 (0x3000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_List1, seg_045a6a

Derivation

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

with Action_List, Dynamic_Value, Dynamic_Node, Text_Io;
procedure Test_List1 is

    Al, Al1 : Action_List.Object;

    D_V1, D_V2, D_V3, D_V4 : Dynamic_Value.Object;  
    Dnc1, Dn1, Dn2, Dn3, Dn4 : Dynamic_Node.Object;

    D_V5, D_V6, D_V7 : Dynamic_Value.Object;
    Dnc2, Dn5, Dn6, Dn7 : Dynamic_Node.Object;

    -- var pour une action d'affectation
    Dn8, Dn9 : Dynamic_Node.Object;
    Dv8, Dv9 : Dynamic_Value.Object;

    use Dynamic_Node;
    use Action_List;


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_Node.Create_Value (Dn2);
    Dynamic_Node.Set_Value (Dn2, D_V2);
    Dynamic_Value.Set_Value (D_V3, "je suis dans false");
    Dynamic_Node.Create_Value (Dn3);
    Dynamic_Node.Set_Value (Dn3, D_V3);

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

    Text_Io.Put_Line ("initialisation de la liste");
    Action_List.Initialize (Al);

    Text_Io.Put_Line ("creation d'un si");
    Action_List.Create_If (Al);

    Text_Io.Put_Line ("aller clause vraie");
    Action_List.Go_In_Then (Al);

    Text_Io.Put_Line ("creation ecrire");
    Action_List.Create (Al, Action_List.Write_Action); -- chgt

    Text_Io.Put_Line ("pose argument ecrire");
    Action_List.Append_Argument (Al, Dn2);

    Text_Io.Put_Line ("pose condition");
    Action_List.Set_Condition (Al, Dnc1);

    Text_Io.Put_Line ("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_Node.Create_Value (Dn6);
    Dynamic_Node.Set_Value (Dn6, D_V6);
    Dynamic_Value.Set_Value (D_V7, "je suis dans imb false");
    Dynamic_Node.Create_Value (Dn7);
    Dynamic_Node.Set_Value (Dn7, D_V7);



    Action_List.Create_If (Al);

    Text_Io.Put_Line ("pose condition si imbrique");
    Action_List.Set_Condition (Al, Dnc2);
    Text_Io.Put_Line ("aller vrai imbrique");
    Action_List.Go_In_Then (Al);

    Text_Io.Put_Line ("creation action ecrire pour si imb");
    Action_List.Create (Al, Action_List.Write_Action); -- chgt
    Text_Io.Put_Line ("pose arg ecrire si imb");
    Action_List.Append_Argument (Al, Dn6);







    Dynamic_Value.Set_Value (D_V1, False);
    Dynamic_Node.Create_Value (Dnc1);
    Dynamic_Node.Set_Value (Dnc1, D_V1);

    Dynamic_Value.Set_Value (D_V2, "je suis dans true 1");
    Dynamic_Node.Create_Value (Dn2);
    Dynamic_Node.Set_Value (Dn2, D_V2);
    Dynamic_Value.Set_Value (D_V3, "je suis dans false 1");
    Dynamic_Node.Create_Value (Dn3);
    Dynamic_Node.Set_Value (Dn3, D_V3);

    Dynamic_Value.Set_Value (D_V4, "j'ai fini 1");
    Dynamic_Node.Create_Value (Dn4);
    Dynamic_Node.Set_Value (Dn4, D_V4);

    Text_Io.Put_Line ("initialisation de la liste  1");
    Action_List.Initialize (Al1);

    Text_Io.Put_Line ("creation d'un si 1");
    Action_List.Create_If (Al1);

    Text_Io.Put_Line ("aller clause vraie 1");
    Action_List.Go_In_Then (Al1);

    Text_Io.Put_Line ("creation ecrire  1");
    Action_List.Create (Al1, Action_List.Write_Action); -- chgt

    Text_Io.Put_Line ("pose argument ecrire 1 ");
    Action_List.Append_Argument (Al1, Dn2);

    Text_Io.Put_Line ("pose condition 1");
    Action_List.Set_Condition (Al1, Dnc1);

    Text_Io.Put_Line ("creation d'un si imbrique 1");
    Dynamic_Value.Set_Value (D_V5, False);
    Dynamic_Node.Create_Value (Dnc2);
    Dynamic_Node.Set_Value (Dnc2, D_V5);

    Dynamic_Value.Set_Value (D_V6, "je suis dans imb true1");
    Dynamic_Node.Create_Value (Dn6);
    Dynamic_Node.Set_Value (Dn6, D_V6);
    Dynamic_Value.Set_Value (D_V7, "je suis dans imb false1");
    Dynamic_Node.Create_Value (Dn7);
    Dynamic_Node.Set_Value (Dn7, D_V7);

    Action_List.Create_If (Al1);

    Text_Io.Put_Line ("pose condition si imbrique 1");
    Action_List.Set_Condition (Al, Dnc2);
    Text_Io.Put_Line ("aller vrai imbrique 1");
    Action_List.Go_In_Then (Al1);

    Text_Io.Put_Line ("creation action ecrire pour si imb 1");
    Action_List.Create (Al1, Action_List.Write_Action); -- chgt
    Text_Io.Put_Line ("pose arg ecrire si imb 1");
    Action_List.Append_Argument (Al1, Dn6);
    -- mise an place d'une affectation
    Dynamic_Value.Set_Value (Dv8, 95);
    Dynamic_Node.Create_Value (Dn8);
    Dynamic_Node.Set_Value (Dn8, Dv8);
    Dynamic_Value.Set_Value (Dv9, 200);
    Dynamic_Node.Create_Value (Dn9);
    Dynamic_Node.Set_Value (Dn9, Dv9);

    Text_Io.Put_Line ("creation affectation 1");
    Action_List.Create (Al, Action_List.Affect_Action);

    Text_Io.Put_Line ("pose source aff 1");
    Action_List.Set_Argument (Al1, Dn8, Action_List.Source);

    Text_Io.Put_Line ("pose cible aff 1");
    Action_List.Set_Argument (Al1, Dn9, Action_List.Target);

    Text_Io.Put_Line ("aller else imb 1");
    Action_List.Go_In_Else (Al1);

    Text_Io.Put_Line ("creation ecrire imbrique 1");
    Action_List.Create (Al1, Action_List.Write_Action); -- chgt

    Text_Io.Put_Line ("pose arg ecrire imb 1");
    Action_List.Append_Argument (Al1, Dn7);

    Text_Io.Put_Line ("fin si imb");
    Action_List.End_Of_If (Al1);


    Text_Io.Put_Line ("aller faux 1");
    Action_List.Go_In_Else (Al1);

    Text_Io.Put_Line ("create action ecrire2 1");
    Action_List.Create (Al1, Action_List.Write_Action);
    Text_Io.Put_Line (" pose arg ecrire1");
    Action_List.Append_Argument (Al1, Dn3);

    Text_Io.Put_Line ("fin de si1");
    Action_List.End_Of_If (Al1);

    Text_Io.Put_Line ("creation ecrire1");
    Action_List.Create (Al, Action_List.Write_Action);

    Text_Io.Put_Line (" pose arg ecrire1");
    Action_List.Append_Argument (Al1, Dn4);

    Text_Io.Put_Line ("11");
    Text_Io.Put_Line ("evaluation 1 1");
    Action_List.Evaluate (Al1);
    Text_Io.Put_Line ("21");
    Action_List.Execute (Al1);

    Dynamic_Value.Set_Value (D_V1, False);
    Text_Io.Put_Line ("evaluation apres changement condition 1");
    Action_List.Evaluate (Al1);
    Action_List.Execute (Al1);





    -- mise an place d'une affectation
    Dynamic_Value.Set_Value (Dv8, 1995);
    Dynamic_Node.Create_Value (Dn8);
    Dynamic_Node.Set_Value (Dn8, Dv8);
    Dynamic_Value.Set_Value (Dv9, 40000);
    Dynamic_Node.Create_Value (Dn9);
    Dynamic_Node.Set_Value (Dn9, Dv9);

    Text_Io.Put_Line ("creation affectation");
    Action_List.Create (Al, Action_List.Affect_Action);

    Text_Io.Put_Line ("pose source aff");
    Action_List.Set_Argument (Al, Dn8, Action_List.Source);

    Text_Io.Put_Line ("pose cible aff);");
    Action_List.Set_Argument (Al, Dn9, Action_List.Target);

    Text_Io.Put_Line ("aller else imb");
    Action_List.Go_In_Else (Al);

    Text_Io.Put_Line ("creation ecrire imbrique");
    Action_List.Create (Al, Action_List.Write_Action); -- chgt

    Text_Io.Put_Line ("pose arg ecrire imb");
    Action_List.Append_Argument (Al, Dn7);

    Text_Io.Put_Line ("fin si imb");
    Action_List.End_Of_If (Al);


    Text_Io.Put_Line ("aller faux ");
    Action_List.Go_In_Else (Al);

    Text_Io.Put_Line ("create action ecrire2 ");
    Action_List.Create (Al, Action_List.Write_Action);
    Text_Io.Put_Line (" pose arg ecrire");
    Action_List.Append_Argument (Al, Dn3);

    Text_Io.Put_Line ("fin de si");
    Action_List.End_Of_If (Al);

    Text_Io.Put_Line ("creation ecrire");
    Action_List.Create (Al, Action_List.Write_Action);

    Text_Io.Put_Line (" pose arg ecrire");
    Action_List.Append_Argument (Al, Dn4);

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

    Dynamic_Value.Set_Value (D_V1, False);
    Text_Io.Put_Line ("evaluation apres changement condition ");
    Action_List.Evaluate (Al);
    Action_List.Execute (Al);

end Test_List1;

    nblk1=b
    nid=8
    hdr6=14
        [0x00] rec0=22 rec1=00 rec2=01 rec3=038
        [0x01] rec0=00 rec1=00 rec2=0a rec3=008
        [0x02] rec0=1e rec1=00 rec2=02 rec3=01c
        [0x03] rec0=23 rec1=00 rec2=05 rec3=004
        [0x04] rec0=1d rec1=00 rec2=07 rec3=02e
        [0x05] rec0=1a rec1=00 rec2=0b rec3=044
        [0x06] rec0=1f rec1=00 rec2=09 rec3=044
        [0x07] rec0=20 rec1=00 rec2=06 rec3=06a
        [0x08] rec0=21 rec1=00 rec2=03 rec3=01e
        [0x09] rec0=0e rec1=00 rec2=04 rec3=000
        [0x0a] rec0=a6 rec1=2c rec2=90 rec3=000
    tail 0x215421572864b8a849731 0x42a00088462060003
Free Block Chain:
  0x8: 0000  00 00 00 24 80 21 41 72 67 75 6d 65 6e 74 20 28  ┆   $ !Argument (┆