3 * Copyright 2007,2008,2009 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>
36 mb_port_simple::mb_port_simple(mb_mblock *mblock,
37 const std::string &port_name,
38 const std::string &protocol_class_name,
40 mb_port::port_type_t port_type)
41 : mb_port(mblock, port_name, protocol_class_name, conjugated, port_type),
46 mb_port_simple::~mb_port_simple()
52 mb_port_simple::send(pmt_t signal, pmt_t data, pmt_t metadata, mb_pri_t priority)
54 if (port_type() == mb_port::RELAY) // Can't send directly to a RELAY port
55 throw mbe_invalid_port_type(mblock(), mblock()->instance_name(), port_name());
57 mb_msg_accepter_sptr accepter = find_accepter(this);
59 (*accepter)(signal, data, metadata, priority);
64 mb_port_simple::find_accepter(mb_port_simple *start)
66 mb_port_simple *p = start;
67 mb_port_simple *pp = 0;
68 mb_mblock *context = 0;
70 mb_msg_accepter_sptr r;
72 if (start->d_cache_valid)
73 return start->d_cached_accepter;
75 mbi_runtime_lock l(p->mblock());
77 // Set up initial context.
79 switch(p->port_type()){
80 case mb_port::INTERNAL: // binding is in our name space
81 context = p->mblock();
84 case mb_port::EXTERNAL: // binding is in parent's name space
85 context = p->mblock()->parent();
86 if (!context) // can't be bound if there's no parent
87 return mb_msg_accepter_sptr(); // not bound
91 throw std::logic_error("Can't happen: mb_port_simple::find_accepter [1]");
97 if (!context->impl()->lookup_other_endpoint(p, &peer_ep))
98 return mb_msg_accepter_sptr(); // not bound
100 pp = dynamic_cast<mb_port_simple *>(peer_ep.port().get()); // peer port
103 switch (pp->port_type()){
104 case mb_port::INTERNAL: // Terminate here.
105 case mb_port::EXTERNAL:
106 r = pp->make_accepter();
110 start->d_cached_accepter = r;
111 start->d_cache_valid = true;
114 case mb_port::RELAY: // Traverse to other side of relay port.
115 if (peer_ep.inside_of_relay_port_p()){
116 // We're on inside of relay port, headed out.
118 context = p->mblock()->parent();
120 // Corner case: we're attempting to traverse a relay port on the border
121 // of the top block...
123 return mb_msg_accepter_sptr(); // not bound
128 // We're on the outside of relay port, headed in.
130 context = p->mblock();
136 throw std::logic_error("Can't happen: mb_port_simple::find_accepter [2]");
142 mb_port_simple::make_accepter()
144 return d_mblock->impl()->make_accepter(port_symbol());
148 mb_port_simple::invalidate_cache()
150 d_cache_valid = false;
151 d_cached_accepter.reset();