source: CIVL/examples/translation/opencl/square.cvl@ aef8b11

#include <civlc.h>
#include <stdio.h>
#include "setup/openCL.cvl"

//this is the kernel that gets loaded into the program
// Simple compute kernel which computes the square of an input array 
//CIVL can't turn a string into a function at this time

//const char *KernelSource = "__kernel void square(   __global float* input,   __global float* output,   const unsigned int count){   int i = get_global_id(0);   if(i < count)       output[i] = input[i] * input[i];}";

// Simple compute kernel which computes the square of an input array 
//
const char *KernelSource = "\n" \
"__kernel void square(                                                       \n" \
"   __global float* input,                                              \n" \
"   __global float* output,                                             \n" \
"   const unsigned int count)                                           \n" \
"{                                                                      \n" \
"   int i = get_global_id(0);                                           \n" \
"   if(i < count)                                                       \n" \
"       output[i] = input[i] * input[i];                                \n" \
"}                                                                      \n" \
"\n";
/*
void square(float* input, float* output, const unsigned int count)
{
  int i = get_global_id(0);
  if (i < count)
  {
    output[i] = input[i] * input[i];
  }
}
*/
void main()
{
  int err;
  int num_entries = 3;
  
  cl_device_id device_id;
  cl_context context;
  cl_command_queue commands; 
  cl_program program;
  cl_kernel kernel;
  
  //assumes you have hardware that works, does not check that part
  //fills the device_id with device ids, returns CL_SUCCESS if it works
  err = clGetDeviceIDs(NULL,
  CL_DEVICE_TYPE_GPU,
  num_entries,
  &device_id,
  NULL);
  printf("devices is %d", device_id[0]);
  $assert (err == CL_SUCCESS);
  
  //Returns a context, which has device information
  context = clCreateContext(0, 1, &device_id, NULL, NULL, &err);
  $assert (context != NULL);
  
  commands = clCreateCommandQueue(context, device_id, 0, &err);
  $assert (commands != NULL);

  program = clCreateProgramWithSource(context, 1, (const char **) & KernelSource, NULL, &err);
  $assert (program != NULL);
  
  //err = clBuildProgram(program, 0, NULL, NULL, NULL, NULL);
}