source: CIVL/examples/concurrency/simpleSendFunction.cvl@ bb03188

#include <stdio.h>
#include <comm.cvh>

void testStream($gcomm gc){
  $comm comm = $comm_create($here, gc, 1);
  $message message = $comm_dequeue(comm, 0, $COMM_ANY_TAG);
  printf("New kernel message received\n");
  void (*kernel)();
  $message_unpack(message, (void*)&kernel, sizeof(kernel));
  kernel();
  $comm_destroy(comm);
}

void print(){
  printf("Inside kernel function!\n");
}

void main(){
  $gcomm gcomm = $gcomm_create($here, 2);
  $comm comm = $comm_create($here, gcomm, 0);
  $proc otherProc = $spawn testStream(gcomm);
  void (*printFunc)() = &print;
  $message message = $message_pack(0, 1, 0, &printFunc, sizeof(printFunc));
  $comm_enqueue(comm, message);
  $wait(otherProc);
  $comm_destroy(comm);
  $gcomm_destroy(gcomm, NULL);
}