4.6 基本功能函数

因为OpenCL意味着对于系统来说是不可知的，有些任务不能像传统的C/C++那样自动完成。不过好消息是当相关工具代码完成后，就可以是用到所有OpenCL应用代码中。

4.6.1 打印编译错误信息

当我们尝试编译和链接我们的OpenCL程序对象时(使用clBuildProgram()、clCompileProgram()和clLinkProgram())，OpenCL C代码可能会出现错误。出现错误时，主机端不会直接显示这些编译错误，而是直接退出。通过OpenCL API的返回值，让编程者知道是编译时候的错误，并需要手动去将编译输出打印出来。

当OpenCL程序对象编译失败，一个构建日志将会产生，并保存在程序对象中。该日志可以通过API clGetProgramBuildInfo()检索出，传入CL_PROGRAM_BUILD_LOG到param_name，得到相应日志内容。还有与其类似的API存在，clProgramBuildInfo()需要调用两次：第一次是获取日志的大小，分配对应大小的数组，用来放置日志内容；第二次是将日志中的具体内容取出。

本章中我们自己封装了一个名为printCompilerError()的函数，用于打印OpenCL C的编译错误信息。printCompilerError()的具体实现在程序清单4.12中。

  1. void printCompilerError(cl_program program, cl_device_id device)
  2. {
  3.   cl_int status;
  5.   size_t logSize;
  6.   char *log;
  8.   /* Get the log size */
  9.   status = clGetProgramBuildInfo(program, device, CL_PROGRAM_BUILD_LOG, 0, NULL, &logSize);
  10.   check(status);
  12.   /* Allocate space for the log */
  13.   log = (char *)malloc(logSize);
  14.   if (!log){
  15.     exit(-1);
  16.   }
  18.   /* Read the log */
  19.   status = clGetPeogramBuildInfo(program, device, CL_PROGRAM_BUILD_LOG, logSize, log, NULL);
  20.   check(status);
  22.   /* Print the log */
  23.   printf("%s\n", log);
  24. }

程序清单4.12 查询程序对象编译日志的函数封装

4.6.2 创建一个程序字符串

第3章中，我们使用了字符数组(const char **strings)，调用clCreateProgramWithSource()创建程序对象。不过，将OpenCL C源直接携程字符数组是十分不便的。因此，通常的做法都是将OpenCL C源码放置在一个单独文件中，当主机端使用到的时候对改文件进行读取。

使用C++时(如代码清单4.8所示)，从文件中读取字符串就简单很多。不过，当我们使用C语言时，从文件中读取字符串就需要多做一些事情。代码清单4.13就展示了，如何使用一个C函数将文件读取到一个C的字符串(字符数组)中。

  1. char *readFile(const char *filename)
  2. {
  3.   FILE *fp;
  4.   char *fileData;
  5.   long fileSize;
  7.   /* Open the file */
  8.   fp = fopen(filename, "r");
  9.   if (!fp){
  10.     printf("Could not open file: %s\n", filename);
  11.     exit(-1);
  12.   }
  14.   /* Determine the file size */
  15.   if (fseek(fp, 0, SEEK_END)){
  16.     printf("Error read the file\n");
  17.     exit(-1);
  18.   }
  19.   fileSize = ftell(fp);
  20.   if (fileSize < 0){
  21.     printf("Error read the file\n");
  22.     exit(-1);
  23.   }
  24.   if (fseek(fp, 0, SEEK_SET)){
  25.     printf("Error read the file\n");
  26.     exit(-1);
  27.   }
  29.   /* Read the contents */
  30.   fileData = (char *)malloc(fileSize + 1);
  31.   if (!fileData){
  32.     exit(-1);
  33.   }
  34.   if (fread(fileData, fileSize, 1, fp) != 1){
  35.     printf("Error reading the file\n");
  36.     exit(-1);
  37.   }
  39.   /* Terminate the string */
  40.   fileData[fileSize] = '\0';
  42.   /* Close the file */
  43.   if (fclose(fp)){
  44.     printf("Error closing the file\n");
  45.     exit(-1);
  46.   }
  48.   return fileData;
  49. }

程序清单4.13 将OpenCL C源码从文件中读取出