Subversion Repositories Kolibri OS

Rev

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. namespace {
  29.    platform _clover_platform;
  30. }
  31.  
  32. CLOVER_API cl_int
  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;
  38.  
  39.    if (rnum_platforms)
  40.       *rnum_platforms = 1;
  41.    if (rd_platforms)
  42.       *rd_platforms = desc(_clover_platform);
  43.  
  44.    return CL_SUCCESS;
  45. }
  46.  
  47. cl_int
  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 };
  51.  
  52.    obj(d_platform);
  53.  
  54.    switch (param) {
  55.    case CL_PLATFORM_PROFILE:
  56.       buf.as_string() = "FULL_PROFILE";
  57.       break;
  58.  
  59.    case CL_PLATFORM_VERSION:
  60.       buf.as_string() = "OpenCL 1.1 MESA " PACKAGE_VERSION;
  61.       break;
  62.  
  63.    case CL_PLATFORM_NAME:
  64.       buf.as_string() = "Clover";
  65.       break;
  66.  
  67.    case CL_PLATFORM_VENDOR:
  68.       buf.as_string() = "Mesa";
  69.       break;
  70.  
  71.    case CL_PLATFORM_EXTENSIONS:
  72.       buf.as_string() = "cl_khr_icd";
  73.       break;
  74.  
  75.    case CL_PLATFORM_ICD_SUFFIX_KHR:
  76.       buf.as_string() = "MESA";
  77.       break;
  78.  
  79.    default:
  80.       throw error(CL_INVALID_VALUE);
  81.    }
  82.  
  83.    return CL_SUCCESS;
  84.  
  85. } catch (error &e) {
  86.    return e.get();
  87. }
  88.  
  89. void *
  90. clover::GetExtensionFunctionAddress(const char *p_name) {
  91.    std::string name { p_name };
  92.  
  93.    if (name == "clIcdGetPlatformIDsKHR")
  94.       return reinterpret_cast<void *>(IcdGetPlatformIDsKHR);
  95.    else
  96.       return NULL;
  97. }
  98.  
  99. cl_int
  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);
  103. }
  104.  
  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);
  109. }
  110.  
  111. CLOVER_ICD_API void *
  112. clGetExtensionFunctionAddress(const char *p_name) {
  113.    return GetExtensionFunctionAddress(p_name);
  114. }
  115.  
  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);
  120. }
  121.