3 * Copyright 2007,2008 Free Software Foundation, Inc.
5 * This file is part of GNU Radio
7 * GNU Radio is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 3, or (at your option)
12 * GNU Radio is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License along
18 * with this program; if not, write to the Free Software Foundation, Inc.,
19 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 #include <mb_port_simple.h>
27 #include <mblock/msg_accepter.h>
28 #include <mblock/exception.h>
29 #include <mblock/mblock.h>
30 #include <mb_mblock_impl.h>
32 #include <mbi_runtime_lock.h>
35 mb_port_simple::mb_port_simple(mb_mblock *mblock,
36 const std::string &port_name,
37 const std::string &protocol_class_name,
39 mb_port::port_type_t port_type)
40 : mb_port(mblock, port_name, protocol_class_name, conjugated, port_type),
45 mb_port_simple::~mb_port_simple()
51 mb_port_simple::send(pmt_t signal, pmt_t data, pmt_t metadata, mb_pri_t priority)
53 if (port_type() == mb_port::RELAY) // Can't send directly to a RELAY port
54 throw mbe_invalid_port_type(mblock(), mblock()->instance_name(), port_name());
56 mb_msg_accepter_sptr accepter = find_accepter(this);
58 (*accepter)(signal, data, metadata, priority);
63 mb_port_simple::find_accepter(mb_port_simple *start)
65 mb_port_simple *p = start;
66 mb_port_simple *pp = 0;
67 mb_mblock *context = 0;
69 mb_msg_accepter_sptr r;
71 if (start->d_cache_valid)
72 return start->d_cached_accepter;
74 mbi_runtime_lock l(p->mblock());
76 // Set up initial context.
78 switch(p->port_type()){
79 case mb_port::INTERNAL: // binding is in our name space
80 context = p->mblock();
83 case mb_port::EXTERNAL: // binding is in parent's name space
84 context = p->mblock()->parent();
85 if (!context) // can't be bound if there's no parent
86 return mb_msg_accepter_sptr(); // not bound
90 throw std::logic_error("Can't happen: mb_port_simple::find_accepter [1]");
96 if (!context->impl()->lookup_other_endpoint(p, &peer_ep))
97 return mb_msg_accepter_sptr(); // not bound
99 pp = dynamic_cast<mb_port_simple *>(peer_ep.port().get()); // peer port
102 switch (pp->port_type()){
103 case mb_port::INTERNAL: // Terminate here.
104 case mb_port::EXTERNAL:
105 r = pp->make_accepter();
109 start->d_cached_accepter = r;
110 start->d_cache_valid = true;
113 case mb_port::RELAY: // Traverse to other side of relay port.
114 if (peer_ep.inside_of_relay_port_p()){
115 // We're on inside of relay port, headed out.
117 context = p->mblock()->parent();
119 // Corner case: we're attempting to traverse a relay port on the border
120 // of the top block...
122 return mb_msg_accepter_sptr(); // not bound
127 // We're on the outside of relay port, headed in.
129 context = p->mblock();
135 throw std::logic_error("Can't happen: mb_port_simple::find_accepter [2]");
141 mb_port_simple::make_accepter()
143 return d_mblock->impl()->make_accepter(port_symbol());
147 mb_port_simple::invalidate_cache()
149 d_cache_valid = false;
150 d_cached_accepter.reset();