/*cl_kernel*/ void *_ocl_make_kernel(QSP_ARG_DECL const char *ksrc,const char *kernel_name,Platform_Device *pdp)
{
cl_program program;
static cl_kernel kernel; // is this really a pointer???
program = ocl_create_program(ksrc,pdp);
if( program == NULL )
error1("program creation failure!?");
kernel = ocl_create_kernel(program, kernel_name, pdp);
if( kernel == NULL ){
advise("Source code of failed program:");
advise(ksrc);
error1("kernel creation failure!?");
}
assert( sizeof(cl_kernel) == sizeof(void *) );
return (void *) kernel;
}
int main(int argc, char **argv)
{
OCL_Context *ocl = ocl_make_context();
static char log[1024*1024];
cl_program program = ocl_compile_file(ocl, "part1_opencl.c", "", log, sizeof(log));
if (ocl->error_count) {
fprintf(stderr, "Failed to compile\n%s\n", log);
return 1;
}
cl_kernel k_set_zero = ocl_create_kernel(ocl, program, "set_zero");
cl_kernel k_count_lights = ocl_create_kernel(ocl, program, "count_lights");
cl_kernel k_turn_on = ocl_create_kernel(ocl, program, "turn_on");
cl_kernel k_turn_off = ocl_create_kernel(ocl, program, "turn_off");
cl_kernel k_toggle = ocl_create_kernel(ocl, program, "toggle");
cl_kernel light_kernels[] = { k_turn_on, k_turn_off, k_toggle };
int width = 1000;
int height = 1000;
int x_cells = (width + 3) / 4;
int y_cells = (height + 3) / 4;
size_t total_cells = x_cells * y_cells;
size_t cells_size = total_cells * sizeof(cl_ushort);
cl_mem buffer = ocl_create_buffer(ocl, CL_MEM_READ_WRITE, cells_size, 0);
for (int i = 0; i < 3; i++) {
ocl_arg_buffer(ocl, light_kernels[i], 0, buffer);
ocl_arg_int(ocl, light_kernels[i], 5, x_cells);
}
ocl_arg_buffer(ocl, k_set_zero, 0, buffer);
ocl_arg_buffer(ocl, k_count_lights, 0, buffer);
ocl_enqueue_kernel_1d(ocl, k_set_zero, 0, total_cells);
while (!feof(stdin)) {
char line[256];
int minX, minY, maxX, maxY;
cl_kernel kernel = 0;
if (!fgets(line, sizeof(line), stdin))
continue;
if (sscanf(line, "turn on %d,%d through %d,%d", &minX, &minY, &maxX, &maxY)) {
kernel = k_turn_on;
} else if (sscanf(line, "toggle %d,%d through %d,%d", &minX, &minY, &maxX, &maxY)) {
kernel = k_toggle;
} else if (sscanf(line, "turn off %d,%d through %d,%d", &minX, &minY, &maxX, &maxY)) {
kernel = k_turn_off;
}
if (minX < 0) minX = 0;
if (minY < 0) minY = 0;
if (maxX > width - 1) minX = width - 1;
if (maxY > height - 1) minY = height - 1;
if (kernel) {
enqueue_light_kernel(ocl, kernel, minX, minY, maxX + 1, maxY + 1);
}
}
ocl_enqueue_kernel_1d(ocl, k_count_lights, 0, total_cells);
cl_ushort *result = (cl_ushort*)malloc(cells_size);
ocl_blocking_read(ocl, buffer, 0, total_cells * sizeof(cl_ushort), result);
size_t light_count = 0;
for (size_t i = 0; i < total_cells; i++) {
light_count += (size_t)result[i];
}
printf("%u\n", light_count);
}