|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Gestion_Action, seg_0468dd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package body Gestion_Action is
type Action_Sur_Ensembles is (not_yet_declared,Quitter, Ecrire, Vider, Ajouter, Retirer);
type Positions is (Left, Right, Center);
type Node (What : Kinds := Unknown) is
record
case What is
when Collection =>
Action_Sur_Ensemble : Action_Sur_Ensembles;
Ensemble : Dynamic_Value.Object;
Element : Dynamic_Value.Object;
when If_Then =>
Logic_Expression : Dynamic_Node.Object;
True_action : liste_actions.Object;
False_action : liste_actions.Object;
when Expr =>
Argument : Dynamic_Node.Object;
when others =>
null;
end case;
end record;
procedure Create_collection (Obj : in out Object; what_action:Action_Sur_Ensembles :=not_yet_declared;
what_collection : Dynamic_Value.Object := null; what_element :Dynamic_Value.Object:=null) is
begin
if (obj = null) then
obj:= new node'(what => collection ,Action_Sur_Ensemble=>what_action,
Ensemble : what_collection;
Element : what_element;
else raise object_already_exists;
end if;
end Create_Action;
function Get_Kind (Obj : in Object) return Kinds is
begin
[statement]
end Get_Kind;
procedure Evaluate (Obj : in Object) is
begin
[statement]
end Evaluate;
procedure Set_Ensemble (Obj : in out Object;
Ensemble : in Dynamic_Value.Object) is
begin
[statement]
end Set_Ensemble;
procedure Set_Argument (Obj : in out Object;
Argument : in Dynamic_Value.Object) is
begin
[statement]
end Set_Argument;
procedure Append_Argument (Obj : in out Object;
Arg : in Dynamic_Value.Object) is
begin
[statement]
end Append_Argument;
procedure Set_Argument (Obj : in out Object;
Logic_Exp : Dynamic_Node.Object;
True_Expr : Dynamic_Node.Object;
False_Expr : Dynamic_Node.Object) is
begin
[statement]
end Set_Argument;
procedure Set_Logic_Test (Obj : in out Object;
Logic_Exp : Dynamic_Node.Object) is
begin
[statement]
end Set_Logic_Test;
procedure Set_True_Action (Obj : in out Object;
Logic_Exp : Dynamic_Node.Object) is
begin
[statement]
end Set_True_Action;
procedure Set_False_Action (Obj : in out Object;
Logic_Exp : Dynamic_Node.Object) is
begin
[statement]
end Set_False_Action;
procedure Set_Argument (Obj : in out Object; Arg : Dynamic_Node.Object) is
begin
[statement]
end Set_Argument;
end Gestion_Action;
nblk1=6
nid=2
hdr6=8
[0x00] rec0=20 rec1=00 rec2=01 rec3=0cc
[0x01] rec0=25 rec1=00 rec2=04 rec3=00e
[0x02] rec0=28 rec1=00 rec2=05 rec3=03a
[0x03] rec0=10 rec1=00 rec2=03 rec3=000
[0x04] rec0=80 rec1=00 rec2=00 rec3=100
[0x05] rec0=43 rec1=07 rec2=21 rec3=368
tail 0x215433ddc86515d0b5638 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 06 03 fc 80 13 79 6e 61 6d 69 63 5f 4e 6f 64 ┆ ynamic_Nod┆
0x6: 0000 00 00 00 04 80 01 44 01 02 03 04 05 06 07 08 09 ┆ D ┆