extending openCL info dump

modules/ocl/include/opencv2/ocl/private/opencl_dumpinfo.hpp

@@ -39,7 +39,7 @@
 //
 //M*/
 
-#if !defined(DUMP_INFO_STDOUT) && !defined(DUMP_INFO_XML)
+#if !defined(DUMP_INFO_STDOUT) && !defined(DUMP_INFO_XML) && !defined(DUMP_DEVICES_INFO_STDOUT) && !defined(DUMP_DEVICES_INFO_XML)
 #error Invalid usage
 #endif
 
@@ -51,6 +51,14 @@
 #define DUMP_INFO_XML(...)
 #endif
 
+#if !defined(DUMP_DEVICES_INFO_STDOUT)
+#define DUMP_DEVICES_INFO_STDOUT(...)
+#endif
+
+#if !defined(DUMP_DEVICES_INFO_XML)
+#define DUMP_DEVICES_INFO_XML(...)
+#endif
+
 #include <sstream>
 
 static std::string bytesToStringRepr(size_t value)
@@ -85,21 +93,42 @@ static void dumpOpenCLDevice()
     using namespace cv::ocl;
     try
     {
-        const cv::ocl::DeviceInfo& deviceInfo = cv::ocl::Context::getContext()->getDeviceInfo();
+        cv::ocl::PlatformsInfo platforms;
+        cv::ocl::getOpenCLPlatforms(platforms);
+        DUMP_INFO_STDOUT("OpenCL Platforms","");
+        DUMP_INFO_XML("OpenCL Platforms","");
+        const char* deviceTypeStr;
+        for(unsigned int i=0; i < platforms.size(); i++)
+        {
+            DUMP_INFO_STDOUT("    ", platforms.at(i)->platformName);
+            DUMP_INFO_XML("", platforms.at(i)->platformName);
+            cv::ocl::DevicesInfo devices;
+            cv::ocl::getOpenCLDevices(devices);
+            for(unsigned int j=0; j < devices.size(); j++)
+            {
+                deviceTypeStr = devices.at(j)->deviceType == CVCL_DEVICE_TYPE_CPU
+                            ? ("CPU") : (devices.at(j)->deviceType == CVCL_DEVICE_TYPE_GPU ? "GPU" : "unknown");
+                DUMP_DEVICES_INFO_STDOUT(deviceTypeStr, j, devices.at(j)->deviceName, devices.at(j)->deviceVersion);
+                DUMP_DEVICES_INFO_XML(deviceTypeStr, j, devices.at(j)->deviceName, devices.at(j)->deviceVersion);
+            }
+        }
+        DUMP_INFO_STDOUT("Current OpenCL device","");
+        DUMP_INFO_XML("Current OpenCL device","");
 
-        const char* deviceTypeStr = deviceInfo.deviceType == CVCL_DEVICE_TYPE_CPU
-                        ? "CPU" :
-                        (deviceInfo.deviceType == CVCL_DEVICE_TYPE_GPU ? "GPU" : "unknown");
-        DUMP_INFO_STDOUT("Device type", deviceTypeStr);
-        DUMP_INFO_XML("cv_ocl_deviceType", deviceTypeStr);
+        const cv::ocl::DeviceInfo& deviceInfo = cv::ocl::Context::getContext()->getDeviceInfo();
 
-        DUMP_INFO_STDOUT("Platform name", deviceInfo.platform->platformName);
+        DUMP_INFO_STDOUT("    Platform", deviceInfo.platform->platformName);
         DUMP_INFO_XML("cv_ocl_platformName", deviceInfo.platform->platformName);
 
-        DUMP_INFO_STDOUT("Device name", deviceInfo.deviceName);
+        deviceTypeStr = deviceInfo.deviceType == CVCL_DEVICE_TYPE_CPU
+                        ? "CPU" : (deviceInfo.deviceType == CVCL_DEVICE_TYPE_GPU ? "GPU" : "unknown");
+        DUMP_INFO_STDOUT("    Type", deviceTypeStr);
+        DUMP_INFO_XML("cv_ocl_deviceType", deviceTypeStr);
+
+        DUMP_INFO_STDOUT("    Name", deviceInfo.deviceName);
         DUMP_INFO_XML("cv_ocl_deviceName", deviceInfo.deviceName);
 
-        DUMP_INFO_STDOUT("Device version", deviceInfo.deviceVersion);
+        DUMP_INFO_STDOUT("    Version", deviceInfo.deviceVersion);
         DUMP_INFO_XML("cv_ocl_deviceVersion", deviceInfo.deviceVersion);
 
         DUMP_INFO_STDOUT("    Compute units", deviceInfo.maxComputeUnits);

modules/ocl/perf/main.cpp

@@ -53,6 +53,18 @@
         ::testing::Test::RecordProperty((propertyXMLName), ss.str()); \
     } while (false)
 
+#define DUMP_DEVICES_INFO_STDOUT(deviceType, deviceIndex, deviceName, deviceVersion) \
+    do { \
+        std::cout << "        " << (deviceType) << " " << (deviceIndex) << " : " << (deviceName) << " : " << deviceVersion << std::endl; \
+    } while (false)
+
+#define DUMP_DEVICES_INFO_XML(deviceType, deviceIndex, deviceName, deviceVersion) \
+    do { \
+        std::stringstream ss; \
+        ss << ":" << deviceIndex << ":" << deviceName << ":" << deviceVersion; \
+        ::testing::Test::RecordProperty((deviceType), ss.str()); \
+    } while (false)
+
 #include "opencv2/ocl/private/opencl_dumpinfo.hpp"
 
 static const char * impls[] =