ifr_adding_visitor Class Reference

#include <ifr_adding_visitor.h>

Inheritance diagram for ifr_adding_visitor:

[legend]Collaboration diagram for ifr_adding_visitor:

[legend]List of all members.

Public Member Functions
	ifr_adding_visitor (AST_Decl *scope, CORBA::Boolean in_reopened=0)
virtual	~ifr_adding_visitor (void)
virtual int	visit_scope (UTL_Scope *node)
virtual int	visit_predefined_type (AST_PredefinedType *node)
virtual int	visit_module (AST_Module *node)
virtual int	visit_interface (AST_Interface *node)
virtual int	visit_interface_fwd (AST_InterfaceFwd *node)
virtual int	visit_valuebox (AST_ValueBox *node)
virtual int	visit_valuetype (AST_ValueType *node)
virtual int	visit_valuetype_fwd (AST_ValueTypeFwd *node)
virtual int	visit_component (AST_Component *node)
virtual int	visit_component_fwd (AST_ComponentFwd *node)
virtual int	visit_eventtype (AST_EventType *node)
virtual int	visit_eventtype_fwd (AST_EventTypeFwd *node)
virtual int	visit_home (AST_Home *node)
virtual int	visit_factory (AST_Factory *node)
virtual int	visit_structure (AST_Structure *node)
virtual int	visit_structure_fwd (AST_StructureFwd *node)
virtual int	visit_exception (AST_Exception *node)
virtual int	visit_enum (AST_Enum *node)
virtual int	visit_operation (AST_Operation *node)
virtual int	visit_field (AST_Field *node)
virtual int	visit_attribute (AST_Attribute *node)
virtual int	visit_union (AST_Union *node)
virtual int	visit_union_fwd (AST_UnionFwd *node)
virtual int	visit_constant (AST_Constant *node)
virtual int	visit_array (AST_Array *node)
virtual int	visit_sequence (AST_Sequence *node)
virtual int	visit_string (AST_String *node)
virtual int	visit_typedef (AST_Typedef *node)
virtual int	visit_root (AST_Root *node)
virtual int	visit_native (AST_Native *node)
Protected Member Functions
CORBA::PrimitiveKind	expr_type_to_pkind (AST_Expression::ExprType et)
CORBA::PrimitiveKind	predefined_type_to_pkind (AST_PredefinedType *node)
void	load_any (AST_Expression::AST_ExprValue *ev, CORBA::Any &any)
void	element_type (AST_Type *base_type, bool owned=false)
int	create_interface_def (AST_Interface *node)
int	create_value_def (AST_ValueType *node)
int	create_component_def (AST_Component *node)
int	create_home_def (AST_Home *node)
int	create_event_def (AST_EventType *node)
int	create_value_member (AST_Field *node)
void	get_referenced_type (AST_Type *node)
void	fill_base_value (CORBA::ValueDef_ptr &result, AST_ValueType *node)
void	fill_base_component (CORBA::ComponentIR::ComponentDef_ptr &result, AST_Component *node)
void	fill_base_home (CORBA::ComponentIR::HomeDef_ptr &result, AST_Home *node)
void	fill_managed_component (CORBA::ComponentIR::ComponentDef_ptr &result, AST_Home *node)
void	fill_primary_key (CORBA::ValueDef_ptr &result, AST_Home *node)
void	fill_abstract_base_values (CORBA::ValueDefSeq &result, AST_ValueType *node)
void	fill_inherited_interfaces (CORBA::InterfaceDefSeq &result, AST_Interface *node)
void	fill_supported_interfaces (CORBA::InterfaceDefSeq &result, AST_Interface *node)
void	fill_interfaces (CORBA::InterfaceDefSeq &result, AST_Interface **list, CORBA::Long length)
void	fill_initializers (CORBA::ExtInitializerSeq &result, AST_ValueType *node)
void	fill_get_exceptions (CORBA::ExceptionDefSeq &result, AST_Attribute *node)
void	fill_set_exceptions (CORBA::ExceptionDefSeq &result, AST_Attribute *node)
void	fill_exceptions (CORBA::ExceptionDefSeq &result, AST_Decl *node)
void	fill_exceptions (CORBA::ExceptionDefSeq &result, UTL_ExceptList *list)
void	fill_params (CORBA::ParDescriptionSeq &result, AST_Operation *node)
void	visit_all_provides (AST_Component *node, CORBA::ComponentIR::ComponentDef_ptr c)
void	visit_all_uses (AST_Component *node, CORBA::ComponentIR::ComponentDef_ptr c)
void	visit_all_emits (AST_Component *node, CORBA::ComponentIR::ComponentDef_ptr c)
void	visit_all_publishes (AST_Component *node, CORBA::ComponentIR::ComponentDef_ptr c)
void	visit_all_consumes (AST_Component *node, CORBA::ComponentIR::ComponentDef_ptr c)
void	visit_all_factories (AST_Home *node, CORBA::ComponentIR::HomeDef_ptr h)
void	visit_all_finders (AST_Home *node, CORBA::ComponentIR::HomeDef_ptr h)
void	expand_id (ACE_CString &str, const char *local_name)
Protected Attributes
CORBA::IDLType_var	ir_current_
AST_Decl *	scope_
bool	in_reopened_

---

Constructor & Destructor Documentation

ifr_adding_visitor::ifr_adding_visitor (  AST_Decl *  scope, CORBA::Boolean  in_reopened = 0 )

ifr_adding_visitor::~ifr_adding_visitor (  void   )  [virtual]

Definition at line 59 of file ifr_adding_visitor.cpp. { }

---

Member Function Documentation

int ifr_adding_visitor::create_component_def (  AST_Component *  node  )  [protected]

