--------------------------------------- ----------------------------------------- -- -- -- 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 -- -- -- -- B o d y -- -- -- -- 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 Ocarina.Generators.C_Tree.Debug; use Ocarina.Generators.C_Tree.Debug; package body Ocarina.Generators.C_Tree.Nodes is pragma warnings (Off); use Entries; function Kind (N : node_id) return node_kind is begin return Table (node_id (N)).Kind; end Kind; procedure Set_Kind (N : node_id; V : node_kind) is begin Table (node_id (N)).Kind := V; end Set_Kind; function Loc (N : node_id) return location is begin return Table (node_id (N)).Loc; end Loc; procedure Set_Loc (N : node_id; V : location) is begin Table (node_id (N)).Loc := V; end Set_Loc; function Next_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_node_id or else Table (node_id (N)).Kind = k_definition or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_include_clause or else Table (node_id (N)).Kind = k_array_values or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit or else Table (node_id (N)).Kind = k_parameter_specification or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_function_implementation or else Table (node_id (N)).Kind = k_call_profile or else Table (node_id (N)).Kind = k_full_type_declaration or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_return_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement or else Table (node_id (N)).Kind = k_switch_statement or else Table (node_id (N)).Kind = k_switch_alternative or else Table (node_id (N)).Kind = k_break_statement or else Table (node_id (N)).Kind = k_continue_statement or else Table (node_id (N)).Kind = k_c_comment or else Table (node_id (N)).Kind = k_define_statement or else Table (node_id (N)).Kind = k_array_declaration or else Table (node_id (N)).Kind = k_struct_aggregate or else Table (node_id (N)).Kind = k_union_aggregate or else Table (node_id (N)).Kind = k_enum_aggregate or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_member_designator or else Table (node_id (N)).Kind = k_macro_declaration or else Table (node_id (N)).Kind = k_literal or else Table (node_id (N)).Kind = k_expression or else Table (node_id (N)).Kind = k_type_conversion or else Table (node_id (N)).Kind = k_variable_address or else Table (node_id (N)).Kind = k_extern_entity_declaration or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (2)); end Next_Node; procedure Set_Next_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_node_id or else Table (node_id (N)).Kind = k_definition or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_include_clause or else Table (node_id (N)).Kind = k_array_values or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit or else Table (node_id (N)).Kind = k_parameter_specification or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_function_implementation or else Table (node_id (N)).Kind = k_call_profile or else Table (node_id (N)).Kind = k_full_type_declaration or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_return_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement or else Table (node_id (N)).Kind = k_switch_statement or else Table (node_id (N)).Kind = k_switch_alternative or else Table (node_id (N)).Kind = k_break_statement or else Table (node_id (N)).Kind = k_continue_statement or else Table (node_id (N)).Kind = k_c_comment or else Table (node_id (N)).Kind = k_define_statement or else Table (node_id (N)).Kind = k_array_declaration or else Table (node_id (N)).Kind = k_struct_aggregate or else Table (node_id (N)).Kind = k_union_aggregate or else Table (node_id (N)).Kind = k_enum_aggregate or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_member_designator or else Table (node_id (N)).Kind = k_macro_declaration or else Table (node_id (N)).Kind = k_literal or else Table (node_id (N)).Kind = k_expression or else Table (node_id (N)).Kind = k_type_conversion or else Table (node_id (N)).Kind = k_variable_address or else Table (node_id (N)).Kind = k_extern_entity_declaration or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (2) := int (V); end Set_Next_Node; function Frontend_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_node_id or else Table (node_id (N)).Kind = k_definition or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_include_clause or else Table (node_id (N)).Kind = k_array_values or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit or else Table (node_id (N)).Kind = k_parameter_specification or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_function_implementation or else Table (node_id (N)).Kind = k_call_profile or else Table (node_id (N)).Kind = k_full_type_declaration or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_return_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement or else Table (node_id (N)).Kind = k_switch_statement or else Table (node_id (N)).Kind = k_switch_alternative or else Table (node_id (N)).Kind = k_break_statement or else Table (node_id (N)).Kind = k_continue_statement or else Table (node_id (N)).Kind = k_c_comment or else Table (node_id (N)).Kind = k_define_statement or else Table (node_id (N)).Kind = k_array_declaration or else Table (node_id (N)).Kind = k_struct_aggregate or else Table (node_id (N)).Kind = k_union_aggregate or else Table (node_id (N)).Kind = k_enum_aggregate or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_member_designator or else Table (node_id (N)).Kind = k_macro_declaration or else Table (node_id (N)).Kind = k_literal or else Table (node_id (N)).Kind = k_expression or else Table (node_id (N)).Kind = k_type_conversion or else Table (node_id (N)).Kind = k_variable_address or else Table (node_id (N)).Kind = k_extern_entity_declaration or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (3)); end Frontend_Node; procedure Set_Frontend_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_node_id or else Table (node_id (N)).Kind = k_definition or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_include_clause or else Table (node_id (N)).Kind = k_array_values or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit or else Table (node_id (N)).Kind = k_parameter_specification or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_function_implementation or else Table (node_id (N)).Kind = k_call_profile or else Table (node_id (N)).Kind = k_full_type_declaration or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_return_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement or else Table (node_id (N)).Kind = k_switch_statement or else Table (node_id (N)).Kind = k_switch_alternative or else Table (node_id (N)).Kind = k_break_statement or else Table (node_id (N)).Kind = k_continue_statement or else Table (node_id (N)).Kind = k_c_comment or else Table (node_id (N)).Kind = k_define_statement or else Table (node_id (N)).Kind = k_array_declaration or else Table (node_id (N)).Kind = k_struct_aggregate or else Table (node_id (N)).Kind = k_union_aggregate or else Table (node_id (N)).Kind = k_enum_aggregate or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_member_designator or else Table (node_id (N)).Kind = k_macro_declaration or else Table (node_id (N)).Kind = k_literal or else Table (node_id (N)).Kind = k_expression or else Table (node_id (N)).Kind = k_type_conversion or else Table (node_id (N)).Kind = k_variable_address or else Table (node_id (N)).Kind = k_extern_entity_declaration or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (3) := int (V); end Set_Frontend_Node; function Defining_Identifier (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_definition or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_parameter_specification or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_call_profile or else Table (node_id (N)).Kind = k_full_type_declaration or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_c_comment or else Table (node_id (N)).Kind = k_define_statement or else Table (node_id (N)).Kind = k_array_declaration or else Table (node_id (N)).Kind = k_struct_aggregate or else Table (node_id (N)).Kind = k_union_aggregate or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_member_designator or else Table (node_id (N)).Kind = k_macro_declaration); return node_id (Table (node_id (N)).L (4)); end Defining_Identifier; procedure Set_Defining_Identifier (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_definition or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_parameter_specification or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_call_profile or else Table (node_id (N)).Kind = k_full_type_declaration or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_c_comment or else Table (node_id (N)).Kind = k_define_statement or else Table (node_id (N)).Kind = k_array_declaration or else Table (node_id (N)).Kind = k_struct_aggregate or else Table (node_id (N)).Kind = k_union_aggregate or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_member_designator or else Table (node_id (N)).Kind = k_macro_declaration); Table (node_id (N)).L (4) := int (V); end Set_Defining_Identifier; function First_Node (N : list_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_list_id or else Table (node_id (N)).Kind = k_includes or else Table (node_id (N)).Kind = k_declaration_list or else Table (node_id (N)).Kind = k_header_list or else Table (node_id (N)).Kind = k_statement_list or else Table (node_id (N)).Kind = k_parameter_list or else Table (node_id (N)).Kind = k_enumeration_literals or else Table (node_id (N)).Kind = k_element_list or else Table (node_id (N)).Kind = k_label_list or else Table (node_id (N)).Kind = k_alternatives_list or else Table (node_id (N)).Kind = k_sources or else Table (node_id (N)).Kind = k_headers or else Table (node_id (N)).Kind = k_parameter_profile); return node_id (Table (node_id (N)).L (1)); end First_Node; procedure Set_First_Node (N : list_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_list_id or else Table (node_id (N)).Kind = k_includes or else Table (node_id (N)).Kind = k_declaration_list or else Table (node_id (N)).Kind = k_header_list or else Table (node_id (N)).Kind = k_statement_list or else Table (node_id (N)).Kind = k_parameter_list or else Table (node_id (N)).Kind = k_enumeration_literals or else Table (node_id (N)).Kind = k_element_list or else Table (node_id (N)).Kind = k_label_list or else Table (node_id (N)).Kind = k_alternatives_list or else Table (node_id (N)).Kind = k_sources or else Table (node_id (N)).Kind = k_headers or else Table (node_id (N)).Kind = k_parameter_profile); Table (node_id (N)).L (1) := int (V); end Set_First_Node; function Last_Node (N : list_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_list_id or else Table (node_id (N)).Kind = k_includes or else Table (node_id (N)).Kind = k_declaration_list or else Table (node_id (N)).Kind = k_header_list or else Table (node_id (N)).Kind = k_statement_list or else Table (node_id (N)).Kind = k_parameter_list or else Table (node_id (N)).Kind = k_enumeration_literals or else Table (node_id (N)).Kind = k_element_list or else Table (node_id (N)).Kind = k_label_list or else Table (node_id (N)).Kind = k_alternatives_list or else Table (node_id (N)).Kind = k_sources or else Table (node_id (N)).Kind = k_headers or else Table (node_id (N)).Kind = k_parameter_profile); return node_id (Table (node_id (N)).L (2)); end Last_Node; procedure Set_Last_Node (N : list_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_list_id or else Table (node_id (N)).Kind = k_includes or else Table (node_id (N)).Kind = k_declaration_list or else Table (node_id (N)).Kind = k_header_list or else Table (node_id (N)).Kind = k_statement_list or else Table (node_id (N)).Kind = k_parameter_list or else Table (node_id (N)).Kind = k_enumeration_literals or else Table (node_id (N)).Kind = k_element_list or else Table (node_id (N)).Kind = k_label_list or else Table (node_id (N)).Kind = k_alternatives_list or else Table (node_id (N)).Kind = k_sources or else Table (node_id (N)).Kind = k_headers or else Table (node_id (N)).Kind = k_parameter_profile); Table (node_id (N)).L (2) := int (V); end Set_Last_Node; function Name (N : node_id) return name_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node); return name_id (Table (node_id (N)).L (1)); end Name; procedure Set_Name (N : node_id; V : name_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node); Table (node_id (N)).L (1) := int (V); end Set_Name; function Corresponding_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_defining_identifier); return node_id (Table (node_id (N)).L (4)); end Corresponding_Node; procedure Set_Corresponding_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_defining_identifier); Table (node_id (N)).L (4) := int (V); end Set_Corresponding_Node; function Compile_Unit (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_function_implementation); return node_id (Table (node_id (N)).L (5)); end Compile_Unit; procedure Set_Compile_Unit (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_defining_identifier or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_function_implementation); Table (node_id (N)).L (5) := int (V); end Set_Compile_Unit; function Header_File_Name (N : node_id) return name_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_include_clause); return name_id (Table (node_id (N)).L (1)); end Header_File_Name; procedure Set_Header_File_Name (N : node_id; V : name_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_include_clause); Table (node_id (N)).L (1) := int (V); end Set_Header_File_Name; function Values (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_array_values); return list_id (Table (node_id (N)).L (1)); end Values; procedure Set_Values (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_array_values); Table (node_id (N)).L (1) := int (V); end Set_Values; function Units (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node); return list_id (Table (node_id (N)).L (4)); end Units; procedure Set_Units (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_distributed_application or else Table (node_id (N)).Kind = k_hi_node); Table (node_id (N)).L (4) := int (V); end Set_Units; function HI_Nodes (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_distributed_application); return list_id (Table (node_id (N)).L (5)); end HI_Nodes; procedure Set_HI_Nodes (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_distributed_application); Table (node_id (N)).L (5) := int (V); end Set_HI_Nodes; function Distributed_Application (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_node); return node_id (Table (node_id (N)).L (5)); end Distributed_Application; procedure Set_Distributed_Application (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_node); Table (node_id (N)).L (5) := int (V); end Set_Distributed_Application; function Distributed_Application_Unit (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file); return node_id (Table (node_id (N)).L (1)); end Distributed_Application_Unit; procedure Set_Distributed_Application_Unit (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file); Table (node_id (N)).L (1) := int (V); end Set_Distributed_Application_Unit; function Included_Headers (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file); return list_id (Table (node_id (N)).L (5)); end Included_Headers; procedure Set_Included_Headers (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file); Table (node_id (N)).L (5) := int (V); end Set_Included_Headers; function Declarations (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_function_implementation); return list_id (Table (node_id (N)).L (6)); end Declarations; procedure Set_Declarations (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_header_file or else Table (node_id (N)).Kind = k_source_file or else Table (node_id (N)).Kind = k_function_implementation); Table (node_id (N)).L (6) := int (V); end Set_Declarations; function Sources (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit); return list_id (Table (node_id (N)).L (1)); end Sources; procedure Set_Sources (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (1) := int (V); end Set_Sources; function Headers (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit); return list_id (Table (node_id (N)).L (4)); end Headers; procedure Set_Headers (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (4) := int (V); end Set_Headers; function Entity (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit or else Table (node_id (N)).Kind = k_extern_entity_declaration); return node_id (Table (node_id (N)).L (5)); end Entity; procedure Set_Entity (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_api_unit or else Table (node_id (N)).Kind = k_hi_unit or else Table (node_id (N)).Kind = k_extern_entity_declaration); Table (node_id (N)).L (5) := int (V); end Set_Entity; function Main_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (6)); end Main_Source; procedure Set_Main_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (6) := int (V); end Set_Main_Source; function Main_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (7)); end Main_Header; procedure Set_Main_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (7) := int (V); end Set_Main_Header; function Activity_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (8)); end Activity_Source; procedure Set_Activity_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (8) := int (V); end Set_Activity_Source; function Activity_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (9)); end Activity_Header; procedure Set_Activity_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (9) := int (V); end Set_Activity_Header; function Marshallers_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (10)); end Marshallers_Source; procedure Set_Marshallers_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (10) := int (V); end Set_Marshallers_Source; function Marshallers_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (11)); end Marshallers_Header; procedure Set_Marshallers_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (11) := int (V); end Set_Marshallers_Header; function Request_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (12)); end Request_Source; procedure Set_Request_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (12) := int (V); end Set_Request_Source; function Request_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (13)); end Request_Header; procedure Set_Request_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (13) := int (V); end Set_Request_Header; function Types_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (14)); end Types_Header; procedure Set_Types_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (14) := int (V); end Set_Types_Header; function Types_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (15)); end Types_Source; procedure Set_Types_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (15) := int (V); end Set_Types_Source; function Deployment_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (16)); end Deployment_Header; procedure Set_Deployment_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (16) := int (V); end Set_Deployment_Header; function Deployment_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (17)); end Deployment_Source; procedure Set_Deployment_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (17) := int (V); end Set_Deployment_Source; function Naming_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (18)); end Naming_Source; procedure Set_Naming_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (18) := int (V); end Set_Naming_Source; function Naming_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (19)); end Naming_Header; procedure Set_Naming_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (19) := int (V); end Set_Naming_Header; function Subprograms_Source (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (20)); end Subprograms_Source; procedure Set_Subprograms_Source (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (20) := int (V); end Set_Subprograms_Source; function Subprograms_Header (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); return node_id (Table (node_id (N)).L (21)); end Subprograms_Header; procedure Set_Subprograms_Header (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_unit); Table (node_id (N)).L (21) := int (V); end Set_Subprograms_Header; function Parameter_Type (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_parameter_specification); return node_id (Table (node_id (N)).L (1)); end Parameter_Type; procedure Set_Parameter_Type (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_parameter_specification); Table (node_id (N)).L (1) := int (V); end Set_Parameter_Type; function Parameters (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_call_profile); return list_id (Table (node_id (N)).L (1)); end Parameters; procedure Set_Parameters (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_specification or else Table (node_id (N)).Kind = k_call_profile); Table (node_id (N)).L (1) := int (V); end Set_Parameters; function Return_Type (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_specification); return node_id (Table (node_id (N)).L (6)); end Return_Type; procedure Set_Return_Type (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_specification); Table (node_id (N)).L (6) := int (V); end Set_Return_Type; function Specification (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_implementation); return node_id (Table (node_id (N)).L (1)); end Specification; procedure Set_Specification (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_implementation); Table (node_id (N)).L (1) := int (V); end Set_Specification; function Statements (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_implementation or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement or else Table (node_id (N)).Kind = k_switch_alternative); return list_id (Table (node_id (N)).L (7)); end Statements; procedure Set_Statements (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_function_implementation or else Table (node_id (N)).Kind = k_block_statement or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement or else Table (node_id (N)).Kind = k_switch_alternative); Table (node_id (N)).L (7) := int (V); end Set_Statements; function Type_Definition (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_full_type_declaration); return node_id (Table (node_id (N)).L (1)); end Type_Definition; procedure Set_Type_Definition (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_full_type_declaration); Table (node_id (N)).L (1) := int (V); end Set_Type_Definition; function Type_Name (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_full_type_declaration); return node_id (Table (node_id (N)).L (5)); end Type_Name; procedure Set_Type_Name (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_full_type_declaration); Table (node_id (N)).L (5) := int (V); end Set_Type_Name; function Declarative_Part (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_block_statement); return list_id (Table (node_id (N)).L (1)); end Declarative_Part; procedure Set_Declarative_Part (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_block_statement); Table (node_id (N)).L (1) := int (V); end Set_Declarative_Part; function Condition (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement); return node_id (Table (node_id (N)).L (1)); end Condition; procedure Set_Condition (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_if_statement or else Table (node_id (N)).Kind = k_for_statement or else Table (node_id (N)).Kind = k_while_statement); Table (node_id (N)).L (1) := int (V); end Set_Condition; function Else_Statements (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_if_statement); return list_id (Table (node_id (N)).L (4)); end Else_Statements; procedure Set_Else_Statements (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_if_statement); Table (node_id (N)).L (4) := int (V); end Set_Else_Statements; function Expression (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_return_statement or else Table (node_id (N)).Kind = k_switch_statement or else Table (node_id (N)).Kind = k_macro_declaration or else Table (node_id (N)).Kind = k_type_conversion or else Table (node_id (N)).Kind = k_variable_address); return node_id (Table (node_id (N)).L (1)); end Expression; procedure Set_Expression (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_assignment_statement or else Table (node_id (N)).Kind = k_return_statement or else Table (node_id (N)).Kind = k_switch_statement or else Table (node_id (N)).Kind = k_macro_declaration or else Table (node_id (N)).Kind = k_type_conversion or else Table (node_id (N)).Kind = k_variable_address); Table (node_id (N)).L (1) := int (V); end Set_Expression; function Pre_Cond (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_for_statement); return node_id (Table (node_id (N)).L (5)); end Pre_Cond; procedure Set_Pre_Cond (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_for_statement); Table (node_id (N)).L (5) := int (V); end Set_Pre_Cond; function Post_Cond (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_for_statement); return node_id (Table (node_id (N)).L (6)); end Post_Cond; procedure Set_Post_Cond (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_for_statement); Table (node_id (N)).L (6) := int (V); end Set_Post_Cond; function Alternatives (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_switch_statement); return list_id (Table (node_id (N)).L (4)); end Alternatives; procedure Set_Alternatives (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_switch_statement); Table (node_id (N)).L (4) := int (V); end Set_Alternatives; function Labels (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_switch_alternative); return list_id (Table (node_id (N)).L (1)); end Labels; procedure Set_Labels (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_switch_alternative); Table (node_id (N)).L (1) := int (V); end Set_Labels; function Has_Header_Spaces (N : node_id) return Boolean is begin pragma assert (False or else Table (node_id (N)).Kind = k_c_comment); return Boolean (Table (node_id (N)).B (1)); end Has_Header_Spaces; procedure Set_Has_Header_Spaces (N : node_id; V : Boolean) is begin pragma assert (False or else Table (node_id (N)).Kind = k_c_comment); Table (node_id (N)).B (1) := Boolean (V); end Set_Has_Header_Spaces; function Defined_Value (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_define_statement); return node_id (Table (node_id (N)).L (1)); end Defined_Value; procedure Set_Defined_Value (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_define_statement); Table (node_id (N)).L (1) := int (V); end Set_Defined_Value; function Array_Size (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_array_declaration); return node_id (Table (node_id (N)).L (1)); end Array_Size; procedure Set_Array_Size (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_array_declaration); Table (node_id (N)).L (1) := int (V); end Set_Array_Size; function Struct_Members (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_struct_aggregate); return list_id (Table (node_id (N)).L (1)); end Struct_Members; procedure Set_Struct_Members (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_struct_aggregate); Table (node_id (N)).L (1) := int (V); end Set_Struct_Members; function Union_Members (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_union_aggregate); return list_id (Table (node_id (N)).L (1)); end Union_Members; procedure Set_Union_Members (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_union_aggregate); Table (node_id (N)).L (1) := int (V); end Set_Union_Members; function Enum_Members (N : node_id) return list_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_enum_aggregate); return list_id (Table (node_id (N)).L (1)); end Enum_Members; procedure Set_Enum_Members (N : node_id; V : list_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_enum_aggregate); Table (node_id (N)).L (1) := int (V); end Set_Enum_Members; function Used_Type (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_pointer_type or else Table (node_id (N)).Kind = k_constant_type); return node_id (Table (node_id (N)).L (1)); end Used_Type; procedure Set_Used_Type (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_variable_declaration or else Table (node_id (N)).Kind = k_member_declaration or else Table (node_id (N)).Kind = k_pointer_type or else Table (node_id (N)).Kind = k_constant_type); Table (node_id (N)).L (1) := int (V); end Set_Used_Type; function Aggregate_Name (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_member_designator); return node_id (Table (node_id (N)).L (5)); end Aggregate_Name; procedure Set_Aggregate_Name (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_member_designator); Table (node_id (N)).L (5) := int (V); end Set_Aggregate_Name; function Is_Pointer (N : node_id) return Boolean is begin pragma assert (False or else Table (node_id (N)).Kind = k_member_designator); return Boolean (Table (node_id (N)).B (1)); end Is_Pointer; procedure Set_Is_Pointer (N : node_id; V : Boolean) is begin pragma assert (False or else Table (node_id (N)).Kind = k_member_designator); Table (node_id (N)).B (1) := Boolean (V); end Set_Is_Pointer; function Value (N : node_id) return value_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_literal); return value_id (Table (node_id (N)).L (1)); end Value; procedure Set_Value (N : node_id; V : value_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_literal); Table (node_id (N)).L (1) := int (V); end Set_Value; function Operator (N : node_id) return operator_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_expression); return operator_id (Table (node_id (N)).O (1)); end Operator; procedure Set_Operator (N : node_id; V : operator_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_expression); Table (node_id (N)).O (1) := byte (V); end Set_Operator; function Left_Expression (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_expression); return node_id (Table (node_id (N)).L (4)); end Left_Expression; procedure Set_Left_Expression (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_expression); Table (node_id (N)).L (4) := int (V); end Set_Left_Expression; function Right_Expression (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_expression); return node_id (Table (node_id (N)).L (5)); end Right_Expression; procedure Set_Right_Expression (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_expression); Table (node_id (N)).L (5) := int (V); end Set_Right_Expression; function Subtype_Mark (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_type_conversion); return node_id (Table (node_id (N)).L (4)); end Subtype_Mark; procedure Set_Subtype_Mark (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_type_conversion); Table (node_id (N)).L (4) := int (V); end Set_Subtype_Mark; function Image (N : base_type) return name_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_base_type or else Table (node_id (N)).Kind = k_float or else Table (node_id (N)).Kind = k_int or else Table (node_id (N)).Kind = k_char or else Table (node_id (N)).Kind = k_short or else Table (node_id (N)).Kind = k_void or else Table (node_id (N)).Kind = k_pointed_char); return name_id (Table (node_id (N)).L (1)); end Image; procedure Set_Image (N : base_type; V : name_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_base_type or else Table (node_id (N)).Kind = k_float or else Table (node_id (N)).Kind = k_int or else Table (node_id (N)).Kind = k_char or else Table (node_id (N)).Kind = k_short or else Table (node_id (N)).Kind = k_void or else Table (node_id (N)).Kind = k_pointed_char); Table (node_id (N)).L (1) := int (V); end Set_Image; function Main_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (1)); end Main_Node; procedure Set_Main_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (1) := int (V); end Set_Main_Node; function Type_Definition_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (4)); end Type_Definition_Node; procedure Set_Type_Definition_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (4) := int (V); end Set_Type_Definition_Node; function Feature_Subprogram_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (5)); end Feature_Subprogram_Node; procedure Set_Feature_Subprogram_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (5) := int (V); end Set_Feature_Subprogram_Node; function Subprogram_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (6)); end Subprogram_Node; procedure Set_Subprogram_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_tree_bindings or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (6) := int (V); end Set_Subprogram_Node; function Internals_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (7)); end Internals_Node; procedure Set_Internals_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (7) := int (V); end Set_Internals_Node; function System_Time_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (8)); end System_Time_Node; procedure Set_System_Time_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (8) := int (V); end Set_System_Time_Node; function Marshaller_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (9)); end Marshaller_Node; procedure Set_Marshaller_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (9) := int (V); end Set_Marshaller_Node; function Unmarshaller_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (10)); end Unmarshaller_Node; procedure Set_Unmarshaller_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (10) := int (V); end Set_Unmarshaller_Node; function Activity_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (11)); end Activity_Node; procedure Set_Activity_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (11) := int (V); end Set_Activity_Node; function Functions_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (12)); end Functions_Node; procedure Set_Functions_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (12) := int (V); end Set_Functions_Node; function Types_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (13)); end Types_Node; procedure Set_Types_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (13) := int (V); end Set_Types_Node; function Object_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (14)); end Object_Node; procedure Set_Object_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (14) := int (V); end Set_Object_Node; function Handlers_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (15)); end Handlers_Node; procedure Set_Handlers_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (15) := int (V); end Set_Handlers_Node; function Global_Port_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (16)); end Global_Port_Node; procedure Set_Global_Port_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (16) := int (V); end Set_Global_Port_Node; function Local_Port_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (17)); end Local_Port_Node; procedure Set_Local_Port_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (17) := int (V); end Set_Local_Port_Node; function Request_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (18)); end Request_Node; procedure Set_Request_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (18) := int (V); end Set_Request_Node; function Deployment_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (19)); end Deployment_Node; procedure Set_Deployment_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (19) := int (V); end Set_Deployment_Node; function Entities_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (20)); end Entities_Node; procedure Set_Entities_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (20) := int (V); end Set_Entities_Node; function Servers_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (21)); end Servers_Node; procedure Set_Servers_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (21) := int (V); end Set_Servers_Node; function Naming_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (22)); end Naming_Node; procedure Set_Naming_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (22) := int (V); end Set_Naming_Node; function Request_Type_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (23)); end Request_Type_Node; procedure Set_Request_Type_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (23) := int (V); end Set_Request_Type_Node; function Job_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (24)); end Job_Node; procedure Set_Job_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (24) := int (V); end Set_Job_Node; function Stub_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (25)); end Stub_Node; procedure Set_Stub_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (25) := int (V); end Set_Stub_Node; function Enumerator_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (26)); end Enumerator_Node; procedure Set_Enumerator_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (26) := int (V); end Set_Enumerator_Node; function Process_Request_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (27)); end Process_Request_Node; procedure Set_Process_Request_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (27) := int (V); end Set_Process_Request_Node; function Marshall_Request_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (28)); end Marshall_Request_Node; procedure Set_Marshall_Request_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (28) := int (V); end Set_Marshall_Request_Node; function Unmarshall_Request_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (29)); end Unmarshall_Request_Node; procedure Set_Unmarshall_Request_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (29) := int (V); end Set_Unmarshall_Request_Node; function Default_Value_Node (N : node_id) return node_id is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); return node_id (Table (node_id (N)).L (30)); end Default_Value_Node; procedure Set_Default_Value_Node (N : node_id; V : node_id) is begin pragma assert (False or else Table (node_id (N)).Kind = k_hi_tree_bindings); Table (node_id (N)).L (30) := int (V); end Set_Default_Value_Node; procedure W_Node (N : node_id) is begin case Kind (N) is when k_definition => W_Definition (node_id (N)); when k_defining_identifier => W_Defining_Identifier (node_id (N)); when k_include_clause => W_Include_Clause (node_id (N)); when k_includes => W_Includes (list_id (N)); when k_declaration_list => W_Declaration_List (list_id (N)); when k_header_list => W_Header_List (list_id (N)); when k_statement_list => W_Statement_List (list_id (N)); when k_parameter_list => W_Parameter_List (list_id (N)); when k_enumeration_literals => W_Enumeration_Literals (list_id (N)); when k_element_list => W_Element_List (list_id (N)); when k_label_list => W_Label_List (list_id (N)); when k_alternatives_list => W_Alternatives_List (list_id (N)); when k_sources => W_Sources (list_id (N)); when k_headers => W_Headers (list_id (N)); when k_array_values => W_Array_Values (node_id (N)); when k_hi_distributed_application => W_HI_Distributed_Application (node_id (N)); when k_hi_node => W_HI_Node (node_id (N)); when k_header_file => W_Header_File (node_id (N)); when k_source_file => W_Source_File (node_id (N)); when k_api_unit => W_API_Unit (node_id (N)); when k_hi_unit => W_HI_Unit (node_id (N)); when k_parameter_specification => W_Parameter_Specification (node_id (N)); when k_parameter_profile => W_Parameter_Profile (list_id (N)); when k_function_specification => W_Function_Specification (node_id (N)); when k_function_implementation => W_Function_Implementation (node_id (N)); when k_call_profile => W_Call_Profile (node_id (N)); when k_full_type_declaration => W_Full_Type_Declaration (node_id (N)); when k_block_statement => W_Block_Statement (node_id (N)); when k_if_statement => W_If_Statement (node_id (N)); when k_assignment_statement => W_Assignment_Statement (node_id (N)); when k_return_statement => W_Return_Statement (node_id (N)); when k_for_statement => W_For_Statement (node_id (N)); when k_while_statement => W_While_Statement (node_id (N)); when k_switch_statement => W_Switch_Statement (node_id (N)); when k_switch_alternative => W_Switch_Alternative (node_id (N)); when k_break_statement => W_Break_Statement (node_id (N)); when k_continue_statement => W_Continue_Statement (node_id (N)); when k_c_comment => W_C_Comment (node_id (N)); when k_define_statement => W_Define_Statement (node_id (N)); when k_array_declaration => W_Array_Declaration (node_id (N)); when k_struct_aggregate => W_Struct_Aggregate (node_id (N)); when k_union_aggregate => W_Union_Aggregate (node_id (N)); when k_enum_aggregate => W_Enum_Aggregate (node_id (N)); when k_variable_declaration => W_Variable_Declaration (node_id (N)); when k_member_declaration => W_Member_Declaration (node_id (N)); when k_member_designator => W_Member_Designator (node_id (N)); when k_macro_declaration => W_Macro_Declaration (node_id (N)); when k_literal => W_Literal (node_id (N)); when k_expression => W_Expression (node_id (N)); when k_type_conversion => W_Type_Conversion (node_id (N)); when k_variable_address => W_Variable_Address (node_id (N)); when k_extern_entity_declaration => W_Extern_Entity_Declaration (node_id (N)); when k_float => W_Float (base_type (N)); when k_int => W_Int (base_type (N)); when k_char => W_Char (base_type (N)); when k_short => W_Short (base_type (N)); when k_void => W_Void (base_type (N)); when k_pointed_char => W_Pointed_Char (base_type (N)); when k_tree_bindings => W_Tree_Bindings (node_id (N)); when k_hi_tree_bindings => W_HI_Tree_Bindings (node_id (N)); when others => null; end case; end W_Node; procedure W_Definition (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); end W_Definition; procedure W_Defining_Identifier (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Name", "Name_Id", Image (Name (N))); W_Node_Attribute ("Corresponding_Node", "Node_Id", Image (Corresponding_Node (N)), int (Corresponding_Node (N))); W_Node_Attribute ("Compile_Unit", "Node_Id", Image (Compile_Unit (N)), int (Compile_Unit (N))); end W_Defining_Identifier; procedure W_Include_Clause (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Header_File_Name", "Name_Id", Image (Header_File_Name (N))); end W_Include_Clause; procedure W_Includes (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Includes; procedure W_Declaration_List (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Declaration_List; procedure W_Header_List (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Header_List; procedure W_Statement_List (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Statement_List; procedure W_Parameter_List (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Parameter_List; procedure W_Enumeration_Literals (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Enumeration_Literals; procedure W_Element_List (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Element_List; procedure W_Label_List (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Label_List; procedure W_Alternatives_List (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Alternatives_List; procedure W_Sources (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Sources; procedure W_Headers (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Headers; procedure W_Array_Values (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Values", "List_Id", Image (Values (N)), int (Values (N))); end W_Array_Values; procedure W_HI_Distributed_Application (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Name", "Name_Id", Image (Name (N))); W_Node_Attribute ("Units", "List_Id", Image (Units (N)), int (Units (N))); W_Node_Attribute ("HI_Nodes", "List_Id", Image (HI_Nodes (N)), int (HI_Nodes (N))); end W_HI_Distributed_Application; procedure W_HI_Node (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Name", "Name_Id", Image (Name (N))); W_Node_Attribute ("Units", "List_Id", Image (Units (N)), int (Units (N))); W_Node_Attribute ("Distributed_Application", "Node_Id", Image (Distributed_Application (N)), int (Distributed_Application (N))); end W_HI_Node; procedure W_Header_File (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Distributed_Application_Unit", "Node_Id", Image (Distributed_Application_Unit (N)), int (Distributed_Application_Unit (N))); W_Node_Attribute ("Included_Headers", "List_Id", Image (Included_Headers (N)), int (Included_Headers (N))); W_Node_Attribute ("Declarations", "List_Id", Image (Declarations (N)), int (Declarations (N))); end W_Header_File; procedure W_Source_File (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Distributed_Application_Unit", "Node_Id", Image (Distributed_Application_Unit (N)), int (Distributed_Application_Unit (N))); W_Node_Attribute ("Included_Headers", "List_Id", Image (Included_Headers (N)), int (Included_Headers (N))); W_Node_Attribute ("Declarations", "List_Id", Image (Declarations (N)), int (Declarations (N))); end W_Source_File; procedure W_API_Unit (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Sources", "List_Id", Image (Sources (N)), int (Sources (N))); W_Node_Attribute ("Headers", "List_Id", Image (Headers (N)), int (Headers (N))); W_Node_Attribute ("Entity", "Node_Id", Image (Entity (N)), int (Entity (N))); end W_API_Unit; procedure W_HI_Unit (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Sources", "List_Id", Image (Sources (N)), int (Sources (N))); W_Node_Attribute ("Headers", "List_Id", Image (Headers (N)), int (Headers (N))); W_Node_Attribute ("Entity", "Node_Id", Image (Entity (N)), int (Entity (N))); W_Node_Attribute ("Main_Source", "Node_Id", Image (Main_Source (N)), int (Main_Source (N))); W_Node_Attribute ("Main_Header", "Node_Id", Image (Main_Header (N)), int (Main_Header (N))); W_Node_Attribute ("Activity_Source", "Node_Id", Image (Activity_Source (N)), int (Activity_Source (N))); W_Node_Attribute ("Activity_Header", "Node_Id", Image (Activity_Header (N)), int (Activity_Header (N))); W_Node_Attribute ("Marshallers_Source", "Node_Id", Image (Marshallers_Source (N)), int (Marshallers_Source (N))); W_Node_Attribute ("Marshallers_Header", "Node_Id", Image (Marshallers_Header (N)), int (Marshallers_Header (N))); W_Node_Attribute ("Request_Source", "Node_Id", Image (Request_Source (N)), int (Request_Source (N))); W_Node_Attribute ("Request_Header", "Node_Id", Image (Request_Header (N)), int (Request_Header (N))); W_Node_Attribute ("Types_Header", "Node_Id", Image (Types_Header (N)), int (Types_Header (N))); W_Node_Attribute ("Types_Source", "Node_Id", Image (Types_Source (N)), int (Types_Source (N))); W_Node_Attribute ("Deployment_Header", "Node_Id", Image (Deployment_Header (N)), int (Deployment_Header (N))); W_Node_Attribute ("Deployment_Source", "Node_Id", Image (Deployment_Source (N)), int (Deployment_Source (N))); W_Node_Attribute ("Naming_Source", "Node_Id", Image (Naming_Source (N)), int (Naming_Source (N))); W_Node_Attribute ("Naming_Header", "Node_Id", Image (Naming_Header (N)), int (Naming_Header (N))); W_Node_Attribute ("Subprograms_Source", "Node_Id", Image (Subprograms_Source (N)), int (Subprograms_Source (N))); W_Node_Attribute ("Subprograms_Header", "Node_Id", Image (Subprograms_Header (N)), int (Subprograms_Header (N))); end W_HI_Unit; procedure W_Parameter_Specification (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Parameter_Type", "Node_Id", Image (Parameter_Type (N)), int (Parameter_Type (N))); end W_Parameter_Specification; procedure W_Parameter_Profile (N : list_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("First_Node", "Node_Id", Image (First_Node (N)), int (First_Node (N))); W_Node_Attribute ("Last_Node", "Node_Id", Image (Last_Node (N)), int (Last_Node (N))); end W_Parameter_Profile; procedure W_Function_Specification (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Compile_Unit", "Node_Id", Image (Compile_Unit (N)), int (Compile_Unit (N))); W_Node_Attribute ("Parameters", "List_Id", Image (Parameters (N)), int (Parameters (N))); W_Node_Attribute ("Return_Type", "Node_Id", Image (Return_Type (N)), int (Return_Type (N))); end W_Function_Specification; procedure W_Function_Implementation (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Compile_Unit", "Node_Id", Image (Compile_Unit (N)), int (Compile_Unit (N))); W_Node_Attribute ("Declarations", "List_Id", Image (Declarations (N)), int (Declarations (N))); W_Node_Attribute ("Specification", "Node_Id", Image (Specification (N)), int (Specification (N))); W_Node_Attribute ("Statements", "List_Id", Image (Statements (N)), int (Statements (N))); end W_Function_Implementation; procedure W_Call_Profile (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Parameters", "List_Id", Image (Parameters (N)), int (Parameters (N))); end W_Call_Profile; procedure W_Full_Type_Declaration (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Type_Definition", "Node_Id", Image (Type_Definition (N)), int (Type_Definition (N))); W_Node_Attribute ("Type_Name", "Node_Id", Image (Type_Name (N)), int (Type_Name (N))); end W_Full_Type_Declaration; procedure W_Block_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Statements", "List_Id", Image (Statements (N)), int (Statements (N))); W_Node_Attribute ("Declarative_Part", "List_Id", Image (Declarative_Part (N)), int (Declarative_Part (N))); end W_Block_Statement; procedure W_If_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Statements", "List_Id", Image (Statements (N)), int (Statements (N))); W_Node_Attribute ("Condition", "Node_Id", Image (Condition (N)), int (Condition (N))); W_Node_Attribute ("Else_Statements", "List_Id", Image (Else_Statements (N)), int (Else_Statements (N))); end W_If_Statement; procedure W_Assignment_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Expression", "Node_Id", Image (Expression (N)), int (Expression (N))); end W_Assignment_Statement; procedure W_Return_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Expression", "Node_Id", Image (Expression (N)), int (Expression (N))); end W_Return_Statement; procedure W_For_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Statements", "List_Id", Image (Statements (N)), int (Statements (N))); W_Node_Attribute ("Condition", "Node_Id", Image (Condition (N)), int (Condition (N))); W_Node_Attribute ("Pre_Cond", "Node_Id", Image (Pre_Cond (N)), int (Pre_Cond (N))); W_Node_Attribute ("Post_Cond", "Node_Id", Image (Post_Cond (N)), int (Post_Cond (N))); end W_For_Statement; procedure W_While_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Statements", "List_Id", Image (Statements (N)), int (Statements (N))); W_Node_Attribute ("Condition", "Node_Id", Image (Condition (N)), int (Condition (N))); end W_While_Statement; procedure W_Switch_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Expression", "Node_Id", Image (Expression (N)), int (Expression (N))); W_Node_Attribute ("Alternatives", "List_Id", Image (Alternatives (N)), int (Alternatives (N))); end W_Switch_Statement; procedure W_Switch_Alternative (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Statements", "List_Id", Image (Statements (N)), int (Statements (N))); W_Node_Attribute ("Labels", "List_Id", Image (Labels (N)), int (Labels (N))); end W_Switch_Alternative; procedure W_Break_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); end W_Break_Statement; procedure W_Continue_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); end W_Continue_Statement; procedure W_C_Comment (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Has_Header_Spaces", "Boolean", Image (Has_Header_Spaces (N))); end W_C_Comment; procedure W_Define_Statement (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Defined_Value", "Node_Id", Image (Defined_Value (N)), int (Defined_Value (N))); end W_Define_Statement; procedure W_Array_Declaration (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Array_Size", "Node_Id", Image (Array_Size (N)), int (Array_Size (N))); end W_Array_Declaration; procedure W_Struct_Aggregate (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Struct_Members", "List_Id", Image (Struct_Members (N)), int (Struct_Members (N))); end W_Struct_Aggregate; procedure W_Union_Aggregate (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Union_Members", "List_Id", Image (Union_Members (N)), int (Union_Members (N))); end W_Union_Aggregate; procedure W_Enum_Aggregate (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Enum_Members", "List_Id", Image (Enum_Members (N)), int (Enum_Members (N))); end W_Enum_Aggregate; procedure W_Variable_Declaration (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Used_Type", "Node_Id", Image (Used_Type (N)), int (Used_Type (N))); end W_Variable_Declaration; procedure W_Member_Declaration (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Used_Type", "Node_Id", Image (Used_Type (N)), int (Used_Type (N))); end W_Member_Declaration; procedure W_Member_Designator (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Aggregate_Name", "Node_Id", Image (Aggregate_Name (N)), int (Aggregate_Name (N))); W_Node_Attribute ("Is_Pointer", "Boolean", Image (Is_Pointer (N))); end W_Member_Designator; procedure W_Macro_Declaration (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Defining_Identifier", "Node_Id", Image (Defining_Identifier (N)), int (Defining_Identifier (N))); W_Node_Attribute ("Expression", "Node_Id", Image (Expression (N)), int (Expression (N))); end W_Macro_Declaration; procedure W_Literal (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Value", "Value_Id", Image (Value (N))); end W_Literal; procedure W_Expression (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Operator", "Operator_Id", Image (Operator (N))); W_Node_Attribute ("Left_Expression", "Node_Id", Image (Left_Expression (N)), int (Left_Expression (N))); W_Node_Attribute ("Right_Expression", "Node_Id", Image (Right_Expression (N)), int (Right_Expression (N))); end W_Expression; procedure W_Type_Conversion (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Expression", "Node_Id", Image (Expression (N)), int (Expression (N))); W_Node_Attribute ("Subtype_Mark", "Node_Id", Image (Subtype_Mark (N)), int (Subtype_Mark (N))); end W_Type_Conversion; procedure W_Variable_Address (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Expression", "Node_Id", Image (Expression (N)), int (Expression (N))); end W_Variable_Address; procedure W_Extern_Entity_Declaration (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Entity", "Node_Id", Image (Entity (N)), int (Entity (N))); end W_Extern_Entity_Declaration; procedure W_Float (N : base_type) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Image", "Name_Id", Image (Image (N))); end W_Float; procedure W_Int (N : base_type) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Image", "Name_Id", Image (Image (N))); end W_Int; procedure W_Char (N : base_type) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Image", "Name_Id", Image (Image (N))); end W_Char; procedure W_Short (N : base_type) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Image", "Name_Id", Image (Image (N))); end W_Short; procedure W_Void (N : base_type) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Image", "Name_Id", Image (Image (N))); end W_Void; procedure W_Pointed_Char (N : base_type) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Image", "Name_Id", Image (Image (N))); end W_Pointed_Char; procedure W_Tree_Bindings (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Main_Node", "Node_Id", Image (Main_Node (N)), int (Main_Node (N))); W_Node_Attribute ("Type_Definition_Node", "Node_Id", Image (Type_Definition_Node (N)), int (Type_Definition_Node (N))); W_Node_Attribute ("Feature_Subprogram_Node", "Node_Id", Image (Feature_Subprogram_Node (N)), int (Feature_Subprogram_Node (N))); W_Node_Attribute ("Subprogram_Node", "Node_Id", Image (Subprogram_Node (N)), int (Subprogram_Node (N))); end W_Tree_Bindings; procedure W_HI_Tree_Bindings (N : node_id) is begin W_Node_Header (node_id (N)); W_Node_Attribute ("Next_Node", "Node_Id", Image (Next_Node (N)), int (Next_Node (N))); W_Node_Attribute ("Frontend_Node", "Node_Id", Image (Frontend_Node (N)), int (Frontend_Node (N))); W_Node_Attribute ("Main_Node", "Node_Id", Image (Main_Node (N)), int (Main_Node (N))); W_Node_Attribute ("Type_Definition_Node", "Node_Id", Image (Type_Definition_Node (N)), int (Type_Definition_Node (N))); W_Node_Attribute ("Feature_Subprogram_Node", "Node_Id", Image (Feature_Subprogram_Node (N)), int (Feature_Subprogram_Node (N))); W_Node_Attribute ("Subprogram_Node", "Node_Id", Image (Subprogram_Node (N)), int (Subprogram_Node (N))); W_Node_Attribute ("Internals_Node", "Node_Id", Image (Internals_Node (N)), int (Internals_Node (N))); W_Node_Attribute ("System_Time_Node", "Node_Id", Image (System_Time_Node (N)), int (System_Time_Node (N))); W_Node_Attribute ("Marshaller_Node", "Node_Id", Image (Marshaller_Node (N)), int (Marshaller_Node (N))); W_Node_Attribute ("Unmarshaller_Node", "Node_Id", Image (Unmarshaller_Node (N)), int (Unmarshaller_Node (N))); W_Node_Attribute ("Activity_Node", "Node_Id", Image (Activity_Node (N)), int (Activity_Node (N))); W_Node_Attribute ("Functions_Node", "Node_Id", Image (Functions_Node (N)), int (Functions_Node (N))); W_Node_Attribute ("Types_Node", "Node_Id", Image (Types_Node (N)), int (Types_Node (N))); W_Node_Attribute ("Object_Node", "Node_Id", Image (Object_Node (N)), int (Object_Node (N))); W_Node_Attribute ("Handlers_Node", "Node_Id", Image (Handlers_Node (N)), int (Handlers_Node (N))); W_Node_Attribute ("Global_Port_Node", "Node_Id", Image (Global_Port_Node (N)), int (Global_Port_Node (N))); W_Node_Attribute ("Local_Port_Node", "Node_Id", Image (Local_Port_Node (N)), int (Local_Port_Node (N))); W_Node_Attribute ("Request_Node", "Node_Id", Image (Request_Node (N)), int (Request_Node (N))); W_Node_Attribute ("Deployment_Node", "Node_Id", Image (Deployment_Node (N)), int (Deployment_Node (N))); W_Node_Attribute ("Entities_Node", "Node_Id", Image (Entities_Node (N)), int (Entities_Node (N))); W_Node_Attribute ("Servers_Node", "Node_Id", Image (Servers_Node (N)), int (Servers_Node (N))); W_Node_Attribute ("Naming_Node", "Node_Id", Image (Naming_Node (N)), int (Naming_Node (N))); W_Node_Attribute ("Request_Type_Node", "Node_Id", Image (Request_Type_Node (N)), int (Request_Type_Node (N))); W_Node_Attribute ("Job_Node", "Node_Id", Image (Job_Node (N)), int (Job_Node (N))); W_Node_Attribute ("Stub_Node", "Node_Id", Image (Stub_Node (N)), int (Stub_Node (N))); W_Node_Attribute ("Enumerator_Node", "Node_Id", Image (Enumerator_Node (N)), int (Enumerator_Node (N))); W_Node_Attribute ("Process_Request_Node", "Node_Id", Image (Process_Request_Node (N)), int (Process_Request_Node (N))); W_Node_Attribute ("Marshall_Request_Node", "Node_Id", Image (Marshall_Request_Node (N)), int (Marshall_Request_Node (N))); W_Node_Attribute ("Unmarshall_Request_Node", "Node_Id", Image (Unmarshall_Request_Node (N)), int (Unmarshall_Request_Node (N))); W_Node_Attribute ("Default_Value_Node", "Node_Id", Image (Default_Value_Node (N)), int (Default_Value_Node (N))); end W_HI_Tree_Bindings; end Ocarina.Generators.C_Tree.Nodes;