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 25 using namespace clover; 26 27 PUBLIC cl_int 28 clGetPlatformIDs(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 42 PUBLIC cl_int 43 clGetPlatformInfo(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
