print "message: {$tag}\n";
}
if ($cd < 0) {
if ($cd == PN_EOS) {
// now that we hit the end of the message, updated the
// disposition and advance the link to the next message
pn_disposition($delivery, PN_ACCEPTED);
pn_advance($lnk);
break;
} else {
print "error reading message: {$cd}\n";
}
}
}
if (pn_credit($lnk) < 10) {
pn_flow($lnk, 10);
}
} else {
if (pn_writable($delivery)) {
// we have capacity to write, so let's send a message
list($cd, $msg) = pn_message_data("this is message {$tag}", 1024);
$n = pn_send($lnk, $msg);
if ($n != strlen($msg)) {
print "error sending message: {$cd}";
}
if (pn_advance($lnk)) {
print "sent {$tag}\n";
pn_delivery($lnk, "delivery-{$counter}");
$counter++;
}
}
pn_connection_set_container($conn, "asdf");
$ssn = pn_session($conn);
$snd = pn_sender($ssn, "sender");
pn_set_target($snd, "queue1");
$rcv = pn_receiver($ssn, "receiver");
pn_set_source($rcv, "queue1");
// open all the endpoints
pn_connection_open($conn);
pn_session_open($ssn);
pn_link_open($snd);
pn_link_open($rcv);
// set up an initial delivery
pn_delivery($snd, "delivery-{$counter}");
$counter++;
// allocate some initial credit
pn_flow($rcv, min($count ? $count : 10, 10));
$done = false;
while (!$done) {
// wait until there is an active connector or listener
pn_driver_wait($driver, -1);
// cycle through all connectors with I/O activity
while ($c = pn_driver_connector($driver)) {
// process work due to I/O events
pn_connector_process($c);
$h = pn_connector_context($c);
$h($c);
if (pn_connector_closed($c)) {
pn_connection_free(pn_connector_connection($c));
pn_connector_free($c);
unset($c);
$done = true;
