----------------------------------------------- --------------------------------- -- -- -- OCARINA COMPONENTS -- -- -- -- O C A R I N A . G E N E R A T O R S . A D A _ 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.Ada_Tree.Nodes is type node_kind is (k_node_id, k_definition, k_list_id, k_defining_identifier, k_designator, k_attribute_designator, k_explicit_dereference, k_used_type, k_declaration_list, k_statement_list, k_withed_package, k_used_package, k_withed_packages, k_package_specification, k_package_implementation, k_package_declaration, k_main_subprogram_implementation, k_packages, k_qos_distributed_application, k_qos_node, k_hi_distributed_application, k_hi_node, k_api_unit, k_qos_unit, k_hi_unit, k_parameter_specification, k_parameter_profile, k_subprogram_specification, k_subprogram_implementation, k_subprogram_call, k_parameter_association, k_selected_component, k_full_type_declaration, k_attribute_definition_clause, k_enumeration_literals, k_enumeration_type_definition, k_enumeration_representation_clause, k_decimal_type_definition, k_record_aggregate, k_component_association, k_protected_object_spec, k_protected_object_body, k_block_statement, k_elsif_statement, k_if_statement, k_assignment_statement, k_delay_statement, k_return_statement, k_for_statement, k_loop_statement, k_case_statement_alternative, k_case_statement, k_case_label, k_pragma_statement, k_null_statement, k_package_instantiation, k_raise_statement, k_ada_comment, k_access_type_definition, k_derived_type_definition, k_record_type_definition, k_private_type_definition, k_component_declaration, k_component_list, k_record_definition, k_range_constraints, k_array_type_definition, k_range_constraint, k_variant_list, k_variant_part, k_discrete_choice_list, k_variant, k_object_declaration, k_literal, k_element_association, k_element_list, k_array_aggregate, k_exception_declaration, k_expression, k_qualified_expression, k_type_conversion, k_object_instantiation, k_base_type, k_boolean, k_float, k_integer, k_string, k_wide_string, k_character, k_wide_character, k_tree_bindings, k_qos_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 -- Parent : 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 -- Parent_Unit_Name : Node_Id -- procedure W_Defining_Identifier (N : node_id); -- -- Designator -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Is_All : Boolean -- Defining_Identifier : Node_Id -- Parent_Unit_Name : Node_Id -- procedure W_Designator (N : node_id); -- -- Attribute_Designator -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Name : Name_Id -- Corresponding_Node : Node_Id -- Parent_Unit_Name : Node_Id -- Prefix : Node_Id -- procedure W_Attribute_Designator (N : node_id); -- -- Explicit_Dereference -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Prefix : Node_Id -- procedure W_Explicit_Dereference (N : node_id); -- -- Used_Type -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- The_Used_Entity : Node_Id -- procedure W_Used_Type (N : node_id); -- -- Declaration_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Declaration_List (N : list_id); -- -- Statement_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Statement_List (N : list_id); -- -- Withed_Package -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Used : Boolean -- Warnings_Off : Boolean -- Elaborated : Boolean -- procedure W_Withed_Package (N : node_id); -- -- Used_Package -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- The_Used_Entity : Node_Id -- procedure W_Used_Package (N : node_id); -- -- Withed_Packages -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Withed_Packages (N : list_id); -- -- Package_Specification -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Package_Declaration : Node_Id -- Withed_Packages : List_Id -- Visible_Part : List_Id -- Private_Part : List_Id -- Is_Runtime_Package : Boolean -- Is_Subunit_Package : Boolean -- Is_Instantiated_Package : Boolean -- Package_Instantiation : Node_Id -- procedure W_Package_Specification (N : node_id); -- -- Package_Implementation -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Package_Declaration : Node_Id -- Withed_Packages : List_Id -- Declarations : List_Id -- Statements : List_Id -- Package_Initialization : List_Id -- procedure W_Package_Implementation (N : node_id); -- -- Package_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Distributed_Application_U: Node_Id -- Package_Specification : Node_Id -- Package_Implementation : Node_Id -- Has_Custom_File_Name : Boolean -- File_Name : Name_Id -- procedure W_Package_Declaration (N : node_id); -- -- Main_Subprogram_Implementation -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Distributed_Application_U: Node_Id -- Subprogram_Specification : Node_Id -- Subprogram_Implementation: Node_Id -- Has_Custom_File_Name : Boolean -- File_Name : Name_Id -- procedure W_Main_Subprogram_Implementation (N : node_id); -- -- Packages -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Packages (N : list_id); -- -- QoS_Distributed_Application -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Name : Name_Id -- QoS_Nodes : List_Id -- procedure W_QoS_Distributed_Application (N : node_id); -- -- QoS_Node -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Name : Name_Id -- Units : List_Id -- Distributed_Application : Node_Id -- procedure W_QoS_Node (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); -- -- API_Unit -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Main_Subprogram : Node_Id -- Packages : List_Id -- Entity : Node_Id -- procedure W_API_Unit (N : node_id); -- -- QoS_Unit -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Main_Subprogram : Node_Id -- Packages : List_Id -- Entity : Node_Id -- Helpers_Package : Node_Id -- Servants_Package : Node_Id -- Parameters_Package : Node_Id -- Obj_Adapters_Package : Node_Id -- Setup_Package : Node_Id -- Namespaces_Package : Node_Id -- procedure W_QoS_Unit (N : node_id); -- -- HI_Unit -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Main_Subprogram : Node_Id -- Packages : List_Id -- Entity : Node_Id -- Marshallers_Package : Node_Id -- Activity_Package : Node_Id -- Subprograms_Package : Node_Id -- Types_Package : Node_Id -- Deployment_Package : Node_Id -- Naming_Package : Node_Id -- procedure W_HI_Unit (N : node_id); -- -- Parameter_Specification -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Parameter_Mode : Mode_Id -- Parameter_Type : Node_Id -- Expression : 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); -- -- Subprogram_Specification -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Withed_Packages : List_Id -- Parameter_Profile : List_Id -- Return_Type : Node_Id -- Renamed_Entity : Node_Id -- Instantiated_Entity : Node_Id -- Main_Subprogram_Unit : Node_Id -- procedure W_Subprogram_Specification (N : node_id); -- -- Subprogram_Implementation -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Withed_Packages : List_Id -- Specification : Node_Id -- Declarations : List_Id -- Statements : List_Id -- Main_Subprogram_Unit : Node_Id -- procedure W_Subprogram_Implementation (N : node_id); -- -- Subprogram_Call -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Actual_Parameter_Part : List_Id -- procedure W_Subprogram_Call (N : node_id); -- -- Parameter_Association -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Selector_Name : Node_Id -- Actual_Parameter : Node_Id -- procedure W_Parameter_Association (N : node_id); -- -- Selected_Component -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Prefix : Node_Id -- Selector_Name : Node_Id -- procedure W_Selected_Component (N : node_id); -- -- Full_Type_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Type_Definition : Node_Id -- Discriminant_Spec : Node_Id -- Is_Subtype : Boolean -- procedure W_Full_Type_Declaration (N : node_id); -- -- Attribute_Definition_Clause -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Attribute_Designator : Name_Id -- Expression : Node_Id -- procedure W_Attribute_Definition_Clause (N : node_id); -- -- Enumeration_Literals -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Enumeration_Literals (N : list_id); -- -- Enumeration_Type_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Enumeration_Literals : List_Id -- procedure W_Enumeration_Type_Definition (N : node_id); -- -- Enumeration_Representation_Clause -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Array_Aggregate : Node_Id -- procedure W_Enumeration_Representation_Clause (N : node_id); -- -- Decimal_Type_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Scale : Node_Id -- Total : Value_Id -- procedure W_Decimal_Type_Definition (N : node_id); -- -- Record_Aggregate -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Component_Association_Lis: List_Id -- procedure W_Record_Aggregate (N : node_id); -- -- Component_Association -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Expression : Node_Id -- procedure W_Component_Association (N : node_id); -- -- Protected_Object_Spec -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Visible_Part : List_Id -- Private_Part : List_Id -- Is_Type : Boolean -- procedure W_Protected_Object_Spec (N : node_id); -- -- Protected_Object_Body -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Statements : List_Id -- procedure W_Protected_Object_Body (N : node_id); -- -- Block_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Declarative_Part : List_Id -- Statements : List_Id -- Exception_Handler : List_Id -- procedure W_Block_Statement (N : node_id); -- -- Elsif_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Condition : Node_Id -- Then_Statements : List_Id -- procedure W_Elsif_Statement (N : node_id); -- -- If_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Condition : Node_Id -- Then_Statements : List_Id -- Elsif_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 -- Parent : Node_Id -- Expression : Node_Id -- procedure W_Assignment_Statement (N : node_id); -- -- Delay_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Is_Until : Boolean -- Expression : Node_Id -- procedure W_Delay_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 -- Parent : Node_Id -- Range_Constraint : Node_Id -- Statements : List_Id -- procedure W_For_Statement (N : node_id); -- -- Loop_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Statements : List_Id -- procedure W_Loop_Statement (N : node_id); -- -- Case_Statement_Alternative -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Discret_Choice_List : List_Id -- Statements : List_Id -- procedure W_Case_Statement_Alternative (N : node_id); -- -- Case_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Expression : Node_Id -- Case_Statement_Alternativ: List_Id -- procedure W_Case_Statement (N : node_id); -- -- Case_Label -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Expression : Node_Id -- Value : Value_Id -- procedure W_Case_Label (N : node_id); -- -- Pragma_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Argument_List : List_Id -- procedure W_Pragma_Statement (N : node_id); -- -- Null_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- procedure W_Null_Statement (N : node_id); -- -- Package_Instantiation -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Generic_Package : Node_Id -- Parameter_List : List_Id -- procedure W_Package_Instantiation (N : node_id); -- -- Raise_Statement -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Raised_Error : Node_Id -- procedure W_Raise_Statement (N : node_id); -- -- Ada_Comment -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Has_Header_Spaces : Boolean -- procedure W_Ada_Comment (N : node_id); -- -- Access_Type_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Is_All : Boolean -- Is_Constant : Boolean -- Is_Not_Null : Boolean -- Subtype_Indication : Node_Id -- procedure W_Access_Type_Definition (N : node_id); -- -- Derived_Type_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Is_Private_Extention : Boolean -- Is_Abstract_Type : Boolean -- Subtype_Indication : Node_Id -- Record_Extension_Part : Node_Id -- Is_Subtype : Boolean -- procedure W_Derived_Type_Definition (N : node_id); -- -- Record_Type_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Is_Abstract_Type : Boolean -- Is_Tagged_Type : Boolean -- Is_Limited_Type : Boolean -- Record_Definition : Node_Id -- procedure W_Record_Type_Definition (N : node_id); -- -- Private_Type_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- procedure W_Private_Type_Definition (N : node_id); -- -- Component_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Subtype_Indication : Node_Id -- Expression : Node_Id -- Aliased_Present : Boolean -- procedure W_Component_Declaration (N : node_id); -- -- Component_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Component_List (N : list_id); -- -- Record_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Component_List : List_Id -- procedure W_Record_Definition (N : node_id); -- -- Range_Constraints -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Range_Constraints (N : list_id); -- -- Array_Type_Definition -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Range_Constraints : List_Id -- Component_Definition : Node_Id -- Aliased_Present : Boolean -- procedure W_Array_Type_Definition (N : node_id); -- -- Range_Constraint -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- First : Node_Id -- Last : Node_Id -- Index_Type : Node_Id -- procedure W_Range_Constraint (N : node_id); -- -- Variant_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Variant_List (N : list_id); -- -- Variant_Part -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Variants : List_Id -- Discriminant : Node_Id -- procedure W_Variant_Part (N : node_id); -- -- Discrete_Choice_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Discrete_Choice_List (N : list_id); -- -- Variant -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Discrete_Choices : List_Id -- Component_List : List_Id -- procedure W_Variant (N : node_id); -- -- Object_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Constant_Present : Boolean -- Aliased_Present : Boolean -- Object_Definition : Node_Id -- Expression : Node_Id -- Renamed_Entity : Node_Id -- Discriminant_Spec : Node_Id -- procedure W_Object_Declaration (N : node_id); -- -- Literal -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Value : Value_Id -- Parent_Designator : Node_Id -- procedure W_Literal (N : node_id); -- -- Element_Association -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Index : Node_Id -- Expression : Node_Id -- procedure W_Element_Association (N : node_id); -- -- Element_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Element_List (N : list_id); -- -- Array_Aggregate -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Elements : List_Id -- procedure W_Array_Aggregate (N : node_id); -- -- Exception_Declaration -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Defining_Identifier : Node_Id -- Parent : Node_Id -- Renamed_Entity : Node_Id -- procedure W_Exception_Declaration (N : node_id); -- -- Expression -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Operator : Operator_Id -- Left_Expr : Node_Id -- Right_Expr : Node_Id -- procedure W_Expression (N : node_id); -- -- Qualified_Expression -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Subtype_Mark : Node_Id -- Aggregate : Node_Id -- procedure W_Qualified_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); -- -- Object_Instantiation -- -- Next_Node : Node_Id -- Frontend_Node : Node_Id -- Qualified_Expression : Node_Id -- procedure W_Object_Instantiation (N : node_id); -- -- Base_Type -- -- Image : Name_Id -- -- -- Boolean -- -- Image : Name_Id -- procedure W_Boolean (N : base_type); -- -- Float -- -- Image : Name_Id -- procedure W_Float (N : base_type); -- -- Integer -- -- Image : Name_Id -- procedure W_Integer (N : base_type); -- -- String -- -- Image : Name_Id -- procedure W_String (N : base_type); -- -- Wide_String -- -- Image : Name_Id -- procedure W_Wide_String (N : base_type); -- -- Character -- -- Image : Name_Id -- procedure W_Character (N : base_type); -- -- Wide_Character -- -- Image : Name_Id -- procedure W_Wide_Character (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); -- -- QoS_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 -- Helpers_Node : Node_Id -- Servants_Node : Node_Id -- Parameters_Node : Node_Id -- Obj_Adapters_Node : Node_Id -- Setup_Node : Node_Id -- Namespaces_Node : Node_Id -- TypeCode_Node : Node_Id -- From_Any_Node : Node_Id -- To_Any_Node : Node_Id -- Initialize_Node : Node_Id -- Thread_Controller_Node : Node_Id -- Execute_Servant_Node : Node_Id -- Put_Node : Node_Id -- Push_Back_Node : Node_Id -- Get_Node : Node_Id -- Package_Node : Node_Id -- Reference_Node : Node_Id -- Set_Node : Node_Id -- Build_Node : Node_Id -- procedure W_QoS_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 -- Marshallers_Node : Node_Id -- Activity_Node : Node_Id -- Subprograms_Node : Node_Id -- Types_Node : Node_Id -- Deployment_Node : Node_Id -- Naming_Node : Node_Id -- Job_Node : Node_Id -- Deliver_Node : Node_Id -- Enumerator_Node : Node_Id -- Marshall_Node : Node_Id -- Unmarshall_Node : Node_Id -- Port_Interface_Node : Node_Id -- Port_Enumeration_Node : Node_Id -- Put_Value_Node : Node_Id -- Get_Value_Node : Node_Id -- Get_Count_Node : Node_Id -- Next_Value_Node : Node_Id -- Default_Value_Node : Node_Id -- Object_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 Parent (N : node_id) return node_id; procedure Set_Parent (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 Parent_Unit_Name (N : node_id) return node_id; procedure Set_Parent_Unit_Name (N : node_id; V : node_id); function Is_All (N : node_id) return Boolean; procedure Set_Is_All (N : node_id; V : Boolean); function Prefix (N : node_id) return node_id; procedure Set_Prefix (N : node_id; V : node_id); function The_Used_Entity (N : node_id) return node_id; procedure Set_The_Used_Entity (N : node_id; V : node_id); function Used (N : node_id) return Boolean; procedure Set_Used (N : node_id; V : Boolean); function Warnings_Off (N : node_id) return Boolean; procedure Set_Warnings_Off (N : node_id; V : Boolean); function Elaborated (N : node_id) return Boolean; procedure Set_Elaborated (N : node_id; V : Boolean); function Package_Declaration (N : node_id) return node_id; procedure Set_Package_Declaration (N : node_id; V : node_id); function Withed_Packages (N : node_id) return list_id; procedure Set_Withed_Packages (N : node_id; V : list_id); function Visible_Part (N : node_id) return list_id; procedure Set_Visible_Part (N : node_id; V : list_id); function Private_Part (N : node_id) return list_id; procedure Set_Private_Part (N : node_id; V : list_id); function Is_Runtime_Package (N : node_id) return Boolean; procedure Set_Is_Runtime_Package (N : node_id; V : Boolean); function Is_Subunit_Package (N : node_id) return Boolean; procedure Set_Is_Subunit_Package (N : node_id; V : Boolean); function Is_Instantiated_Package (N : node_id) return Boolean; procedure Set_Is_Instantiated_Package (N : node_id; V : Boolean); function Package_Instantiation (N : node_id) return node_id; procedure Set_Package_Instantiation (N : node_id; V : node_id); function Declarations (N : node_id) return list_id; procedure Set_Declarations (N : node_id; V : list_id); function Statements (N : node_id) return list_id; procedure Set_Statements (N : node_id; V : list_id); function Package_Initialization (N : node_id) return list_id; procedure Set_Package_Initialization (N : node_id; V : list_id); function Distributed_Application_Unit (N : node_id) return node_id; procedure Set_Distributed_Application_Unit (N : node_id; V : node_id); function Package_Specification (N : node_id) return node_id; procedure Set_Package_Specification (N : node_id; V : node_id); function Package_Implementation (N : node_id) return node_id; procedure Set_Package_Implementation (N : node_id; V : node_id); function Has_Custom_File_Name (N : node_id) return Boolean; procedure Set_Has_Custom_File_Name (N : node_id; V : Boolean); function File_Name (N : node_id) return name_id; procedure Set_File_Name (N : node_id; V : name_id); function Subprogram_Specification (N : node_id) return node_id; procedure Set_Subprogram_Specification (N : node_id; V : node_id); function Subprogram_Implementation (N : node_id) return node_id; procedure Set_Subprogram_Implementation (N : node_id; V : node_id); function QoS_Nodes (N : node_id) return list_id; procedure Set_QoS_Nodes (N : node_id; V : list_id); function Units (N : node_id) return list_id; procedure Set_Units (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 HI_Nodes (N : node_id) return list_id; procedure Set_HI_Nodes (N : node_id; V : list_id); function Main_Subprogram (N : node_id) return node_id; procedure Set_Main_Subprogram (N : node_id; V : node_id); function Packages (N : node_id) return list_id; procedure Set_Packages (N : node_id; V : list_id); function Entity (N : node_id) return node_id; procedure Set_Entity (N : node_id; V : node_id); function Helpers_Package (N : node_id) return node_id; procedure Set_Helpers_Package (N : node_id; V : node_id); function Servants_Package (N : node_id) return node_id; procedure Set_Servants_Package (N : node_id; V : node_id); function Parameters_Package (N : node_id) return node_id; procedure Set_Parameters_Package (N : node_id; V : node_id); function Obj_Adapters_Package (N : node_id) return node_id; procedure Set_Obj_Adapters_Package (N : node_id; V : node_id); function Setup_Package (N : node_id) return node_id; procedure Set_Setup_Package (N : node_id; V : node_id); function Namespaces_Package (N : node_id) return node_id; procedure Set_Namespaces_Package (N : node_id; V : node_id); function Marshallers_Package (N : node_id) return node_id; procedure Set_Marshallers_Package (N : node_id; V : node_id); function Activity_Package (N : node_id) return node_id; procedure Set_Activity_Package (N : node_id; V : node_id); function Subprograms_Package (N : node_id) return node_id; procedure Set_Subprograms_Package (N : node_id; V : node_id); function Types_Package (N : node_id) return node_id; procedure Set_Types_Package (N : node_id; V : node_id); function Deployment_Package (N : node_id) return node_id; procedure Set_Deployment_Package (N : node_id; V : node_id); function Naming_Package (N : node_id) return node_id; procedure Set_Naming_Package (N : node_id; V : node_id); function Parameter_Mode (N : node_id) return mode_id; procedure Set_Parameter_Mode (N : node_id; V : mode_id); function Parameter_Type (N : node_id) return node_id; procedure Set_Parameter_Type (N : node_id; V : node_id); function Expression (N : node_id) return node_id; procedure Set_Expression (N : node_id; V : node_id); function Parameter_Profile (N : node_id) return list_id; procedure Set_Parameter_Profile (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 Renamed_Entity (N : node_id) return node_id; procedure Set_Renamed_Entity (N : node_id; V : node_id); function Instantiated_Entity (N : node_id) return node_id; procedure Set_Instantiated_Entity (N : node_id; V : node_id); function Main_Subprogram_Unit (N : node_id) return node_id; procedure Set_Main_Subprogram_Unit (N : node_id; V : node_id); function Specification (N : node_id) return node_id; procedure Set_Specification (N : node_id; V : node_id); function Actual_Parameter_Part (N : node_id) return list_id; procedure Set_Actual_Parameter_Part (N : node_id; V : list_id); function Selector_Name (N : node_id) return node_id; procedure Set_Selector_Name (N : node_id; V : node_id); function Actual_Parameter (N : node_id) return node_id; procedure Set_Actual_Parameter (N : node_id; V : node_id); function Type_Definition (N : node_id) return node_id; procedure Set_Type_Definition (N : node_id; V : node_id); function Discriminant_Spec (N : node_id) return node_id; procedure Set_Discriminant_Spec (N : node_id; V : node_id); function Is_Subtype (N : node_id) return Boolean; procedure Set_Is_Subtype (N : node_id; V : Boolean); function Attribute_Designator (N : node_id) return name_id; procedure Set_Attribute_Designator (N : node_id; V : name_id); function Enumeration_Literals (N : node_id) return list_id; procedure Set_Enumeration_Literals (N : node_id; V : list_id); function Array_Aggregate (N : node_id) return node_id; procedure Set_Array_Aggregate (N : node_id; V : node_id); function Scale (N : node_id) return node_id; procedure Set_Scale (N : node_id; V : node_id); function Total (N : node_id) return value_id; procedure Set_Total (N : node_id; V : value_id); function Component_Association_List (N : node_id) return list_id; procedure Set_Component_Association_List (N : node_id; V : list_id); function Is_Type (N : node_id) return Boolean; procedure Set_Is_Type (N : node_id; V : Boolean); function Declarative_Part (N : node_id) return list_id; procedure Set_Declarative_Part (N : node_id; V : list_id); function Exception_Handler (N : node_id) return list_id; procedure Set_Exception_Handler (N : node_id; V : list_id); function Condition (N : node_id) return node_id; procedure Set_Condition (N : node_id; V : node_id); function Then_Statements (N : node_id) return list_id; procedure Set_Then_Statements (N : node_id; V : list_id); function Elsif_Statements (N : node_id) return list_id; procedure Set_Elsif_Statements (N : node_id; V : list_id); function Else_Statements (N : node_id) return list_id; procedure Set_Else_Statements (N : node_id; V : list_id); function Is_Until (N : node_id) return Boolean; procedure Set_Is_Until (N : node_id; V : Boolean); function Range_Constraint (N : node_id) return node_id; procedure Set_Range_Constraint (N : node_id; V : node_id); function Discret_Choice_List (N : node_id) return list_id; procedure Set_Discret_Choice_List (N : node_id; V : list_id); function Case_Statement_Alternatives (N : node_id) return list_id; procedure Set_Case_Statement_Alternatives (N : node_id; V : list_id); function Value (N : node_id) return value_id; procedure Set_Value (N : node_id; V : value_id); function Argument_List (N : node_id) return list_id; procedure Set_Argument_List (N : node_id; V : list_id); function Generic_Package (N : node_id) return node_id; procedure Set_Generic_Package (N : node_id; V : node_id); function Parameter_List (N : node_id) return list_id; procedure Set_Parameter_List (N : node_id; V : list_id); function Raised_Error (N : node_id) return node_id; procedure Set_Raised_Error (N : node_id; V : node_id); function Has_Header_Spaces (N : node_id) return Boolean; procedure Set_Has_Header_Spaces (N : node_id; V : Boolean); function Is_Constant (N : node_id) return Boolean; procedure Set_Is_Constant (N : node_id; V : Boolean); function Is_Not_Null (N : node_id) return Boolean; procedure Set_Is_Not_Null (N : node_id; V : Boolean); function Subtype_Indication (N : node_id) return node_id; procedure Set_Subtype_Indication (N : node_id; V : node_id); function Is_Private_Extention (N : node_id) return Boolean; procedure Set_Is_Private_Extention (N : node_id; V : Boolean); function Is_Abstract_Type (N : node_id) return Boolean; procedure Set_Is_Abstract_Type (N : node_id; V : Boolean); function Record_Extension_Part (N : node_id) return node_id; procedure Set_Record_Extension_Part (N : node_id; V : node_id); function Is_Tagged_Type (N : node_id) return Boolean; procedure Set_Is_Tagged_Type (N : node_id; V : Boolean); function Is_Limited_Type (N : node_id) return Boolean; procedure Set_Is_Limited_Type (N : node_id; V : Boolean); function Record_Definition (N : node_id) return node_id; procedure Set_Record_Definition (N : node_id; V : node_id); function Aliased_Present (N : node_id) return Boolean; procedure Set_Aliased_Present (N : node_id; V : Boolean); function Component_List (N : node_id) return list_id; procedure Set_Component_List (N : node_id; V : list_id); function Range_Constraints (N : node_id) return list_id; procedure Set_Range_Constraints (N : node_id; V : list_id); function Component_Definition (N : node_id) return node_id; procedure Set_Component_Definition (N : node_id; V : node_id); function First (N : node_id) return node_id; procedure Set_First (N : node_id; V : node_id); function Last (N : node_id) return node_id; procedure Set_Last (N : node_id; V : node_id); function Index_Type (N : node_id) return node_id; procedure Set_Index_Type (N : node_id; V : node_id); function Variants (N : node_id) return list_id; procedure Set_Variants (N : node_id; V : list_id); function Discriminant (N : node_id) return node_id; procedure Set_Discriminant (N : node_id; V : node_id); function Discrete_Choices (N : node_id) return list_id; procedure Set_Discrete_Choices (N : node_id; V : list_id); function Constant_Present (N : node_id) return Boolean; procedure Set_Constant_Present (N : node_id; V : Boolean); function Object_Definition (N : node_id) return node_id; procedure Set_Object_Definition (N : node_id; V : node_id); function Parent_Designator (N : node_id) return node_id; procedure Set_Parent_Designator (N : node_id; V : node_id); function Index (N : node_id) return node_id; procedure Set_Index (N : node_id; V : node_id); function Elements (N : node_id) return list_id; procedure Set_Elements (N : node_id; V : list_id); function Operator (N : node_id) return operator_id; procedure Set_Operator (N : node_id; V : operator_id); function Left_Expr (N : node_id) return node_id; procedure Set_Left_Expr (N : node_id; V : node_id); function Right_Expr (N : node_id) return node_id; procedure Set_Right_Expr (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 Aggregate (N : node_id) return node_id; procedure Set_Aggregate (N : node_id; V : node_id); function Qualified_Expression (N : node_id) return node_id; procedure Set_Qualified_Expression (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 Helpers_Node (N : node_id) return node_id; procedure Set_Helpers_Node (N : node_id; V : node_id); function Servants_Node (N : node_id) return node_id; procedure Set_Servants_Node (N : node_id; V : node_id); function Parameters_Node (N : node_id) return node_id; procedure Set_Parameters_Node (N : node_id; V : node_id); function Obj_Adapters_Node (N : node_id) return node_id; procedure Set_Obj_Adapters_Node (N : node_id; V : node_id); function Setup_Node (N : node_id) return node_id; procedure Set_Setup_Node (N : node_id; V : node_id); function Namespaces_Node (N : node_id) return node_id; procedure Set_Namespaces_Node (N : node_id; V : node_id); function TypeCode_Node (N : node_id) return node_id; procedure Set_TypeCode_Node (N : node_id; V : node_id); function From_Any_Node (N : node_id) return node_id; procedure Set_From_Any_Node (N : node_id; V : node_id); function To_Any_Node (N : node_id) return node_id; procedure Set_To_Any_Node (N : node_id; V : node_id); function Initialize_Node (N : node_id) return node_id; procedure Set_Initialize_Node (N : node_id; V : node_id); function Thread_Controller_Node (N : node_id) return node_id; procedure Set_Thread_Controller_Node (N : node_id; V : node_id); function Execute_Servant_Node (N : node_id) return node_id; procedure Set_Execute_Servant_Node (N : node_id; V : node_id); function Put_Node (N : node_id) return node_id; procedure Set_Put_Node (N : node_id; V : node_id); function Push_Back_Node (N : node_id) return node_id; procedure Set_Push_Back_Node (N : node_id; V : node_id); function Get_Node (N : node_id) return node_id; procedure Set_Get_Node (N : node_id; V : node_id); function Package_Node (N : node_id) return node_id; procedure Set_Package_Node (N : node_id; V : node_id); function Reference_Node (N : node_id) return node_id; procedure Set_Reference_Node (N : node_id; V : node_id); function Set_Node (N : node_id) return node_id; procedure Set_Set_Node (N : node_id; V : node_id); function Build_Node (N : node_id) return node_id; procedure Set_Build_Node (N : node_id; V : node_id); function Marshallers_Node (N : node_id) return node_id; procedure Set_Marshallers_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 Subprograms_Node (N : node_id) return node_id; procedure Set_Subprograms_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 Deployment_Node (N : node_id) return node_id; procedure Set_Deployment_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 Job_Node (N : node_id) return node_id; procedure Set_Job_Node (N : node_id; V : node_id); function Deliver_Node (N : node_id) return node_id; procedure Set_Deliver_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 Marshall_Node (N : node_id) return node_id; procedure Set_Marshall_Node (N : node_id; V : node_id); function Unmarshall_Node (N : node_id) return node_id; procedure Set_Unmarshall_Node (N : node_id; V : node_id); function Port_Interface_Node (N : node_id) return node_id; procedure Set_Port_Interface_Node (N : node_id; V : node_id); function Port_Enumeration_Node (N : node_id) return node_id; procedure Set_Port_Enumeration_Node (N : node_id; V : node_id); function Put_Value_Node (N : node_id) return node_id; procedure Set_Put_Value_Node (N : node_id; V : node_id); function Get_Value_Node (N : node_id) return node_id; procedure Set_Get_Value_Node (N : node_id; V : node_id); function Get_Count_Node (N : node_id) return node_id; procedure Set_Get_Count_Node (N : node_id; V : node_id); function Next_Value_Node (N : node_id) return node_id; procedure Set_Next_Value_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); function Object_Node (N : node_id) return node_id; procedure Set_Object_Node (N : node_id; V : node_id); procedure W_Node (N : node_id); type boolean_array is array (1 .. 3) of Boolean; type byte_array is array (1 .. 1) of byte; type int_array is array (1 .. 25) 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.Ada_Tree.Nodes;