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
clGetPlatformIDs(cl_uint num_entries,cl_platform_id * platforms,cl_uint * num_platforms)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
clGetPlatformInfo(cl_platform_id platform,cl_platform_info param_name,size_t size,void * buf,size_t * size_ret)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