Files
@ d600dd299dde
Branch filter:
Location: CSY/reowolf/examples/1_socketlike/bob.c - annotation
d600dd299dde
1.0 KiB
text/x-csrc
additional FFI
952d4edf0cbb 952d4edf0cbb 33da6b69e9a2 952d4edf0cbb aa7efaf3fd9b aa7efaf3fd9b 7e4b7b7026e6 33da6b69e9a2 33da6b69e9a2 7e4b7b7026e6 7e4b7b7026e6 7e4b7b7026e6 7e4b7b7026e6 952d4edf0cbb aa7efaf3fd9b 952d4edf0cbb 33da6b69e9a2 7e4b7b7026e6 7e4b7b7026e6 7e4b7b7026e6 7e4b7b7026e6 952d4edf0cbb aa7efaf3fd9b 7e4b7b7026e6 7e4b7b7026e6 952d4edf0cbb 49b9c766fe5a 33da6b69e9a2 49b9c766fe5a 7e4b7b7026e6 952d4edf0cbb 7e4b7b7026e6 7e4b7b7026e6 952d4edf0cbb 952d4edf0cbb 952d4edf0cbb | #include <stdio.h>
#include "../../reowolf.h"
#include "../utility.c"
int main() {
// Protocol is hard-coded.
char* pdl =
"primitive forward(in i, out o) {"
" while(true) synchronous { "
" put(o, get(i)); "
" } "
"} ";
// setup a connector with one incoming network channel.
Connector* c = connector_new();
printf("configuring...\n");
check("config ", connector_configure(c, pdl, "forward"));
check("bind 0 ", connector_bind_active(c, 0, "127.0.0.1:7000"));
check("bind 1 ", connector_bind_native(c, 1));
check("connect ", connector_connect(c, 5000));
// receive a message and print it to stdout three times
int i, msg_len;
const unsigned char * msg;
for (i = 0; i < 3; i++) {
check("get ", connector_get(c, 0));
check("sync", connector_sync(c, 1000));
check("read", connector_gotten(c, 0, &msg, &msg_len));
printf("Received one message `%.*s`!\n", msg_len, msg);
}
printf("cleaning up\n");
connector_destroy(c);
return 0;
}
|