|
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 - download
Length: 5120 (0x1400) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gestion_Action, seg_0468dc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Dynamic_Node, Dynamic_Value; package Gestion_Action is type Kinds is (Unknown, If_Then, Expr, Collection); type Object is private; Object_Is_Not_Created : exception; Object_Already_Exists : exception; procedure Create_Action (Obj : in out Object); function Get_Kind (Obj : in Object) return Kinds; procedure Evaluate (Obj : in Object); ------------ action specifique aux appels --------------- --actions sur les ensembles : vider / retirer / ajouter procedure Set_Ensemble (Obj : in out Object; Ensemble : in Dynamic_Value.Object); procedure Set_Argument (Obj : in out Object; Argument : in Dynamic_Value.Object); -- actions ecrire procedure Append_Argument (Obj : in out Object; Arg : in Dynamic_Value.Object); --action quitter : pas argument ------------ action specifique aux actions conditionnelles -------------- procedure Set_Argument (Obj : in out Object; Logic_Exp : Dynamic_Node.Object; True_Expr : Dynamic_Node.Object; False_Expr : Dynamic_Node.Object); procedure Set_Logic_Test (Obj : in out Object; Logic_Exp : Dynamic_Node.Object); procedure Set_True_Action (Obj : in out Object; Logic_Exp : Dynamic_Node.Object); procedure Set_False_Action (Obj : in out Object; Logic_Exp : Dynamic_Node.Object); ------------ action specifique aux expressions --------------- procedure Set_Argument (Obj : in out Object; Arg : Dynamic_Node.Object); private type Node (What : Kinds := Unknown); type Object is access Node; end Gestion_Action;
nblk1=4 nid=2 hdr6=6 [0x00] rec0=20 rec1=00 rec2=01 rec3=00c [0x01] rec0=15 rec1=00 rec2=03 rec3=092 [0x02] rec0=09 rec1=00 rec2=04 rec3=000 [0x03] rec0=20 rec1=00 rec2=04 rec3=000 tail 0x215433dc886515d06e375 0x42a00088462060003 Free Block Chain: 0x2: 0000 00 00 00 07 80 04 20 20 2d 2d 04 73 65 6d 62 6c ┆ -- sembl┆