|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 1537 (0x601)
Types: TextFile
Names: »V«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
package Abstract_Tree is
type P_Node is private;
type P_Instruction_List is private;
function Make_Node (The_Left, The_Right : in P_Node) return P_Node;
function Make_Node (The_Left : in P_Node; The_Right : in P_Instruction_List)
return P_Node;
function Make_Node (The_Time : in P_Node) return P_Node;
function Make_Node (The_List : in P_Instruction_List) return P_Node;
function Make_Node (First_Term, The_Relation, Second_Term : in P_Node;
The_List : in P_Instruction_List) return P_Node;
function Make_Node
(The_Class, The_Actor, The_Value : in P_Node) return P_Node;
function Make_Node
(The_Class, The_Actor, Initial_Value, Final_Value : in P_Node)
return P_Node;
function Make_Foliage return P_Node;
procedure Node_Identification (A_P_List : P_Instruction_List);
procedure Create_List (A_P_List : out P_Instruction_List);
procedure Next_List (A_P_List : in out P_Instruction_List);
procedure Add_The_List
(A_P_List : in out P_Instruction_List; A_Node : in P_Node);
private
type Kind_Node is (Plus, Moins, Mult, Div, Dans, Puis, Attendre,
Tant_Que, Repeter, Debut, Activer, Desact, Changer,
Evoluer, Lancerscene, Lancereffet, Id, Nbr);
type Node (A_Kind : Kind_Node);
type P_Node is access Node;
type Instruction_List;
type P_Instruction_List is access Instruction_List;
end Abstract_Tree;