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
*platforms
,
34 cl_uint
*num_platforms
) {
35 if ((!num_entries
&& platforms
) ||
36 (!num_platforms
&& !platforms
))
37 return CL_INVALID_VALUE
;
42 *platforms
= &_clover_platform
;
48 clGetPlatformInfo(cl_platform_id platform
, cl_platform_info param_name
,
49 size_t size
, void *r_buf
, size_t *r_size
) try {
50 property_buffer buf
{ r_buf
, size
, r_size
};
52 if (platform
!= &_clover_platform
)
53 return CL_INVALID_PLATFORM
;
56 case CL_PLATFORM_PROFILE
:
57 buf
.as_string() = "FULL_PROFILE";
60 case CL_PLATFORM_VERSION
:
61 buf
.as_string() = "OpenCL 1.1 MESA " PACKAGE_VERSION
;
64 case CL_PLATFORM_NAME
:
65 buf
.as_string() = "Default";
68 case CL_PLATFORM_VENDOR
:
69 buf
.as_string() = "Mesa";
72 case CL_PLATFORM_EXTENSIONS
:
77 throw error(CL_INVALID_VALUE
);