/*! \file main.c
 *
 * \author John Reppy
 *
 * \brief This program is used to determine properties of the host machine's
 * OpenCL support.
 *
 * Usage:
 *	clinfo cmd [args]
 *
 *	where cmd is one of
 *		platforms		-- prints a list of OpenCL platforms supported by the
 *					   host.
 *		version	platform	-- prints version of OpenCL supported by the platform.  The
 *					   format is "OpenCL major.minor ..."
 *		devices	platform	-- prints a list of devices
 *		extensions device	-- prints a list of extensions that are
 *					   supported by the device
 */

/*
 * COPYRIGHT (c) 2011 The Diderot Project (http://diderot-language.cs.uchicago.edu)
 * All rights reserved.
 */

#include "clinfo.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#define MAX_PLATFORMS	16

static void usage ();
static PlatformInfo_t *GetPlatformByName (const CLInfo_t *info, const char *name);

int main (int argc, const char **argv)
{
    if (argc < 2) {
	usage();
    }

  // get CL info
    CLInfo_t *info = GetCLInfo ();

  // process command-line options
    if ((strcmp(argv[1], "platforms") == 0) && (argc == 2)) {
	for (int i = 0;  i < info->numPlatforms;  i++) {
	    printf ("%s\n", info->platforms[i].name);
	}
    }
    else if ((strcmp(argv[1], "version") == 0) && (argc == 3)) {
	char buf[256];
	cl_platform_id id = GetPlatformByName(info, argv[2]);
	clGetPlatformInfo (id, CL_PLATFORM_VERSION, sizeof(buf), buf, 0);
	printf ("%s\n", buf);
    }
    else if ((strcmp(argv[1], "devices") == 0) && (argc == 3)) {
	cl_platform_id id = GetPlatformByName(argv[2]);
	cl_device_id *devs;
	char buf[256];
	int numDevs = GetDevices (id, CL_DEVICE_TYPE_ALL, &devs);
	for (int i = 0;  i < numDevs;  i++) {
	    clGetDeviceInfo (devs[i], CL_DEVICE_NAME, sizeof(buf), buf, 0);
	    printf ("%s\n", buf);
	}
    }
    else if ((strcmp(argv[1], "extensions") == 0) && (argc == 3)) {
	cl_platform_id id = GetPlatformByName(argv[2]);
	size_t bufSz;
      // get the size of the extensions buffer
	clGetPlatformInfo (id, CL_PLATFORM_EXTENSIONS, 0, 0, &bufSz);
	char *buf = (char *)malloc(bufSz);
	clGetPlatformInfo (id, CL_PLATFORM_EXTENSIONS, bufSz, buf, 0);
	char *p = buf;
	while (p != 0) {
	    p = strchr(p, ' ');
	    if (p != 0) *p = '\n';
	}
	printf ("%s", buf);
	free (buf);
    }
    else
	usage();

}

static void usage ()
{
    exit (1);
}

static PlatformInfo_t *GetPlatformByName (const CLInfo_t *info, const char *name)
{
    for (cl_uint i = 0;  i < info->numPlatforms;  i++) {
	if (strcmp(info->platforms[i].name, name) == 0)
            return &(info->platforms[i]);
    }

    fprintf (stderr, "platform %s not found\n", name);
    exit (1);

}

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: (info-&gt;platforms[i]);
    }

    fprintf (stderr, &quot;platform %s not found\n&quot;, name);
    exit (1);

}</div>
</div></div>
</body></html>