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
18 // OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
19 // ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
20 // OTHER DEALINGS IN THE SOFTWARE.
23 #include "api/util.hpp"
24 #include "core/platform.hpp"
26 using namespace clover
;
29 platform _clover_platform
;
33 clGetPlatformIDs(cl_uint num_entries
, cl_platform_id
*rd_platforms
,
34 cl_uint
*rnum_platforms
) {
35 if ((!num_entries
&& rd_platforms
) ||
36 (!rnum_platforms
&& !rd_platforms
))
37 return CL_INVALID_VALUE
;
42 *rd_platforms
= desc(_clover_platform
);
48 clover::GetPlatformInfo(cl_platform_id d_platform
, cl_platform_info param
,
49 size_t size
, void *r_buf
, size_t *r_size
) try {
50 property_buffer buf
{ r_buf
, size
, r_size
};
55 case CL_PLATFORM_PROFILE
:
56 buf
.as_string() = "FULL_PROFILE";
59 case CL_PLATFORM_VERSION
:
60 buf
.as_string() = "OpenCL 1.1 MESA " PACKAGE_VERSION
;
63 case CL_PLATFORM_NAME
:
64 buf
.as_string() = "Clover";
67 case CL_PLATFORM_VENDOR
:
68 buf
.as_string() = "Mesa";
71 case CL_PLATFORM_EXTENSIONS
:
72 buf
.as_string() = "cl_khr_icd";
75 case CL_PLATFORM_ICD_SUFFIX_KHR
:
76 buf
.as_string() = "MESA";
80 throw error(CL_INVALID_VALUE
);
90 clover::GetExtensionFunctionAddress(const char *p_name
) {
91 std::string name
{ p_name
};
93 if (name
== "clIcdGetPlatformIDsKHR")
94 return reinterpret_cast<void *>(IcdGetPlatformIDsKHR
);
100 clover::IcdGetPlatformIDsKHR(cl_uint num_entries
, cl_platform_id
*rd_platforms
,
101 cl_uint
*rnum_platforms
) {
102 return clGetPlatformIDs(num_entries
, rd_platforms
, rnum_platforms
);
105 CLOVER_ICD_API cl_int
106 clGetPlatformInfo(cl_platform_id d_platform
, cl_platform_info param
,
107 size_t size
, void *r_buf
, size_t *r_size
) {
108 return GetPlatformInfo(d_platform
, param
, size
, r_buf
, r_size
);
111 CLOVER_ICD_API
void *
112 clGetExtensionFunctionAddress(const char *p_name
) {
113 return GetExtensionFunctionAddress(p_name
);
116 CLOVER_ICD_API cl_int
117 clIcdGetPlatformIDsKHR(cl_uint num_entries
, cl_platform_id
*rd_platforms
,
118 cl_uint
*rnum_platforms
) {
119 return IcdGetPlatformIDsKHR(num_entries
, rd_platforms
, rnum_platforms
);