|
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: 1019 (0x3fb)
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 Text_Io;
with Token;
use Token;
with Symbol_Table;
package Abstract_Tree_Expression is
type P_Node is private;
function Create_Node (The_Left, The_Right : in P_Node) return P_Node;
function Create_Foliage return P_Node;
function Create_Foliage
(The_Access_Table : in Symbol_Table.A_Tree) return P_Node;
private
type Node (A_Token : Token.Expression_Token);
type P_Node is access Node;
type Operator is ('+', '-', '*', '/');
type Node (A_Token : Token.Expression_Token) is
record
case A_Token is
when L_Plus | L_Moins | L_Mult | L_Div =>
The_Operator : Character;
Left : P_Node;
Right : P_Node;
when L_Nbr =>
Value : Natural;
when L_Id =>
The_Name : String (1 .. 80);
The_Access : Symbol_Table.A_Tree;
end case;
end record;
end Abstract_Tree_Expression;