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