Definition at line 2863 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, fill_base_component(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, LM_ERROR, visit_all_consumes(), visit_all_emits(), visit_all_provides(), visit_all_publishes(), visit_all_uses(), and visit_scope(). Referenced by visit_component(). { CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::ComponentIR::ComponentDef_var base_component; this->fill_base_component (base_component.out (), node); CORBA::InterfaceDefSeq supported_interfaces; this->fill_supported_interfaces (supported_interfaces, node); CORBA::ComponentIR::Container_var ccm_scope = CORBA::ComponentIR::Container::_narrow (current_scope); CORBA::ComponentIR::ComponentDef_var new_def = ccm_scope->create_component (node->repoID (), node->local_name ()->get_string (), node->version (), base_component.in (), supported_interfaces); node->ifr_added (true); if (be_global->ifr_scopes ().push (new_def.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_component_def -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_component_def -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } this->visit_all_provides (node, new_def.in ()); this->visit_all_uses (node, new_def.in ()); this->visit_all_emits (node, new_def.in ()); this->visit_all_publishes (node, new_def.in ()); this->visit_all_consumes (node, new_def.in ()); // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. This will // consume the objref pointer. this->ir_current_ = CORBA::IDLType::_duplicate (new_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_component_def -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::create_component_def -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } return 0; }

int ifr_adding_visitor::create_event_def (  AST_EventType *  node  )  [protected]

Definition at line 3084 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, fill_abstract_base_values(), fill_base_value(), fill_initializers(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, LM_ERROR, and visit_scope(). Referenced by visit_eventtype(). { CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::ValueDef_var base_value; this->fill_base_value (base_value.out (), node); CORBA::ValueDefSeq abstract_base_values; this->fill_abstract_base_values (abstract_base_values, node); CORBA::InterfaceDefSeq supported_interfaces; this->fill_supported_interfaces (supported_interfaces, node); CORBA::ExtInitializerSeq initializers; this->fill_initializers (initializers, node); CORBA::ComponentIR::Container_var ccm_scope = CORBA::ComponentIR::Container::_narrow (current_scope); CORBA::ExtValueDef_var new_def = ccm_scope->create_event ( node->repoID (), node->local_name ()->get_string (), node->version (), static_cast<CORBA::Boolean> (node->custom ()), static_cast<CORBA::Boolean> (node->is_abstract ()), base_value.in (), static_cast<CORBA::Boolean> (node->truncatable ()), abstract_base_values, supported_interfaces, initializers ); node->ifr_added (true); // Push the new IR object onto the scope stack. CORBA::Container_var new_scope = CORBA::Container::_narrow (new_def.in ()); if (be_global->ifr_scopes ().push (new_scope.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_event_def -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_event_def -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. This will // consume the objref pointer. this->ir_current_ = CORBA::IDLType::_duplicate (new_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_event_def -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::create_event_def -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } return 0; }

int ifr_adding_visitor::create_home_def (  AST_Home *  node  )  [protected]

Definition at line 2970 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, fill_base_home(), fill_managed_component(), fill_primary_key(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, LM_ERROR, visit_all_factories(), visit_all_finders(), and visit_scope(). Referenced by visit_home(). { CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::ComponentIR::HomeDef_var base_home; this->fill_base_home (base_home.out (), node); CORBA::ComponentIR::ComponentDef_var managed_component; this->fill_managed_component (managed_component.out (), node); CORBA::InterfaceDefSeq supported_interfaces; this->fill_supported_interfaces (supported_interfaces, node); CORBA::ValueDef_var primary_key; this->fill_primary_key (primary_key.out (), node); CORBA::ComponentIR::Container_var ccm_scope = CORBA::ComponentIR::Container::_narrow (current_scope); CORBA::ComponentIR::HomeDef_var new_def = ccm_scope->create_home (node->repoID (), node->local_name ()->get_string (), node->version (), base_home.in (), managed_component.in (), supported_interfaces, primary_key.in ()); node->ifr_added (true); // Push the new IR object onto the scope stack. CORBA::Container_var new_scope = CORBA::Container::_narrow (new_def.in ()); if (be_global->ifr_scopes ().push (new_scope.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_home_def -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_home_def -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // Get the contents of these lists into the repository. this->visit_all_factories (node, new_def.in ()); this->visit_all_finders (node, new_def.in ()); // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. This will // consume the objref pointer. this->ir_current_ = CORBA::IDLType::_duplicate (new_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_home_def -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::create_home_def -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } return 0; }

int ifr_adding_visitor::create_interface_def (  AST_Interface *  node  )  [protected]

Definition at line 2538 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), and visit_scope(). Referenced by visit_interface(). { CORBA::ULong n_parents = static_cast<CORBA::ULong> (node->n_inherits ()); AST_Interface **parents = node->inherits (); CORBA::Contained_var result; CORBA::AbstractInterfaceDefSeq abs_bases; CORBA::InterfaceDefSeq bases; if (node->is_abstract ()) { abs_bases.length (n_parents); // Construct a list of the parents. for (CORBA::ULong i = 0; i < n_parents; ++i) { result = be_global->repository ()->lookup_id (parents[i]->repoID ()); // If we got to visit_interface() from a forward declared interface, // this node may not yet be in the repository. if (CORBA::is_nil (result.in ())) { int status = this->create_interface_def (parents[i]); if (status != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_interface_def -") ACE_TEXT (" parent interfacedef creation failed\n") ), -1 ); } bases[i] = CORBA::AbstractInterfaceDef::_narrow (this->ir_current_.in ()); } else { abs_bases[i] = CORBA::AbstractInterfaceDef::_narrow (result.in ()); } if (CORBA::is_nil (abs_bases[i])) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_interface_def -") ACE_TEXT (" CORBA::InterfaceDef::_narrow failed\n") ), -1 ); } } } else { bases.length (n_parents); // Construct a list of the parents. for (CORBA::ULong i = 0; i < n_parents; ++i) { result = be_global->repository ()->lookup_id (parents[i]->repoID ()); // If we got to visit_interface() from a forward declared interface, // this node may not yet be in the repository. if (CORBA::is_nil (result.in ())) { int status = this->create_interface_def (parents[i]); if (status != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_interface_def -") ACE_TEXT (" parent interfacedef creation failed\n") ), -1 ); } bases[i] = CORBA::InterfaceDef::_narrow (this->ir_current_.in ()); } else { bases[i] = CORBA::InterfaceDef::_narrow (result.in ()); } if (CORBA::is_nil (bases[i])) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_interface_def -") ACE_TEXT (" CORBA::InterfaceDef::_narrow failed\n") ), -1 ); } } } CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::InterfaceDef_var new_def; if (node->is_local ()) { new_def = current_scope->create_local_interface ( node->repoID (), node->local_name ()->get_string (), node->version (), bases ); } else if (node->is_abstract ()) { new_def = current_scope->create_abstract_interface ( node->repoID (), node->local_name ()->get_string (), node->version (), abs_bases ); } else { new_def = current_scope->create_interface ( node->repoID (), node->local_name ()->get_string (), node->version (), bases ); } node->ifr_added (true); // Push the new IR object onto the scope stack. CORBA::Container_var new_scope = CORBA::Container::_narrow (new_def.in ()); if (be_global->ifr_scopes ().push (new_scope.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_interface_def -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_interface_def -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. This will // consume the objref pointer. this->ir_current_ = CORBA::IDLType::_duplicate (new_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_interface_def -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::create_interface_def -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } return 0; }

int ifr_adding_visitor::create_value_def (  AST_ValueType *  node  )  [protected]

Definition at line 2755 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, fill_abstract_base_values(), fill_base_value(), fill_initializers(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, LM_ERROR, and visit_scope(). Referenced by visit_valuetype(). { CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::ValueDef_var base_value; this->fill_base_value (base_value.out (), node); CORBA::ValueDefSeq abstract_base_values; this->fill_abstract_base_values (abstract_base_values, node); CORBA::InterfaceDefSeq supported_interfaces; this->fill_supported_interfaces (supported_interfaces, node); CORBA::ExtInitializerSeq initializers; this->fill_initializers (initializers, node); CORBA::ExtValueDef_var new_def = current_scope->create_ext_value ( node->repoID (), node->local_name ()->get_string (), node->version (), static_cast<CORBA::Boolean> (node->custom ()), static_cast<CORBA::Boolean> (node->is_abstract ()), base_value.in (), static_cast<CORBA::Boolean> (node->truncatable ()), abstract_base_values, supported_interfaces, initializers ); node->ifr_added (true); // Push the new IR object onto the scope stack. CORBA::Container_var new_scope = CORBA::Container::_narrow (new_def.in ()); if (be_global->ifr_scopes ().push (new_scope.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_value_def -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_value_def -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. This will // consume the objref pointer. this->ir_current_ = CORBA::IDLType::_duplicate (new_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_value_def -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::create_value_def -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } return 0; }

int ifr_adding_visitor::create_value_member (  AST_Field *  node  )  [protected]

This will put the repo entry into ir_current_. Definition at line 3195 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::ifr_scopes(), ir_current_, LM_ERROR, and BE_GlobalData::repository(). Referenced by visit_field(). { try { AST_Type *bt = node->field_type (); AST_Decl::NodeType nt = bt->node_type (); // We can't use lookup_id() on these, because // they don't inherit from Contained. if (nt == AST_Decl::NT_pre_defined || nt == AST_Decl::NT_string || nt == AST_Decl::NT_wstring || nt == AST_Decl::NT_array || nt == AST_Decl::NT_sequence) { /// This will put the repo entry into ir_current_. if (bt->ast_accept (this) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_value_member -") ACE_TEXT (" visit base type failed\n") ), -1 ); } } else { // If the IDL is legal, this will succeed. CORBA::Contained_var holder = be_global->repository ()->lookup_id (bt->repoID ()); this->ir_current_ = CORBA::IDLType::_narrow (holder.in ()); } CORBA::Visibility vis = CORBA::PUBLIC_MEMBER; switch (node->visibility ()) { case AST_Field::vis_PUBLIC: break; case AST_Field::vis_PRIVATE: vis = CORBA::PRIVATE_MEMBER; break; default: ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::create_value_member -") ACE_TEXT (" bad visibility value in node\n") ), -1 ); }; CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("create_value_member -") ACE_TEXT (" scope stack empty\n") ), -1 ); } CORBA::ValueDef_var vt = CORBA::ValueDef::_narrow (current_scope); CORBA::ValueMemberDef_var vm = vt->create_value_member (node->repoID (), node->local_name ()->get_string (), node->version (), this->ir_current_.in (), vis); } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("create_value_member")); return -1; } return 0; }

void ifr_adding_visitor::element_type (  AST_Type *  base_type, bool  owned = false )  [protected]

Definition at line 2501 of file ifr_adding_visitor.cpp. References ACE_ERROR, ACE_TEXT(), be_global, ir_current_, CORBA::is_nil(), LM_ERROR, and BE_GlobalData::repository(). Referenced by visit_array(), visit_sequence(), visit_typedef(), and visit_valuebox(). { AST_Decl::NodeType nt = base_type->node_type (); bool no_repo_id = nt == AST_Decl::NT_array || nt == AST_Decl::NT_sequence || base_type->anonymous (); if (no_repo_id || owned) { if (base_type->ast_accept (this) == -1) { ACE_ERROR (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::element_type -") ACE_TEXT (" failed to accept visitor\n") )); } } else { CORBA::Contained_var contained = be_global->repository ()->lookup_id (base_type->repoID ()); if (CORBA::is_nil (contained.in ())) { ACE_ERROR (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::element_type -") ACE_TEXT (" lookup_id failed\n") )); } this->ir_current_ = CORBA::IDLType::_narrow (contained.in ()); } }

void ifr_adding_visitor::expand_id (  ACE_CString &  str, const char *  local_name )  [protected]

Definition at line 3991 of file ifr_adding_visitor.cpp. References ssize_t. Referenced by visit_all_consumes(), visit_all_emits(), visit_all_provides(), visit_all_publishes(), and visit_all_uses(). { ssize_t pos = str.rfind (':'); str = str.substr (0, pos) + '/' + local_name + str.substr (pos); }

CORBA::PrimitiveKind ifr_adding_visitor::expr_type_to_pkind (  AST_Expression::ExprType  et  )  [protected]

Definition at line 2326 of file ifr_adding_visitor.cpp. Referenced by visit_constant(). { switch (et) { case AST_Expression::EV_short: return CORBA::pk_short; case AST_Expression::EV_ushort: return CORBA::pk_ushort; case AST_Expression::EV_long: return CORBA::pk_long; case AST_Expression::EV_ulong: return CORBA::pk_ulong; case AST_Expression::EV_longlong: return CORBA::pk_longlong; case AST_Expression::EV_ulonglong: return CORBA::pk_ulonglong; case AST_Expression::EV_float: return CORBA::pk_float; case AST_Expression::EV_double: return CORBA::pk_double; case AST_Expression::EV_longdouble: return CORBA::pk_longdouble; case AST_Expression::EV_char: return CORBA::pk_char; case AST_Expression::EV_wchar: return CORBA::pk_wchar; case AST_Expression::EV_octet: return CORBA::pk_octet; case AST_Expression::EV_bool: return CORBA::pk_boolean; case AST_Expression::EV_string: return CORBA::pk_string; case AST_Expression::EV_wstring: return CORBA::pk_wstring; case AST_Expression::EV_any: return CORBA::pk_any; case AST_Expression::EV_void: return CORBA::pk_void; case AST_Expression::EV_none: return CORBA::pk_null; default: return CORBA::pk_null; } }

void ifr_adding_visitor::fill_abstract_base_values (  CORBA::ValueDefSeq &  result, AST_ValueType *  node )  [protected]

Definition at line 3469 of file ifr_adding_visitor.cpp. Referenced by create_event_def(), create_value_def(), visit_eventtype(), and visit_valuetype(). { CORBA::Long s_length = node->n_inherits (); result.length (0); // Not sure if this could be negative in some default case or // not. If it's 0, we should make the call anyway to clear // existing entries, if any, from the repository. if (s_length > 0) { AST_Interface **list = node->inherits (); CORBA::ULong u_length = static_cast<CORBA::ULong> (s_length); bool first_abs = list[0]->is_abstract (); result.length (first_abs ? u_length : u_length - 1); for (CORBA::ULong i = 0; i < u_length; ++i) { if (i == 0 && ! first_abs) { continue; } // Get list[i] into ir_current_. (void) list[i]->ast_accept (this); result[first_abs ? i : i - 1] = CORBA::ValueDef::_narrow (this->ir_current_.in ()); } } }

void ifr_adding_visitor::fill_base_component (  CORBA::ComponentIR::ComponentDef_ptr &  result, AST_Component *  node )  [protected]

Definition at line 3349 of file ifr_adding_visitor.cpp. References be_global, CORBA::is_nil(), and BE_GlobalData::repository(). Referenced by create_component_def(), visit_component(), and visit_component_fwd(). { result = CORBA::ComponentIR::ComponentDef::_nil (); AST_Component *base_component = node->base_component (); if (base_component == 0) { return; } CORBA::Contained_var holder = be_global->repository ()->lookup_id ( base_component->repoID () ); if (!CORBA::is_nil (holder.in ())) { result = CORBA::ComponentIR::ComponentDef::_narrow (holder.in ()); } }

void ifr_adding_visitor::fill_base_home (  CORBA::ComponentIR::HomeDef_ptr &  result, AST_Home *  node )  [protected]

Definition at line 3375 of file ifr_adding_visitor.cpp. References be_global, CORBA::is_nil(), and BE_GlobalData::repository(). Referenced by create_home_def(). { result = CORBA::ComponentIR::HomeDef::_nil (); AST_Home *base_home = node->base_home (); if (base_home == 0) { return; } CORBA::Contained_var holder = be_global->repository ()->lookup_id ( base_home->repoID () ); if (!CORBA::is_nil (holder.in ())) { result = CORBA::ComponentIR::HomeDef::_narrow (holder.in ()); } else { /// Maybe the base home is in an included IDL file - put it in /// the repository and go again. (void) base_home->ast_accept (this); this->fill_base_home (result, node); } }

void ifr_adding_visitor::fill_base_value (  CORBA::ValueDef_ptr &  result, AST_ValueType *  node )  [protected]

Definition at line 3325 of file ifr_adding_visitor.cpp. References be_global, CORBA::is_nil(), and BE_GlobalData::repository(). Referenced by create_event_def(), create_value_def(), visit_eventtype(), and visit_valuetype(). { result = CORBA::ValueDef::_nil (); AST_ValueType *base_value = node->inherits_concrete (); if (base_value == 0) { return; } CORBA::Contained_var holder = be_global->repository ()->lookup_id ( base_value->repoID () ); if (!CORBA::is_nil (holder.in ())) { result = CORBA::ValueDef::_narrow (holder.in ()); } }

void ifr_adding_visitor::fill_exceptions (  CORBA::ExceptionDefSeq &  result, UTL_ExceptList *  list )  [protected]

Definition at line 3711 of file ifr_adding_visitor.cpp. References be_global, and BE_GlobalData::repository(). { if (list == 0) { result.length (0); return; } result.length (static_cast<CORBA::ULong> (list->length ())); CORBA::ULong index = 0; AST_Decl *d = 0; CORBA::Contained_var holder; for (UTL_ExceptlistActiveIterator ei (list); !ei.is_done (); ei.next (), ++index) { d = ei.item (); // Just to make sure. The call will return quickly if d has already // been visited. Can't use ir_current_ because ExceptionDef doesn't // inherit from IDLType. (void) d->ast_accept (this); holder = be_global->repository ()->lookup_id (d->repoID ()); result[index] = CORBA::ExceptionDef::_narrow (holder.in ()); } }

void ifr_adding_visitor::fill_exceptions (  CORBA::ExceptionDefSeq &  result, AST_Decl *  node )  [protected]

Definition at line 3685 of file ifr_adding_visitor.cpp. Referenced by fill_get_exceptions(), fill_set_exceptions(), visit_all_factories(), and visit_all_finders(). { switch (node->node_type ()) { case AST_Decl::NT_op: { AST_Operation *op = AST_Operation::narrow_from_decl (node); this->fill_exceptions (result, op->exceptions ()); return; } case AST_Decl::NT_factory: { AST_Factory *f = AST_Factory::narrow_from_decl (node); this->fill_exceptions (result, f->exceptions ()); return; } default: result.length (0); return; } }

void ifr_adding_visitor::fill_get_exceptions (  CORBA::ExceptionDefSeq &  result, AST_Attribute *  node )  [protected]

Definition at line 3669 of file ifr_adding_visitor.cpp. References fill_exceptions(). Referenced by visit_attribute(). { this->fill_exceptions (result, node->get_get_exceptions ()); }

void ifr_adding_visitor::fill_inherited_interfaces (  CORBA::InterfaceDefSeq &  result, AST_Interface *  node )  [protected]

Definition at line 3502 of file ifr_adding_visitor.cpp. References fill_interfaces(). { result.length (0); this->fill_interfaces (result, node->inherits (), node->n_inherits ()); }

void ifr_adding_visitor::fill_initializers (  CORBA::ExtInitializerSeq &  result, AST_ValueType *  node )  [protected]

Definition at line 3577 of file ifr_adding_visitor.cpp. References ACE_ERROR, ACE_TEXT(), LM_ERROR, ACE_Vector< T, DEFAULT_SIZE >::push_back(), ACE_Vector< T, DEFAULT_SIZE >::size(), and CORBA::string_dup(). Referenced by create_event_def(), create_value_def(), visit_eventtype(), and visit_valuetype(). { result.length (0); AST_Decl *item = 0; ACE_Vector<AST_Factory *> factories; for (UTL_ScopeActiveIterator v_iter (node, UTL_Scope::IK_decls); !v_iter.is_done (); v_iter.next ()) { item = v_iter.item (); if (item->node_type () == AST_Decl::NT_factory) { factories.push_back (AST_Factory::narrow_from_decl (item)); } } CORBA::ULong n_factories = factories.size (); if (n_factories == 0) { return; } result.length (n_factories); CORBA::ULong n_args = 0; AST_Argument *arg = 0; CORBA::ULong index = 0; AST_Exception *excp = 0; CORBA::Contained_var holder; for (CORBA::ULong i = 0; i < n_factories; ++i) { result[i].name = CORBA::string_dup (factories[i]->local_name ()->get_string ()); n_args = static_cast<CORBA::ULong> (factories[i]->argument_count ()); result[i].members.length (n_args); // The factory should have nothing in its scope but args. for (UTL_ScopeActiveIterator f_iter (factories[i], UTL_Scope::IK_decls); !f_iter.is_done (); f_iter.next (), ++index) { arg = AST_Argument::narrow_from_decl (f_iter.item ()); result[i].members[index].name = CORBA::string_dup (arg->local_name ()->get_string ()); result[i].members[index].type = CORBA::TypeCode::_duplicate (CORBA::_tc_void); /// This will put the field type in ir_current_, and also add it /// to the repository if it's not already there. if (arg->field_type ()->ast_accept (this) != 0) { ACE_ERROR (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("fill_initializers -") ACE_TEXT (" failed to accept arg type visitor\n") )); } result[i].members[index].type_def = CORBA::IDLType::_duplicate (this->ir_current_.in ()); } CORBA::ULong n_exceptions = static_cast<CORBA::ULong> (factories[i]->n_exceptions ()); result[i].exceptions.length (n_exceptions); index = 0; for (UTL_ExceptlistActiveIterator ei (factories[i]->exceptions ()); !ei.is_done (); ei.next ()) { excp = AST_Exception::narrow_from_decl (ei.item ()); result[i].exceptions[index].name = CORBA::string_dup (excp->local_name ()->get_string ()); result[i].exceptions[index].id = excp->repoID (); result[i].exceptions[index].defined_in = ScopeAsDecl (excp->defined_in ())->repoID (); result[i].exceptions[index].version = excp->version (); result[i].exceptions[index++].type = CORBA::TypeCode::_duplicate (CORBA::_tc_void); } } }

void ifr_adding_visitor::fill_interfaces (  CORBA::InterfaceDefSeq &  result, AST_Interface **  list, CORBA::Long  length )  [protected]

Definition at line 3553 of file ifr_adding_visitor.cpp. Referenced by fill_inherited_interfaces(), and fill_supported_interfaces(). { // Not sure if this could be negative in some default case or // not. If it's 0, we should make the call anyway to clear // existing entries, if any, from the repository. if (length > 0) { CORBA::ULong u_length = static_cast<CORBA::ULong> (length); result.length (u_length); for (CORBA::ULong i = 0; i < u_length; ++i) { // Get list[i] into ir_current_. (void) list[i]->ast_accept (this); result[i] = CORBA::InterfaceDef::_narrow (this->ir_current_.in ()); } } }

void ifr_adding_visitor::fill_managed_component (  CORBA::ComponentIR::ComponentDef_ptr &  result, AST_Home *  node )  [protected]

Definition at line 3407 of file ifr_adding_visitor.cpp. References be_global, CORBA::is_nil(), and BE_GlobalData::repository(). Referenced by create_home_def(). { result = CORBA::ComponentIR::ComponentDef::_nil (); AST_Component *managed_component = node->managed_component (); if (managed_component == 0) { return; } CORBA::Contained_var holder = be_global->repository ()->lookup_id (managed_component->repoID ()); if (!CORBA::is_nil (holder.in ())) { result = CORBA::ComponentIR::ComponentDef::_narrow (holder.in ()); } else { /// Maybe the managed component is in an included IDL file - put it in /// the repository and go again. (void) managed_component->ast_accept (this); this->fill_managed_component (result, node); } }

void ifr_adding_visitor::fill_params (  CORBA::ParDescriptionSeq &  result, AST_Operation *  node )  [protected]

Definition at line 3744 of file ifr_adding_visitor.cpp. References CORBA::string_dup(). Referenced by visit_all_factories(), and visit_all_finders(). { AST_Argument *arg = 0; CORBA::ULong n_args = static_cast<CORBA::ULong> (node->argument_count ()); result.length (n_args); CORBA::ULong index = 0; CORBA::Contained_var holder; for (UTL_ScopeActiveIterator iter (node, UTL_Scope::IK_decls); ! iter.is_done (); iter.next (), ++index) { arg = AST_Argument::narrow_from_decl (iter.item ()); result[index].name = CORBA::string_dup (arg->local_name ()->get_string ()); result[index].type = CORBA::TypeCode::_duplicate (CORBA::_tc_void); // Get the arg type into ir_current_. (void) arg->ast_accept (this); result[index].type_def = CORBA::IDLType::_duplicate (this->ir_current_.in ()); result[index].mode = CORBA::PARAM_IN; } }

void ifr_adding_visitor::fill_primary_key (  CORBA::ValueDef_ptr &  result, AST_Home *  node )  [protected]

Definition at line 3439 of file ifr_adding_visitor.cpp. References be_global, CORBA::is_nil(), and BE_GlobalData::repository(). Referenced by create_home_def(). { result = CORBA::ValueDef::_nil (); AST_ValueType *primary_key = node->primary_key (); if (primary_key == 0) { return; } CORBA::Contained_var holder = be_global->repository ()->lookup_id (primary_key->repoID ()); if (!CORBA::is_nil (holder.in ())) { result = CORBA::ValueDef::_narrow (holder.in ()); } else { /// Maybe the primary key is in an included IDL file - put it in /// the repository and go again. (void) primary_key->ast_accept (this); this->fill_primary_key (result, node); } }

void ifr_adding_visitor::fill_set_exceptions (  CORBA::ExceptionDefSeq &  result, AST_Attribute *  node )  [protected]

Definition at line 3677 of file ifr_adding_visitor.cpp. References fill_exceptions(). Referenced by visit_attribute(). { this->fill_exceptions (result, node->get_set_exceptions ()); }

void ifr_adding_visitor::fill_supported_interfaces (  CORBA::InterfaceDefSeq &  result, AST_Interface *  node )  [protected]

Definition at line 3512 of file ifr_adding_visitor.cpp. References fill_interfaces(). Referenced by create_component_def(), create_event_def(), create_home_def(), create_value_def(), visit_component(), visit_component_fwd(), visit_eventtype(), and visit_valuetype(). { result.length (0); CORBA::Long s_length = 0; AST_Interface **list = 0; switch (node->node_type ()) { case AST_Decl::NT_valuetype: case AST_Decl::NT_eventtype: { AST_ValueType *v = AST_ValueType::narrow_from_decl (node); s_length = v->n_supports (); list = v->supports (); break; } case AST_Decl::NT_component: { AST_Component *c = AST_Component::narrow_from_decl (node); s_length = c->n_supports (); list = c->supports (); break; } case AST_Decl::NT_home: { AST_Home *h = AST_Home::narrow_from_decl (node); s_length = h->n_supports (); list = h->supports (); break; } default: return; } this->fill_interfaces (result, list, s_length); }

void ifr_adding_visitor::get_referenced_type (  AST_Type *  node  )  [protected]

Definition at line 3287 of file ifr_adding_visitor.cpp. References ACE_ERROR, ACE_TEXT(), be_global, ir_current_, LM_ERROR, and BE_GlobalData::repository(). Referenced by ifr_adding_visitor_operation::visit_argument(), visit_attribute(), ifr_adding_visitor_operation::visit_operation(), ifr_adding_visitor_union::visit_scope(), ifr_adding_visitor_structure::visit_scope(), and ifr_adding_visitor_exception::visit_scope(). { switch (node->node_type ()) { // For anonymous types, a new IR object is be created each // time, so we just visit the node, which get the object and // updates ir_current_. case AST_Decl::NT_pre_defined: case AST_Decl::NT_string: case AST_Decl::NT_wstring: case AST_Decl::NT_array: case AST_Decl::NT_sequence: if (node->ast_accept (this) == -1) { ACE_ERROR (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("get_scope_member -") ACE_TEXT (" failed to accept visitor\n") )); } break; // For names types, we can just look up the entry and update // ir_current_. default: { CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); break; } } }

void ifr_adding_visitor::load_any (  AST_Expression::AST_ExprValue *  ev, CORBA::Any &  any )  [protected]

Definition at line 2427 of file ifr_adding_visitor.cpp. References ACE_NEW, and ACE_OS::strlen(). Referenced by visit_constant(), and ifr_adding_visitor_union::visit_scope(). { switch (ev->et) { case AST_Expression::EV_short: any <<= ev->u.sval; break; case AST_Expression::EV_ushort: any <<= ev->u.usval; break; case AST_Expression::EV_long: any <<= static_cast<CORBA::Long> (ev->u.lval); break; case AST_Expression::EV_ulong: any <<= static_cast<CORBA::ULong> (ev->u.ulval); break; #if !defined (ACE_LACKS_LONGLONG_T) case AST_Expression::EV_longlong: any <<= ev->u.llval; break; case AST_Expression::EV_ulonglong: any <<= ev->u.ullval; break; #endif /* !defined (ACE_LACKS_LONGLONG_T) */ case AST_Expression::EV_float: any <<= ev->u.fval; break; case AST_Expression::EV_double: any <<= ev->u.dval; break; #if 0 case AST_Expression::EV_longdouble: // Not implemented in IDL compiler. #endif case AST_Expression::EV_char: any <<= CORBA::Any::from_char (ev->u.cval); break; case AST_Expression::EV_wchar: any <<= CORBA::Any::from_wchar (ev->u.wcval); break; case AST_Expression::EV_octet: any <<= CORBA::Any::from_octet (ev->u.oval); break; case AST_Expression::EV_bool: any <<= CORBA::Any::from_boolean ((CORBA::Boolean) ev->u.bval); break; case AST_Expression::EV_string: any <<= ev->u.strval->get_string (); break; case AST_Expression::EV_wstring: { char *str = ev->u.wstrval; size_t len = ACE_OS::strlen (str); CORBA::WChar *wstr = 0; ACE_NEW (wstr, CORBA::WChar[len + 1]); for (size_t i = 0; i < len; ++i) { wstr[i] = static_cast<CORBA::WChar> (str[i]); } wstr[len] = 0; any <<= wstr; delete wstr; break; } default: break; } }

CORBA::PrimitiveKind ifr_adding_visitor::predefined_type_to_pkind (  AST_PredefinedType *  node  )  [protected]

Definition at line 2372 of file ifr_adding_visitor.cpp. References ACE_OS::strcmp(). { switch (node->pt ()) { case AST_PredefinedType::PT_short: return CORBA::pk_short; case AST_PredefinedType::PT_ushort: return CORBA::pk_ushort; case AST_PredefinedType::PT_long: return CORBA::pk_long; case AST_PredefinedType::PT_ulong: return CORBA::pk_ulong; case AST_PredefinedType::PT_longlong: return CORBA::pk_longlong; case AST_PredefinedType::PT_ulonglong: return CORBA::pk_ulonglong; case AST_PredefinedType::PT_float: return CORBA::pk_float; case AST_PredefinedType::PT_double: return CORBA::pk_double; case AST_PredefinedType::PT_longdouble: return CORBA::pk_longdouble; case AST_PredefinedType::PT_char: return CORBA::pk_char; case AST_PredefinedType::PT_wchar: return CORBA::pk_wchar; case AST_PredefinedType::PT_octet: return CORBA::pk_octet; case AST_PredefinedType::PT_boolean: return CORBA::pk_boolean; case AST_PredefinedType::PT_any: return CORBA::pk_any; case AST_PredefinedType::PT_void: return CORBA::pk_void; case AST_PredefinedType::PT_object: return CORBA::pk_objref; case AST_PredefinedType::PT_pseudo: { const char *local_name = node->local_name ()->get_string (); if (!ACE_OS::strcmp (local_name, "Principal")) { return CORBA::pk_Principal; } else { return CORBA::pk_TypeCode; } } default: return CORBA::pk_null; } }

void ifr_adding_visitor::visit_all_consumes (  AST_Component *  node, CORBA::ComponentIR::ComponentDef_ptr  c )  [protected]

Definition at line 3901 of file ifr_adding_visitor.cpp. References ACE_CString, ACE_Unbounded_Queue_Iterator< T >::advance(), be_global, ACE_Unbounded_Queue_Iterator< T >::done(), expand_id(), ACE_Unbounded_Queue_Iterator< T >::next(), and BE_GlobalData::repository(). Referenced by create_component_def(), visit_component(), and visit_component_fwd(). { AST_Component::port_description *tmp = 0; CORBA::Contained_var contained; CORBA::ComponentIR::EventDef_var event_type; CORBA::ComponentIR::ConsumesDef_var new_def; char *local_name = 0; for (ACE_Unbounded_Queue_Iterator<AST_Component::port_description> i ( node->consumes () ); ! i.done (); i.advance ()) { i.next (tmp); contained = be_global->repository ()->lookup_id (tmp->impl->repoID ()); event_type = CORBA::ComponentIR::EventDef::_narrow (contained.in ()); ACE_CString str (node->repoID ()); local_name = tmp->id->get_string (); this->expand_id (str, local_name); new_def = c->create_consumes (str.fast_rep (), local_name, tmp->impl->version (), event_type.in ()); } }

void ifr_adding_visitor::visit_all_emits (  AST_Component *  node, CORBA::ComponentIR::ComponentDef_ptr  c )  [protected]

Definition at line 3837 of file ifr_adding_visitor.cpp. References ACE_CString, ACE_Unbounded_Queue_Iterator< T >::advance(), be_global, ACE_Unbounded_Queue_Iterator< T >::done(), expand_id(), ACE_Unbounded_Queue_Iterator< T >::next(), and BE_GlobalData::repository(). Referenced by create_component_def(), visit_component(), and visit_component_fwd(). { AST_Component::port_description *tmp = 0; CORBA::Contained_var contained; CORBA::ComponentIR::EventDef_var event_type; CORBA::ComponentIR::EmitsDef_var new_def; char *local_name = 0; for (ACE_Unbounded_Queue_Iterator<AST_Component::port_description> i ( node->emits () ); ! i.done (); i.advance ()) { i.next (tmp); contained = be_global->repository ()->lookup_id (tmp->impl->repoID ()); event_type = CORBA::ComponentIR::EventDef::_narrow (contained.in ()); ACE_CString str (node->repoID ()); local_name = tmp->id->get_string (); this->expand_id (str, local_name); new_def = c->create_emits (str.fast_rep (), local_name, tmp->impl->version (), event_type.in ()); } }

void ifr_adding_visitor::visit_all_factories (  AST_Home *  node, CORBA::ComponentIR::HomeDef_ptr  h )  [protected]

Definition at line 3933 of file ifr_adding_visitor.cpp. References ACE_Unbounded_Queue_Iterator< T >::advance(), ACE_Unbounded_Queue_Iterator< T >::done(), fill_exceptions(), fill_params(), and ACE_Unbounded_Queue_Iterator< T >::next(). Referenced by create_home_def(). { AST_Operation **tmp = 0; CORBA::Contained_var contained; CORBA::ComponentIR::FactoryDef_var new_def; for (ACE_Unbounded_Queue_Iterator<AST_Operation *> i (node->factories ()); ! i.done (); i.advance ()) { i.next (tmp); CORBA::ParDescriptionSeq params; this->fill_params (params, *tmp); CORBA::ExceptionDefSeq exceptions; this->fill_exceptions (exceptions, *tmp); new_def = h->create_factory ((*tmp)->repoID (), (*tmp)->local_name ()->get_string (), (*tmp)->version (), params, exceptions); } }

void ifr_adding_visitor::visit_all_finders (  AST_Home *  node, CORBA::ComponentIR::HomeDef_ptr  h )  [protected]

Definition at line 3962 of file ifr_adding_visitor.cpp. References ACE_Unbounded_Queue_Iterator< T >::advance(), ACE_Unbounded_Queue_Iterator< T >::done(), fill_exceptions(), fill_params(), and ACE_Unbounded_Queue_Iterator< T >::next(). Referenced by create_home_def(). { AST_Operation **tmp = 0; CORBA::Contained_var contained; CORBA::ComponentIR::FinderDef_var new_def; for (ACE_Unbounded_Queue_Iterator<AST_Operation *> i (node->finders ()); ! i.done (); i.advance ()) { i.next (tmp); CORBA::ParDescriptionSeq params; this->fill_params (params, *tmp); CORBA::ExceptionDefSeq exceptions; this->fill_exceptions (exceptions, *tmp); new_def = h->create_finder ((*tmp)->repoID (), (*tmp)->local_name ()->get_string (), (*tmp)->version (), params, exceptions); } }

void ifr_adding_visitor::visit_all_provides (  AST_Component *  node, CORBA::ComponentIR::ComponentDef_ptr  c )  [protected]

Definition at line 3774 of file ifr_adding_visitor.cpp. References ACE_CString, ACE_Unbounded_Queue_Iterator< T >::advance(), be_global, ACE_Unbounded_Queue_Iterator< T >::done(), expand_id(), ACE_Unbounded_Queue_Iterator< T >::next(), and BE_GlobalData::repository(). Referenced by create_component_def(), visit_component(), and visit_component_fwd(). { AST_Component::port_description *tmp = 0; CORBA::Contained_var contained; CORBA::InterfaceDef_var interface_type; CORBA::ComponentIR::ProvidesDef_var new_def; char *local_name = 0; for (ACE_Unbounded_Queue_Iterator<AST_Component::port_description> i ( node->provides () ); ! i.done (); i.advance ()) { i.next (tmp); contained = be_global->repository ()->lookup_id (tmp->impl->repoID ()); interface_type = CORBA::InterfaceDef::_narrow (contained.in ()); ACE_CString str (node->repoID ()); local_name = tmp->id->get_string (); this->expand_id (str, local_name); new_def = c->create_provides (str.fast_rep (), local_name, tmp->impl->version (), interface_type.in ()); } }

void ifr_adding_visitor::visit_all_publishes (  AST_Component *  node, CORBA::ComponentIR::ComponentDef_ptr  c )  [protected]

Definition at line 3869 of file ifr_adding_visitor.cpp. References ACE_CString, ACE_Unbounded_Queue_Iterator< T >::advance(), be_global, ACE_Unbounded_Queue_Iterator< T >::done(), expand_id(), ACE_Unbounded_Queue_Iterator< T >::next(), and BE_GlobalData::repository(). Referenced by create_component_def(), visit_component(), and visit_component_fwd(). { AST_Component::port_description *tmp = 0; CORBA::Contained_var contained; CORBA::ComponentIR::EventDef_var event_type; CORBA::ComponentIR::PublishesDef_var new_def; char *local_name = 0; for (ACE_Unbounded_Queue_Iterator<AST_Component::port_description> i ( node->publishes () ); ! i.done (); i.advance ()) { i.next (tmp); contained = be_global->repository ()->lookup_id (tmp->impl->repoID ()); event_type = CORBA::ComponentIR::EventDef::_narrow (contained.in ()); ACE_CString str (node->repoID ()); local_name = tmp->id->get_string (); this->expand_id (str, local_name); new_def = c->create_publishes (str.fast_rep (), local_name, tmp->impl->version (), event_type.in ()); } }

void ifr_adding_visitor::visit_all_uses (  AST_Component *  node, CORBA::ComponentIR::ComponentDef_ptr  c )  [protected]

Definition at line 3805 of file ifr_adding_visitor.cpp. References ACE_CString, ACE_Unbounded_Queue_Iterator< T >::advance(), be_global, ACE_Unbounded_Queue_Iterator< T >::done(), expand_id(), ACE_Unbounded_Queue_Iterator< T >::next(), and BE_GlobalData::repository(). Referenced by create_component_def(), visit_component(), and visit_component_fwd(). { AST_Component::port_description *tmp = 0; CORBA::Contained_var contained; CORBA::InterfaceDef_var interface_type; CORBA::ComponentIR::UsesDef_var new_def; char *local_name = 0; for (ACE_Unbounded_Queue_Iterator<AST_Component::port_description> i ( node->uses () ); ! i.done (); i.advance ()) { i.next (tmp); contained = be_global->repository ()->lookup_id (tmp->impl->repoID ()); interface_type = CORBA::InterfaceDef::_narrow (contained.in ()); ACE_CString str (node->repoID ()); local_name = tmp->id->get_string (); this->expand_id (str, local_name); new_def = c->create_uses (str.fast_rep (), local_name, tmp->impl->version (), interface_type.in (), static_cast<CORBA::Boolean> (tmp->is_multiple)); } }

int ifr_adding_visitor::visit_array (  AST_Array *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 2084 of file ifr_adding_visitor.cpp. References ACE_TEXT(), be_global, element_type(), ir_current_, and BE_GlobalData::repository(). { try { this->element_type (node->base_type ()); AST_Expression **dims = node->dims (); for (unsigned long i = node->n_dims (); i > 0; --i) { this->ir_current_ = be_global->repository ()->create_array ( dims[i - 1]->ev ()->u.ulval, this->ir_current_.in () ); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_array")); return -1; } return 0; }

int ifr_adding_visitor::visit_attribute (  AST_Attribute *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1794 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, fill_get_exceptions(), fill_set_exceptions(), get_referenced_type(), BE_GlobalData::ifr_scopes(), ir_current_, and LM_ERROR. { try { AST_Type *type = node->field_type (); // Updates ir_current_. this->get_referenced_type (type); CORBA::AttributeMode mode = node->readonly () ? CORBA::ATTR_READONLY : CORBA::ATTR_NORMAL; CORBA::ExceptionDefSeq get_exceptions; this->fill_get_exceptions (get_exceptions, node); CORBA::ExceptionDefSeq set_exceptions; this->fill_set_exceptions (set_exceptions, node); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::DefinitionKind kind = current_scope->def_kind (); if (kind == CORBA::dk_Value || kind == CORBA::dk_Event) { CORBA::ExtValueDef_var value = CORBA::ExtValueDef::_narrow (current_scope); CORBA::ExtAttributeDef_var new_def = value->create_ext_attribute ( node->repoID (), node->local_name ()->get_string (), node->version (), this->ir_current_.in (), mode, get_exceptions, set_exceptions ); } else { // We are an interface, a local interface, an abstract // interface or a component. This narrow covers them all. CORBA::InterfaceAttrExtension_var iface = CORBA::InterfaceAttrExtension::_narrow (current_scope); CORBA::ExtAttributeDef_var new_def = iface->create_ext_attribute ( node->repoID (), node->local_name ()->get_string (), node->version (), this->ir_current_.in (), mode, get_exceptions, set_exceptions ); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_attribute -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_attribute")); return -1; } return 0; }

int ifr_adding_visitor::visit_component (  AST_Component *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 842 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, create_component_def(), BE_GlobalData::do_included_files(), fill_base_component(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), visit_all_consumes(), visit_all_emits(), visit_all_provides(), visit_all_publishes(), visit_all_uses(), and visit_scope(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); // If not, create a new entry. if (CORBA::is_nil (prev_def.in ())) { int status = this->create_component_def (node); return status; } else { // There is already an entry in the repository. If the interface is // defined and has not already been populated, we do so // now. If it is not yet defined or the full definition has already // been added to the repository, we just update the current IR object // holder. if (node->is_defined () && !node->ifr_added ()) { // If we are here and the line below is true, then either // 1. We are defining an undefined forward declaration // from a previously processed IDL file, or // 2. We are clobbering a previous definition, either of the // node type or of some other type. // If prev_def would narrow successfully to the node type, we // have NO WAY of knowing if we are defining or clobbering. So // we destroy the contents of the previous entry (we don't want // to destroy the entry itself, since it may have already been // made a member of some other entry, and destroying it would // make the containing entry's section key invalid) and repopulate. // On the other hand, if prev_def is NOT the node type, we go // ahead an attempt to create an interface, which will get an // exception from the IFR, as the spec requires. if (!node->ifr_fwd_added ()) { CORBA::DefinitionKind kind = prev_def->def_kind (); if (kind == CORBA::dk_Component) { CORBA::ComponentIR::ComponentDef_var value = CORBA::ComponentIR::ComponentDef::_narrow ( prev_def.in () ); CORBA::ContainedSeq_var contents = value->contents (CORBA::dk_all, 1); CORBA::ULong length = contents->length (); for (CORBA::ULong i = 0; i < length; ++i) { contents[i]->destroy (); } } else { prev_def->destroy (); int status = this->create_component_def (node); return status; } } // Re-populate the repository entry. CORBA::ComponentIR::ComponentDef_var extant_def = CORBA::ComponentIR::ComponentDef::_narrow ( prev_def.in () ); CORBA::InterfaceDefSeq supported_interfaces; this->fill_supported_interfaces (supported_interfaces, node); extant_def->supported_interfaces (supported_interfaces); CORBA::ComponentIR::ComponentDef_var base_component; this->fill_base_component (base_component.out (), node); extant_def->base_component (base_component.in ()); this->visit_all_provides (node, extant_def.in ()); this->visit_all_uses (node, extant_def.in ()); this->visit_all_emits (node, extant_def.in ()); this->visit_all_publishes (node, extant_def.in ()); this->visit_all_consumes (node, extant_def.in ()); node->ifr_added (true); // Push the new IR object onto the scope stack before visiting // the new object's scope. if (be_global->ifr_scopes ().push (extant_def.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_component -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_component -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. this->ir_current_ = CORBA::IDLType::_duplicate (extant_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_interface -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { // @@ (JP) I think we're ok here without a check: // not defined/not added - visit_interface_fwd will have // detected a clobber. // not defined/added - not possible. // defined/not added - takes the other branch. // defined/added - we're ok. this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); } } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_component")); return -1; } return 0; }

int ifr_adding_visitor::visit_component_fwd (  AST_ComponentFwd *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1030 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), fill_base_component(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), visit_all_consumes(), visit_all_emits(), visit_all_provides(), visit_all_publishes(), and visit_all_uses(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } AST_Component *c = AST_Component::narrow_from_decl (node->full_definition ()); try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (c->repoID ()); if (CORBA::is_nil (prev_def.in ())) { CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::ComponentIR::Container_var ccm_scope = CORBA::ComponentIR::Container::_narrow ( current_scope ); // If our full definition is found in this IDL file, we go // ahead and create the full entry now. // The forward declared component is not defined anywhere // in this IDL file, so we just create an empty entry to // be replaced by a full definition later. CORBA::InterfaceDefSeq supported_interfaces; supported_interfaces.length (0); CORBA::ComponentIR::ComponentDef_var base_component; if (node->is_defined ()) { this->fill_supported_interfaces (supported_interfaces, c); this->fill_base_component (base_component.out (), c); } this->ir_current_ = ccm_scope->create_component ( c->repoID (), c->local_name ()->get_string (), c->version (), base_component.in (), supported_interfaces ); // Might as well go ahead and complete the repository // entry now, if we can - we're halfway there already. if (node->is_defined ()) { CORBA::ComponentIR::ComponentDef_var new_def = CORBA::ComponentIR::ComponentDef::_narrow ( this->ir_current_.in () ); this->visit_all_provides (c, new_def.in ()); this->visit_all_uses (c, new_def.in ()); this->visit_all_emits (c, new_def.in ()); this->visit_all_publishes (c, new_def.in ()); this->visit_all_consumes (c, new_def.in ()); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_component_fwd -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); c->ifr_fwd_added (true); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_component_fwd")); return -1; } return 0; }

int ifr_adding_visitor::visit_constant (  AST_Constant *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1988 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), expr_type_to_pkind(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, load_any(), and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } const char *id = node->repoID (); try { CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (id); // Nothing prevents this constant's repo id from already being // in the repository as another type, if it came from another // IDL file whose generated code is not linked to the generated // code from this IDL file. So we check here before we make a // call on ir_current_. if (!CORBA::is_nil (prev_def.in ())) { // If the line below is true, we are clobbering a previous // entry (from another IDL file) of another type. In that // case we do what other ORB vendors do, and destroy the // original entry, create the new one, and let the user beware. if (!node->ifr_added ()) { prev_def->destroy (); } else { // The node is referenced in an array size, string bound // or sequence bound - no action needed in the IFR. return 0; } } AST_Expression::AST_ExprValue *ev = node->constant_value ()->ev (); AST_Decl *td = node->constant_value ()->get_tdef (); if (td != 0 && td->node_type () == AST_Decl::NT_typedef) { // This constant's type is a typedef - look up the typedef to // pass to create_constant(). CORBA::Contained_var contained = be_global->repository ()->lookup_id (td->repoID ()); this->ir_current_ = CORBA::IDLType::_narrow (contained.in ()); } else { CORBA::PrimitiveKind pkind = this->expr_type_to_pkind (ev->et); this->ir_current_ = be_global->repository ()->get_primitive (pkind); } CORBA::Any any; this->load_any (ev, any); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::ConstantDef_var new_def = current_scope->create_constant ( id, node->local_name ()->get_string (), node->version (), this->ir_current_.in (), any ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_constant -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_constant")); return -1; } return 0; }

int ifr_adding_visitor::visit_enum (  AST_Enum *  node  )  [virtual]

Reimplemented from ifr_visitor. Reimplemented in ifr_adding_visitor_exception, ifr_adding_visitor_structure, and ifr_adding_visitor_union. Definition at line 1655 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), and CORBA::string_dup(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { // Is this enum already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); // If not, create a new entry. if (CORBA::is_nil (prev_def.in ())) { CORBA::ULong member_count = static_cast<CORBA::ULong> (node->member_count ()); CORBA::EnumMemberSeq members (member_count); members.length (member_count); UTL_ScopedName *member_name = 0; // Get a list of the member names. for (CORBA::ULong i = 0; i < member_count; ++i) { member_name = node->value_to_name (i); members[i] = CORBA::string_dup ( member_name->last_component ()->get_string () ); } CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { this->ir_current_ = current_scope->create_enum ( node->repoID (), node->local_name ()->get_string (), node->version (), members ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_enum -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); } else { // If the line below is true, we are clobbering a previous // entry (from another IDL file) of another type. In that // case we do what other ORB vendors do, and destroy the // original entry, create the new one, and let the user beware. if (!node->ifr_added ()) { prev_def->destroy (); return this->visit_enum (node); } // There is already an entry in the repository, so just update // the current IR object holder. this->ir_current_ = CORBA::EnumDef::_narrow (prev_def.in ()); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("ifr_adding_visitor::visit_enum")); return -1; } return 0; }

int ifr_adding_visitor::visit_eventtype (  AST_EventType *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1138 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, create_event_def(), BE_GlobalData::do_included_files(), fill_abstract_base_values(), fill_base_value(), fill_initializers(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), and visit_scope(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); // If not, create a new entry. if (CORBA::is_nil (prev_def.in ())) { int status = this->create_event_def (node); return status; } else { // There is already an entry in the repository. If the interface is // defined and has not already been populated, we do so // now. If it is not yet defined or the full definition has already // been added to the repository, we just update the current IR object // holder. if (node->is_defined () && !node->ifr_added ()) { // If we are here and the line below is true, then either // 1. We are defining an undefined forward declaration // from a previously processed IDL file, or // 2. We are clobbering a previous definition, either of the // node type or of some other type. // If prev_def would narrow successfully to the node type, we // have NO WAY of knowing if we are defining or clobbering. So // we destroy the contents of the previous entry (we don't want // to destroy the entry itself, since it may have already been // made a member of some other entry, and destroying it would // make the containing entry's section key invalid) and repopulate. // On the other hand, if prev_def is NOT the node type, we go // ahead an attempt to create an interface, which will get an // exception from the IFR, as the spec requires. if (!node->ifr_fwd_added ()) { CORBA::DefinitionKind kind = prev_def->def_kind (); if (kind == CORBA::dk_Value) { CORBA::ComponentIR::EventDef_var event = CORBA::ComponentIR::EventDef::_narrow ( prev_def.in () ); CORBA::ContainedSeq_var contents = event->contents (CORBA::dk_all, 1); CORBA::ULong length = contents->length (); for (CORBA::ULong i = 0; i < length; ++i) { contents[i]->destroy (); } } else { prev_def->destroy (); int status = this->create_event_def (node); return status; } } // Our previous definition is a valuetype, so narrow it here, // then populate it. CORBA::ComponentIR::EventDef_var extant_def = CORBA::ComponentIR::EventDef::_narrow (prev_def. in ()); // Concrete base value. CORBA::ValueDef_var base_vt; this->fill_base_value (base_vt.out (), node); extant_def->base_value (base_vt.in ()); // Abstract base values. CORBA::ValueDefSeq abstract_base_values; this->fill_abstract_base_values (abstract_base_values, node); extant_def->abstract_base_values (abstract_base_values); // Supported interfaces. CORBA::InterfaceDefSeq supported; this->fill_supported_interfaces (supported, node); extant_def->supported_interfaces (supported); // Intializers. CORBA::ExtInitializerSeq initializers; this->fill_initializers (initializers, node); extant_def->ext_initializers (initializers); // Truncatable, abstract, custom. extant_def->is_abstract (static_cast<CORBA::Boolean> (node->is_abstract ())); extant_def->is_truncatable (static_cast<CORBA::Boolean> (node->truncatable ())); extant_def->is_custom (static_cast<CORBA::Boolean> (node->custom ())); node->ifr_added (true); // Push the new IR object onto the scope stack before visiting // the new object's scope. if (be_global->ifr_scopes ().push (extant_def.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_eventtype -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_eventtype -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. this->ir_current_ = CORBA::IDLType::_duplicate (extant_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_eventtype -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { // @@ (JP) I think we're ok here without a check: // not defined/not added - visit_valuetype_fwd will have // detected a clobber. // not defined/added - not possible. // defined/not added - takes the other branch. // defined/added - we're ok. this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); } } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_eventtype")); return -1; } return 0; }

int ifr_adding_visitor::visit_eventtype_fwd (  AST_EventTypeFwd *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1337 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } AST_Interface *v = node->full_definition (); try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (v->repoID ()); if (CORBA::is_nil (prev_def.in ())) { // If our full definition is found in this IDL file, we go // ahead and create the full entry now. // The forward declared valuetype is not defined anywhere // in this IDL file, so we just create an empty entry to // be replaced by a full definition in some other IDL file. CORBA::ValueDefSeq abstract_bases (0); abstract_bases.length (0); CORBA::InterfaceDefSeq supported (0); supported.length (0); CORBA::ExtInitializerSeq initializers (0); initializers.length (0); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { CORBA::ComponentIR::Container_var ccm_scope = CORBA::ComponentIR::Container::_narrow ( current_scope ); CORBA::Boolean abstract = static_cast<CORBA::Boolean> (v->is_abstract ()); this->ir_current_ = ccm_scope->create_event ( v->repoID (), v->local_name ()->get_string (), v->version (), 0, // 'custom' not handled yet abstract, CORBA::ValueDef::_nil (), 0, // 'truncatable' not handled yet abstract_bases, supported, initializers ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_eventtype_fwd -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); v->ifr_fwd_added (true); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_eventtype_fwd")); return -1; } return 0; }

int ifr_adding_visitor::visit_exception (  AST_Exception *  node  )  [virtual]

Reimplemented from ifr_visitor. Reimplemented in ifr_adding_visitor_exception. Definition at line 1638 of file ifr_adding_visitor.cpp. References be_global, BE_GlobalData::do_included_files(), and ifr_adding_visitor_exception::visit_exception(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } ifr_adding_visitor_exception visitor (node, this->in_reopened_); // No point in updating ir_current_ here because // ExceptionDef is not an IDLType. return visitor.visit_exception (node); }

int ifr_adding_visitor::visit_factory (  AST_Factory *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1524 of file ifr_adding_visitor.cpp. { return 0; }

int ifr_adding_visitor::visit_field (  AST_Field *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1754 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), create_value_member(), and LM_ERROR. { AST_Decl *scope = ScopeAsDecl (node->defined_in ()); AST_Decl::NodeType nt = scope->node_type (); if (nt == AST_Decl::NT_valuetype || nt == AST_Decl::NT_eventtype) { return this->create_value_member (node); } AST_Type *ft = AST_Type::narrow_from_decl (node->field_type ()); if (ft == 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_field - ") ACE_TEXT ("Bad field type\n") ), -1 ); } if (ft->ast_accept (this) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_field - ") ACE_TEXT ("failed to accept visitor\n") ), -1 ); } return 0; }

int ifr_adding_visitor::visit_home (  AST_Home *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1420 of file ifr_adding_visitor.cpp. References ACE_TEXT(), be_global, create_home_def(), BE_GlobalData::do_included_files(), ir_current_, CORBA::is_nil(), and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); // If not, create a new entry. if (CORBA::is_nil (prev_def.in ())) { int status = this->create_home_def (node); return status; } else { // There is already an entry in the repository. If the interface is // defined and has not already been populated, we do so // now. If it is not yet defined or the full definition has already // been added to the repository, we just update the current IR object // holder. if (node->is_defined () && !node->ifr_added ()) { // If we are here and the line below is true, then either // 1. We are defining an undefined forward declaration // from a previously processed IDL file, or // 2. We are clobbering a previous definition, either of the // node type or of some other type. // If prev_def would narrow successfully to the node type, we // have NO WAY of knowing if we are defining or clobbering. So // we destroy the contents of the previous entry (we don't want // to destroy the entry itself, since it may have already been // made a member of some other entry, and destroying it would // make the containing entry's section key invalid) and repopulate. // On the other hand, if prev_def is NOT the node type, we go // ahead an attempt to create an interface, which will get an // exception from the IFR, as the spec requires. if (!node->ifr_fwd_added ()) { CORBA::DefinitionKind kind = prev_def->def_kind (); if (kind == CORBA::dk_Component) { CORBA::ComponentIR::HomeDef_var value = CORBA::ComponentIR::HomeDef::_narrow ( prev_def.in () ); CORBA::ContainedSeq_var contents = value->contents (CORBA::dk_all, 1); CORBA::ULong length = contents->length (); for (CORBA::ULong i = 0; i < length; ++i) { contents[i]->destroy (); } } else { prev_def->destroy (); int status = this->create_home_def (node); return status; } } // Re-populate the repository entry. } else { // @@ (JP) I think we're ok here without a check: // not defined/not added - visit_interface_fwd will have // detected a clobber. // not defined/added - not possible. // defined/not added - takes the other branch. // defined/added - we're ok. this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); } } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_home")); return -1; } return 0; }

int ifr_adding_visitor::visit_interface (  AST_Interface *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 247 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, create_interface_def(), BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), and visit_scope(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); // If not, create a new entry. if (CORBA::is_nil (prev_def.in ())) { int status = this->create_interface_def (node); return status; } else { // There is already an entry in the repository. If the interface is // defined and has not already been populated, we do so // now. If it is not yet defined or the full definition has already // been added to the repository, we just update the current IR object // holder. if (node->is_defined () && !node->ifr_added ()) { // If we are here and the line below is true, then either // 1. We are defining an undefined forward declaration // from a previously processed IDL file, or // 2. We are clobbering a previous definition, either of the // node type or of some other type. // If prev_def would narrow successfully to the node type, we // have NO WAY of knowing if we are defining or clobbering. So // we destroy the contents of the previous entry (we don't want // to destroy the entry itself, since it may have already been // made a member of some other entry, and destroying it would // make the containing entry's section key invalid) and repopulate. // On the other hand, if prev_def is NOT the node type, we go // ahead an attempt to create an interface, which will get an // exception from the IFR, as the spec requires. if (!node->ifr_fwd_added ()) { CORBA::DefinitionKind kind = prev_def->def_kind (); if (kind == CORBA::dk_Interface) { CORBA::InterfaceDef_var iface = CORBA::InterfaceDef::_narrow (prev_def.in ()); CORBA::ContainedSeq_var contents = iface->contents (CORBA::dk_all, true); for (CORBA::ULong i = 0; i < contents->length (); ++i) { contents[i]->destroy (); } } else { // This will cause the IFR to throw an exception, // as it should. return this->create_interface_def (node); } } CORBA::ULong n_parents = static_cast<CORBA::ULong> (node->n_inherits ()); CORBA::InterfaceDefSeq bases (n_parents); bases.length (n_parents); CORBA::Contained_var result; AST_Interface **parents = node->inherits (); // Construct a list of the parents. for (CORBA::ULong i = 0; i < n_parents; ++i) { result = be_global->repository ()->lookup_id (parents[i]->repoID ()); // If one of our interface's parents is not in the repository, // that means that it has not yet been seen (even as a // forward declaration) in the IDL file, and we will have to // postpone the populating of our interface until they are all // added. if (CORBA::is_nil (result.in ())) { this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); return 0; } bases[i] = CORBA::InterfaceDef::_narrow (result.in ()); if (CORBA::is_nil (bases[i])) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_interface -") ACE_TEXT (" CORBA::InterfaceDef::_narrow failed\n") ), -1 ); } } CORBA::InterfaceDef_var extant_def = CORBA::InterfaceDef::_narrow (prev_def. in ()); extant_def->base_interfaces (bases); node->ifr_added (true); // Push the new IR object onto the scope stack. if (be_global->ifr_scopes ().push (extant_def.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_interface -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_interface -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. this->ir_current_ = CORBA::IDLType::_duplicate (extant_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_interface -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { // @@ (JP) I think we're ok here without a check: // not defined/not added - visit_interface_fwd will have // detected a clobber. // not defined/added - not possible. // defined/not added - takes the other branch. // defined/added - we're ok. this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); } } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_interface")); return -1; } return 0; }

int ifr_adding_visitor::visit_interface_fwd (  AST_InterfaceFwd *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 439 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } AST_Interface *i = node->full_definition (); try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (i->repoID ()); if (CORBA::is_nil (prev_def.in ())) { // If our full definition is found in this IDL file, we go // ahead and create the full entry now. // The forward declared interface is not defined anywhere // in this IDL file, so we just create an empty entry to // be replaced by a full definition in some other IDL file. CORBA::InterfaceDefSeq bases (0); bases.length (0); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { if (i->is_local ()) { this->ir_current_ = current_scope->create_local_interface ( i->repoID (), i->local_name ()->get_string (), i->version (), bases ); } else { this->ir_current_ = current_scope->create_interface ( i->repoID (), i->local_name ()->get_string (), i->version (), bases ); } } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_interface_fwd -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); i->ifr_fwd_added (true); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_interface_fwd")); return -1; } return 0; }

int ifr_adding_visitor::visit_module (  AST_Module *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 138 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), in_reopened_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), and visit_scope(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } CORBA::Container_var new_def; try { // If this module been opened before, it will already be in // the repository. CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); if (CORBA::is_nil (prev_def.in ())) { // New module. CORBA::Container_ptr container = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (container) == 0) { new_def = container->create_module ( node->repoID (), node->local_name ()->get_string (), node->version () ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_module -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } } else { CORBA::DefinitionKind kind = prev_def->def_kind (); if (kind == CORBA::dk_Module) { // We are either in a reopened module, are processing an IDL // IDL file for the second time, or are in a module whose // name already exists by coincidence - there is no way to // tell the difference. So any members whose repository ID // already exists in this case will throw BAD_PARAM // when we attempt to add them to the repository. this->in_reopened_ = true; new_def = CORBA::ComponentIR::Container::_narrow (prev_def.in ()); } } if (be_global->ifr_scopes ().push (new_def.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_module -") ACE_TEXT (" scope push failed\n") ), -1 ); } if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_module -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } this->in_reopened_ = false; CORBA::Container_ptr tmp = CORBA::Container::_nil (); if (be_global->ifr_scopes ().pop (tmp) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_module -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_module")); return -1; } return 0; }

int ifr_adding_visitor::visit_native (  AST_Native *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 2258 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); if (CORBA::is_nil (prev_def.in ())) { CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { this->ir_current_ = current_scope->create_native ( node->repoID (), node->local_name ()->get_string (), node->version () ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_native -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); } else { // If the line below is true, we are clobbering a previous // entry (from another IDL file) of another type. In that // case we do what other ORB vendors do, and destroy the // original entry, create the new one, and let the user beware. if (!node->ifr_added ()) { prev_def->destroy (); // This call will take the other branch. return this->visit_native (node); } this->ir_current_ = CORBA::NativeDef::_narrow (prev_def.in ()); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_native")); return -1; } return 0; }

int ifr_adding_visitor::visit_operation (  AST_Operation *  node  )  [virtual]

Reimplemented from ifr_visitor. Reimplemented in ifr_adding_visitor_operation. Definition at line 1746 of file ifr_adding_visitor.cpp. References ifr_adding_visitor_operation::visit_operation(). { ifr_adding_visitor_operation visitor (node); return visitor.visit_operation (node); }

int ifr_adding_visitor::visit_predefined_type (  AST_PredefinedType *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 118 of file ifr_adding_visitor.cpp. References ACE_TEXT(), be_global, ir_current_, and BE_GlobalData::repository(). { try { this->ir_current_ = be_global->repository ()->get_primitive ( this->predefined_type_to_pkind (node) ); } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_predefined_type")); return -1; } return 0; }

int ifr_adding_visitor::visit_root (  AST_Root *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 2216 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::ifr_scopes(), LM_ERROR, BE_GlobalData::repository(), and visit_scope(). { if (be_global->ifr_scopes ().push (be_global->repository ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_root -") ACE_TEXT (" scope push failed\n") ), -1 ); } if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_root -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } CORBA::Container_ptr tmp = CORBA::Container::_nil (); if (be_global->ifr_scopes ().pop (tmp) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_root -") ACE_TEXT (" scope pop failed\n") ), -1 ); } return 0; }

int ifr_adding_visitor::visit_scope (  UTL_Scope *  node  )  [virtual]

Reimplemented from ifr_visitor. Reimplemented in ifr_adding_visitor_exception, ifr_adding_visitor_structure, and ifr_adding_visitor_union. Definition at line 64 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), and LM_ERROR. Referenced by create_component_def(), create_event_def(), create_home_def(), create_interface_def(), create_value_def(), visit_component(), visit_eventtype(), visit_interface(), visit_module(), ifr_adding_visitor_operation::visit_operation(), visit_root(), ifr_adding_visitor_union::visit_scope(), ifr_adding_visitor_structure::visit_scope(), ifr_adding_visitor_exception::visit_scope(), and visit_valuetype(). { // Proceed if the number of members in our scope is greater than 0. if (node->nmembers () > 0) { // Initialize an iterator to iterate over our scope. UTL_ScopeActiveIterator si (node, UTL_Scope::IK_decls); AST_Decl *d = 0; // Continue until each element is visited. while (!si.is_done ()) { d = si.item (); if (d == 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_scope -") ACE_TEXT (" bad node in this scope\n") ), -1 ); } // These are created at startup in the repository, and // need not be dealt with here. if (d->node_type () == AST_Decl::NT_pre_defined) { si.next (); continue; } if (d->ast_accept (this) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_scope -") ACE_TEXT (" failed to accept visitor\n") ), -1 ); } si.next (); } } return 0; }

int ifr_adding_visitor::visit_sequence (  AST_Sequence *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 2112 of file ifr_adding_visitor.cpp. References ACE_TEXT(), be_global, element_type(), ir_current_, and BE_GlobalData::repository(). { try { this->element_type (node->base_type ()); this->ir_current_ = be_global->repository ()->create_sequence ( node->max_size ()->ev ()->u.ulval, this->ir_current_.in () ); } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_sequence")); return -1; } return 0; }

int ifr_adding_visitor::visit_string (  AST_String *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 2135 of file ifr_adding_visitor.cpp. References ACE_TEXT(), be_global, ir_current_, and BE_GlobalData::repository(). { AST_Expression *ex = node->max_size (); AST_Expression::AST_ExprValue *ev = ex->ev (); CORBA::ULong bound = static_cast<CORBA::ULong> (ev->u.ulval); try { if (node->node_type () == AST_Decl::NT_string) { this->ir_current_ = be_global->repository ()->create_string (bound); } else { this->ir_current_ = be_global->repository ()->create_wstring (bound); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_string")); return -1; } return 0; }

int ifr_adding_visitor::visit_structure (  AST_Structure *  node  )  [virtual]

Reimplemented from ifr_visitor. Reimplemented in ifr_adding_visitor_exception, ifr_adding_visitor_structure, and ifr_adding_visitor_union. Definition at line 1530 of file ifr_adding_visitor.cpp. References ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), ifr_adding_visitor_structure::ir_current(), ir_current_, CORBA::is_nil(), BE_GlobalData::repository(), and ifr_adding_visitor_structure::visit_structure(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); if (CORBA::is_nil (prev_def.in ())) { ifr_adding_visitor_structure visitor (node, false); int retval = visitor.visit_structure (node); if (retval == 0) { this->ir_current_ = CORBA::IDLType::_duplicate (visitor.ir_current ()); } return retval; } else { // If the line below is true, we are clobbering a previous // entry (from another IDL file) of another type. In that // case we do what other ORB vendors do, and destroy the // original entry, create the new one, and let the user beware. if (!node->ifr_added ()) { prev_def->destroy (); return this->visit_structure (node); } this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception ( ACE_TEXT ( "ifr_adding_visitor::visit_structure")); return -1; } return 0; }

int ifr_adding_visitor::visit_structure_fwd (  AST_StructureFwd *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1585 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), CORBA::is_nil(), LM_ERROR, and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); if (CORBA::is_nil (prev_def.in ())) { CORBA::StructMemberSeq dummyMembers; dummyMembers.length (0); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_structure_fwd -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } CORBA::StructDef_var struct_def = current_scope->create_struct ( node->repoID (), node->local_name ()->get_string (), node->version (), dummyMembers ); node->full_definition ()->ifr_fwd_added (true); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("ifr_adding_visitor::") ACE_TEXT ("visit_structure_fwd")); return -1; } return 0; }

int ifr_adding_visitor::visit_typedef (  AST_Typedef *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 2168 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), element_type(), BE_GlobalData::ifr_scopes(), ir_current_, and LM_ERROR. { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { this->element_type (node->base_type (), node->owns_base_type ()); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { this->ir_current_ = current_scope->create_alias ( node->repoID (), node->local_name ()->get_string (), node->version (), this->ir_current_.in () ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_typedef -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_typedef")); return -1; } return 0; }

int ifr_adding_visitor::visit_union (  AST_Union *  node  )  [virtual]

Reimplemented from ifr_visitor. Reimplemented in ifr_adding_visitor_exception, ifr_adding_visitor_structure, and ifr_adding_visitor_union. Definition at line 1879 of file ifr_adding_visitor.cpp. References ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), ifr_adding_visitor_union::ir_current(), ir_current_, CORBA::is_nil(), BE_GlobalData::repository(), and ifr_adding_visitor_union::visit_union(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); if (CORBA::is_nil (prev_def.in ())) { ifr_adding_visitor_union visitor (node, 0); int retval = visitor.visit_union (node); if (retval == 0) { this->ir_current_ = CORBA::IDLType::_duplicate (visitor.ir_current ()); } return retval; } else { // If the line below is true, we are clobbering a previous // entry (from another IDL file) of another type. In that // case we do what other ORB vendors do, and destroy the // original entry, create the new one, and let the user beware. if (!node->ifr_added ()) { prev_def->destroy (); return this->visit_union (node); } this->ir_current_ = CORBA::UnionDef::_narrow (prev_def.in ()); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("ifr_adding_visitor::visit_union")); return -1; } return 0; }

int ifr_adding_visitor::visit_union_fwd (  AST_UnionFwd *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 1934 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), CORBA::is_nil(), LM_ERROR, and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); if (CORBA::is_nil (prev_def.in ())) { CORBA::UnionMemberSeq dummyMembers; dummyMembers.length (0); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_union_fwd -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } CORBA::UnionDef_var union_def = current_scope->create_union ( node->repoID (), node->local_name ()->get_string (), node->version (), CORBA::IDLType::_nil (), dummyMembers ); node->full_definition ()->ifr_fwd_added (true); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("ifr_adding_visitor::") ACE_TEXT ("visit_union_fwd")); return -1; } return 0; }

int ifr_adding_visitor::visit_valuebox (  AST_ValueBox *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 519 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), element_type(), BE_GlobalData::ifr_scopes(), ir_current_, and LM_ERROR. { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { this->element_type (node->boxed_type ()); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); if (be_global->ifr_scopes ().top (current_scope) == 0) { this->ir_current_ = current_scope->create_value_box ( node->repoID (), node->local_name ()->get_string (), node->version (), this->ir_current_.in () ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::visit_valuebox -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_valuebox")); return -1; } return 0; }

int ifr_adding_visitor::visit_valuetype (  AST_ValueType *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 567 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, create_value_def(), BE_GlobalData::do_included_files(), fill_abstract_base_values(), fill_base_value(), fill_initializers(), fill_supported_interfaces(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, BE_GlobalData::repository(), and visit_scope(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (node->repoID ()); // If not, create a new entry. if (CORBA::is_nil (prev_def.in ())) { int status = this->create_value_def (node); return status; } else { // There is already an entry in the repository. If the interface is // defined and has not already been populated, we do so // now. If it is not yet defined or the full definition has already // been added to the repository, we just update the current IR object // holder. if (node->is_defined () && !node->ifr_added ()) { // If we are here and the line below is true, then either // 1. We are defining an undefined forward declaration // from a previously processed IDL file, or // 2. We are clobbering a previous definition, either of the // node type or of some other type. // If prev_def would narrow successfully to the node type, we // have NO WAY of knowing if we are defining or clobbering. So // we destroy the contents of the previous entry (we don't want // to destroy the entry itself, since it may have already been // made a member of some other entry, and destroying it would // make the containing entry's section key invalid) and repopulate. // On the other hand, if prev_def is NOT the node type, we go // ahead an attempt to create an interface, which will get an // exception from the IFR, as the spec requires. if (!node->ifr_fwd_added ()) { CORBA::DefinitionKind kind = prev_def->def_kind (); if (kind == CORBA::dk_Value) { CORBA::ValueDef_var value = CORBA::ValueDef::_narrow (prev_def.in ()); CORBA::ContainedSeq_var contents = value->contents (CORBA::dk_all, 1); CORBA::ULong length = contents->length (); for (CORBA::ULong i = 0; i < length; ++i) { contents[i]->destroy (); } } else { prev_def->destroy (); int status = this->create_value_def (node); return status; } } // Our previous definition is a valuetype, so narrow it here, // then populate it. CORBA::ExtValueDef_var extant_def = CORBA::ExtValueDef::_narrow (prev_def. in ()); // Concrete base value. CORBA::ValueDef_var base_vt; this->fill_base_value (base_vt.out (), node); extant_def->base_value (base_vt.in ()); // Abstract base values. CORBA::ValueDefSeq abstract_base_values; this->fill_abstract_base_values (abstract_base_values, node); extant_def->abstract_base_values (abstract_base_values); // Supported interfaces. CORBA::InterfaceDefSeq supported; this->fill_supported_interfaces (supported, node); extant_def->supported_interfaces (supported); // Intializers. CORBA::ExtInitializerSeq initializers; this->fill_initializers (initializers, node); extant_def->ext_initializers (initializers); // Truncatable, abstract, custom. extant_def->is_abstract (static_cast<CORBA::Boolean> (node->is_abstract ())); extant_def->is_truncatable (static_cast<CORBA::Boolean> (node->truncatable ())); extant_def->is_custom (static_cast<CORBA::Boolean> (node->custom ())); node->ifr_added (true); // Push the new IR object onto the scope stack before visiting // the new object's scope. if (be_global->ifr_scopes ().push (extant_def.in ()) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_valuetype -") ACE_TEXT (" scope push failed\n") ), -1 ); } // Visit the members, if any. if (this->visit_scope (node) == -1) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_valuetype -") ACE_TEXT (" visit_scope failed\n") ), -1 ); } // This spot in the AST doesn't necessarily have to be the // interface definition - it could be any reference to it. // The front end will already have fully defined it, so all // the info is available anywhere. So it's a good idea to // update the current IR object holder now. this->ir_current_ = CORBA::IDLType::_duplicate (extant_def.in ()); CORBA::Container_ptr used_scope = CORBA::Container::_nil (); // Pop the new IR object back off the scope stack. if (be_global->ifr_scopes ().pop (used_scope) != 0) { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_valuetype -") ACE_TEXT (" scope pop failed\n") ), -1 ); } } else { // @@ (JP) I think we're ok here without a check: // not defined/not added - visit_valuetype_fwd will have // detected a clobber. // not defined/added - not possible. // defined/not added - takes the other branch. // defined/added - we're ok. this->ir_current_ = CORBA::IDLType::_narrow (prev_def.in ()); } } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_valuetype")); return -1; } return 0; }

int ifr_adding_visitor::visit_valuetype_fwd (  AST_ValueTypeFwd *  node  )  [virtual]

Reimplemented from ifr_visitor. Definition at line 764 of file ifr_adding_visitor.cpp. References ACE_ERROR_RETURN, ACE_TEXT(), be_global, BE_GlobalData::do_included_files(), BE_GlobalData::ifr_scopes(), ir_current_, CORBA::is_nil(), LM_ERROR, and BE_GlobalData::repository(). { if (node->imported () && !be_global->do_included_files ()) { return 0; } AST_Interface *v = node->full_definition (); try { // Is this interface already in the respository? CORBA::Contained_var prev_def = be_global->repository ()->lookup_id (v->repoID ()); if (CORBA::is_nil (prev_def.in ())) { // If our full definition is found in this IDL file, we go // ahead and create the full entry now. // The forward declared valuetype is not defined anywhere // in this IDL file, so we just create an empty entry to // be replaced by a full definition in some other IDL file. CORBA::ValueDefSeq abstract_bases (0); abstract_bases.length (0); CORBA::InterfaceDefSeq supported (0); supported.length (0); CORBA::InitializerSeq initializers (0); initializers.length (0); CORBA::Container_ptr current_scope = CORBA::Container::_nil (); CORBA::Boolean abstract = static_cast<CORBA::Boolean> (v->is_abstract ()); if (be_global->ifr_scopes ().top (current_scope) == 0) { this->ir_current_ = current_scope->create_value ( v->repoID (), v->local_name ()->get_string (), v->version (), 0, // 'custom' not handled yet abstract, CORBA::ValueDef::_nil (), 0, // 'truncatable' not handled yet abstract_bases, supported, initializers ); } else { ACE_ERROR_RETURN (( LM_ERROR, ACE_TEXT ("(%N:%l) ifr_adding_visitor::") ACE_TEXT ("visit_valuetype_fwd -") ACE_TEXT (" scope stack is empty\n") ), -1 ); } node->ifr_added (true); v->ifr_fwd_added (true); } } catch (const CORBA::Exception& ex) { ex._tao_print_exception (ACE_TEXT ("visit_valuetype_fwd")); return -1; } return 0; }

---

Member Data Documentation

bool ifr_adding_visitor::in_reopened_ [protected]

Definition at line 194 of file ifr_adding_visitor.h. Referenced by visit_module().

CORBA::IDLType_var ifr_adding_visitor::ir_current_ [protected]

Definition at line 185 of file ifr_adding_visitor.h. Referenced by create_component_def(), create_event_def(), create_home_def(), create_interface_def(), create_value_def(), create_value_member(), element_type(), get_referenced_type(), visit_array(), visit_attribute(), visit_component(), visit_component_fwd(), visit_constant(), visit_enum(), visit_eventtype(), visit_eventtype_fwd(), visit_home(), visit_interface(), visit_interface_fwd(), visit_native(), visit_predefined_type(), visit_sequence(), visit_string(), visit_structure(), visit_typedef(), visit_union(), visit_valuebox(), visit_valuetype(), and visit_valuetype_fwd().

AST_Decl* ifr_adding_visitor::scope_ [protected]

Definition at line 191 of file ifr_adding_visitor.h.

---

The documentation for this class was generated from the following files:

• ifr_adding_visitor.h
• ifr_adding_visitor.cpp

---