DataMuseum.dk

top - download

    Length: 1662 (0x67e)
    Types: TextFile
    Notes: R1k Text-file segment

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

TextFile

with Dynamic_Value,Dynamic_node,text_io;

procedure test_node is

v1,V2,V3: Dynamic_Value.object;
expression : Dynamic_Node.Object;
n1,n2,n3,n4:Dynamic_Node.object;

use Dynamic_Node;

begin
  Dynamic_Value.Set_Value(V1,10);
  Dynamic_Value.Set_Value(V2,12);
  Dynamic_Value.Set_Value(V3,-5);
  
  Dynamic_Node.Create_Value(n1);Dynamic_Node.Create_Value(n2);Dynamic_Node.Create_Value(n3);
  Dynamic_Node.Set_Value(n1,V1);Dynamic_Node.Set_Value(n2,V2);Dynamic_Node.Set_Value(n3,V3);

  Dynamic_Node.Evaluate(n1);
  text_io.put(" Le noeud 1 vaut ");
  text_io.put(integer'image(Dynamic_Value.Get_Value(Dynamic_Node.Get_Value(n1))));
  text_io.new_line;

  Dynamic_Node.Evaluate(n2);
  text_io.put(" Le noeud 2 vaut ");
  text_io.put(integer'image(Dynamic_Value.Get_Value(Dynamic_Node.Get_Value(n2))));
  text_io.new_line;

  Dynamic_Node.Evaluate(n3);
  text_io.put(" Le noeud 3 vaut ");
  text_io.put(integer'image(Dynamic_Value.Get_Value(Dynamic_Node.Get_Value(n3))));
  text_io.new_line;
  
  Dynamic_Node.Create_Binary_Operator(n4,Multiplication);
  Dynamic_Node.Create_Binary_Operator(expression,Addition);

  Dynamic_Node.Set_Argument(n4,n2,left);
  Dynamic_Node.Set_Argument(n4,n3,right);

  Dynamic_Node.Evaluate(n4);
  text_io.put(" V2 * V3 vaut ");
  text_io.put(integer'image(Dynamic_Value.Get_Value(Dynamic_Node.Get_Value(n4))));
  text_io.new_line;

  Dynamic_Node.Set_Argument(expression,n1,left);
  Dynamic_Node.Set_Argument(expression,n4,right);

  Dynamic_Node.Evaluate(expression);

  text_io.put(" l'expression vaut ");
  text_io.put(integer'image(Dynamic_Value.Get_Value(Dynamic_Node.Get_Value(expression))));
  text_io.new_line;

end test_node