common-lisp - 如何检查cl-opengl中的着色器和程序错误？

Question

我正在学习opengl ES 2.0。我正在学习检查 C 中的错误，但我不知道在 cl-opengl 中进行相同的操作，因为我没有看到任何像 gl:get-shaderiv 或 这样的函数gl:get-programiv，那么，如何实现与下面的代码相同的功能呢？然而在 cl-opengl 中。

// Check the compile status
glGetShaderiv(shader, GL_COMPILE_STATUS, &compiled);
if(!compiled) {
  GLint info
  Len = 0;
  glGetShaderiv(shader, GL_INFO_LOG_LENGTH, &infoLen);
  if(infoLen > 1) {
    char* infoLog = malloc(sizeof(char) * infoLen);
    glGetShaderInfoLog(shader, infoLen, NULL, infoLog);
    esLogMessage("Error compiling shader:\n%s\n", infoLog);
    free(infoLog);
  }
  glDeleteShader(shader);
  return 0;
}


// Check the link status
glGetProgramiv(programObject, GL_LINK_STATUS, &linked);
if(!linked) {
  GLint infoLen = 0;
  glGetProgramiv(programObject, GL_INFO_LOG_LENGTH, &infoLen);
  if(infoLen > 1) {
    char* infoLog = malloc(sizeof(char) * infoLen);
    glGetProgramInfoLog(programObject, infoLen, NULL, infoLog);
    esLogMessage("Error linking program:\n%s\n", infoLog);
    free(infoLog);
  }
  glDeleteProgram(programObject);
  return FALSE;
}

Answer 1

有两种获取方式:

第一:

(gl:get-shader shader :compile-status) 

或者您可以使用第二个选项:

%gl:get-shader-iv

这样你需要手动为&compiled分配一个指针。