mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
1e8cdfa4b4
Reorganize code for declarators, enumerators and case members (they were mostly not well integrated in the tree in such a way that some semnatics rules were quite difficult to implement) Merge identifiers with the other nodes (it was not such a good idea to make the difference) Fix bugs in the allocation of node flags in mknodes Add reference to BNF in nodes.idl [Imported from Perforce change 6949 at 2006-12-01 20:14:36] Subversion-branch: /trunk/polyorb Subversion-revision: 34802
41 lines
1.3 KiB
Ada
41 lines
1.3 KiB
Ada
with Nodes; use Nodes;
|
|
with Output; use Output;
|
|
with Types; use Types;
|
|
|
|
package Debug is
|
|
|
|
procedure W_Eol renames Output.Write_Eol;
|
|
procedure W_Int (N : Int) renames Output.Write_Int;
|
|
procedure W_Indentation (N : Natural);
|
|
procedure W_Line (N : String) renames Output.Write_Line;
|
|
procedure W_Str (N : String) renames Output.Write_Str;
|
|
|
|
procedure W_Boolean (N : Boolean);
|
|
procedure W_Byte (N : Byte);
|
|
procedure W_List_Id (I : Natural; L : List_Id);
|
|
procedure W_Node_Id (I : Natural; N : Node_Id);
|
|
procedure W_Node_Header (I : Natural; N : Node_Id);
|
|
procedure W_Full_Tree;
|
|
|
|
procedure W_Node_Attribute
|
|
(I : Natural;
|
|
A : String;
|
|
T : String;
|
|
V : String;
|
|
N : Int := 0);
|
|
|
|
function Image (N : Node_Kind) return String;
|
|
function Image (N : Name_Id) return String;
|
|
function Image (N : Node_Id) return String;
|
|
function Image (N : List_Id) return String;
|
|
function Image (N : Mode_Id) return String;
|
|
function Image (N : Operator_Id) return String;
|
|
function Image (N : Boolean) return String;
|
|
function Image (N : Byte) return String;
|
|
function Image (N : Int) return String;
|
|
|
|
procedure wni (N : Node_Id);
|
|
pragma Export (C, wni, "wni");
|
|
|
|
end Debug;
|