------------------------------------------------- ------------------------------- -- -- -- OCARINA COMPONENTS -- -- -- -- O C A R I N A . G E N E R A T O R S . C _ T R E E . N O D E S -- -- -- -- S p e c -- -- -- -- Copyright (C) 2007, GET-Telecom Paris. -- -- -- -- Ocarina is free software; you can redistribute it and/or modify -- -- it under terms of the GNU General Public License as published by the -- -- Free Software Foundation; either version 2, or (at your option) any -- -- later version. Ocarina is distributed in the hope that it will be -- -- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General -- -- Public License for more details. You should have received a copy of the -- -- GNU General Public License distributed with Ocarina; see file COPYING. -- -- If not, write to the Free Software Foundation, 51 Franklin Street, Fifth -- -- Floor, Boston, MA 02111-1301, USA. -- -- -- -- As a special exception, if other files instantiate generics from this -- -- unit, or you link this unit with other files to produce an executable, -- -- this unit does not by itself cause the resulting executable to be -- -- covered by the GNU General Public License. This exception does not -- -- however invalidate any other reasons why the executable file might be -- -- covered by the GNU Public License. -- -- -- -- Ocarina is maintained by the Ocarina team -- -- (ocarina-users@listes.enst.fr) -- -- -- ------------------------------------------------------------------------------ pragma style_checks ("NM32766"); -- This file has been generated automatically by `mknodes'. Do not -- hand modify this file since your changes will be overridden. with GNAT.Table; pragma warnings (Off); with Locations; use Locations; with Types; use Types; pragma warnings (On); package Ocarina.Generators.C_Tree.Nodes is type node_kind is (k_node_id, k_definition, k_list_id, k_defining_identifier, k_include_clause, k_includes, k_declaration_list, k_header_list, k_statement_list, k_parameter_list, k_enumeration_literals, k_element_list, k_label_list, k_alternatives_list, k_sources, k_headers, k_array_values, k_hi_distributed_application, k_hi_node, k_header_file, k_source_file, k_api_unit, k_hi_unit, k_parameter_specification, k_parameter_profile, k_function_specification, k_function_implementation, k_call_profile, k_full_type_declaration, k_block_statement, k_if_statement, k_assignment_statement, k_return_statement, k_for_statement, k_while_statement, k_switch_statement, k_switch_alternative, k_break_statement, k_continue_statement, k_c_comment, k_define_statement, k_array_declaration, k_struct_aggregate, k_union_aggregate, k_enum_aggregate, k_variable_declaration, k_member_declaration, k_member_designator, k_macro_declaration, k_literal, k_expression, k_type_conversion, k_base_type, k_pointer_type, k_constant_type, k_variable_address, k_extern_entity_declaration, k_float, k_int, k_char, k_short, k_void, k_pointed_char, k_tree_bindings, k_hi_tree_bindings); -- -- Node_Id -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- -- -- Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- procedure W_Definition (N : node_id); -- -- List_Id -- -- First_Node : Node_Id -- Last_Node : Node_Id -- -- -- Defining_Identifier -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Name : Name_Id -- Corresponding_Node : Node_Id -- Compile_Unit : Node_Id -- procedure W_Defining_Identifier (N : node_id); -- -- Include_Clause -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Header_File_Name : Name_Id -- procedure W_Include_Clause (N : node_id); -- -- Includes -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Includes (N : list_id); -- -- Declaration_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Declaration_List (N : list_id); -- -- Header_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Header_List (N : list_id); -- -- Statement_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Statement_List (N : list_id); -- -- Parameter_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Parameter_List (N : list_id); -- -- Enumeration_Literals -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Enumeration_Literals (N : list_id); -- -- Element_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Element_List (N : list_id); -- -- Label_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Label_List (N : list_id); -- -- Alternatives_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Alternatives_List (N : list_id); -- -- Sources -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Sources (N : list_id); -- -- Headers -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Headers (N : list_id); -- -- Array_Values -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Values : List_Id -- procedure W_Array_Values (N : node_id); -- -- HI_Distributed_Application -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Name : Name_Id -- Units : List_Id -- HI_Nodes : List_Id -- procedure W_HI_Distributed_Application (N : node_id); -- -- HI_Node -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Name : Name_Id -- Units : List_Id -- Distributed_Application : Node_Id -- procedure W_HI_Node (N : node_id); -- -- Header_File -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Distributed_Application_U: Node_Id -- Included_Headers : List_Id -- Declarations : List_Id -- procedure W_Header_File (N : node_id); -- -- Source_File -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Distributed_Application_U: Node_Id -- Included_Headers : List_Id -- Declarations : List_Id -- procedure W_Source_File (N : node_id); -- -- API_Unit -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Sources : List_Id -- Headers : List_Id -- Entity : Node_Id -- procedure W_API_Unit (N : node_id); -- -- HI_Unit -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Sources : List_Id -- Headers : List_Id -- Entity : Node_Id -- Main_Source : Node_Id -- Main_Header : Node_Id -- Activity_Source : Node_Id -- Activity_Header : Node_Id -- Marshallers_Source : Node_Id -- Marshallers_Header : Node_Id -- Request_Source : Node_Id -- Request_Header : Node_Id -- Types_Header : Node_Id -- Types_Source : Node_Id -- Deployment_Header : Node_Id -- Deployment_Source : Node_Id -- Naming_Source : Node_Id -- Naming_Header : Node_Id -- Subprograms_Source : Node_Id -- Subprograms_Header : Node_Id -- procedure W_HI_Unit (N : node_id); -- -- Parameter_Specification -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parameter_Type : Node_Id -- procedure W_Parameter_Specification (N : node_id); -- -- Parameter_Profile -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Parameter_Profile (N : list_id); -- -- Function_Specification -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parameters : List_Id -- Return_Type : Node_Id -- Compile_Unit : Node_Id -- procedure W_Function_Specification (N : node_id); -- -- Function_Implementation -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Specification : Node_Id -- Declarations : List_Id -- Statements : List_Id -- Compile_Unit : Node_Id -- procedure W_Function_Implementation (N : node_id); -- -- Call_Profile -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parameters : List_Id -- procedure W_Call_Profile (N : node_id); -- -- Full_Type_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Type_Definition : Node_Id -- Type_Name : Node_Id -- procedure W_Full_Type_Declaration (N : node_id); -- -- Block_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Declarative_Part : List_Id -- Statements : List_Id -- procedure W_Block_Statement (N : node_id); -- -- If_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Condition : Node_Id -- Statements : List_Id -- Else_Statements : List_Id -- procedure W_If_Statement (N : node_id); -- -- Assignment_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Expression : Node_Id -- procedure W_Assignment_Statement (N : node_id); -- -- Return_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Expression : Node_Id -- procedure W_Return_Statement (N : node_id); -- -- For_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Pre_Cond : Node_Id -- Condition : Node_Id -- Post_Cond : Node_Id -- Statements : List_Id -- procedure W_For_Statement (N : node_id); -- -- While_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Condition : Node_Id -- Statements : List_Id -- procedure W_While_Statement (N : node_id); -- -- Switch_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Expression : Node_Id -- Alternatives : List_Id -- procedure W_Switch_Statement (N : node_id); -- -- Switch_Alternative -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Labels : List_Id -- Statements : List_Id -- procedure W_Switch_Alternative (N : node_id); -- -- Break_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- procedure W_Break_Statement (N : node_id); -- -- Continue_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- procedure W_Continue_Statement (N : node_id); -- -- C_Comment -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Has_Header_Spaces : Boolean -- procedure W_C_Comment (N : node_id); -- -- Define_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Defined_Value : Node_Id -- procedure W_Define_Statement (N : node_id); -- -- Array_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Array_Size : Node_Id -- procedure W_Array_Declaration (N : node_id); -- -- Struct_Aggregate -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Struct_Members : List_Id -- procedure W_Struct_Aggregate (N : node_id); -- -- Union_Aggregate -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Union_Members : List_Id -- procedure W_Union_Aggregate (N : node_id); -- -- Enum_Aggregate -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Enum_Members : List_Id -- procedure W_Enum_Aggregate (N : node_id); -- -- Variable_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Used_Type : Node_Id -- procedure W_Variable_Declaration (N : node_id); -- -- Member_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Used_Type : Node_Id -- procedure W_Member_Declaration (N : node_id); -- -- Member_Designator -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Aggregate_Name : Node_Id -- Is_Pointer : Boolean -- procedure W_Member_Designator (N : node_id); -- -- Macro_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Expression : Node_Id -- procedure W_Macro_Declaration (N : node_id); -- -- Literal -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Value : Value_Id -- procedure W_Literal (N : node_id); -- -- Expression -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Operator : Operator_Id -- Left_Expression : Node_Id -- Right_Expression : Node_Id -- procedure W_Expression (N : node_id); -- -- Type_Conversion -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Subtype_Mark : Node_Id -- Expression : Node_Id -- procedure W_Type_Conversion (N : node_id); -- -- Base_Type -- -- Image : Name_Id -- -- -- Pointer_Type -- -- Used_Type : Node_Id -- -- -- Constant_Type -- -- Used_Type : Node_Id -- -- -- Variable_Address -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Expression : Node_Id -- procedure W_Variable_Address (N : node_id); -- -- Extern_Entity_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Entity : Node_Id -- procedure W_Extern_Entity_Declaration (N : node_id); -- -- Float -- -- Image : Name_Id -- procedure W_Float (N : base_type); -- -- Int -- -- Image : Name_Id -- procedure W_Int (N : base_type); -- -- Char -- -- Image : Name_Id -- procedure W_Char (N : base_type); -- -- Short -- -- Image : Name_Id -- procedure W_Short (N : base_type); -- -- Void -- -- Image : Name_Id -- procedure W_Void (N : base_type); -- -- Pointed_Char -- -- Image : Name_Id -- procedure W_Pointed_Char (N : base_type); -- -- Tree_Bindings -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Main_Node : Node_Id -- Type_Definition_Node : Node_Id -- Feature_Subprogram_Node : Node_Id -- Subprogram_Node : Node_Id -- procedure W_Tree_Bindings (N : node_id); -- -- HI_Tree_Bindings -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Main_Node : Node_Id -- Type_Definition_Node : Node_Id -- Feature_Subprogram_Node : Node_Id -- Subprogram_Node : Node_Id -- Internals_Node : Node_Id -- System_Time_Node : Node_Id -- Marshaller_Node : Node_Id -- Unmarshaller_Node : Node_Id -- Activity_Node : Node_Id -- Functions_Node : Node_Id -- Types_Node : Node_Id -- Object_Node : Node_Id -- Handlers_Node : Node_Id -- Global_Port_Node : Node_Id -- Local_Port_Node : Node_Id -- Request_Node : Node_Id -- Deployment_Node : Node_Id -- Entities_Node : Node_Id -- Servers_Node : Node_Id -- Naming_Node : Node_Id -- Request_Type_Node : Node_Id -- Job_Node : Node_Id -- Stub_Node : Node_Id -- Enumerator_Node : Node_Id -- Process_Request_Node : Node_Id -- Marshall_Request_Node : Node_Id -- Unmarshall_Request_Node : Node_Id -- Default_Value_Node : Node_Id -- procedure W_HI_Tree_Bindings (N : node_id); function Kind (N : node_id) return node_kind; procedure Set_Kind (N : node_id; V : node_kind); function Loc (N : node_id) return location; procedure Set_Loc (N : node_id; V : location); function Next_Node (N : node_id) return node_id; procedure Set_Next_Node (N : node_id; V : node_id); function Frontend_Node (N : node_id) return node_id; procedure Set_Frontend_Node (N : node_id; V : node_id); function Defining_Identifier (N : node_id) return node_id; procedure Set_Defining_Identifier (N : node_id; V : node_id); function First_Node (N : list_id) return node_id; procedure Set_First_Node (N : list_id; V : node_id); function Last_Node (N : list_id) return node_id; procedure Set_Last_Node (N : list_id; V : node_id); function Name (N : node_id) return name_id; procedure Set_Name (N : node_id; V : name_id); function Corresponding_Node (N : node_id) return node_id; procedure Set_Corresponding_Node (N : node_id; V : node_id); function Compile_Unit (N : node_id) return node_id; procedure Set_Compile_Unit (N : node_id; V : node_id); function Header_File_Name (N : node_id) return name_id; procedure Set_Header_File_Name (N : node_id; V : name_id); function Values (N : node_id) return list_id; procedure Set_Values (N : node_id; V : list_id); function Units (N : node_id) return list_id; procedure Set_Units (N : node_id; V : list_id); function HI_Nodes (N : node_id) return list_id; procedure Set_HI_Nodes (N : node_id; V : list_id); function Distributed_Application (N : node_id) return node_id; procedure Set_Distributed_Application (N : node_id; V : node_id); function Distributed_Application_Unit (N : node_id) return node_id; procedure Set_Distributed_Application_Unit (N : node_id; V : node_id); function Included_Headers (N : node_id) return list_id; procedure Set_Included_Headers (N : node_id; V : list_id); function Declarations (N : node_id) return list_id; procedure Set_Declarations (N : node_id; V : list_id); function Sources (N : node_id) return list_id; procedure Set_Sources (N : node_id; V : list_id); function Headers (N : node_id) return list_id; procedure Set_Headers (N : node_id; V : list_id); function Entity (N : node_id) return node_id; procedure Set_Entity (N : node_id; V : node_id); function Main_Source (N : node_id) return node_id; procedure Set_Main_Source (N : node_id; V : node_id); function Main_Header (N : node_id) return node_id; procedure Set_Main_Header (N : node_id; V : node_id); function Activity_Source (N : node_id) return node_id; procedure Set_Activity_Source (N : node_id; V : node_id); function Activity_Header (N : node_id) return node_id; procedure Set_Activity_Header (N : node_id; V : node_id); function Marshallers_Source (N : node_id) return node_id; procedure Set_Marshallers_Source (N : node_id; V : node_id); function Marshallers_Header (N : node_id) return node_id; procedure Set_Marshallers_Header (N : node_id; V : node_id); function Request_Source (N : node_id) return node_id; procedure Set_Request_Source (N : node_id; V : node_id); function Request_Header (N : node_id) return node_id; procedure Set_Request_Header (N : node_id; V : node_id); function Types_Header (N : node_id) return node_id; procedure Set_Types_Header (N : node_id; V : node_id); function Types_Source (N : node_id) return node_id; procedure Set_Types_Source (N : node_id; V : node_id); function Deployment_Header (N : node_id) return node_id; procedure Set_Deployment_Header (N : node_id; V : node_id); function Deployment_Source (N : node_id) return node_id; procedure Set_Deployment_Source (N : node_id; V : node_id); function Naming_Source (N : node_id) return node_id; procedure Set_Naming_Source (N : node_id; V : node_id); function Naming_Header (N : node_id) return node_id; procedure Set_Naming_Header (N : node_id; V : node_id); function Subprograms_Source (N : node_id) return node_id; procedure Set_Subprograms_Source (N : node_id; V : node_id); function Subprograms_Header (N : node_id) return node_id; procedure Set_Subprograms_Header (N : node_id; V : node_id); function Parameter_Type (N : node_id) return node_id; procedure Set_Parameter_Type (N : node_id; V : node_id); function Parameters (N : node_id) return list_id; procedure Set_Parameters (N : node_id; V : list_id); function Return_Type (N : node_id) return node_id; procedure Set_Return_Type (N : node_id; V : node_id); function Specification (N : node_id) return node_id; procedure Set_Specification (N : node_id; V : node_id); function Statements (N : node_id) return list_id; procedure Set_Statements (N : node_id; V : list_id); function Type_Definition (N : node_id) return node_id; procedure Set_Type_Definition (N : node_id; V : node_id); function Type_Name (N : node_id) return node_id; procedure Set_Type_Name (N : node_id; V : node_id); function Declarative_Part (N : node_id) return list_id; procedure Set_Declarative_Part (N : node_id; V : list_id); function Condition (N : node_id) return node_id; procedure Set_Condition (N : node_id; V : node_id); function Else_Statements (N : node_id) return list_id; procedure Set_Else_Statements (N : node_id; V : list_id); function Expression (N : node_id) return node_id; procedure Set_Expression (N : node_id; V : node_id); function Pre_Cond (N : node_id) return node_id; procedure Set_Pre_Cond (N : node_id; V : node_id); function Post_Cond (N : node_id) return node_id; procedure Set_Post_Cond (N : node_id; V : node_id); function Alternatives (N : node_id) return list_id; procedure Set_Alternatives (N : node_id; V : list_id); function Labels (N : node_id) return list_id; procedure Set_Labels (N : node_id; V : list_id); function Has_Header_Spaces (N : node_id) return Boolean; procedure Set_Has_Header_Spaces (N : node_id; V : Boolean); function Defined_Value (N : node_id) return node_id; procedure Set_Defined_Value (N : node_id; V : node_id); function Array_Size (N : node_id) return node_id; procedure Set_Array_Size (N : node_id; V : node_id); function Struct_Members (N : node_id) return list_id; procedure Set_Struct_Members (N : node_id; V : list_id); function Union_Members (N : node_id) return list_id; procedure Set_Union_Members (N : node_id; V : list_id); function Enum_Members (N : node_id) return list_id; procedure Set_Enum_Members (N : node_id; V : list_id); function Used_Type (N : node_id) return node_id; procedure Set_Used_Type (N : node_id; V : node_id); function Aggregate_Name (N : node_id) return node_id; procedure Set_Aggregate_Name (N : node_id; V : node_id); function Is_Pointer (N : node_id) return Boolean; procedure Set_Is_Pointer (N : node_id; V : Boolean); function Value (N : node_id) return value_id; procedure Set_Value (N : node_id; V : value_id); function Operator (N : node_id) return operator_id; procedure Set_Operator (N : node_id; V : operator_id); function Left_Expression (N : node_id) return node_id; procedure Set_Left_Expression (N : node_id; V : node_id); function Right_Expression (N : node_id) return node_id; procedure Set_Right_Expression (N : node_id; V : node_id); function Subtype_Mark (N : node_id) return node_id; procedure Set_Subtype_Mark (N : node_id; V : node_id); function Image (N : base_type) return name_id; procedure Set_Image (N : base_type; V : name_id); function Main_Node (N : node_id) return node_id; procedure Set_Main_Node (N : node_id; V : node_id); function Type_Definition_Node (N : node_id) return node_id; procedure Set_Type_Definition_Node (N : node_id; V : node_id); function Feature_Subprogram_Node (N : node_id) return node_id; procedure Set_Feature_Subprogram_Node (N : node_id; V : node_id); function Subprogram_Node (N : node_id) return node_id; procedure Set_Subprogram_Node (N : node_id; V : node_id); function Internals_Node (N : node_id) return node_id; procedure Set_Internals_Node (N : node_id; V : node_id); function System_Time_Node (N : node_id) return node_id; procedure Set_System_Time_Node (N : node_id; V : node_id); function Marshaller_Node (N : node_id) return node_id; procedure Set_Marshaller_Node (N : node_id; V : node_id); function Unmarshaller_Node (N : node_id) return node_id; procedure Set_Unmarshaller_Node (N : node_id; V : node_id); function Activity_Node (N : node_id) return node_id; procedure Set_Activity_Node (N : node_id; V : node_id); function Functions_Node (N : node_id) return node_id; procedure Set_Functions_Node (N : node_id; V : node_id); function Types_Node (N : node_id) return node_id; procedure Set_Types_Node (N : node_id; V : node_id); function Object_Node (N : node_id) return node_id; procedure Set_Object_Node (N : node_id; V : node_id); function Handlers_Node (N : node_id) return node_id; procedure Set_Handlers_Node (N : node_id; V : node_id); function Global_Port_Node (N : node_id) return node_id; procedure Set_Global_Port_Node (N : node_id; V : node_id); function Local_Port_Node (N : node_id) return node_id; procedure Set_Local_Port_Node (N : node_id; V : node_id); function Request_Node (N : node_id) return node_id; procedure Set_Request_Node (N : node_id; V : node_id); function Deployment_Node (N : node_id) return node_id; procedure Set_Deployment_Node (N : node_id; V : node_id); function Entities_Node (N : node_id) return node_id; procedure Set_Entities_Node (N : node_id; V : node_id); function Servers_Node (N : node_id) return node_id; procedure Set_Servers_Node (N : node_id; V : node_id); function Naming_Node (N : node_id) return node_id; procedure Set_Naming_Node (N : node_id; V : node_id); function Request_Type_Node (N : node_id) return node_id; procedure Set_Request_Type_Node (N : node_id; V : node_id); function Job_Node (N : node_id) return node_id; procedure Set_Job_Node (N : node_id; V : node_id); function Stub_Node (N : node_id) return node_id; procedure Set_Stub_Node (N : node_id; V : node_id); function Enumerator_Node (N : node_id) return node_id; procedure Set_Enumerator_Node (N : node_id; V : node_id); function Process_Request_Node (N : node_id) return node_id; procedure Set_Process_Request_Node (N : node_id; V : node_id); function Marshall_Request_Node (N : node_id) return node_id; procedure Set_Marshall_Request_Node (N : node_id; V : node_id); function Unmarshall_Request_Node (N : node_id) return node_id; procedure Set_Unmarshall_Request_Node (N : node_id; V : node_id); function Default_Value_Node (N : node_id) return node_id; procedure Set_Default_Value_Node (N : node_id; V : node_id); procedure W_Node (N : node_id); type boolean_array is array (1 .. 1) of Boolean; type byte_array is array (1 .. 1) of byte; type int_array is array (1 .. 30) of int; type node_entry is record Kind : node_kind; B : boolean_array; O : byte_array; L : int_array; Loc : location; end record; Default_Node : constant node_entry := (node_kind'first, (others => False), (others => 0), (others => 0), No_Location); package Entries is new GNAT.Table (node_entry, node_id, No_Node + 1, 1000, 100); end Ocarina.Generators.C_Tree.Nodes;