source: CIVL/examples/translation/openclversion2.1/openCLshared.cvl@ 7317e9f

#include "cl.cvl"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int clGetDeviceIDs(int numEntries, cl_device_id * devices)
{
  for (int i=0; i<numEntries; i++) {
    devices[i].id = i;
    // exactly equivalent to: (devices+i)->id = i
  }
  return CL_SUCCESS;
}

cl_command_queue clCreateCommandQueue(cl_device_id devices)
{
  cl_command_queue queue;
  
  queue.device = devices;
  
  return queue;
}
//would pick the kernel by name, but not currently in place