1// 2// Copyright 2012 Francisco Jerez 3// 4// Permission is hereby granted, free of charge, to any person obtaining a 5// copy of this software and associated documentation files (the "Software"), 6// to deal in the Software without restriction, including without limitation 7// the rights to use, copy, modify, merge, publish, distribute, sublicense, 8// and/or sell copies of the Software, and to permit persons to whom the 9// Software is furnished to do so, subject to the following conditions: 10// 11// The above copyright notice and this permission notice shall be included in 12// all copies or substantial portions of the Software. 13// 14// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 15// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 16// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 17// THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 18// WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF 19// OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 20// SOFTWARE. 21// 22 23#include "api/util.hpp" 24 25using namespace clover; 26 27PUBLIC cl_int 28clGetPlatformIDs(cl_uint num_entries, cl_platform_id *platforms, 29 cl_uint *num_platforms) { 30 if ((!num_entries && platforms) || 31 (!num_platforms && !platforms)) 32 return CL_INVALID_VALUE; 33 34 if (num_platforms) 35 *num_platforms = 1; 36 if (platforms) 37 *platforms = NULL; 38 39 return CL_SUCCESS; 40} 41 42PUBLIC cl_int 43clGetPlatformInfo(cl_platform_id platform, cl_platform_info param_name, 44 size_t size, void *buf, size_t *size_ret) { 45 if (platform != NULL) 46 return CL_INVALID_PLATFORM; 47 48 switch (param_name) { 49 case CL_PLATFORM_PROFILE: 50 return string_property(buf, size, size_ret, "FULL_PROFILE"); 51 52 case CL_PLATFORM_VERSION: 53 return string_property(buf, size, size_ret, 54 "OpenCL 1.1 MESA " MESA_VERSION); 55 56 case CL_PLATFORM_NAME: 57 return string_property(buf, size, size_ret, "Default"); 58 59 case CL_PLATFORM_VENDOR: 60 return string_property(buf, size, size_ret, "Mesa"); 61 62 case CL_PLATFORM_EXTENSIONS: 63 return string_property(buf, size, size_ret, ""); 64 65 default: 66 return CL_INVALID_VALUE; 67 } 68} 69