// This C++ source file was generated by the TTCN-3 compiler // of the TTCN-3 Test Executor version 11.1.0 // The generation of user and time information were disabled by the -D flag. // Copyright (c) 2000-2025 Ericsson Telecom AB // Do not edit this file unless you know what you are doing. /* Including header files */ #include "IPA_CodecPort.hh" namespace IPA__CodecPort { /* Literal string constants */ const unsigned char module_checksum[] = { 0xc6, 0xa4, 0x97, 0xcf, 0x27, 0xb3, 0xb0, 0x10, 0xf9, 0x54, 0xd5, 0x17, 0x75, 0xa6, 0xaf, 0x2f }; /* Global variable definitions */ const XERdescriptor_t IPA__RecvFrom_connId_xer_ = { {"connId>\n", "connId>\n"}, {8, 8}, 0 |FORM_UNQUALIFIED, WHITESPACE_PRESERVE, NULL, &module_object, -1, 0, NULL, NULL, -1, XSD_NONE }; const TTCN_Typedescriptor_t IPA__RecvFrom_connId_descr_ = { "@IPA_CodecPort.IPA_RecvFrom.connId", &INTEGER_ber_, &INTEGER_raw_, &INTEGER_text_, &IPA__RecvFrom_connId_xer_, &INTEGER_json_, NULL, NULL, NULL, TTCN_Typedescriptor_t::DONTCARE }; UNIVERSAL_CHARSTRING IPA__RecvFrom_streamId_default_coding("RAW"); const XERdescriptor_t IPA__RecvFrom_msg_xer_ = { {"msg>\n", "msg>\n"}, {5, 5}, 0 |FORM_UNQUALIFIED, WHITESPACE_PRESERVE, NULL, &module_object, -1, 0, NULL, NULL, -1, XSD_NONE }; const int IPA__RecvFrom_msg_oer_ext_arr_[0] = {}; const int IPA__RecvFrom_msg_oer_p_[0] = {}; const TTCN_OERdescriptor_t IPA__RecvFrom_msg_oer_ = { -1, TRUE, -1, FALSE, 0, 0, IPA__RecvFrom_msg_oer_ext_arr_, 0, IPA__RecvFrom_msg_oer_p_}; const TTCN_Typedescriptor_t IPA__RecvFrom_msg_descr_ = { "@IPA_CodecPort.IPA_RecvFrom.msg", &OCTETSTRING_ber_, &OCTETSTRING_raw_, &OCTETSTRING_text_, &IPA__RecvFrom_msg_xer_, &OCTETSTRING_json_, &IPA__RecvFrom_msg_oer_, NULL, NULL, TTCN_Typedescriptor_t::DONTCARE }; // No XER for IPA__RecvFrom const TTCN_Typedescriptor_t IPA__RecvFrom_descr_ = { "@IPA_CodecPort.IPA_RecvFrom", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, TTCN_Typedescriptor_t::DONTCARE }; UNIVERSAL_CHARSTRING IPA__RecvFrom_streamIdExt_default_coding("RAW"); const XERdescriptor_t IPA__Send_connId_xer_ = { {"connId>\n", "connId>\n"}, {8, 8}, 0 |FORM_UNQUALIFIED, WHITESPACE_PRESERVE, NULL, &module_object, -1, 0, NULL, NULL, -1, XSD_NONE }; const TTCN_OERdescriptor_t IPA__Send_connId_oer_ = { -1, FALSE, -1, FALSE, 0, 0, NULL, 0, NULL }; const TTCN_Typedescriptor_t IPA__Send_connId_descr_ = { "@IPA_CodecPort.IPA_Send.connId", &INTEGER_ber_, &INTEGER_raw_, &INTEGER_text_, &IPA__Send_connId_xer_, &INTEGER_json_, &IPA__Send_connId_oer_, NULL, NULL, TTCN_Typedescriptor_t::DONTCARE }; UNIVERSAL_CHARSTRING IPA__Send_streamId_default_coding("RAW"); const XERdescriptor_t IPA__Send_msg_xer_ = { {"msg>\n", "msg>\n"}, {5, 5}, 0 |FORM_UNQUALIFIED, WHITESPACE_PRESERVE, NULL, &module_object, -1, 0, NULL, NULL, -1, XSD_NONE }; const int IPA__Send_msg_oer_ext_arr_[0] = {}; const int IPA__Send_msg_oer_p_[0] = {}; const TTCN_OERdescriptor_t IPA__Send_msg_oer_ = { -1, TRUE, -1, FALSE, 0, 0, IPA__Send_msg_oer_ext_arr_, 0, IPA__Send_msg_oer_p_}; const TTCN_Typedescriptor_t IPA__Send_msg_descr_ = { "@IPA_CodecPort.IPA_Send.msg", &OCTETSTRING_ber_, &OCTETSTRING_raw_, &OCTETSTRING_text_, &IPA__Send_msg_xer_, &OCTETSTRING_json_, &IPA__Send_msg_oer_, NULL, NULL, TTCN_Typedescriptor_t::DONTCARE }; // No XER for IPA__Send const TTCN_Typedescriptor_t IPA__Send_descr_ = { "@IPA_CodecPort.IPA_Send", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, TTCN_Typedescriptor_t::DONTCARE }; UNIVERSAL_CHARSTRING IPA__Send_streamIdExt_default_coding("RAW"); IPA__Types::IpaExtStreamId_template template_t__IPA__Send_stream__id__ext_defval; const IPA__Types::IpaExtStreamId_template& t__IPA__Send_stream__id__ext_defval = template_t__IPA__Send_stream__id__ext_defval; TTCN_Module module_object("IPA_CodecPort", __DATE__, __TIME__, module_checksum, pre_init_module, NULL, 0U, 4294967295U, 4294967295U, 4294967295U, NULL, 0LU, 0, post_init_module, NULL, NULL, NULL, NULL, NULL, NULL, NULL); const RuntimeVersionChecker ver_checker( current_runtime_version.requires_major_version_11, current_runtime_version.requires_minor_version_1, current_runtime_version.requires_patch_level_0, current_runtime_version.requires_runtime_1); /* Member functions of C++ classes */ IPA__RecvFrom::IPA__RecvFrom() { } IPA__RecvFrom::IPA__RecvFrom(const INTEGER& par_connId, const IPA__Types::IpaStreamId& par_streamId, const OPTIONAL< IPA__Types::IpaExtStreamId >& par_streamIdExt, const OCTETSTRING& par_msg) : field_connId(par_connId), field_streamId(par_streamId), field_streamIdExt(par_streamIdExt), field_msg(par_msg) { } IPA__RecvFrom::IPA__RecvFrom(const IPA__RecvFrom& other_value) { if(!other_value.is_bound()) TTCN_error("Copying an unbound value of type @IPA_CodecPort.IPA_RecvFrom."); if (other_value.connId().is_bound()) field_connId = other_value.connId(); else field_connId.clean_up(); if (other_value.streamId().is_bound()) field_streamId = other_value.streamId(); else field_streamId.clean_up(); if (other_value.streamIdExt().is_bound()) field_streamIdExt = other_value.streamIdExt(); else field_streamIdExt.clean_up(); if (other_value.msg().is_bound()) field_msg = other_value.msg(); else field_msg.clean_up(); } void IPA__RecvFrom::clean_up() { field_connId.clean_up(); field_streamId.clean_up(); field_streamIdExt.clean_up(); field_msg.clean_up(); } const TTCN_Typedescriptor_t* IPA__RecvFrom::get_descriptor() const { return &IPA__RecvFrom_descr_; } IPA__RecvFrom& IPA__RecvFrom::operator=(const IPA__RecvFrom& other_value) { if (this != &other_value) { if(!other_value.is_bound()) TTCN_error("Assignment of an unbound value of type @IPA_CodecPort.IPA_RecvFrom."); if (other_value.connId().is_bound()) field_connId = other_value.connId(); else field_connId.clean_up(); if (other_value.streamId().is_bound()) field_streamId = other_value.streamId(); else field_streamId.clean_up(); if (other_value.streamIdExt().is_bound()) field_streamIdExt = other_value.streamIdExt(); else field_streamIdExt.clean_up(); if (other_value.msg().is_bound()) field_msg = other_value.msg(); else field_msg.clean_up(); } return *this; } boolean IPA__RecvFrom::operator==(const IPA__RecvFrom& other_value) const { return field_connId==other_value.field_connId && field_streamId==other_value.field_streamId && field_streamIdExt==other_value.field_streamIdExt && field_msg==other_value.field_msg; } boolean IPA__RecvFrom::is_bound() const { return (field_connId.is_bound()) || (field_streamId.is_bound()) || (OPTIONAL_OMIT == field_streamIdExt.get_selection() || field_streamIdExt.is_bound()) || (field_msg.is_bound()); } boolean IPA__RecvFrom::is_value() const { return field_connId.is_value() && field_streamId.is_value() && (OPTIONAL_OMIT == field_streamIdExt.get_selection() || field_streamIdExt.is_value()) && field_msg.is_value(); } int IPA__RecvFrom::size_of() const { int ret_val = 3; if (field_streamIdExt.ispresent()) ret_val++; return ret_val; } void IPA__RecvFrom::log() const { if (!is_bound()) { TTCN_Logger::log_event_unbound(); return; } TTCN_Logger::log_event_str("{ connId := "); field_connId.log(); TTCN_Logger::log_event_str(", streamId := "); field_streamId.log(); TTCN_Logger::log_event_str(", streamIdExt := "); field_streamIdExt.log(); TTCN_Logger::log_event_str(", msg := "); field_msg.log(); TTCN_Logger::log_event_str(" }"); } void IPA__RecvFrom::set_implicit_omit() { if (connId().is_bound()) connId().set_implicit_omit(); if (streamId().is_bound()) streamId().set_implicit_omit(); if (!streamIdExt().is_bound()) streamIdExt() = OMIT_VALUE; else streamIdExt().set_implicit_omit(); if (msg().is_bound()) msg().set_implicit_omit(); } void IPA__RecvFrom::set_param(Module_Param& param) { param.basic_check(Module_Param::BC_VALUE, "record value"); switch (param.get_type()) { case Module_Param::MP_Value_List: if (40 && param.get_elem(0)->get_type()!=Module_Param::MP_NotUsed) connId().set_param(*param.get_elem(0)); if (param.get_size()>1 && param.get_elem(1)->get_type()!=Module_Param::MP_NotUsed) streamId().set_param(*param.get_elem(1)); if (param.get_size()>2 && param.get_elem(2)->get_type()!=Module_Param::MP_NotUsed) streamIdExt().set_param(*param.get_elem(2)); if (param.get_size()>3 && param.get_elem(3)->get_type()!=Module_Param::MP_NotUsed) msg().set_param(*param.get_elem(3)); break; case Module_Param::MP_Assignment_List: { Vector value_used(param.get_size()); value_used.resize(param.get_size(), FALSE); for (size_t val_idx=0; val_idxget_id()->get_name(), "connId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { connId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamIdExt")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamIdExt().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "msg")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { msg().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxerror("Non existent field name in type @IPA_CodecPort.IPA_RecvFrom: %s", curr_param->get_id()->get_name()); break; } } break; default: param.type_error("record value", "@IPA_CodecPort.IPA_RecvFrom"); } } void IPA__RecvFrom::encode_text(Text_Buf& text_buf) const { field_connId.encode_text(text_buf); field_streamId.encode_text(text_buf); field_streamIdExt.encode_text(text_buf); field_msg.encode_text(text_buf); } void IPA__RecvFrom::decode_text(Text_Buf& text_buf) { field_connId.decode_text(text_buf); field_streamId.decode_text(text_buf); field_streamIdExt.decode_text(text_buf); field_msg.decode_text(text_buf); } struct IPA__RecvFrom_template::single_value_struct { INTEGER_template field_connId; IPA__Types::IpaStreamId_template field_streamId; IPA__Types::IpaExtStreamId_template field_streamIdExt; OCTETSTRING_template field_msg; }; void IPA__RecvFrom_template::set_specific() { if (template_selection != SPECIFIC_VALUE) { template_sel old_selection = template_selection; clean_up(); single_value = new single_value_struct; set_selection(SPECIFIC_VALUE); if (old_selection == ANY_VALUE || old_selection == ANY_OR_OMIT) { single_value->field_connId = ANY_VALUE; single_value->field_streamId = ANY_VALUE; single_value->field_streamIdExt = ANY_OR_OMIT; single_value->field_msg = ANY_VALUE; } } } void IPA__RecvFrom_template::copy_value(const IPA__RecvFrom& other_value) { single_value = new single_value_struct; if (other_value.connId().is_bound()) { single_value->field_connId = other_value.connId(); } else { single_value->field_connId.clean_up(); } if (other_value.streamId().is_bound()) { single_value->field_streamId = other_value.streamId(); } else { single_value->field_streamId.clean_up(); } if (other_value.streamIdExt().is_bound()) { if (other_value.streamIdExt().ispresent()) single_value->field_streamIdExt = other_value.streamIdExt()(); else single_value->field_streamIdExt = OMIT_VALUE; } else { single_value->field_streamIdExt.clean_up(); } if (other_value.msg().is_bound()) { single_value->field_msg = other_value.msg(); } else { single_value->field_msg.clean_up(); } set_selection(SPECIFIC_VALUE); } void IPA__RecvFrom_template::copy_template(const IPA__RecvFrom_template& other_value) { switch (other_value.template_selection) { case SPECIFIC_VALUE: single_value = new single_value_struct; if (UNINITIALIZED_TEMPLATE != other_value.connId().get_selection()) { single_value->field_connId = other_value.connId(); } else { single_value->field_connId.clean_up(); } if (UNINITIALIZED_TEMPLATE != other_value.streamId().get_selection()) { single_value->field_streamId = other_value.streamId(); } else { single_value->field_streamId.clean_up(); } if (UNINITIALIZED_TEMPLATE != other_value.streamIdExt().get_selection()) { single_value->field_streamIdExt = other_value.streamIdExt(); } else { single_value->field_streamIdExt.clean_up(); } if (UNINITIALIZED_TEMPLATE != other_value.msg().get_selection()) { single_value->field_msg = other_value.msg(); } else { single_value->field_msg.clean_up(); } case OMIT_VALUE: case ANY_VALUE: case ANY_OR_OMIT: break; case VALUE_LIST: case COMPLEMENTED_LIST: case CONJUNCTION_MATCH: value_list.n_values = other_value.value_list.n_values; value_list.list_value = new IPA__RecvFrom_template[value_list.n_values]; for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) value_list.list_value[list_count].copy_template(other_value.value_list.list_value[list_count]); break; case IMPLICATION_MATCH: implication_.precondition = new IPA__RecvFrom_template(*other_value.implication_.precondition); implication_.implied_template = new IPA__RecvFrom_template(*other_value.implication_.implied_template); break; case DYNAMIC_MATCH: dyn_match = other_value.dyn_match; dyn_match->ref_count++; break; default: TTCN_error("Copying an uninitialized/unsupported template of type @IPA_CodecPort.IPA_RecvFrom."); break; } set_selection(other_value); } IPA__RecvFrom_template::IPA__RecvFrom_template() { } IPA__RecvFrom_template::IPA__RecvFrom_template(template_sel other_value) : Base_Template(other_value) { check_single_selection(other_value); } IPA__RecvFrom_template::IPA__RecvFrom_template(const IPA__RecvFrom& other_value) { copy_value(other_value); } IPA__RecvFrom_template::IPA__RecvFrom_template(const OPTIONAL& other_value) { switch (other_value.get_selection()) { case OPTIONAL_PRESENT: copy_value((const IPA__RecvFrom&)other_value); break; case OPTIONAL_OMIT: set_selection(OMIT_VALUE); break; default: TTCN_error("Creating a template of type @IPA_CodecPort.IPA_RecvFrom from an unbound optional field."); } } IPA__RecvFrom_template::IPA__RecvFrom_template(IPA__RecvFrom_template* p_precondition, IPA__RecvFrom_template* p_implied_template) : Base_Template(IMPLICATION_MATCH) { implication_.precondition = p_precondition; implication_.implied_template = p_implied_template; } IPA__RecvFrom_template::IPA__RecvFrom_template(Dynamic_Match_Interface* p_dyn_match) : Base_Template(DYNAMIC_MATCH) { dyn_match = new dynmatch_struct; dyn_match->ptr = p_dyn_match; dyn_match->ref_count = 1; } IPA__RecvFrom_template::IPA__RecvFrom_template(const IPA__RecvFrom_template& other_value) : Base_Template() { copy_template(other_value); } IPA__RecvFrom_template::~IPA__RecvFrom_template() { clean_up(); } IPA__RecvFrom_template& IPA__RecvFrom_template::operator=(template_sel other_value) { check_single_selection(other_value); clean_up(); set_selection(other_value); return *this; } IPA__RecvFrom_template& IPA__RecvFrom_template::operator=(const IPA__RecvFrom& other_value) { clean_up(); copy_value(other_value); return *this; } IPA__RecvFrom_template& IPA__RecvFrom_template::operator=(const OPTIONAL& other_value) { clean_up(); switch (other_value.get_selection()) { case OPTIONAL_PRESENT: copy_value((const IPA__RecvFrom&)other_value); break; case OPTIONAL_OMIT: set_selection(OMIT_VALUE); break; default: TTCN_error("Assignment of an unbound optional field to a template of type @IPA_CodecPort.IPA_RecvFrom."); } return *this; } IPA__RecvFrom_template& IPA__RecvFrom_template::operator=(const IPA__RecvFrom_template& other_value) { if (&other_value != this) { clean_up(); copy_template(other_value); } return *this; } boolean IPA__RecvFrom_template::match(const IPA__RecvFrom& other_value, boolean legacy) const { if (!other_value.is_bound()) return FALSE; switch (template_selection) { case ANY_VALUE: case ANY_OR_OMIT: return TRUE; case OMIT_VALUE: return FALSE; case SPECIFIC_VALUE: if(!other_value.connId().is_bound()) return FALSE; if(!single_value->field_connId.match(other_value.connId(), legacy))return FALSE; if(!other_value.streamId().is_bound()) return FALSE; if(!single_value->field_streamId.match(other_value.streamId(), legacy))return FALSE; if(!other_value.streamIdExt().is_bound()) return FALSE; if((other_value.streamIdExt().ispresent() ? !single_value->field_streamIdExt.match((const IPA__Types::IpaExtStreamId&)other_value.streamIdExt(), legacy) : !single_value->field_streamIdExt.match_omit(legacy)))return FALSE; if(!other_value.msg().is_bound()) return FALSE; if(!single_value->field_msg.match(other_value.msg(), legacy))return FALSE; return TRUE; case VALUE_LIST: case COMPLEMENTED_LIST: for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) if (value_list.list_value[list_count].match(other_value, legacy)) return template_selection == VALUE_LIST; return template_selection == COMPLEMENTED_LIST; case CONJUNCTION_MATCH: for (unsigned int i = 0; i < value_list.n_values; i++) { if (!value_list.list_value[i].match(other_value)) { return FALSE; } } return TRUE; case IMPLICATION_MATCH: return !implication_.precondition->match(other_value) || implication_.implied_template->match(other_value); case DYNAMIC_MATCH: return dyn_match->ptr->match(other_value); default: TTCN_error("Matching an uninitialized/unsupported template of type @IPA_CodecPort.IPA_RecvFrom."); } return FALSE; } boolean IPA__RecvFrom_template::is_bound() const { if (template_selection == UNINITIALIZED_TEMPLATE && !is_ifpresent) return FALSE; if (template_selection != SPECIFIC_VALUE) return TRUE; return single_value->field_connId.is_bound() || single_value->field_streamId.is_bound() || (single_value->field_streamIdExt.is_omit() || single_value->field_streamIdExt.is_bound()) || single_value->field_msg.is_bound(); } boolean IPA__RecvFrom_template::is_value() const { if (template_selection != SPECIFIC_VALUE || is_ifpresent) return FALSE; return single_value->field_connId.is_value() && single_value->field_streamId.is_value() && (single_value->field_streamIdExt.is_omit() || single_value->field_streamIdExt.is_value()) && single_value->field_msg.is_value(); } void IPA__RecvFrom_template::clean_up() { switch (template_selection) { case SPECIFIC_VALUE: delete single_value; break; case VALUE_LIST: case COMPLEMENTED_LIST: case CONJUNCTION_MATCH: delete [] value_list.list_value; break; case IMPLICATION_MATCH: delete implication_.precondition; delete implication_.implied_template; break; case DYNAMIC_MATCH: dyn_match->ref_count--; if (dyn_match->ref_count == 0) { delete dyn_match->ptr; delete dyn_match; } break; default: break; } template_selection = UNINITIALIZED_TEMPLATE; } IPA__RecvFrom IPA__RecvFrom_template::valueof() const { if (template_selection != SPECIFIC_VALUE || is_ifpresent) TTCN_error("Performing a valueof or send operation on a non-specific template of type @IPA_CodecPort.IPA_RecvFrom."); IPA__RecvFrom ret_val; if (single_value->field_connId.is_bound()) { ret_val.connId() = single_value->field_connId.valueof(); } if (single_value->field_streamId.is_bound()) { ret_val.streamId() = single_value->field_streamId.valueof(); } if (single_value->field_streamIdExt.is_omit()) ret_val.streamIdExt() = OMIT_VALUE; else if (single_value->field_streamIdExt.is_bound()) { ret_val.streamIdExt() = single_value->field_streamIdExt.valueof(); } if (single_value->field_msg.is_bound()) { ret_val.msg() = single_value->field_msg.valueof(); } return ret_val; } void IPA__RecvFrom_template::set_type(template_sel template_type, unsigned int list_length) { if (template_type != VALUE_LIST && template_type != COMPLEMENTED_LIST&& template_type != CONJUNCTION_MATCH) TTCN_error("Setting an invalid list for a template of type @IPA_CodecPort.IPA_RecvFrom."); clean_up(); set_selection(template_type); value_list.n_values = list_length; value_list.list_value = new IPA__RecvFrom_template[list_length]; } IPA__RecvFrom_template& IPA__RecvFrom_template::list_item(unsigned int list_index) const { if (template_selection != VALUE_LIST && template_selection != COMPLEMENTED_LIST&& template_selection != CONJUNCTION_MATCH) TTCN_error("Accessing a list element of a non-list template of type @IPA_CodecPort.IPA_RecvFrom."); if (list_index >= value_list.n_values) TTCN_error("Index overflow in a value list template of type @IPA_CodecPort.IPA_RecvFrom."); return value_list.list_value[list_index]; } INTEGER_template& IPA__RecvFrom_template::connId() { set_specific(); return single_value->field_connId; } const INTEGER_template& IPA__RecvFrom_template::connId() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field connId of a non-specific template of type @IPA_CodecPort.IPA_RecvFrom."); return single_value->field_connId; } IPA__Types::IpaStreamId_template& IPA__RecvFrom_template::streamId() { set_specific(); return single_value->field_streamId; } const IPA__Types::IpaStreamId_template& IPA__RecvFrom_template::streamId() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field streamId of a non-specific template of type @IPA_CodecPort.IPA_RecvFrom."); return single_value->field_streamId; } IPA__Types::IpaExtStreamId_template& IPA__RecvFrom_template::streamIdExt() { set_specific(); return single_value->field_streamIdExt; } const IPA__Types::IpaExtStreamId_template& IPA__RecvFrom_template::streamIdExt() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field streamIdExt of a non-specific template of type @IPA_CodecPort.IPA_RecvFrom."); return single_value->field_streamIdExt; } OCTETSTRING_template& IPA__RecvFrom_template::msg() { set_specific(); return single_value->field_msg; } const OCTETSTRING_template& IPA__RecvFrom_template::msg() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field msg of a non-specific template of type @IPA_CodecPort.IPA_RecvFrom."); return single_value->field_msg; } int IPA__RecvFrom_template::size_of() const { if (is_ifpresent) TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom which has an ifpresent attribute."); switch (template_selection) { case SPECIFIC_VALUE: { int ret_val = 3; if (single_value->field_streamIdExt.is_present()) ret_val++; return ret_val; } case VALUE_LIST: { if (value_list.n_values<1) TTCN_error("Internal error: Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing an empty list."); int item_size = value_list.list_value[0].size_of(); for (unsigned int l_idx = 1; l_idx < value_list.n_values; l_idx++) { if (value_list.list_value[l_idx].size_of()!=item_size) TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing a value list with different sizes."); } return item_size; } case OMIT_VALUE: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing omit value."); case ANY_VALUE: case ANY_OR_OMIT: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing */? value."); case COMPLEMENTED_LIST: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing complemented list."); case CONJUNCTION_MATCH: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing a conjunction list match."); case IMPLICATION_MATCH: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing an implication match."); case DYNAMIC_MATCH: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_RecvFrom containing a dynamic match."); default: TTCN_error("Performing sizeof() operation on an uninitialized/unsupported template of type @IPA_CodecPort.IPA_RecvFrom."); } return 0; } void IPA__RecvFrom_template::log() const { switch (template_selection) { case SPECIFIC_VALUE: TTCN_Logger::log_event_str("{ connId := "); single_value->field_connId.log(); TTCN_Logger::log_event_str(", streamId := "); single_value->field_streamId.log(); TTCN_Logger::log_event_str(", streamIdExt := "); single_value->field_streamIdExt.log(); TTCN_Logger::log_event_str(", msg := "); single_value->field_msg.log(); TTCN_Logger::log_event_str(" }"); break; case COMPLEMENTED_LIST: TTCN_Logger::log_event_str("complement"); case CONJUNCTION_MATCH: if (template_selection == CONJUNCTION_MATCH) { TTCN_Logger::log_event_str("conjunct"); } case VALUE_LIST: TTCN_Logger::log_char('('); for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) { if (list_count > 0) TTCN_Logger::log_event_str(", "); value_list.list_value[list_count].log(); } TTCN_Logger::log_char(')'); break; case IMPLICATION_MATCH: implication_.precondition->log(); TTCN_Logger::log_event_str(" implies "); implication_.implied_template->log(); break; case DYNAMIC_MATCH: TTCN_Logger::log_event_str("@dynamic template"); break; default: log_generic(); } log_ifpresent(); } void IPA__RecvFrom_template::log_match(const IPA__RecvFrom& match_value, boolean legacy) const { if(TTCN_Logger::VERBOSITY_COMPACT == TTCN_Logger::get_matching_verbosity()){ if(match(match_value, legacy)){ TTCN_Logger::print_logmatch_buffer(); TTCN_Logger::log_event_str(" matched"); } else{ if (template_selection == SPECIFIC_VALUE) { size_t previous_size = TTCN_Logger::get_logmatch_buffer_len(); if(!single_value->field_connId.match(match_value.connId(), legacy)){ TTCN_Logger::log_logmatch_info(".connId"); single_value->field_connId.log_match(match_value.connId(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } if(!single_value->field_streamId.match(match_value.streamId(), legacy)){ TTCN_Logger::log_logmatch_info(".streamId"); single_value->field_streamId.log_match(match_value.streamId(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } if (match_value.streamIdExt().ispresent()){ if(!single_value->field_streamIdExt.match(match_value.streamIdExt(), legacy)){ TTCN_Logger::log_logmatch_info(".streamIdExt"); single_value->field_streamIdExt.log_match(match_value.streamIdExt(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } } else { if (!single_value->field_streamIdExt.match_omit(legacy)){ TTCN_Logger::log_logmatch_info(".streamIdExt := omit with "); TTCN_Logger::print_logmatch_buffer(); single_value->field_streamIdExt.log(); TTCN_Logger::log_event_str(" unmatched"); TTCN_Logger::set_logmatch_buffer_len(previous_size); } } if(!single_value->field_msg.match(match_value.msg(), legacy)){ TTCN_Logger::log_logmatch_info(".msg"); single_value->field_msg.log_match(match_value.msg(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } }else { TTCN_Logger::print_logmatch_buffer(); match_value.log(); TTCN_Logger::log_event_str(" with "); log(); TTCN_Logger::log_event_str(" unmatched"); } } return; } if (template_selection == SPECIFIC_VALUE) { TTCN_Logger::log_event_str("{ connId := "); single_value->field_connId.log_match(match_value.connId(), legacy); TTCN_Logger::log_event_str(", streamId := "); single_value->field_streamId.log_match(match_value.streamId(), legacy); TTCN_Logger::log_event_str(", streamIdExt := "); if (match_value.streamIdExt().ispresent()) { single_value->field_streamIdExt.log_match(match_value.streamIdExt(), legacy); } else { TTCN_Logger::log_event_str("omit with "); single_value->field_streamIdExt.log(); if (single_value->field_streamIdExt.match_omit(legacy)) TTCN_Logger::log_event_str(" matched"); else TTCN_Logger::log_event_str(" unmatched"); } TTCN_Logger::log_event_str(", msg := "); single_value->field_msg.log_match(match_value.msg(), legacy); TTCN_Logger::log_event_str(" }"); } else { match_value.log(); TTCN_Logger::log_event_str(" with "); log(); if (match(match_value, legacy)) TTCN_Logger::log_event_str(" matched"); else TTCN_Logger::log_event_str(" unmatched"); } } void IPA__RecvFrom_template::set_implicit_omit() { if (template_selection != SPECIFIC_VALUE) return; if (connId().is_bound()) connId().set_implicit_omit(); if (streamId().is_bound()) streamId().set_implicit_omit(); if (!streamIdExt().is_bound()) streamIdExt() = OMIT_VALUE; else streamIdExt().set_implicit_omit(); if (msg().is_bound()) msg().set_implicit_omit(); } void IPA__RecvFrom_template::encode_text(Text_Buf& text_buf) const { encode_text_base(text_buf); switch (template_selection) { case SPECIFIC_VALUE: single_value->field_connId.encode_text(text_buf); single_value->field_streamId.encode_text(text_buf); single_value->field_streamIdExt.encode_text(text_buf); single_value->field_msg.encode_text(text_buf); case OMIT_VALUE: case ANY_VALUE: case ANY_OR_OMIT: break; case VALUE_LIST: case COMPLEMENTED_LIST: text_buf.push_int(value_list.n_values); for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) value_list.list_value[list_count].encode_text(text_buf); break; default: TTCN_error("Text encoder: Encoding an uninitialized/unsupported template of type @IPA_CodecPort.IPA_RecvFrom."); } } void IPA__RecvFrom_template::decode_text(Text_Buf& text_buf) { clean_up(); decode_text_base(text_buf); switch (template_selection) { case SPECIFIC_VALUE: single_value = new single_value_struct; single_value->field_connId.decode_text(text_buf); single_value->field_streamId.decode_text(text_buf); single_value->field_streamIdExt.decode_text(text_buf); single_value->field_msg.decode_text(text_buf); case OMIT_VALUE: case ANY_VALUE: case ANY_OR_OMIT: break; case VALUE_LIST: case COMPLEMENTED_LIST: value_list.n_values = text_buf.pull_int().get_val(); value_list.list_value = new IPA__RecvFrom_template[value_list.n_values]; for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) value_list.list_value[list_count].decode_text(text_buf); break; default: TTCN_error("Text decoder: An unknown/unsupported selection was received in a template of type @IPA_CodecPort.IPA_RecvFrom."); } } void IPA__RecvFrom_template::set_param(Module_Param& param) { param.basic_check(Module_Param::BC_TEMPLATE, "record template"); switch (param.get_type()) { case Module_Param::MP_Omit: *this = OMIT_VALUE; break; case Module_Param::MP_Any: *this = ANY_VALUE; break; case Module_Param::MP_AnyOrNone: *this = ANY_OR_OMIT; break; case Module_Param::MP_List_Template: case Module_Param::MP_ComplementList_Template: case Module_Param::MP_ConjunctList_Template: { IPA__RecvFrom_template new_temp; new_temp.set_type(param.get_type()==Module_Param::MP_List_Template ? VALUE_LIST : (param.get_type() == Module_Param::MP_ConjunctList_Template ? CONJUNCTION_MATCH : COMPLEMENTED_LIST), param.get_size()); for (size_t p_i=0; p_i0 && param.get_elem(0)->get_type()!=Module_Param::MP_NotUsed) connId().set_param(*param.get_elem(0)); if (param.get_size()>1 && param.get_elem(1)->get_type()!=Module_Param::MP_NotUsed) streamId().set_param(*param.get_elem(1)); if (param.get_size()>2 && param.get_elem(2)->get_type()!=Module_Param::MP_NotUsed) streamIdExt().set_param(*param.get_elem(2)); if (param.get_size()>3 && param.get_elem(3)->get_type()!=Module_Param::MP_NotUsed) msg().set_param(*param.get_elem(3)); break; case Module_Param::MP_Assignment_List: { Vector value_used(param.get_size()); value_used.resize(param.get_size(), FALSE); for (size_t val_idx=0; val_idxget_id()->get_name(), "connId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { connId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamIdExt")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamIdExt().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "msg")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { msg().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxerror("Non existent field name in type @IPA_CodecPort.IPA_RecvFrom: %s", curr_param->get_id()->get_name()); break; } } break; case Module_Param::MP_Implication_Template: { IPA__RecvFrom_template* precondition = new IPA__RecvFrom_template; precondition->set_param(*param.get_elem(0)); IPA__RecvFrom_template* implied_template = new IPA__RecvFrom_template; implied_template->set_param(*param.get_elem(1)); *this = IPA__RecvFrom_template(precondition, implied_template); } break; default: param.type_error("record template", "@IPA_CodecPort.IPA_RecvFrom"); } is_ifpresent = param.get_ifpresent(); } void IPA__RecvFrom_template::check_restriction(template_res t_res, const char* t_name, boolean legacy) const { if (template_selection==UNINITIALIZED_TEMPLATE) return; switch ((t_name&&(t_res==TR_VALUE))?TR_OMIT:t_res) { case TR_OMIT: if (template_selection==OMIT_VALUE) return; case TR_VALUE: if (template_selection!=SPECIFIC_VALUE || is_ifpresent) break; single_value->field_connId.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_RecvFrom"); single_value->field_streamId.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_RecvFrom"); single_value->field_streamIdExt.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_RecvFrom"); single_value->field_msg.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_RecvFrom"); return; case TR_PRESENT: if (!match_omit(legacy)) return; break; default: return; } TTCN_error("Restriction `%s' on template of type %s violated.", get_res_name(t_res), t_name ? t_name : "@IPA_CodecPort.IPA_RecvFrom"); } boolean IPA__RecvFrom_template::is_present(boolean legacy) const { if (template_selection==UNINITIALIZED_TEMPLATE) return FALSE; return !match_omit(legacy); } boolean IPA__RecvFrom_template::match_omit(boolean legacy) const { if (is_ifpresent) return TRUE; switch (template_selection) { case OMIT_VALUE: case ANY_OR_OMIT: return TRUE; case IMPLICATION_MATCH: return !implication_.precondition->match_omit() || implication_.implied_template->match_omit(); case VALUE_LIST: case COMPLEMENTED_LIST: if (legacy) { for (unsigned int l_idx=0; l_idx& par_streamIdExt, const OCTETSTRING& par_msg) : field_connId(par_connId), field_streamId(par_streamId), field_streamIdExt(par_streamIdExt), field_msg(par_msg) { } IPA__Send::IPA__Send(const IPA__Send& other_value) { if(!other_value.is_bound()) TTCN_error("Copying an unbound value of type @IPA_CodecPort.IPA_Send."); if (other_value.connId().is_bound()) field_connId = other_value.connId(); else field_connId.clean_up(); if (other_value.streamId().is_bound()) field_streamId = other_value.streamId(); else field_streamId.clean_up(); if (other_value.streamIdExt().is_bound()) field_streamIdExt = other_value.streamIdExt(); else field_streamIdExt.clean_up(); if (other_value.msg().is_bound()) field_msg = other_value.msg(); else field_msg.clean_up(); } void IPA__Send::clean_up() { field_connId.clean_up(); field_streamId.clean_up(); field_streamIdExt.clean_up(); field_msg.clean_up(); } const TTCN_Typedescriptor_t* IPA__Send::get_descriptor() const { return &IPA__Send_descr_; } IPA__Send& IPA__Send::operator=(const IPA__Send& other_value) { if (this != &other_value) { if(!other_value.is_bound()) TTCN_error("Assignment of an unbound value of type @IPA_CodecPort.IPA_Send."); if (other_value.connId().is_bound()) field_connId = other_value.connId(); else field_connId.clean_up(); if (other_value.streamId().is_bound()) field_streamId = other_value.streamId(); else field_streamId.clean_up(); if (other_value.streamIdExt().is_bound()) field_streamIdExt = other_value.streamIdExt(); else field_streamIdExt.clean_up(); if (other_value.msg().is_bound()) field_msg = other_value.msg(); else field_msg.clean_up(); } return *this; } boolean IPA__Send::operator==(const IPA__Send& other_value) const { return field_connId==other_value.field_connId && field_streamId==other_value.field_streamId && field_streamIdExt==other_value.field_streamIdExt && field_msg==other_value.field_msg; } boolean IPA__Send::is_bound() const { return (field_connId.is_bound()) || (field_streamId.is_bound()) || (OPTIONAL_OMIT == field_streamIdExt.get_selection() || field_streamIdExt.is_bound()) || (field_msg.is_bound()); } boolean IPA__Send::is_value() const { return field_connId.is_value() && field_streamId.is_value() && (OPTIONAL_OMIT == field_streamIdExt.get_selection() || field_streamIdExt.is_value()) && field_msg.is_value(); } int IPA__Send::size_of() const { int ret_val = 3; if (field_streamIdExt.ispresent()) ret_val++; return ret_val; } void IPA__Send::log() const { if (!is_bound()) { TTCN_Logger::log_event_unbound(); return; } TTCN_Logger::log_event_str("{ connId := "); field_connId.log(); TTCN_Logger::log_event_str(", streamId := "); field_streamId.log(); TTCN_Logger::log_event_str(", streamIdExt := "); field_streamIdExt.log(); TTCN_Logger::log_event_str(", msg := "); field_msg.log(); TTCN_Logger::log_event_str(" }"); } void IPA__Send::set_implicit_omit() { if (connId().is_bound()) connId().set_implicit_omit(); if (streamId().is_bound()) streamId().set_implicit_omit(); if (!streamIdExt().is_bound()) streamIdExt() = OMIT_VALUE; else streamIdExt().set_implicit_omit(); if (msg().is_bound()) msg().set_implicit_omit(); } void IPA__Send::set_param(Module_Param& param) { param.basic_check(Module_Param::BC_VALUE, "record value"); switch (param.get_type()) { case Module_Param::MP_Value_List: if (40 && param.get_elem(0)->get_type()!=Module_Param::MP_NotUsed) connId().set_param(*param.get_elem(0)); if (param.get_size()>1 && param.get_elem(1)->get_type()!=Module_Param::MP_NotUsed) streamId().set_param(*param.get_elem(1)); if (param.get_size()>2 && param.get_elem(2)->get_type()!=Module_Param::MP_NotUsed) streamIdExt().set_param(*param.get_elem(2)); if (param.get_size()>3 && param.get_elem(3)->get_type()!=Module_Param::MP_NotUsed) msg().set_param(*param.get_elem(3)); break; case Module_Param::MP_Assignment_List: { Vector value_used(param.get_size()); value_used.resize(param.get_size(), FALSE); for (size_t val_idx=0; val_idxget_id()->get_name(), "connId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { connId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamIdExt")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamIdExt().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "msg")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { msg().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxerror("Non existent field name in type @IPA_CodecPort.IPA_Send: %s", curr_param->get_id()->get_name()); break; } } break; default: param.type_error("record value", "@IPA_CodecPort.IPA_Send"); } } void IPA__Send::encode_text(Text_Buf& text_buf) const { field_connId.encode_text(text_buf); field_streamId.encode_text(text_buf); field_streamIdExt.encode_text(text_buf); field_msg.encode_text(text_buf); } void IPA__Send::decode_text(Text_Buf& text_buf) { field_connId.decode_text(text_buf); field_streamId.decode_text(text_buf); field_streamIdExt.decode_text(text_buf); field_msg.decode_text(text_buf); } struct IPA__Send_template::single_value_struct { INTEGER_template field_connId; IPA__Types::IpaStreamId_template field_streamId; IPA__Types::IpaExtStreamId_template field_streamIdExt; OCTETSTRING_template field_msg; }; void IPA__Send_template::set_specific() { if (template_selection != SPECIFIC_VALUE) { template_sel old_selection = template_selection; clean_up(); single_value = new single_value_struct; set_selection(SPECIFIC_VALUE); if (old_selection == ANY_VALUE || old_selection == ANY_OR_OMIT) { single_value->field_connId = ANY_VALUE; single_value->field_streamId = ANY_VALUE; single_value->field_streamIdExt = ANY_OR_OMIT; single_value->field_msg = ANY_VALUE; } } } void IPA__Send_template::copy_value(const IPA__Send& other_value) { single_value = new single_value_struct; if (other_value.connId().is_bound()) { single_value->field_connId = other_value.connId(); } else { single_value->field_connId.clean_up(); } if (other_value.streamId().is_bound()) { single_value->field_streamId = other_value.streamId(); } else { single_value->field_streamId.clean_up(); } if (other_value.streamIdExt().is_bound()) { if (other_value.streamIdExt().ispresent()) single_value->field_streamIdExt = other_value.streamIdExt()(); else single_value->field_streamIdExt = OMIT_VALUE; } else { single_value->field_streamIdExt.clean_up(); } if (other_value.msg().is_bound()) { single_value->field_msg = other_value.msg(); } else { single_value->field_msg.clean_up(); } set_selection(SPECIFIC_VALUE); } void IPA__Send_template::copy_template(const IPA__Send_template& other_value) { switch (other_value.template_selection) { case SPECIFIC_VALUE: single_value = new single_value_struct; if (UNINITIALIZED_TEMPLATE != other_value.connId().get_selection()) { single_value->field_connId = other_value.connId(); } else { single_value->field_connId.clean_up(); } if (UNINITIALIZED_TEMPLATE != other_value.streamId().get_selection()) { single_value->field_streamId = other_value.streamId(); } else { single_value->field_streamId.clean_up(); } if (UNINITIALIZED_TEMPLATE != other_value.streamIdExt().get_selection()) { single_value->field_streamIdExt = other_value.streamIdExt(); } else { single_value->field_streamIdExt.clean_up(); } if (UNINITIALIZED_TEMPLATE != other_value.msg().get_selection()) { single_value->field_msg = other_value.msg(); } else { single_value->field_msg.clean_up(); } case OMIT_VALUE: case ANY_VALUE: case ANY_OR_OMIT: break; case VALUE_LIST: case COMPLEMENTED_LIST: case CONJUNCTION_MATCH: value_list.n_values = other_value.value_list.n_values; value_list.list_value = new IPA__Send_template[value_list.n_values]; for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) value_list.list_value[list_count].copy_template(other_value.value_list.list_value[list_count]); break; case IMPLICATION_MATCH: implication_.precondition = new IPA__Send_template(*other_value.implication_.precondition); implication_.implied_template = new IPA__Send_template(*other_value.implication_.implied_template); break; case DYNAMIC_MATCH: dyn_match = other_value.dyn_match; dyn_match->ref_count++; break; default: TTCN_error("Copying an uninitialized/unsupported template of type @IPA_CodecPort.IPA_Send."); break; } set_selection(other_value); } IPA__Send_template::IPA__Send_template() { } IPA__Send_template::IPA__Send_template(template_sel other_value) : Base_Template(other_value) { check_single_selection(other_value); } IPA__Send_template::IPA__Send_template(const IPA__Send& other_value) { copy_value(other_value); } IPA__Send_template::IPA__Send_template(const OPTIONAL& other_value) { switch (other_value.get_selection()) { case OPTIONAL_PRESENT: copy_value((const IPA__Send&)other_value); break; case OPTIONAL_OMIT: set_selection(OMIT_VALUE); break; default: TTCN_error("Creating a template of type @IPA_CodecPort.IPA_Send from an unbound optional field."); } } IPA__Send_template::IPA__Send_template(IPA__Send_template* p_precondition, IPA__Send_template* p_implied_template) : Base_Template(IMPLICATION_MATCH) { implication_.precondition = p_precondition; implication_.implied_template = p_implied_template; } IPA__Send_template::IPA__Send_template(Dynamic_Match_Interface* p_dyn_match) : Base_Template(DYNAMIC_MATCH) { dyn_match = new dynmatch_struct; dyn_match->ptr = p_dyn_match; dyn_match->ref_count = 1; } IPA__Send_template::IPA__Send_template(const IPA__Send_template& other_value) : Base_Template() { copy_template(other_value); } IPA__Send_template::~IPA__Send_template() { clean_up(); } IPA__Send_template& IPA__Send_template::operator=(template_sel other_value) { check_single_selection(other_value); clean_up(); set_selection(other_value); return *this; } IPA__Send_template& IPA__Send_template::operator=(const IPA__Send& other_value) { clean_up(); copy_value(other_value); return *this; } IPA__Send_template& IPA__Send_template::operator=(const OPTIONAL& other_value) { clean_up(); switch (other_value.get_selection()) { case OPTIONAL_PRESENT: copy_value((const IPA__Send&)other_value); break; case OPTIONAL_OMIT: set_selection(OMIT_VALUE); break; default: TTCN_error("Assignment of an unbound optional field to a template of type @IPA_CodecPort.IPA_Send."); } return *this; } IPA__Send_template& IPA__Send_template::operator=(const IPA__Send_template& other_value) { if (&other_value != this) { clean_up(); copy_template(other_value); } return *this; } boolean IPA__Send_template::match(const IPA__Send& other_value, boolean legacy) const { if (!other_value.is_bound()) return FALSE; switch (template_selection) { case ANY_VALUE: case ANY_OR_OMIT: return TRUE; case OMIT_VALUE: return FALSE; case SPECIFIC_VALUE: if(!other_value.connId().is_bound()) return FALSE; if(!single_value->field_connId.match(other_value.connId(), legacy))return FALSE; if(!other_value.streamId().is_bound()) return FALSE; if(!single_value->field_streamId.match(other_value.streamId(), legacy))return FALSE; if(!other_value.streamIdExt().is_bound()) return FALSE; if((other_value.streamIdExt().ispresent() ? !single_value->field_streamIdExt.match((const IPA__Types::IpaExtStreamId&)other_value.streamIdExt(), legacy) : !single_value->field_streamIdExt.match_omit(legacy)))return FALSE; if(!other_value.msg().is_bound()) return FALSE; if(!single_value->field_msg.match(other_value.msg(), legacy))return FALSE; return TRUE; case VALUE_LIST: case COMPLEMENTED_LIST: for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) if (value_list.list_value[list_count].match(other_value, legacy)) return template_selection == VALUE_LIST; return template_selection == COMPLEMENTED_LIST; case CONJUNCTION_MATCH: for (unsigned int i = 0; i < value_list.n_values; i++) { if (!value_list.list_value[i].match(other_value)) { return FALSE; } } return TRUE; case IMPLICATION_MATCH: return !implication_.precondition->match(other_value) || implication_.implied_template->match(other_value); case DYNAMIC_MATCH: return dyn_match->ptr->match(other_value); default: TTCN_error("Matching an uninitialized/unsupported template of type @IPA_CodecPort.IPA_Send."); } return FALSE; } boolean IPA__Send_template::is_bound() const { if (template_selection == UNINITIALIZED_TEMPLATE && !is_ifpresent) return FALSE; if (template_selection != SPECIFIC_VALUE) return TRUE; return single_value->field_connId.is_bound() || single_value->field_streamId.is_bound() || (single_value->field_streamIdExt.is_omit() || single_value->field_streamIdExt.is_bound()) || single_value->field_msg.is_bound(); } boolean IPA__Send_template::is_value() const { if (template_selection != SPECIFIC_VALUE || is_ifpresent) return FALSE; return single_value->field_connId.is_value() && single_value->field_streamId.is_value() && (single_value->field_streamIdExt.is_omit() || single_value->field_streamIdExt.is_value()) && single_value->field_msg.is_value(); } void IPA__Send_template::clean_up() { switch (template_selection) { case SPECIFIC_VALUE: delete single_value; break; case VALUE_LIST: case COMPLEMENTED_LIST: case CONJUNCTION_MATCH: delete [] value_list.list_value; break; case IMPLICATION_MATCH: delete implication_.precondition; delete implication_.implied_template; break; case DYNAMIC_MATCH: dyn_match->ref_count--; if (dyn_match->ref_count == 0) { delete dyn_match->ptr; delete dyn_match; } break; default: break; } template_selection = UNINITIALIZED_TEMPLATE; } IPA__Send IPA__Send_template::valueof() const { if (template_selection != SPECIFIC_VALUE || is_ifpresent) TTCN_error("Performing a valueof or send operation on a non-specific template of type @IPA_CodecPort.IPA_Send."); IPA__Send ret_val; if (single_value->field_connId.is_bound()) { ret_val.connId() = single_value->field_connId.valueof(); } if (single_value->field_streamId.is_bound()) { ret_val.streamId() = single_value->field_streamId.valueof(); } if (single_value->field_streamIdExt.is_omit()) ret_val.streamIdExt() = OMIT_VALUE; else if (single_value->field_streamIdExt.is_bound()) { ret_val.streamIdExt() = single_value->field_streamIdExt.valueof(); } if (single_value->field_msg.is_bound()) { ret_val.msg() = single_value->field_msg.valueof(); } return ret_val; } void IPA__Send_template::set_type(template_sel template_type, unsigned int list_length) { if (template_type != VALUE_LIST && template_type != COMPLEMENTED_LIST&& template_type != CONJUNCTION_MATCH) TTCN_error("Setting an invalid list for a template of type @IPA_CodecPort.IPA_Send."); clean_up(); set_selection(template_type); value_list.n_values = list_length; value_list.list_value = new IPA__Send_template[list_length]; } IPA__Send_template& IPA__Send_template::list_item(unsigned int list_index) const { if (template_selection != VALUE_LIST && template_selection != COMPLEMENTED_LIST&& template_selection != CONJUNCTION_MATCH) TTCN_error("Accessing a list element of a non-list template of type @IPA_CodecPort.IPA_Send."); if (list_index >= value_list.n_values) TTCN_error("Index overflow in a value list template of type @IPA_CodecPort.IPA_Send."); return value_list.list_value[list_index]; } INTEGER_template& IPA__Send_template::connId() { set_specific(); return single_value->field_connId; } const INTEGER_template& IPA__Send_template::connId() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field connId of a non-specific template of type @IPA_CodecPort.IPA_Send."); return single_value->field_connId; } IPA__Types::IpaStreamId_template& IPA__Send_template::streamId() { set_specific(); return single_value->field_streamId; } const IPA__Types::IpaStreamId_template& IPA__Send_template::streamId() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field streamId of a non-specific template of type @IPA_CodecPort.IPA_Send."); return single_value->field_streamId; } IPA__Types::IpaExtStreamId_template& IPA__Send_template::streamIdExt() { set_specific(); return single_value->field_streamIdExt; } const IPA__Types::IpaExtStreamId_template& IPA__Send_template::streamIdExt() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field streamIdExt of a non-specific template of type @IPA_CodecPort.IPA_Send."); return single_value->field_streamIdExt; } OCTETSTRING_template& IPA__Send_template::msg() { set_specific(); return single_value->field_msg; } const OCTETSTRING_template& IPA__Send_template::msg() const { if (template_selection != SPECIFIC_VALUE) TTCN_error("Accessing field msg of a non-specific template of type @IPA_CodecPort.IPA_Send."); return single_value->field_msg; } int IPA__Send_template::size_of() const { if (is_ifpresent) TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send which has an ifpresent attribute."); switch (template_selection) { case SPECIFIC_VALUE: { int ret_val = 3; if (single_value->field_streamIdExt.is_present()) ret_val++; return ret_val; } case VALUE_LIST: { if (value_list.n_values<1) TTCN_error("Internal error: Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing an empty list."); int item_size = value_list.list_value[0].size_of(); for (unsigned int l_idx = 1; l_idx < value_list.n_values; l_idx++) { if (value_list.list_value[l_idx].size_of()!=item_size) TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing a value list with different sizes."); } return item_size; } case OMIT_VALUE: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing omit value."); case ANY_VALUE: case ANY_OR_OMIT: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing */? value."); case COMPLEMENTED_LIST: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing complemented list."); case CONJUNCTION_MATCH: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing a conjunction list match."); case IMPLICATION_MATCH: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing an implication match."); case DYNAMIC_MATCH: TTCN_error("Performing sizeof() operation on a template of type @IPA_CodecPort.IPA_Send containing a dynamic match."); default: TTCN_error("Performing sizeof() operation on an uninitialized/unsupported template of type @IPA_CodecPort.IPA_Send."); } return 0; } void IPA__Send_template::log() const { switch (template_selection) { case SPECIFIC_VALUE: TTCN_Logger::log_event_str("{ connId := "); single_value->field_connId.log(); TTCN_Logger::log_event_str(", streamId := "); single_value->field_streamId.log(); TTCN_Logger::log_event_str(", streamIdExt := "); single_value->field_streamIdExt.log(); TTCN_Logger::log_event_str(", msg := "); single_value->field_msg.log(); TTCN_Logger::log_event_str(" }"); break; case COMPLEMENTED_LIST: TTCN_Logger::log_event_str("complement"); case CONJUNCTION_MATCH: if (template_selection == CONJUNCTION_MATCH) { TTCN_Logger::log_event_str("conjunct"); } case VALUE_LIST: TTCN_Logger::log_char('('); for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) { if (list_count > 0) TTCN_Logger::log_event_str(", "); value_list.list_value[list_count].log(); } TTCN_Logger::log_char(')'); break; case IMPLICATION_MATCH: implication_.precondition->log(); TTCN_Logger::log_event_str(" implies "); implication_.implied_template->log(); break; case DYNAMIC_MATCH: TTCN_Logger::log_event_str("@dynamic template"); break; default: log_generic(); } log_ifpresent(); } void IPA__Send_template::log_match(const IPA__Send& match_value, boolean legacy) const { if(TTCN_Logger::VERBOSITY_COMPACT == TTCN_Logger::get_matching_verbosity()){ if(match(match_value, legacy)){ TTCN_Logger::print_logmatch_buffer(); TTCN_Logger::log_event_str(" matched"); } else{ if (template_selection == SPECIFIC_VALUE) { size_t previous_size = TTCN_Logger::get_logmatch_buffer_len(); if(!single_value->field_connId.match(match_value.connId(), legacy)){ TTCN_Logger::log_logmatch_info(".connId"); single_value->field_connId.log_match(match_value.connId(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } if(!single_value->field_streamId.match(match_value.streamId(), legacy)){ TTCN_Logger::log_logmatch_info(".streamId"); single_value->field_streamId.log_match(match_value.streamId(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } if (match_value.streamIdExt().ispresent()){ if(!single_value->field_streamIdExt.match(match_value.streamIdExt(), legacy)){ TTCN_Logger::log_logmatch_info(".streamIdExt"); single_value->field_streamIdExt.log_match(match_value.streamIdExt(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } } else { if (!single_value->field_streamIdExt.match_omit(legacy)){ TTCN_Logger::log_logmatch_info(".streamIdExt := omit with "); TTCN_Logger::print_logmatch_buffer(); single_value->field_streamIdExt.log(); TTCN_Logger::log_event_str(" unmatched"); TTCN_Logger::set_logmatch_buffer_len(previous_size); } } if(!single_value->field_msg.match(match_value.msg(), legacy)){ TTCN_Logger::log_logmatch_info(".msg"); single_value->field_msg.log_match(match_value.msg(), legacy); TTCN_Logger::set_logmatch_buffer_len(previous_size); } }else { TTCN_Logger::print_logmatch_buffer(); match_value.log(); TTCN_Logger::log_event_str(" with "); log(); TTCN_Logger::log_event_str(" unmatched"); } } return; } if (template_selection == SPECIFIC_VALUE) { TTCN_Logger::log_event_str("{ connId := "); single_value->field_connId.log_match(match_value.connId(), legacy); TTCN_Logger::log_event_str(", streamId := "); single_value->field_streamId.log_match(match_value.streamId(), legacy); TTCN_Logger::log_event_str(", streamIdExt := "); if (match_value.streamIdExt().ispresent()) { single_value->field_streamIdExt.log_match(match_value.streamIdExt(), legacy); } else { TTCN_Logger::log_event_str("omit with "); single_value->field_streamIdExt.log(); if (single_value->field_streamIdExt.match_omit(legacy)) TTCN_Logger::log_event_str(" matched"); else TTCN_Logger::log_event_str(" unmatched"); } TTCN_Logger::log_event_str(", msg := "); single_value->field_msg.log_match(match_value.msg(), legacy); TTCN_Logger::log_event_str(" }"); } else { match_value.log(); TTCN_Logger::log_event_str(" with "); log(); if (match(match_value, legacy)) TTCN_Logger::log_event_str(" matched"); else TTCN_Logger::log_event_str(" unmatched"); } } void IPA__Send_template::set_implicit_omit() { if (template_selection != SPECIFIC_VALUE) return; if (connId().is_bound()) connId().set_implicit_omit(); if (streamId().is_bound()) streamId().set_implicit_omit(); if (!streamIdExt().is_bound()) streamIdExt() = OMIT_VALUE; else streamIdExt().set_implicit_omit(); if (msg().is_bound()) msg().set_implicit_omit(); } void IPA__Send_template::encode_text(Text_Buf& text_buf) const { encode_text_base(text_buf); switch (template_selection) { case SPECIFIC_VALUE: single_value->field_connId.encode_text(text_buf); single_value->field_streamId.encode_text(text_buf); single_value->field_streamIdExt.encode_text(text_buf); single_value->field_msg.encode_text(text_buf); case OMIT_VALUE: case ANY_VALUE: case ANY_OR_OMIT: break; case VALUE_LIST: case COMPLEMENTED_LIST: text_buf.push_int(value_list.n_values); for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) value_list.list_value[list_count].encode_text(text_buf); break; default: TTCN_error("Text encoder: Encoding an uninitialized/unsupported template of type @IPA_CodecPort.IPA_Send."); } } void IPA__Send_template::decode_text(Text_Buf& text_buf) { clean_up(); decode_text_base(text_buf); switch (template_selection) { case SPECIFIC_VALUE: single_value = new single_value_struct; single_value->field_connId.decode_text(text_buf); single_value->field_streamId.decode_text(text_buf); single_value->field_streamIdExt.decode_text(text_buf); single_value->field_msg.decode_text(text_buf); case OMIT_VALUE: case ANY_VALUE: case ANY_OR_OMIT: break; case VALUE_LIST: case COMPLEMENTED_LIST: value_list.n_values = text_buf.pull_int().get_val(); value_list.list_value = new IPA__Send_template[value_list.n_values]; for (unsigned int list_count = 0; list_count < value_list.n_values; list_count++) value_list.list_value[list_count].decode_text(text_buf); break; default: TTCN_error("Text decoder: An unknown/unsupported selection was received in a template of type @IPA_CodecPort.IPA_Send."); } } void IPA__Send_template::set_param(Module_Param& param) { param.basic_check(Module_Param::BC_TEMPLATE, "record template"); switch (param.get_type()) { case Module_Param::MP_Omit: *this = OMIT_VALUE; break; case Module_Param::MP_Any: *this = ANY_VALUE; break; case Module_Param::MP_AnyOrNone: *this = ANY_OR_OMIT; break; case Module_Param::MP_List_Template: case Module_Param::MP_ComplementList_Template: case Module_Param::MP_ConjunctList_Template: { IPA__Send_template new_temp; new_temp.set_type(param.get_type()==Module_Param::MP_List_Template ? VALUE_LIST : (param.get_type() == Module_Param::MP_ConjunctList_Template ? CONJUNCTION_MATCH : COMPLEMENTED_LIST), param.get_size()); for (size_t p_i=0; p_i0 && param.get_elem(0)->get_type()!=Module_Param::MP_NotUsed) connId().set_param(*param.get_elem(0)); if (param.get_size()>1 && param.get_elem(1)->get_type()!=Module_Param::MP_NotUsed) streamId().set_param(*param.get_elem(1)); if (param.get_size()>2 && param.get_elem(2)->get_type()!=Module_Param::MP_NotUsed) streamIdExt().set_param(*param.get_elem(2)); if (param.get_size()>3 && param.get_elem(3)->get_type()!=Module_Param::MP_NotUsed) msg().set_param(*param.get_elem(3)); break; case Module_Param::MP_Assignment_List: { Vector value_used(param.get_size()); value_used.resize(param.get_size(), FALSE); for (size_t val_idx=0; val_idxget_id()->get_name(), "connId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { connId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamId")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamId().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "streamIdExt")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { streamIdExt().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxget_id()->get_name(), "msg")) { if (curr_param->get_type()!=Module_Param::MP_NotUsed) { msg().set_param(*curr_param); } value_used[val_idx]=TRUE; } } for (size_t val_idx=0; val_idxerror("Non existent field name in type @IPA_CodecPort.IPA_Send: %s", curr_param->get_id()->get_name()); break; } } break; case Module_Param::MP_Implication_Template: { IPA__Send_template* precondition = new IPA__Send_template; precondition->set_param(*param.get_elem(0)); IPA__Send_template* implied_template = new IPA__Send_template; implied_template->set_param(*param.get_elem(1)); *this = IPA__Send_template(precondition, implied_template); } break; default: param.type_error("record template", "@IPA_CodecPort.IPA_Send"); } is_ifpresent = param.get_ifpresent(); } void IPA__Send_template::check_restriction(template_res t_res, const char* t_name, boolean legacy) const { if (template_selection==UNINITIALIZED_TEMPLATE) return; switch ((t_name&&(t_res==TR_VALUE))?TR_OMIT:t_res) { case TR_OMIT: if (template_selection==OMIT_VALUE) return; case TR_VALUE: if (template_selection!=SPECIFIC_VALUE || is_ifpresent) break; single_value->field_connId.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_Send"); single_value->field_streamId.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_Send"); single_value->field_streamIdExt.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_Send"); single_value->field_msg.check_restriction(t_res, t_name ? t_name : "@IPA_CodecPort.IPA_Send"); return; case TR_PRESENT: if (!match_omit(legacy)) return; break; default: return; } TTCN_error("Restriction `%s' on template of type %s violated.", get_res_name(t_res), t_name ? t_name : "@IPA_CodecPort.IPA_Send"); } boolean IPA__Send_template::is_present(boolean legacy) const { if (template_selection==UNINITIALIZED_TEMPLATE) return FALSE; return !match_omit(legacy); } boolean IPA__Send_template::match_omit(boolean legacy) const { if (is_ifpresent) return TRUE; switch (template_selection) { case OMIT_VALUE: case ANY_OR_OMIT: return TRUE; case IMPLICATION_MATCH: return !implication_.precondition->match_omit() || implication_.implied_template->match_omit(); case VALUE_LIST: case COMPLEMENTED_LIST: if (legacy) { for (unsigned int l_idx=0; l_idxitem_selection) { case MESSAGE_0: delete (my_head)->message_0; break; case MESSAGE_1: delete (my_head)->message_1; break; case MESSAGE_2: delete (my_head)->message_2; break; default: TTCN_error("Internal error: Invalid message selector in the queue of port %s.", port_name); } msg_queue_item_base *next_item = msg_queue_head->next_item; delete (msg_queue_item*)msg_queue_head; msg_queue_head = next_item; if (next_item == NULL) msg_queue_tail = NULL; TTCN_Logger::log_port_queue(TitanLoggerApiSimple::Port__Queue_operation::extract__msg, port_name, 0, ++msg_head_count, CHARSTRING(0,NULL), CHARSTRING(0,NULL));} void IPA__CODEC__PT::clear_queue() { while (msg_queue_head != NULL) remove_msg_queue_head(); } IPA__CODEC__PT::IPA__CODEC__PT(const char *par_port_name) : IPL4asp__PortType::IPL4asp__PT_PROVIDER(par_port_name) { msg_queue_head = NULL; msg_queue_tail = NULL; } IPA__CODEC__PT::~IPA__CODEC__PT() { clear_queue(); } void IPA__CODEC__PT::send(const IPA__Send& send_par, const COMPONENT& destination_component, FLOAT* timestamp_redirect) { if (!is_started) TTCN_error("Sending a message on port %s, which is not started.", port_name); if (!destination_component.is_bound()) TTCN_error("Unbound component reference in the to clause of send operation."); const TTCN_Logger::Severity log_sev = destination_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMSEND:TTCN_Logger::PORTEVENT_MCSEND; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_send(port_name, destination_component, (TTCN_Logger::begin_event(log_sev, TRUE), TTCN_Logger::log_event_str(" @IPA_CodecPort.IPA_Send : "), send_par.log(), TTCN_Logger::end_event_log2str())); } IPL4asp__Types::ASP__Send mapped_par; IPA__to__IPL4__Send(send_par, mapped_par); if (TTCN_Logger::log_this_event(TTCN_Logger::PORTEVENT_DUALSEND)) { TTCN_Logger::log_dualport_map(0, "@IPL4asp_Types.ASP_Send", (TTCN_Logger::begin_event(TTCN_Logger::PORTEVENT_DUALSEND, TRUE), mapped_par.log(), TTCN_Logger::end_event_log2str()), 0); } if (destination_component == SYSTEM_COMPREF) outgoing_send(mapped_par); else { Text_Buf text_buf; prepare_message(text_buf, "@IPL4asp_Types.ASP_Send"); mapped_par.encode_text(text_buf); send_data(text_buf, destination_component); } } void IPA__CODEC__PT::send(const IPA__Send& send_par, size_t nof_components, const COMPONENT* destination_components, FLOAT* timestamp_redirect) { for (size_t i = 0; i < nof_components; ++i) send(send_par, destination_components[i], timestamp_redirect); } void IPA__CODEC__PT::send(const IPA__Send& send_par, boolean broadcast, FLOAT* timestamp_redirect) { if (broadcast) { if (!is_started) TTCN_error("Sending a message on port %s, which is not started.", port_name); Text_Buf text_buf; prepare_message(text_buf, "@IPA_CodecPort.IPA_Send"); send_par.encode_text(text_buf); send_data_broadcast(text_buf, PORT::OMT_SEND, (TTCN_Logger::begin_event(TTCN_Logger::PORTEVENT_MCSEND, TRUE), TTCN_Logger::log_event_str(" @IPA_CodecPort.IPA_Send : "), send_par.log(), TTCN_Logger::end_event_log2str())); } else send(send_par, COMPONENT(get_default_destination()), timestamp_redirect); } void IPA__CODEC__PT::send(const IPA__Send_template& send_par, const COMPONENT& destination_component, FLOAT* timestamp_redirect) { const IPA__Send& send_par_value = IPA__Send(send_par.valueof()); send(send_par_value, destination_component, timestamp_redirect); } void IPA__CODEC__PT::send(const IPA__Send_template& send_par, size_t nof_components, const COMPONENT* destination_components, FLOAT* timestamp_redirect) { const IPA__Send& send_par_value = IPA__Send(send_par.valueof()); send(send_par_value, nof_components, destination_components, timestamp_redirect); } void IPA__CODEC__PT::send(const IPA__Send_template& send_par, boolean broadcast, FLOAT* timestamp_redirect) { const IPA__Send& send_par_value = IPA__Send(send_par.valueof()); send(send_par_value, broadcast, timestamp_redirect); } PORT* IPA__CODEC__PT::get_provider_port() { (void)get_default_destination(); return this; } alt_status IPA__CODEC__PT::receive(const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else { if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS, "Matching on port %s succeeded.", port_name); const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { switch (my_head->item_selection) { case MESSAGE_0: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPA_CodecPort.IPA_RecvFrom: "), my_head->message_0->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; case MESSAGE_1: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPL4asp_Types.ASP_ConnId_ReadyToRelease: "), my_head->message_1->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; case MESSAGE_2: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @Socket_API_Definitions.PortEvent: "), my_head->message_2->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; default: TTCN_error("Internal error: unknown message"); } } remove_msg_queue_head(); return ALT_YES; } } alt_status IPA__CODEC__PT::check_receive(const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else { if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS, "Matching on port %s succeeded.", port_name); const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { switch (my_head->item_selection) { case MESSAGE_0: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::check__receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPA_CodecPort.IPA_RecvFrom: "), my_head->message_0->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; case MESSAGE_1: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::check__receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPL4asp_Types.ASP_ConnId_ReadyToRelease: "), my_head->message_1->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; case MESSAGE_2: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::check__receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @Socket_API_Definitions.PortEvent: "), my_head->message_2->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; default: TTCN_error("Internal error: unknown message"); } } return ALT_YES; } } alt_status IPA__CODEC__PT::trigger(const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s will drop a message: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } remove_msg_queue_head(); return ALT_REPEAT; } else { if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS, "Matching on port %s succeeded.", port_name); const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { switch (my_head->item_selection) { case MESSAGE_0: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::trigger__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPA_CodecPort.IPA_RecvFrom: "), my_head->message_0->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; case MESSAGE_1: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::trigger__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPL4asp_Types.ASP_ConnId_ReadyToRelease: "), my_head->message_1->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; case MESSAGE_2: TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::trigger__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @Socket_API_Definitions.PortEvent: "), my_head->message_2->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); break; default: TTCN_error("Internal error: unknown message"); } } remove_msg_queue_head(); return ALT_YES; } } alt_status IPA__CODEC__PT::receive(const IPA__RecvFrom_template& value_template, IPA__RecvFrom *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Receive operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else if (my_head->item_selection != MESSAGE_0) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s failed: Type of the first message in the queue is not @IPA_CodecPort.IPA_RecvFrom.", port_name); return ALT_NO; } else if (!value_template.match(*my_head->message_0)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_0), TTCN_Logger::end_event_log2str())); } return ALT_NO; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_0; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_0), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPA_CodecPort.IPA_RecvFrom : "), my_head->message_0->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } remove_msg_queue_head(); return ALT_YES; } } alt_status IPA__CODEC__PT::check_receive(const IPA__RecvFrom_template& value_template, IPA__RecvFrom *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Check-receive operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else if (my_head->item_selection != MESSAGE_0) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s failed: Type of the first message in the queue is not @IPA_CodecPort.IPA_RecvFrom.", port_name); return ALT_NO; } else if (!value_template.match(*my_head->message_0)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_0), TTCN_Logger::end_event_log2str())); } return ALT_NO; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_0; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_0), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::check__receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPA_CodecPort.IPA_RecvFrom : "), my_head->message_0->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } return ALT_YES; } } alt_status IPA__CODEC__PT::trigger(const IPA__RecvFrom_template& value_template, IPA__RecvFrom *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Trigger operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s will drop a message: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } remove_msg_queue_head(); return ALT_REPEAT; } else if (my_head->item_selection != MESSAGE_0) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s will drop a message: Type of the first message in the queue is not @IPA_CodecPort.IPA_RecvFrom.", port_name); remove_msg_queue_head(); return ALT_REPEAT; } else if (!value_template.match(*my_head->message_0)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_0), TTCN_Logger::end_event_log2str())); } remove_msg_queue_head(); return ALT_REPEAT; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_0; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_0), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::trigger__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPA_CodecPort.IPA_RecvFrom : "), my_head->message_0->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } remove_msg_queue_head(); return ALT_YES; } } alt_status IPA__CODEC__PT::receive(const IPL4asp__Types::ASP__ConnId__ReadyToRelease_template& value_template, IPL4asp__Types::ASP__ConnId__ReadyToRelease *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Receive operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else if (my_head->item_selection != MESSAGE_1) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s failed: Type of the first message in the queue is not @IPL4asp_Types.ASP_ConnId_ReadyToRelease.", port_name); return ALT_NO; } else if (!value_template.match(*my_head->message_1)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_1), TTCN_Logger::end_event_log2str())); } return ALT_NO; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_1; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_1), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPL4asp_Types.ASP_ConnId_ReadyToRelease : "), my_head->message_1->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } remove_msg_queue_head(); return ALT_YES; } } alt_status IPA__CODEC__PT::check_receive(const IPL4asp__Types::ASP__ConnId__ReadyToRelease_template& value_template, IPL4asp__Types::ASP__ConnId__ReadyToRelease *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Check-receive operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else if (my_head->item_selection != MESSAGE_1) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s failed: Type of the first message in the queue is not @IPL4asp_Types.ASP_ConnId_ReadyToRelease.", port_name); return ALT_NO; } else if (!value_template.match(*my_head->message_1)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_1), TTCN_Logger::end_event_log2str())); } return ALT_NO; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_1; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_1), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::check__receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPL4asp_Types.ASP_ConnId_ReadyToRelease : "), my_head->message_1->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } return ALT_YES; } } alt_status IPA__CODEC__PT::trigger(const IPL4asp__Types::ASP__ConnId__ReadyToRelease_template& value_template, IPL4asp__Types::ASP__ConnId__ReadyToRelease *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Trigger operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s will drop a message: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } remove_msg_queue_head(); return ALT_REPEAT; } else if (my_head->item_selection != MESSAGE_1) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s will drop a message: Type of the first message in the queue is not @IPL4asp_Types.ASP_ConnId_ReadyToRelease.", port_name); remove_msg_queue_head(); return ALT_REPEAT; } else if (!value_template.match(*my_head->message_1)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_1), TTCN_Logger::end_event_log2str())); } remove_msg_queue_head(); return ALT_REPEAT; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_1; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_1), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::trigger__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @IPL4asp_Types.ASP_ConnId_ReadyToRelease : "), my_head->message_1->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } remove_msg_queue_head(); return ALT_YES; } } alt_status IPA__CODEC__PT::receive(const Socket__API__Definitions::PortEvent_template& value_template, Socket__API__Definitions::PortEvent *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Receive operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else if (my_head->item_selection != MESSAGE_2) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s failed: Type of the first message in the queue is not @Socket_API_Definitions.PortEvent.", port_name); return ALT_NO; } else if (!value_template.match(*my_head->message_2)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_2), TTCN_Logger::end_event_log2str())); } return ALT_NO; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_2; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_2), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @Socket_API_Definitions.PortEvent : "), my_head->message_2->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } remove_msg_queue_head(); return ALT_YES; } } alt_status IPA__CODEC__PT::check_receive(const Socket__API__Definitions::PortEvent_template& value_template, Socket__API__Definitions::PortEvent *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Check-receive operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s failed: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } return ALT_NO; } else if (my_head->item_selection != MESSAGE_2) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s failed: Type of the first message in the queue is not @Socket_API_Definitions.PortEvent.", port_name); return ALT_NO; } else if (!value_template.match(*my_head->message_2)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_2), TTCN_Logger::end_event_log2str())); } return ALT_NO; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_2; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_2), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::check__receive__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @Socket_API_Definitions.PortEvent : "), my_head->message_2->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } return ALT_YES; } } alt_status IPA__CODEC__PT::trigger(const Socket__API__Definitions::PortEvent_template& value_template, Socket__API__Definitions::PortEvent *value_redirect, const COMPONENT_template& sender_template, COMPONENT *sender_ptr, FLOAT* timestamp_redirect, Index_Redirect*) { if (value_template.get_selection() == ANY_OR_OMIT) TTCN_error("Trigger operation using '*' as matching template"); msg_queue_item *my_head = (msg_queue_item*)msg_queue_head; if (msg_queue_head == NULL) { if (is_started) return ALT_MAYBE; else { TTCN_Logger::log(TTCN_Logger::MATCHING_PROBLEM, "Matching on port %s failed: Port is not started and the queue is empty.", port_name); return ALT_NO; } } else if (!sender_template.match(my_head->sender_component)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::begin_event(log_sev); TTCN_Logger::log_event("Matching on port %s will drop a message: Sender of the first message in the queue does not match the from clause: ", port_name); sender_template.log_match(my_head->sender_component); TTCN_Logger::end_event(); } remove_msg_queue_head(); return ALT_REPEAT; } else if (my_head->item_selection != MESSAGE_2) { TTCN_Logger::log(my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMUNSUCC:TTCN_Logger::MATCHING_MCUNSUCC, "Matching on port %s will drop a message: Type of the first message in the queue is not @Socket_API_Definitions.PortEvent.", port_name); remove_msg_queue_head(); return ALT_REPEAT; } else if (!value_template.match(*my_head->message_2)) { const TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF ? TTCN_Logger::MATCHING_MMUNSUCC : TTCN_Logger::MATCHING_MCUNSUCC; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_failure(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, TitanLoggerApiSimple::MatchingFailureType_reason::message__does__not__match__template, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_2), TTCN_Logger::end_event_log2str())); } remove_msg_queue_head(); return ALT_REPEAT; } else { if (value_redirect != NULL) { *value_redirect = *my_head->message_2; } if (sender_ptr != NULL) *sender_ptr = my_head->sender_component; TTCN_Logger::Severity log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::MATCHING_MMSUCCESS:TTCN_Logger::MATCHING_MCSUCCESS; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_matching_success(TitanLoggerApiSimple::PortType::message__, port_name, my_head->sender_component, (TTCN_Logger::begin_event(log_sev, TRUE), value_template.log_match(*my_head->message_2), TTCN_Logger::end_event_log2str())); } log_sev = my_head->sender_component==SYSTEM_COMPREF?TTCN_Logger::PORTEVENT_MMRECV:TTCN_Logger::PORTEVENT_MCRECV; if (TTCN_Logger::log_this_event(log_sev)) { TTCN_Logger::log_msgport_recv(port_name, TitanLoggerApiSimple::Msg__port__recv_operation::trigger__op, my_head->sender_component, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(log_sev,TRUE), TTCN_Logger::log_event_str(": @Socket_API_Definitions.PortEvent : "), my_head->message_2->log(), TTCN_Logger::end_event_log2str()), msg_head_count+1); } remove_msg_queue_head(); return ALT_YES; } } void IPA__CODEC__PT::incoming_message(const IPL4asp__Types::ASP__RecvFrom& incoming_par, component sender_component) { if (!is_started) { if (is_halted) { TTCN_warning("A message that arrived on port %s has been discarded, because the port is not started.", port_name); return; } else { TTCN_error("Port %s is not started but a message has arrived on it.", port_name); } } if (TTCN_Logger::log_this_event(TTCN_Logger::PORTEVENT_MQUEUE)) { TTCN_Logger::log_port_queue(TitanLoggerApiSimple::Port__Queue_operation::enqueue__msg, port_name, sender_component, msg_tail_count+1, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(TTCN_Logger::PORTEVENT_MQUEUE, TRUE), TTCN_Logger::log_event_str(" @IPL4asp_Types.ASP_RecvFrom : "), incoming_par.log(), TTCN_Logger::end_event_log2str())); } IPA__RecvFrom *mapped_par = new IPA__RecvFrom; try { IPL4__to__IPA__RecvFrom(incoming_par, *mapped_par); } catch (...) { delete mapped_par; throw; } msg_tail_count++; if (TTCN_Logger::log_this_event(TTCN_Logger::PORTEVENT_DUALRECV)) { TTCN_Logger::log_dualport_map(1, "@IPA_CodecPort.IPA_RecvFrom", (TTCN_Logger::begin_event(TTCN_Logger::PORTEVENT_DUALRECV, TRUE), mapped_par->log(), TTCN_Logger::end_event_log2str()), msg_tail_count); } msg_queue_item *new_item = new msg_queue_item; new_item->item_selection = MESSAGE_0; new_item->message_0 = mapped_par; new_item->sender_component = sender_component; append_to_msg_queue(new_item); } void IPA__CODEC__PT::incoming_message(const Socket__API__Definitions::PortEvent& incoming_par, component sender_component) { if (!is_started) { if (is_halted) { TTCN_warning("A message that arrived on port %s has been discarded, because the port is not started.", port_name); return; } else { TTCN_error("Port %s is not started but a message has arrived on it.", port_name); } } msg_tail_count++; if (TTCN_Logger::log_this_event(TTCN_Logger::PORTEVENT_MQUEUE)) { TTCN_Logger::log_port_queue(TitanLoggerApiSimple::Port__Queue_operation::enqueue__msg, port_name, sender_component, msg_tail_count, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(TTCN_Logger::PORTEVENT_MQUEUE, TRUE), TTCN_Logger::log_event_str(" @Socket_API_Definitions.PortEvent : "), incoming_par.log(), TTCN_Logger::end_event_log2str())); } msg_queue_item *new_item = new msg_queue_item; new_item->item_selection = MESSAGE_2; new_item->message_2 = new Socket__API__Definitions::PortEvent(incoming_par); new_item->sender_component = sender_component; append_to_msg_queue(new_item); } void IPA__CODEC__PT::incoming_message(const IPL4asp__Types::ASP__ConnId__ReadyToRelease& incoming_par, component sender_component) { if (!is_started) { if (is_halted) { TTCN_warning("A message that arrived on port %s has been discarded, because the port is not started.", port_name); return; } else { TTCN_error("Port %s is not started but a message has arrived on it.", port_name); } } msg_tail_count++; if (TTCN_Logger::log_this_event(TTCN_Logger::PORTEVENT_MQUEUE)) { TTCN_Logger::log_port_queue(TitanLoggerApiSimple::Port__Queue_operation::enqueue__msg, port_name, sender_component, msg_tail_count, CHARSTRING(0, NULL), (TTCN_Logger::begin_event(TTCN_Logger::PORTEVENT_MQUEUE, TRUE), TTCN_Logger::log_event_str(" @IPL4asp_Types.ASP_ConnId_ReadyToRelease : "), incoming_par.log(), TTCN_Logger::end_event_log2str())); } msg_queue_item *new_item = new msg_queue_item; new_item->item_selection = MESSAGE_1; new_item->message_1 = new IPL4asp__Types::ASP__ConnId__ReadyToRelease(incoming_par); new_item->sender_component = sender_component; append_to_msg_queue(new_item); } void IPA__CODEC__PT::incoming_message(const IPL4asp__Types::ASP__RecvFrom& incoming_par) { incoming_message(incoming_par, SYSTEM_COMPREF); } void IPA__CODEC__PT::incoming_message(const Socket__API__Definitions::PortEvent& incoming_par) { incoming_message(incoming_par, SYSTEM_COMPREF); } void IPA__CODEC__PT::incoming_message(const IPL4asp__Types::ASP__ConnId__ReadyToRelease& incoming_par) { incoming_message(incoming_par, SYSTEM_COMPREF); } boolean IPA__CODEC__PT::process_message(const char *message_type, Text_Buf& incoming_buf, component sender_component, OCTETSTRING&) { if (!strcmp(message_type, "@IPL4asp_Types.ASP_RecvFrom")) { IPL4asp__Types::ASP__RecvFrom incoming_par; incoming_par.decode_text(incoming_buf); incoming_message(incoming_par, sender_component); return TRUE; } else if (!strcmp(message_type, "@Socket_API_Definitions.PortEvent")) { Socket__API__Definitions::PortEvent incoming_par; incoming_par.decode_text(incoming_buf); incoming_message(incoming_par, sender_component); return TRUE; } else if (!strcmp(message_type, "@IPL4asp_Types.ASP_ConnId_ReadyToRelease")) { IPL4asp__Types::ASP__ConnId__ReadyToRelease incoming_par; incoming_par.decode_text(incoming_buf); incoming_message(incoming_par, sender_component); return TRUE; } else return FALSE; } /* Bodies of functions, altsteps and testcases */ IPA__Send_template t__IPA__Send(const INTEGER& conn__id, const IPA__Types::IpaStreamId& stream__id, const OCTETSTRING& msg, const IPA__Types::IpaExtStreamId_template& stream__id__ext) { TTCN_Location current_location("IPA_CodecPort.ttcn", 34, TTCN_Location::LOCATION_TEMPLATE, "t_IPA_Send"); IPA__Send_template ret_val; ret_val.connId() = conn__id; ret_val.streamId() = stream__id; ret_val.streamIdExt() = stream__id__ext; ret_val.msg() = msg; return ret_val; } void IPL4__to__IPA__RecvFrom(const IPL4asp__Types::ASP__RecvFrom& pin, IPA__RecvFrom& pout) { TTCN_Location current_location("IPA_CodecPort.ttcn", 42, TTCN_Location::LOCATION_FUNCTION, "IPL4_to_IPA_RecvFrom"); current_location.update_lineno(43); /* IPA_CodecPort.ttcn, line 43 */ IPA__Types::PDU__IPA ipa(IPA__Types::dec__PDU__IPA(const_cast< const IPL4asp__Types::ASP__RecvFrom&>(pin).msg())); current_location.update_lineno(44); /* IPA_CodecPort.ttcn, line 44 */ pout.connId() = const_cast< const IPL4asp__Types::ASP__RecvFrom&>(pin).connId(); current_location.update_lineno(45); /* IPA_CodecPort.ttcn, line 45 */ pout.streamId() = const_cast< const IPA__Types::PDU__IPA&>(ipa).streamId(); current_location.update_lineno(46); /* IPA_CodecPort.ttcn, line 46 */ pout.streamIdExt() = const_cast< const IPA__Types::PDU__IPA&>(ipa).streamIdExt(); current_location.update_lineno(47); /* IPA_CodecPort.ttcn, line 47 */ pout.msg() = const_cast< const IPA__Types::PDU__IPA&>(ipa).payloadData(); } void IPA__to__IPL4__Send(const IPA__Send& pin, IPL4asp__Types::ASP__Send& pout) { TTCN_Location current_location("IPA_CodecPort.ttcn", 50, TTCN_Location::LOCATION_FUNCTION, "IPA_to_IPL4_Send"); current_location.update_lineno(51); /* IPA_CodecPort.ttcn, line 51 */ IPA__Types::PDU__IPA ipa; ipa.lengthInd() = 0; ipa.streamId() = const_cast< const IPA__Send&>(pin).streamId(); ipa.streamIdExt() = const_cast< const IPA__Send&>(pin).streamIdExt(); ipa.payloadData() = const_cast< const IPA__Send&>(pin).msg(); current_location.update_lineno(52); /* IPA_CodecPort.ttcn, line 52 */ pout.connId() = const_cast< const IPA__Send&>(pin).connId(); current_location.update_lineno(53); /* IPA_CodecPort.ttcn, line 53 */ { Socket__API__Definitions::ProtoTuple& tmp_6 = pout.proto(); /* 7388 */ tmp_6.tcp() = NULL_VALUE; } current_location.update_lineno(54); /* IPA_CodecPort.ttcn, line 54 */ pout.msg() = IPA__Types::enc__PDU__IPA(ipa); } /* Bodies of static functions */ void pre_init_module() { TTCN_Location current_location("IPA_CodecPort.ttcn", 0, TTCN_Location::LOCATION_UNKNOWN, "IPA_CodecPort"); IPL4asp__PortType::module_object.pre_init_module(); IPA__Types::module_object.pre_init_module(); module_object.add_function("IPL4_to_IPA_RecvFrom", (genericfunc_t)&IPL4__to__IPA__RecvFrom, NULL); module_object.add_function("IPA_to_IPL4_Send", (genericfunc_t)&IPA__to__IPL4__Send, NULL); } void post_init_module() { TTCN_Location current_location("IPA_CodecPort.ttcn", 0, TTCN_Location::LOCATION_UNKNOWN, "IPA_CodecPort"); IPL4asp__PortType::module_object.post_init_module(); IPA__Types::module_object.post_init_module(); current_location.update_lineno(35); /* IPA_CodecPort.ttcn, line 35 */ template_t__IPA__Send_stream__id__ext_defval = OMIT_VALUE; } } /* end of namespace */