[Places] allow creation and communication of arbitrary place channels
This commit is contained in:
parent
b86d90a46a
commit
aff19733d3
|
@ -20,6 +20,8 @@ static Scheme_Object *scheme_place_send(int argc, Scheme_Object *args[]);
|
|||
static Scheme_Object *scheme_place_recv(int argc, Scheme_Object *args[]);
|
||||
static Scheme_Object *scheme_place_channel_p(int argc, Scheme_Object *args[]);
|
||||
static Scheme_Object *def_place_exit_handler_proc(int argc, Scheme_Object *args[]);
|
||||
static Scheme_Object *scheme_place_channel(int argc, Scheme_Object *args[]);
|
||||
static Scheme_Object *scheme_place_channel_receiver_channel(int argc, Scheme_Object *args[]);
|
||||
|
||||
static Scheme_Object *scheme_place_async_channel_create();
|
||||
static Scheme_Object *scheme_place_bi_channel_create();
|
||||
|
@ -74,6 +76,8 @@ void scheme_init_place(Scheme_Env *env)
|
|||
PLACE_PRIM_W_ARITY("place-sleep", scheme_place_sleep, 1, 1, plenv);
|
||||
PLACE_PRIM_W_ARITY("place-wait", scheme_place_wait, 1, 1, plenv);
|
||||
PLACE_PRIM_W_ARITY("place?", scheme_place_p, 1, 1, plenv);
|
||||
PLACE_PRIM_W_ARITY("place-channel", scheme_place_channel, 0, 0, plenv);
|
||||
PLACE_PRIM_W_ARITY("place-channel->receiver-channel", scheme_place_channel_receiver_channel, 1, 1, plenv);
|
||||
PLACE_PRIM_W_ARITY("place-channel-send", scheme_place_send, 1, 2, plenv);
|
||||
PLACE_PRIM_W_ARITY("place-channel-recv", scheme_place_recv, 1, 1, plenv);
|
||||
PLACE_PRIM_W_ARITY("place-channel?", scheme_place_channel_p, 1, 1, plenv);
|
||||
|
@ -451,6 +455,8 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab
|
|||
case scheme_true_type:
|
||||
case scheme_false_type:
|
||||
case scheme_null_type:
|
||||
/* place_bi_channels are allocated in the master and can be passed along as is */
|
||||
case scheme_place_bi_channel_type:
|
||||
new_so = so;
|
||||
break;
|
||||
case scheme_char_type:
|
||||
|
@ -946,6 +952,32 @@ Scheme_Object *scheme_place_bi_peer_channel_create(Scheme_Object *orig) {
|
|||
return (Scheme_Object *)ch;
|
||||
}
|
||||
|
||||
static Scheme_Object *scheme_place_channel(int argc, Scheme_Object *args[]) {
|
||||
if (argc == 0) {
|
||||
return scheme_place_bi_channel_create();
|
||||
}
|
||||
else {
|
||||
scheme_wrong_count_m("place-channel", 0, 0, argc, args, 0);
|
||||
}
|
||||
return scheme_true;
|
||||
}
|
||||
|
||||
static Scheme_Object *scheme_place_channel_receiver_channel(int argc, Scheme_Object *args[]) {
|
||||
if (argc == 1) {
|
||||
if (SAME_TYPE(SCHEME_TYPE(args[0]), scheme_place_bi_channel_type)) {
|
||||
return scheme_place_bi_peer_channel_create(args[0]);
|
||||
}
|
||||
else {
|
||||
scheme_wrong_type("place-channel->receive-channel", "place-channel?", 0, argc, args);
|
||||
}
|
||||
}
|
||||
else {
|
||||
scheme_wrong_count_m("place-channel-send", 1, 1, argc, args, 0);
|
||||
}
|
||||
return scheme_true;
|
||||
}
|
||||
|
||||
|
||||
static void scheme_place_bi_channel_set_signal(Scheme_Object *cho) {
|
||||
Scheme_Place_Async_Channel *ch;
|
||||
void *signaldescr;
|
||||
|
|
Loading…
Reference in New Issue
Block a user