PUBLIC cl_int clGetProgramInfo(cl_program prog, cl_program_info param, size_t size, void *buf, size_t *size_ret) { if (!prog) return CL_INVALID_PROGRAM; switch (param) { case CL_PROGRAM_REFERENCE_COUNT: return scalar_property<cl_uint>(buf, size, size_ret, prog->ref_count()); case CL_PROGRAM_CONTEXT: return scalar_property<cl_context>(buf, size, size_ret, &prog->ctx); case CL_PROGRAM_NUM_DEVICES: return scalar_property<cl_uint>(buf, size, size_ret, prog->binaries().size()); case CL_PROGRAM_DEVICES: return vector_property<cl_device_id>( buf, size, size_ret, map(keys<device *, module>, prog->binaries().begin(), prog->binaries().end())); case CL_PROGRAM_SOURCE: return string_property(buf, size, size_ret, prog->source()); case CL_PROGRAM_BINARY_SIZES: return vector_property<size_t>( buf, size, size_ret, map([](const std::pair<device *, module> &ent) { compat::ostream::buffer_t bin; compat::ostream s(bin); ent.second.serialize(s); return bin.size(); }, prog->binaries().begin(), prog->binaries().end())); case CL_PROGRAM_BINARIES: return matrix_property<unsigned char>( buf, size, size_ret, map([](const std::pair<device *, module> &ent) { compat::ostream::buffer_t bin; compat::ostream s(bin); ent.second.serialize(s); return bin; }, prog->binaries().begin(), prog->binaries().end())); default: return CL_INVALID_VALUE; } }