2 // Copyright 2012 Francisco Jerez
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:
11 // The above copyright notice and this permission notice shall be included in
12 // all copies or substantial portions of the Software.
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 OR COPYRIGHT HOLDERS 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
23 #include "api/util.hpp"
24 #include "core/platform.hpp"
26 using namespace clover
;
28 static platform __platform
;
31 clGetPlatformIDs(cl_uint num_entries
, cl_platform_id
*platforms
,
32 cl_uint
*num_platforms
) {
33 if ((!num_entries
&& platforms
) ||
34 (!num_platforms
&& !platforms
))
35 return CL_INVALID_VALUE
;
40 *platforms
= &__platform
;
46 clGetPlatformInfo(cl_platform_id platform
, cl_platform_info param_name
,
47 size_t size
, void *buf
, size_t *size_ret
) {
48 if (platform
!= &__platform
)
49 return CL_INVALID_PLATFORM
;
52 case CL_PLATFORM_PROFILE
:
53 return string_property(buf
, size
, size_ret
, "FULL_PROFILE");
55 case CL_PLATFORM_VERSION
:
56 return string_property(buf
, size
, size_ret
,
57 "OpenCL 1.1 MESA " PACKAGE_VERSION
);
59 case CL_PLATFORM_NAME
:
60 return string_property(buf
, size
, size_ret
, "Default");
62 case CL_PLATFORM_VENDOR
:
63 return string_property(buf
, size
, size_ret
, "Mesa");
65 case CL_PLATFORM_EXTENSIONS
:
66 return string_property(buf
, size
, size_ret
, "");
69 return CL_INVALID_VALUE
;