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

⟦384f2ef3f⟧ Ada Source

    Length: 13312 (0x3400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_List1, seg_045a71

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;



    D_V11, D_V21, D_V31, D_V41 : Dynamic_Value.Object;
    Dnc11, Dn11, Dn21, Dn31, Dn41 : Dynamic_Node.Object;

    D_V51, D_V61, D_V71 : Dynamic_Value.Object;
    Dnc21, Dn51, Dn61, Dn71 : Dynamic_Node.Object;

    -- var pour une action d'affectation
    Dn81, Dn91 : Dynamic_Node.Object;
    Dv81, Dv91 : 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_V11, False);
    Dynamic_Node.Create_Value (Dnc11);
    Dynamic_Node.Set_Value (Dnc11, D_V11);

    Dynamic_Value.Set_Value (D_V21, "je suis dans true 1");
    Dynamic_Node.Create_Value (Dn21);
    Dynamic_Node.Set_Value (Dn21, D_V21);
    Dynamic_Value.Set_Value (D_V31, "je suis dans false 1");
    Dynamic_Node.Create_Value (Dn31);
    Dynamic_Node.Set_Value (Dn31, D_V31);

    Dynamic_Value.Set_Value (D_V41, "j'ai fini 1");
    Dynamic_Node.Create_Value (Dn41);
    Dynamic_Node.Set_Value (Dn41, D_V41);

    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, Dn21);

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

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

    Dynamic_Value.Set_Value (D_V61, "je suis dans imb true1");
    Dynamic_Node.Create_Value (Dn61);
    Dynamic_Node.Set_Value (Dn6, D_V61);
    Dynamic_Value.Set_Value (D_V71, "je suis dans imb false1");
    Dynamic_Node.Create_Value (Dn71);
    Dynamic_Node.Set_Value (Dn7, D_V71);

    Action_List.Create_If (Al1);

    Text_Io.Put_Line ("pose condition si imbrique 1");
    Action_List.Set_Condition (Al1, Dnc21);
    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, Dn61);
    -- mise an place d'une affectation
    Dynamic_Value.Set_Value (Dv81, 95);
    Dynamic_Node.Create_Value (Dn81);
    Dynamic_Node.Set_Value (Dn81, Dv81);
    Dynamic_Value.Set_Value (Dv91, 200);
    Dynamic_Node.Create_Value (Dn91);
    Dynamic_Node.Set_Value (Dn91, Dv91);

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

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

    Text_Io.Put_Line ("pose cible aff 1");
    Action_List.Set_Argument (Al1, Dn91, 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, Dn71);

    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, Dn31);

    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, Dn41);

    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_V11, 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=c
    nid=6
    hdr6=16
        [0x00] rec0=27 rec1=00 rec2=01 rec3=004
        [0x01] rec0=08 rec1=00 rec2=0a rec3=040
        [0x02] rec0=1e rec1=00 rec2=02 rec3=01c
        [0x03] rec0=22 rec1=00 rec2=05 rec3=056
        [0x04] rec0=1d rec1=00 rec2=07 rec3=050
        [0x05] rec0=19 rec1=00 rec2=0b rec3=070
        [0x06] rec0=20 rec1=00 rec2=08 rec3=04c
        [0x07] rec0=21 rec1=00 rec2=0c rec3=04c
        [0x08] rec0=00 rec1=00 rec2=09 rec3=01e
        [0x09] rec0=21 rec1=00 rec2=03 rec3=01e
        [0x0a] rec0=0e rec1=00 rec2=04 rec3=000
        [0x0b] rec0=9e rec1=00 rec2=00 rec3=000
    tail 0x2154215b8864b8b0656e1 0x42a00088462060003
Free Block Chain:
  0x6: 0000  00 00 00 0d 80 0a 6f 6e 5f 4c 69 73 74 2e 53 6f  ┆      on_List.So┆