44 lines
648 B
Ada
44 lines
648 B
Ada
|
use H3.Arrays;
|
||
|
|
|
||
|
|
package H3.Trees is
|
||
|
|
|
||
|
|
-- parse tree
|
||
|
|
|
||
|
|
--package A is new H3.Arrays(XXXX, 0);
|
||
|
|
|
||
|
|
type Node_Code is (
|
||
|
|
NODE_ASSIGN,
|
||
|
|
NODE_CALL,
|
||
|
|
NODE_CLASS
|
||
|
|
NODE_IF,
|
||
|
|
NODE_FUN,
|
||
|
|
NODE_VOID,
|
||
|
|
NODE_WHILE
|
||
|
|
);
|
||
|
|
|
||
|
|
type Node(Code: Node_Code := NODE_VOID) is record
|
||
|
|
-- Loc: location.
|
||
|
|
case Code is
|
||
|
|
when NODE_ASSIGN =>
|
||
|
|
null;
|
||
|
|
when NODE_CALL =>
|
||
|
|
null;
|
||
|
|
when NODE_CLASS =>
|
||
|
|
null;
|
||
|
|
when NODE_IF =>
|
||
|
|
null;
|
||
|
|
when NODE_FUN =>
|
||
|
|
null;
|
||
|
|
when NODE_VOID =>
|
||
|
|
null;
|
||
|
|
when NODE_WHILE =>
|
||
|
|
null;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
type Tree is record
|
||
|
|
Next_Node: System_Index := System_Index'First;
|
||
|
|
Toplevel_Node := Node
|
||
|
|
end Tree;
|
||
|
|
|
||
|
|
end H3.Trees;
|