|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_List1, seg_0448b4
└─⟦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, Compiler_Action, Text_Io;
procedure Test_List1 is
D_V1, D_V2, D_V3, D_V4 : Dynamic_Value.Object;
Dnc1 : 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);
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;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=28 rec1=00 rec2=01 rec3=034
[0x01] rec0=0e rec1=00 rec2=02 rec3=001
tail 0x2154067a8863f82f9eea9 0x42a00088462060003