|
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 - downloadIndex: ┃ T V ┃
Length: 1986 (0x7c2)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Token;
with Symbol_Table;
use Token;
package Action_Abstract_Tree is
type P_Node is private;
function Create_Node (The_Action : in P_Node) return P_Node;
function Create_Node (The_Action, The_Value : in P_Node) return P_Node;
function Create_Node (The_Action, First_Value, Second_Value : in P_Node)
return P_Node;
function Create_Foliage return P_Node;
function Create_Foliage (One_Access : Symbol_Table.A_Tree) return P_Node;
private
type Node (A_Token : Token.Action_Token);
type P_Node is access Node;
type Type_Action is (Binaire, Fugitif, Discret, Temporel, Variable);
type Identificateur is
record
The_Name : String (1 .. 80);
The_Type : Type_Action;
The_Access : Symbol_Table.A_Tree;
end record;
type Activer is
record
The_Name : String (1 .. 80);
The_Type : Type_Action;
One_Action : P_Node;
end record;
type Changer is
record
The_Name : String (1 .. 80);
The_Type : Type_Action;
One_Action : P_Node;
A_Value : P_Node;
end record;
type Evoluer is
record
The_Name : String (1 .. 80);
The_Type : Type_Action;
One_Action : P_Node;
Initial_Value : P_Node;
Final_Value : P_Node;
end record;
type Node (A_Token : Token.Action_Token) is
record
case A_Token is
when L_Activer | L_Desact =>
The_Activation : Activer;
when L_Changer =>
The_Change : Changer;
when L_Evoluer =>
The_Evolution : Evoluer;
when L_Id =>
The_Identifier : Identificateur;
when L_Nbr =>
Value : Natural;
end case;
end record;
end Action_Abstract_Tree;