Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  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 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.
  21. //
  22.  
  23. #include "api/util.hpp"
  24. #include "core/platform.hpp"
  25.  
  26. using namespace clover;
  27.  
  28. static platform __platform;
  29.  
  30. PUBLIC cl_int
  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;
  36.  
  37.    if (num_platforms)
  38.       *num_platforms = 1;
  39.    if (platforms)
  40.       *platforms = &__platform;
  41.  
  42.    return CL_SUCCESS;
  43. }
  44.  
  45. PUBLIC cl_int
  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;
  50.  
  51.    switch (param_name) {
  52.    case CL_PLATFORM_PROFILE:
  53.       return string_property(buf, size, size_ret, "FULL_PROFILE");
  54.  
  55.    case CL_PLATFORM_VERSION:
  56.       return string_property(buf, size, size_ret,
  57.                              "OpenCL 1.1 MESA " PACKAGE_VERSION);
  58.  
  59.    case CL_PLATFORM_NAME:
  60.       return string_property(buf, size, size_ret, "Default");
  61.  
  62.    case CL_PLATFORM_VENDOR:
  63.       return string_property(buf, size, size_ret, "Mesa");
  64.  
  65.    case CL_PLATFORM_EXTENSIONS:
  66.       return string_property(buf, size, size_ret, "");
  67.  
  68.    default:
  69.       return CL_INVALID_VALUE;
  70.    }
  71. }
  72.