------------------------------------------------------------- ------------------- -- -- -- OCARINA COMPONENTS -- -- -- -- O C A R I N A . 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.Nodes is type node_kind is (k_node_id, k_list_id, k_invalid_node, k_annotated_node, k_annotation_item, k_node_container, k_scope_definition, k_identifier, k_aadl_entity, k_named_aadl_entity, k_aadl_declaration, k_scoped_name, k_entity_reference, k_pair_of_entity_references, k_identifiers_list, k_aadl_specification, k_aadl_declarations_list, k_package_specification, k_component_category, k_component_type, k_component_implementation, k_contained_entity, k_subclause, k_feature, k_refinable_feature, k_port_spec, k_port_group_spec, k_subprogram_spec, k_parameter, k_subcomponent_access, k_flow_spec, k_mode, k_mode_transition, k_in_modes, k_flow_implementation, k_end_to_end_flow_spec, k_flow_implementation_refinement, k_end_to_end_flow_refinement, k_subprogram_call, k_subprogram_call_sequence, k_subcomponent, k_port_group_type, k_connection, k_property_set, k_property_type, k_property_type_declaration, k_single_valued_property, k_multi_valued_property, k_constant_property_declaration, k_property_value, k_property_name_declaration, k_property_list_value, k_in_binding, k_property_association, k_literal, k_signed_aadlnumber, k_not_boolean_term, k_and_boolean_term, k_or_boolean_term, k_parenthesis_boolean_term, k_minus_numeric_term, k_property_term, k_number_range_term, k_component_classifier_term, k_reference_term, k_boolean_type, k_string_type, k_real_type, k_integer_type, k_enumeration_type, k_number_range, k_unit_definition, k_units_type, k_range_type, k_classifier_type, k_referable_element_category, k_reference_type, k_unique_property_type_identifier, k_property_owner_category, k_applies_to, k_unique_property_const_identifier, k_annex_content, k_annex_subclause, k_annex_library, k_architecture_instance, k_entity_instance, k_entity_reference_instance, k_declaration_instance, k_component_instance, k_subcomponent_instance, k_namespace_instance, k_feature_instance, k_port_spec_instance, k_port_group_spec_instance, k_subprogram_spec_instance, k_parameter_instance, k_subcomponent_access_instance, k_call_sequence_instance, k_call_instance, k_mode_instance, k_mode_transition_instance, k_connection_instance, k_virtual_connection); -- -- Node_Id -- -- Next_Node : Node_Id -- -- -- List_Id -- -- First_Node : Node_Id -- Last_Node : Node_Id -- -- -- Invalid_Node -- -- Next_Node : Node_Id -- procedure W_Invalid_Node (N : node_id); -- -- Annotated_Node -- -- Next_Node : Node_Id -- Annotations : List_Id -- procedure W_Annotated_Node (N : node_id); -- -- Annotation_Item -- -- Next_Node : Node_Id -- Annotation_Node : Node_Id -- Annotation_Name : Name_Id -- Annotation_Info : Node_Id -- procedure W_Annotation_Item (N : node_id); -- -- Node_Container -- -- Next_Node : Node_Id -- Item : Node_Id -- Extra_Item : Node_Id -- procedure W_Node_Container (N : node_id); -- -- Scope_Definition -- -- Next_Node : Node_Id -- Scoped_Identifiers : Node_Id -- Corresponding_Entity : Node_Id -- procedure W_Scope_Definition (N : node_id); -- -- Identifier -- -- Next_Node : Node_Id -- Annotations : List_Id -- Name : Name_Id -- Display_Name : Name_Id -- Corresponding_Entity : Node_Id -- Scope_Entity : Node_Id -- Potential_Scope : Node_Id -- Homonym : Node_Id -- Visible : Boolean -- Backend_Node : Node_Id -- procedure W_Identifier (N : node_id); -- -- AADL_Entity -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- procedure W_AADL_Entity (N : node_id); -- -- Named_AADL_Entity -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- procedure W_Named_AADL_Entity (N : node_id); -- -- AADL_Declaration -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Entity_Scope : Node_Id -- Property_Scope : Node_Id -- Is_Private : Boolean -- First_Visited_Node : Node_Id -- Namespace : Node_Id -- Default_Instance : Node_Id -- procedure W_AADL_Declaration (N : node_id); -- -- Scoped_Name -- -- Next_Node : Node_Id -- Identifier : Node_Id -- Reference : Node_Id -- Parent_Entity : Node_Id -- Depth : Int -- Next_Scoped_Name : Node_Id -- procedure W_Scoped_Name (N : node_id); -- -- Entity_Reference -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Path : List_Id -- Namespace_Path : List_Id -- Namespace_Identifier : Node_Id -- Full_Identifier : Node_Id -- Entity : Node_Id -- procedure W_Entity_Reference (N : node_id); -- -- Pair_Of_Entity_References -- -- Next_Node : Node_Id -- First_Reference : Node_Id -- Second_Reference : Node_Id -- procedure W_Pair_Of_Entity_References (N : node_id); -- -- Identifiers_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Identifiers_List (N : list_id); -- -- AADL_Specification -- -- Next_Node : Node_Id -- Annotations : List_Id -- Declarations : List_Id -- Entity_Scope : Node_Id -- procedure W_AADL_Specification (N : node_id); -- -- AADL_Declarations_List -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_AADL_Declarations_List (N : list_id); -- -- Package_Specification -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Has_Private_Part : Boolean -- Has_Public_Part : Boolean -- Entity_Scope : Node_Id -- Declarations : List_Id -- Property_Scope : Node_Id -- Properties : List_Id -- procedure W_Package_Specification (N : node_id); -- -- Component_Category -- -- Next_Node : Node_Id -- Category : Byte -- procedure W_Component_Category (N : node_id); -- -- Component_Type -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Entity_Scope : Node_Id -- Property_Scope : Node_Id -- Is_Private : Boolean -- First_Visited_Node : Node_Id -- Namespace : Node_Id -- Default_Instance : Node_Id -- Category : Byte -- Features : List_Id -- Flows : List_Id -- Properties : List_Id -- Annexes : List_Id -- Parent : Node_Id -- Instances : List_Id -- procedure W_Component_Type (N : node_id); -- -- Component_Implementation -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Entity_Scope : Node_Id -- Property_Scope : Node_Id -- Is_Private : Boolean -- First_Visited_Node : Node_Id -- Namespace : Node_Id -- Default_Instance : Node_Id -- Component_Type_Identifier: Node_Id -- Category : Byte -- Refines_Type : List_Id -- Subcomponents : List_Id -- Calls : List_Id -- Connections : List_Id -- Flows : List_Id -- Modes : List_Id -- Properties : List_Id -- Annexes : List_Id -- Parent : Node_Id -- Instances : List_Id -- procedure W_Component_Implementation (N : node_id); -- -- Contained_Entity -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- procedure W_Contained_Entity (N : node_id); -- -- Subclause -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- procedure W_Subclause (N : node_id); -- -- Feature -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- procedure W_Feature (N : node_id); -- -- Refinable_Feature -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- procedure W_Refinable_Feature (N : node_id); -- -- Port_Spec -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- Is_In : Boolean -- Is_Out : Boolean -- Is_Event : Boolean -- Is_Data : Boolean -- procedure W_Port_Spec (N : node_id); -- -- Port_Group_Spec -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- procedure W_Port_Group_Spec (N : node_id); -- -- Subprogram_Spec -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- Is_Server : Boolean -- procedure W_Subprogram_Spec (N : node_id); -- -- Parameter -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- Is_In : Boolean -- Is_Out : Boolean -- procedure W_Parameter (N : node_id); -- -- Subcomponent_Access -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- Is_Provided : Boolean -- Subcomponent_Category : Byte -- procedure W_Subcomponent_Access (N : node_id); -- -- Flow_Spec -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- Category : Byte -- Source_Flow : Node_Id -- Sink_Flow : Node_Id -- procedure W_Flow_Spec (N : node_id); -- -- Mode -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- Is_Initial : Boolean -- procedure W_Mode (N : node_id); -- -- Mode_Transition -- -- Next_Node : Node_Id -- Source_Modes : List_Id -- Unique_Ports : List_Id -- Destination_Mode : Node_Id -- Container_Component : Node_Id -- procedure W_Mode_Transition (N : node_id); -- -- In_Modes -- -- Next_Node : Node_Id -- Modes : List_Id -- procedure W_In_Modes (N : node_id); -- -- Flow_Implementation -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Category : Byte -- Connections : List_Id -- In_Modes : Node_Id -- procedure W_Flow_Implementation (N : node_id); -- -- End_To_End_Flow_Spec -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Connections : List_Id -- In_Modes : Node_Id -- procedure W_End_To_End_Flow_Spec (N : node_id); -- -- Flow_Implementation_Refinement -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Category : Byte -- In_Modes : Node_Id -- procedure W_Flow_Implementation_Refinement (N : node_id); -- -- End_To_End_Flow_Refinement -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- In_Modes : Node_Id -- procedure W_End_To_End_Flow_Refinement (N : node_id); -- -- Subprogram_Call -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- In_Modes : Node_Id -- Parent_Sequence : Node_Id -- procedure W_Subprogram_Call (N : node_id); -- -- Subprogram_Call_Sequence -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Subprogram_Calls : List_Id -- In_Modes : Node_Id -- procedure W_Subprogram_Call_Sequence (N : node_id); -- -- Subcomponent -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Implicit_Inverse : Boolean -- Inversed_Entity : Node_Id -- Is_Refinement : Boolean -- Category : Byte -- In_Modes : Node_Id -- procedure W_Subcomponent (N : node_id); -- -- Port_Group_Type -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Entity_Scope : Node_Id -- Property_Scope : Node_Id -- Is_Private : Boolean -- First_Visited_Node : Node_Id -- Namespace : Node_Id -- Default_Instance : Node_Id -- Features : List_Id -- Inverse_Of : Node_Id -- Properties : List_Id -- Annexes : List_Id -- Parent : Node_Id -- procedure W_Port_Group_Type (N : node_id); -- -- Connection -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Property_Scope : Node_Id -- Properties : List_Id -- Entity_Ref : Node_Id -- Is_Refinement : Boolean -- Category : Byte -- Source : Node_Id -- Destination : Node_Id -- In_Modes : Node_Id -- procedure W_Connection (N : node_id); -- -- Property_Set -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Declarations : List_Id -- Entity_Scope : Node_Id -- Property_Set_Context : Node_Id -- procedure W_Property_Set (N : node_id); -- -- Property_Type -- -- Next_Node : Node_Id -- Annotations : List_Id -- Is_List : Boolean -- Property_Type_Designator : Node_Id -- Expanded_Type_Designator : Node_Id -- procedure W_Property_Type (N : node_id); -- -- Property_Type_Declaration -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Property_Type_Designator : Node_Id -- procedure W_Property_Type_Declaration (N : node_id); -- -- Single_Valued_Property -- -- Next_Node : Node_Id -- Annotations : List_Id -- Property_Type_Designator : Node_Id -- Property_Expression : Node_Id -- procedure W_Single_Valued_Property (N : node_id); -- -- Multi_Valued_Property -- -- Next_Node : Node_Id -- Annotations : List_Id -- Property_Type_Designator : Node_Id -- Property_Expressions : List_Id -- procedure W_Multi_Valued_Property (N : node_id); -- -- Constant_Property_Declaration -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Constant_Type : Node_Id -- Unique_Unit_Identifier : Node_Id -- Constant_Value : Node_Id -- procedure W_Constant_Property_Declaration (N : node_id); -- -- Property_Value -- -- Next_Node : Node_Id -- Annotations : List_Id -- Value_Container : Node_Id -- Single_Value : Node_Id -- Multi_Value : List_Id -- Expanded_Single_Value : Node_Id -- Expanded_Multi_Value : List_Id -- procedure W_Property_Value (N : node_id); -- -- Property_Name_Declaration -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Is_Access : Boolean -- Is_Inherit : Boolean -- Property_Name_Type : Node_Id -- Default_Value : Node_Id -- Applies_To : Node_Id -- procedure W_Property_Name_Declaration (N : node_id); -- -- Property_List_Value -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Property_List_Value (N : list_id); -- -- In_Binding -- -- Next_Node : Node_Id -- Binding : List_Id -- procedure W_In_Binding (N : node_id); -- -- Property_Association -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Property_Name : Node_Id -- Is_Additive_Association : Boolean -- Is_Constant : Boolean -- Is_Private : Boolean -- Is_Access : Boolean -- Property_Association_Type: Node_Id -- Property_Association_Valu: Node_Id -- Applies_To_Prop : List_Id -- In_Binding : Node_Id -- In_Modes : Node_Id -- procedure W_Property_Association (N : node_id); -- -- Literal -- -- Next_Node : Node_Id -- Annotations : List_Id -- Value : Value_Id -- procedure W_Literal (N : node_id); -- -- Signed_AADLNumber -- -- Next_Node : Node_Id -- Number_Value : Node_Id -- Unit_Identifier : Node_Id -- procedure W_Signed_AADLNumber (N : node_id); -- -- Not_Boolean_Term -- -- Next_Node : Node_Id -- Boolean_Term : Node_Id -- procedure W_Not_Boolean_Term (N : node_id); -- -- And_Boolean_Term -- -- Next_Node : Node_Id -- First_Term : Node_Id -- Second_Term : Node_Id -- procedure W_And_Boolean_Term (N : node_id); -- -- Or_Boolean_Term -- -- Next_Node : Node_Id -- First_Term : Node_Id -- Second_Term : Node_Id -- procedure W_Or_Boolean_Term (N : node_id); -- -- Parenthesis_Boolean_Term -- -- Next_Node : Node_Id -- Boolean_Term : Node_Id -- procedure W_Parenthesis_Boolean_Term (N : node_id); -- -- Minus_Numeric_Term -- -- Next_Node : Node_Id -- Numeric_Term : Node_Id -- procedure W_Minus_Numeric_Term (N : node_id); -- -- Property_Term -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Path : List_Id -- Namespace_Path : List_Id -- Namespace_Identifier : Node_Id -- Full_Identifier : Node_Id -- Entity : Node_Id -- procedure W_Property_Term (N : node_id); -- -- Number_Range_Term -- -- Next_Node : Node_Id -- Lower_Bound : Node_Id -- Upper_Bound : Node_Id -- Delta_Term : Node_Id -- procedure W_Number_Range_Term (N : node_id); -- -- Component_Classifier_Term -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Path : List_Id -- Namespace_Path : List_Id -- Namespace_Identifier : Node_Id -- Full_Identifier : Node_Id -- Entity : Node_Id -- Component_Cat : Byte -- procedure W_Component_Classifier_Term (N : node_id); -- -- Reference_Term -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Path : List_Id -- Namespace_Path : List_Id -- Namespace_Identifier : Node_Id -- Full_Identifier : Node_Id -- Entity : Node_Id -- procedure W_Reference_Term (N : node_id); -- -- Boolean_Type -- -- Next_Node : Node_Id -- procedure W_Boolean_Type (N : node_id); -- -- String_Type -- -- Next_Node : Node_Id -- procedure W_String_Type (N : node_id); -- -- Real_Type -- -- Next_Node : Node_Id -- Type_Range : Node_Id -- Unit_Designator : Node_Id -- procedure W_Real_Type (N : node_id); -- -- Integer_Type -- -- Next_Node : Node_Id -- Type_Range : Node_Id -- Unit_Designator : Node_Id -- procedure W_Integer_Type (N : node_id); -- -- Enumeration_Type -- -- Next_Node : Node_Id -- Identifiers : List_Id -- Enumeration_Context : Node_Id -- procedure W_Enumeration_Type (N : node_id); -- -- Number_Range -- -- Next_Node : Node_Id -- Lower_Bound : Node_Id -- Upper_Bound : Node_Id -- procedure W_Number_Range (N : node_id); -- -- Unit_Definition -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Unit_Identifier : Node_Id -- Numeric_Literal : Node_Id -- procedure W_Unit_Definition (N : node_id); -- -- Units_Type -- -- Next_Node : Node_Id -- Base_Identifier : Node_Id -- Unit_Definitions : List_Id -- Units_Context : Node_Id -- procedure W_Units_Type (N : node_id); -- -- Range_Type -- -- Next_Node : Node_Id -- Number_Type : Node_Id -- procedure W_Range_Type (N : node_id); -- -- Classifier_Type -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Classifier_Type (N : list_id); -- -- Referable_Element_Category -- -- Next_Node : Node_Id -- Component_Cat : Byte -- Category : Byte -- procedure W_Referable_Element_Category (N : node_id); -- -- Reference_Type -- -- First_Node : Node_Id -- Last_Node : Node_Id -- procedure W_Reference_Type (N : list_id); -- -- Unique_Property_Type_Identifier -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Path : List_Id -- Namespace_Path : List_Id -- Namespace_Identifier : Node_Id -- Full_Identifier : Node_Id -- Entity : Node_Id -- procedure W_Unique_Property_Type_Identifier (N : node_id); -- -- Property_Owner_Category -- -- Next_Node : Node_Id -- Category : Byte -- Component_Cat : Byte -- Classifier_Ref : Node_Id -- procedure W_Property_Owner_Category (N : node_id); -- -- Applies_To -- -- Next_Node : Node_Id -- Is_All : Boolean -- Owner_Categories : List_Id -- procedure W_Applies_To (N : node_id); -- -- Unique_Property_Const_Identifier -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Path : List_Id -- Namespace_Path : List_Id -- Namespace_Identifier : Node_Id -- Full_Identifier : Node_Id -- Entity : Node_Id -- procedure W_Unique_Property_Const_Identifier (N : node_id); -- -- Annex_Content -- -- Next_Node : Node_Id -- Raw_Text : Name_Id -- procedure W_Annex_Content (N : node_id); -- -- Annex_Subclause -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Container_Component : Node_Id -- Annex_Content : Node_Id -- procedure W_Annex_Subclause (N : node_id); -- -- Annex_Library -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Is_Private : Boolean -- Annex_Content : Node_Id -- Container_Package : Node_Id -- procedure W_Annex_Library (N : node_id); -- -- Architecture_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Root_System : Node_Id -- Virtual_Connections : List_Id -- Namespaces : List_Id -- Unnamed_Namespace : Node_Id -- procedure W_Architecture_Instance (N : node_id); -- -- Entity_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- procedure W_Entity_Instance (N : node_id); -- -- Entity_Reference_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Path : List_Id -- procedure W_Entity_Reference_Instance (N : node_id); -- -- Declaration_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- procedure W_Declaration_Instance (N : node_id); -- -- Component_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Is_Private : Boolean -- Features : List_Id -- Subcomponents : List_Id -- Modes : List_Id -- Mode_transitions : List_Id -- Connections : List_Id -- Calls : List_Id -- Flows : List_Id -- Annexes : List_Id -- Parent_Subcomponent : Node_Id -- Namespace : Node_Id -- First_Homonym_In_Namespac: Node_Id -- procedure W_Component_Instance (N : node_id); -- -- Subcomponent_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Parent_Component : Node_Id -- Corresponding_Instance : Node_Id -- Destinations : List_Id -- In_Modes : Node_Id -- procedure W_Subcomponent_Instance (N : node_id); -- -- Namespace_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Declarations : List_Id -- procedure W_Namespace_Instance (N : node_id); -- -- Feature_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Parent_Component : Node_Id -- Sources : List_Id -- Destinations : List_Id -- procedure W_Feature_Instance (N : node_id); -- -- Port_Spec_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Parent_Component : Node_Id -- Sources : List_Id -- Destinations : List_Id -- Is_In : Boolean -- Is_Out : Boolean -- Is_Event : Boolean -- Is_Data : Boolean -- Corresponding_Instance : Node_Id -- procedure W_Port_Spec_Instance (N : node_id); -- -- Port_Group_Spec_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Parent_Component : Node_Id -- Sources : List_Id -- Destinations : List_Id -- Features : List_Id -- procedure W_Port_Group_Spec_Instance (N : node_id); -- -- Subprogram_Spec_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Parent_Component : Node_Id -- Sources : List_Id -- Destinations : List_Id -- Is_Server : Boolean -- Corresponding_Instance : Node_Id -- procedure W_Subprogram_Spec_Instance (N : node_id); -- -- Parameter_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Parent_Component : Node_Id -- Sources : List_Id -- Destinations : List_Id -- Is_In : Boolean -- Is_Out : Boolean -- Corresponding_Instance : Node_Id -- procedure W_Parameter_Instance (N : node_id); -- -- Subcomponent_Access_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Parent_Component : Node_Id -- Sources : List_Id -- Destinations : List_Id -- Is_Provided : Boolean -- Is_Data : Boolean -- Corresponding_Instance : Node_Id -- procedure W_Subcomponent_Access_Instance (N : node_id); -- -- Call_Sequence_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Parent_Component : Node_Id -- Subprogram_Calls : List_Id -- In_Modes : Node_Id -- procedure W_Call_Sequence_Instance (N : node_id); -- -- Call_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Parent_Sequence : Node_Id -- Corresponding_Instance : Node_Id -- Path : List_Id -- procedure W_Call_Instance (N : node_id); -- -- Mode_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Parent_Component : Node_Id -- Is_Initial : Boolean -- procedure W_Mode_Instance (N : node_id); -- -- Mode_Transition_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Parent_Component : Node_Id -- Source_Modes : List_Id -- Unique_Ports : List_Id -- Destination_Mode : Node_Id -- procedure W_Mode_Transition_Instance (N : node_id); -- -- Connection_Instance -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Source : Node_Id -- Destination : Node_Id -- Associated_Type : Node_Id -- Parent_Component : Node_Id -- In_Modes : Node_Id -- procedure W_Connection_Instance (N : node_id); -- -- Virtual_Connection -- -- Next_Node : Node_Id -- Annotations : List_Id -- Next_Entity : Node_Id -- Identifier : Node_Id -- Corresponding_Declaration: Node_Id -- Annotation : Node_Id -- Properties : List_Id -- Source : Node_Id -- Destination : Node_Id -- Associated_Type : Node_Id -- Parent_Component : Node_Id -- In_Modes : Node_Id -- Connection_Instances : List_Id -- procedure W_Virtual_Connection (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 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 Annotations (N : node_id) return list_id; procedure Set_Annotations (N : node_id; V : list_id); function Annotation_Node (N : node_id) return node_id; procedure Set_Annotation_Node (N : node_id; V : node_id); function Annotation_Name (N : node_id) return name_id; procedure Set_Annotation_Name (N : node_id; V : name_id); function Annotation_Info (N : node_id) return node_id; procedure Set_Annotation_Info (N : node_id; V : node_id); function Item (N : node_id) return node_id; procedure Set_Item (N : node_id; V : node_id); function Extra_Item (N : node_id) return node_id; procedure Set_Extra_Item (N : node_id; V : node_id); function Scoped_Identifiers (N : node_id) return node_id; procedure Set_Scoped_Identifiers (N : node_id; V : node_id); function Corresponding_Entity (N : node_id) return node_id; procedure Set_Corresponding_Entity (N : node_id; V : node_id); function Name (N : node_id) return name_id; procedure Set_Name (N : node_id; V : name_id); function Display_Name (N : node_id) return name_id; procedure Set_Display_Name (N : node_id; V : name_id); function Scope_Entity (N : node_id) return node_id; procedure Set_Scope_Entity (N : node_id; V : node_id); function Potential_Scope (N : node_id) return node_id; procedure Set_Potential_Scope (N : node_id; V : node_id); function Homonym (N : node_id) return node_id; procedure Set_Homonym (N : node_id; V : node_id); function Visible (N : node_id) return Boolean; procedure Set_Visible (N : node_id; V : Boolean); function Backend_Node (N : node_id) return node_id; procedure Set_Backend_Node (N : node_id; V : node_id); function Next_Entity (N : node_id) return node_id; procedure Set_Next_Entity (N : node_id; V : node_id); function Identifier (N : node_id) return node_id; procedure Set_Identifier (N : node_id; V : node_id); function Entity_Scope (N : node_id) return node_id; procedure Set_Entity_Scope (N : node_id; V : node_id); function Property_Scope (N : node_id) return node_id; procedure Set_Property_Scope (N : node_id; V : node_id); function Is_Private (N : node_id) return Boolean; procedure Set_Is_Private (N : node_id; V : Boolean); function First_Visited_Node (N : node_id) return node_id; procedure Set_First_Visited_Node (N : node_id; V : node_id); function Namespace (N : node_id) return node_id; procedure Set_Namespace (N : node_id; V : node_id); function Default_Instance (N : node_id) return node_id; procedure Set_Default_Instance (N : node_id; V : node_id); function Reference (N : node_id) return node_id; procedure Set_Reference (N : node_id; V : node_id); function Parent_Entity (N : node_id) return node_id; procedure Set_Parent_Entity (N : node_id; V : node_id); function Depth (N : node_id) return int; procedure Set_Depth (N : node_id; V : int); function Next_Scoped_Name (N : node_id) return node_id; procedure Set_Next_Scoped_Name (N : node_id; V : node_id); function Path (N : node_id) return list_id; procedure Set_Path (N : node_id; V : list_id); function Namespace_Path (N : node_id) return list_id; procedure Set_Namespace_Path (N : node_id; V : list_id); function Namespace_Identifier (N : node_id) return node_id; procedure Set_Namespace_Identifier (N : node_id; V : node_id); function Full_Identifier (N : node_id) return node_id; procedure Set_Full_Identifier (N : node_id; V : node_id); function Entity (N : node_id) return node_id; procedure Set_Entity (N : node_id; V : node_id); function First_Reference (N : node_id) return node_id; procedure Set_First_Reference (N : node_id; V : node_id); function Second_Reference (N : node_id) return node_id; procedure Set_Second_Reference (N : node_id; V : node_id); function Declarations (N : node_id) return list_id; procedure Set_Declarations (N : node_id; V : list_id); function Has_Private_Part (N : node_id) return Boolean; procedure Set_Has_Private_Part (N : node_id; V : Boolean); function Has_Public_Part (N : node_id) return Boolean; procedure Set_Has_Public_Part (N : node_id; V : Boolean); function Properties (N : node_id) return list_id; procedure Set_Properties (N : node_id; V : list_id); function Category (N : node_id) return byte; procedure Set_Category (N : node_id; V : byte); function Features (N : node_id) return list_id; procedure Set_Features (N : node_id; V : list_id); function Flows (N : node_id) return list_id; procedure Set_Flows (N : node_id; V : list_id); function Annexes (N : node_id) return list_id; procedure Set_Annexes (N : node_id; V : list_id); function Parent (N : node_id) return node_id; procedure Set_Parent (N : node_id; V : node_id); function Instances (N : node_id) return list_id; procedure Set_Instances (N : node_id; V : list_id); function Component_Type_Identifier (N : node_id) return node_id; procedure Set_Component_Type_Identifier (N : node_id; V : node_id); function Refines_Type (N : node_id) return list_id; procedure Set_Refines_Type (N : node_id; V : list_id); function Subcomponents (N : node_id) return list_id; procedure Set_Subcomponents (N : node_id; V : list_id); function Calls (N : node_id) return list_id; procedure Set_Calls (N : node_id; V : list_id); function Connections (N : node_id) return list_id; procedure Set_Connections (N : node_id; V : list_id); function Modes (N : node_id) return list_id; procedure Set_Modes (N : node_id; V : list_id); function Container_Component (N : node_id) return node_id; procedure Set_Container_Component (N : node_id; V : node_id); function Entity_Ref (N : node_id) return node_id; procedure Set_Entity_Ref (N : node_id; V : node_id); function Is_Implicit_Inverse (N : node_id) return Boolean; procedure Set_Is_Implicit_Inverse (N : node_id; V : Boolean); function Inversed_Entity (N : node_id) return node_id; procedure Set_Inversed_Entity (N : node_id; V : node_id); function Is_Refinement (N : node_id) return Boolean; procedure Set_Is_Refinement (N : node_id; V : Boolean); function Is_In (N : node_id) return Boolean; procedure Set_Is_In (N : node_id; V : Boolean); function Is_Out (N : node_id) return Boolean; procedure Set_Is_Out (N : node_id; V : Boolean); function Is_Event (N : node_id) return Boolean; procedure Set_Is_Event (N : node_id; V : Boolean); function Is_Data (N : node_id) return Boolean; procedure Set_Is_Data (N : node_id; V : Boolean); function Is_Server (N : node_id) return Boolean; procedure Set_Is_Server (N : node_id; V : Boolean); function Is_Provided (N : node_id) return Boolean; procedure Set_Is_Provided (N : node_id; V : Boolean); function Subcomponent_Category (N : node_id) return byte; procedure Set_Subcomponent_Category (N : node_id; V : byte); function Source_Flow (N : node_id) return node_id; procedure Set_Source_Flow (N : node_id; V : node_id); function Sink_Flow (N : node_id) return node_id; procedure Set_Sink_Flow (N : node_id; V : node_id); function Is_Initial (N : node_id) return Boolean; procedure Set_Is_Initial (N : node_id; V : Boolean); function Source_Modes (N : node_id) return list_id; procedure Set_Source_Modes (N : node_id; V : list_id); function Unique_Ports (N : node_id) return list_id; procedure Set_Unique_Ports (N : node_id; V : list_id); function Destination_Mode (N : node_id) return node_id; procedure Set_Destination_Mode (N : node_id; V : node_id); function In_Modes (N : node_id) return node_id; procedure Set_In_Modes (N : node_id; V : node_id); function Parent_Sequence (N : node_id) return node_id; procedure Set_Parent_Sequence (N : node_id; V : node_id); function Subprogram_Calls (N : node_id) return list_id; procedure Set_Subprogram_Calls (N : node_id; V : list_id); function Inverse_Of (N : node_id) return node_id; procedure Set_Inverse_Of (N : node_id; V : node_id); function Source (N : node_id) return node_id; procedure Set_Source (N : node_id; V : node_id); function Destination (N : node_id) return node_id; procedure Set_Destination (N : node_id; V : node_id); function Property_Set_Context (N : node_id) return node_id; procedure Set_Property_Set_Context (N : node_id; V : node_id); function Is_List (N : node_id) return Boolean; procedure Set_Is_List (N : node_id; V : Boolean); function Property_Type_Designator (N : node_id) return node_id; procedure Set_Property_Type_Designator (N : node_id; V : node_id); function Expanded_Type_Designator (N : node_id) return node_id; procedure Set_Expanded_Type_Designator (N : node_id; V : node_id); function Property_Expression (N : node_id) return node_id; procedure Set_Property_Expression (N : node_id; V : node_id); function Property_Expressions (N : node_id) return list_id; procedure Set_Property_Expressions (N : node_id; V : list_id); function Constant_Type (N : node_id) return node_id; procedure Set_Constant_Type (N : node_id; V : node_id); function Unique_Unit_Identifier (N : node_id) return node_id; procedure Set_Unique_Unit_Identifier (N : node_id; V : node_id); function Constant_Value (N : node_id) return node_id; procedure Set_Constant_Value (N : node_id; V : node_id); function Value_Container (N : node_id) return node_id; procedure Set_Value_Container (N : node_id; V : node_id); function Single_Value (N : node_id) return node_id; procedure Set_Single_Value (N : node_id; V : node_id); function Multi_Value (N : node_id) return list_id; procedure Set_Multi_Value (N : node_id; V : list_id); function Expanded_Single_Value (N : node_id) return node_id; procedure Set_Expanded_Single_Value (N : node_id; V : node_id); function Expanded_Multi_Value (N : node_id) return list_id; procedure Set_Expanded_Multi_Value (N : node_id; V : list_id); function Is_Access (N : node_id) return Boolean; procedure Set_Is_Access (N : node_id; V : Boolean); function Is_Inherit (N : node_id) return Boolean; procedure Set_Is_Inherit (N : node_id; V : Boolean); function Property_Name_Type (N : node_id) return node_id; procedure Set_Property_Name_Type (N : node_id; V : node_id); function Default_Value (N : node_id) return node_id; procedure Set_Default_Value (N : node_id; V : node_id); function Applies_To (N : node_id) return node_id; procedure Set_Applies_To (N : node_id; V : node_id); function Binding (N : node_id) return list_id; procedure Set_Binding (N : node_id; V : list_id); function Property_Name (N : node_id) return node_id; procedure Set_Property_Name (N : node_id; V : node_id); function Is_Additive_Association (N : node_id) return Boolean; procedure Set_Is_Additive_Association (N : node_id; V : Boolean); function Is_Constant (N : node_id) return Boolean; procedure Set_Is_Constant (N : node_id; V : Boolean); function Property_Association_Type (N : node_id) return node_id; procedure Set_Property_Association_Type (N : node_id; V : node_id); function Property_Association_Value (N : node_id) return node_id; procedure Set_Property_Association_Value (N : node_id; V : node_id); function Applies_To_Prop (N : node_id) return list_id; procedure Set_Applies_To_Prop (N : node_id; V : list_id); function In_Binding (N : node_id) return node_id; procedure Set_In_Binding (N : node_id; V : node_id); function Value (N : node_id) return value_id; procedure Set_Value (N : node_id; V : value_id); function Number_Value (N : node_id) return node_id; procedure Set_Number_Value (N : node_id; V : node_id); function Unit_Identifier (N : node_id) return node_id; procedure Set_Unit_Identifier (N : node_id; V : node_id); function Boolean_Term (N : node_id) return node_id; procedure Set_Boolean_Term (N : node_id; V : node_id); function First_Term (N : node_id) return node_id; procedure Set_First_Term (N : node_id; V : node_id); function Second_Term (N : node_id) return node_id; procedure Set_Second_Term (N : node_id; V : node_id); function Numeric_Term (N : node_id) return node_id; procedure Set_Numeric_Term (N : node_id; V : node_id); function Lower_Bound (N : node_id) return node_id; procedure Set_Lower_Bound (N : node_id; V : node_id); function Upper_Bound (N : node_id) return node_id; procedure Set_Upper_Bound (N : node_id; V : node_id); function Delta_Term (N : node_id) return node_id; procedure Set_Delta_Term (N : node_id; V : node_id); function Component_Cat (N : node_id) return byte; procedure Set_Component_Cat (N : node_id; V : byte); function Type_Range (N : node_id) return node_id; procedure Set_Type_Range (N : node_id; V : node_id); function Unit_Designator (N : node_id) return node_id; procedure Set_Unit_Designator (N : node_id; V : node_id); function Identifiers (N : node_id) return list_id; procedure Set_Identifiers (N : node_id; V : list_id); function Enumeration_Context (N : node_id) return node_id; procedure Set_Enumeration_Context (N : node_id; V : node_id); function Numeric_Literal (N : node_id) return node_id; procedure Set_Numeric_Literal (N : node_id; V : node_id); function Base_Identifier (N : node_id) return node_id; procedure Set_Base_Identifier (N : node_id; V : node_id); function Unit_Definitions (N : node_id) return list_id; procedure Set_Unit_Definitions (N : node_id; V : list_id); function Units_Context (N : node_id) return node_id; procedure Set_Units_Context (N : node_id; V : node_id); function Number_Type (N : node_id) return node_id; procedure Set_Number_Type (N : node_id; V : node_id); function Classifier_Ref (N : node_id) return node_id; procedure Set_Classifier_Ref (N : node_id; V : node_id); function Is_All (N : node_id) return Boolean; procedure Set_Is_All (N : node_id; V : Boolean); function Owner_Categories (N : node_id) return list_id; procedure Set_Owner_Categories (N : node_id; V : list_id); function Raw_Text (N : node_id) return name_id; procedure Set_Raw_Text (N : node_id; V : name_id); function Annex_Content (N : node_id) return node_id; procedure Set_Annex_Content (N : node_id; V : node_id); function Container_Package (N : node_id) return node_id; procedure Set_Container_Package (N : node_id; V : node_id); function Root_System (N : node_id) return node_id; procedure Set_Root_System (N : node_id; V : node_id); function Virtual_Connections (N : node_id) return list_id; procedure Set_Virtual_Connections (N : node_id; V : list_id); function Namespaces (N : node_id) return list_id; procedure Set_Namespaces (N : node_id; V : list_id); function Unnamed_Namespace (N : node_id) return node_id; procedure Set_Unnamed_Namespace (N : node_id; V : node_id); function Corresponding_Declaration (N : node_id) return node_id; procedure Set_Corresponding_Declaration (N : node_id; V : node_id); function Annotation (N : node_id) return node_id; procedure Set_Annotation (N : node_id; V : node_id); function Mode_transitions (N : node_id) return list_id; procedure Set_Mode_transitions (N : node_id; V : list_id); function Parent_Subcomponent (N : node_id) return node_id; procedure Set_Parent_Subcomponent (N : node_id; V : node_id); function First_Homonym_In_Namespace (N : node_id) return node_id; procedure Set_First_Homonym_In_Namespace (N : node_id; V : node_id); function Parent_Component (N : node_id) return node_id; procedure Set_Parent_Component (N : node_id; V : node_id); function Corresponding_Instance (N : node_id) return node_id; procedure Set_Corresponding_Instance (N : node_id; V : node_id); function Destinations (N : node_id) return list_id; procedure Set_Destinations (N : node_id; V : list_id); function Sources (N : node_id) return list_id; procedure Set_Sources (N : node_id; V : list_id); function Associated_Type (N : node_id) return node_id; procedure Set_Associated_Type (N : node_id; V : node_id); function Connection_Instances (N : node_id) return list_id; procedure Set_Connection_Instances (N : node_id; V : list_id); procedure W_Node (N : node_id); type boolean_array is array (1 .. 6) of Boolean; type byte_array is array (1 .. 4) of byte; type int_array is array (1 .. 22) 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.Nodes;