143 lines
5.1 KiB
Ruby
143 lines
5.1 KiB
Ruby
class Oclgrind < Formula
|
|
desc "OpenCL device simulator and debugger"
|
|
homepage "https://github.com/jrprice/Oclgrind"
|
|
url "https://github.com/jrprice/Oclgrind/archive/v21.10.tar.gz"
|
|
sha256 "b40ea81fcf64e9012d63c3128640fde9785ef4f304f9f876f53496595b8e62cc"
|
|
license "BSD-3-Clause"
|
|
|
|
livecheck do
|
|
url :homepage
|
|
regex(/^v?(\d+(?:\.\d+)+)$/i)
|
|
end
|
|
|
|
bottle do
|
|
sha256 cellar: :any, arm64_monterey: "c28fb5bc8dd0fa6897dfeae3dcd1b04c7d2494d6e69f2fdad110dfe0fd53210b"
|
|
sha256 cellar: :any, arm64_big_sur: "7eb82923ede6b708c46585ea8277f4f73ed521f5a9411709f27de4daa9f48bb4"
|
|
sha256 cellar: :any, monterey: "456d3363136042e98b217cd9fad9165fa0038b97c68279911ff7cd93cfc4889e"
|
|
sha256 cellar: :any, big_sur: "d7e20e1c27a6716a448f9e878f60706490751edfde5296a676776c2ec3d2ef2c"
|
|
sha256 cellar: :any, catalina: "3b7f3865bc3ed7ea3f9d4436b9e4a003b8759262347c7a27edf68ae291e804a2"
|
|
sha256 cellar: :any, mojave: "f92d8a342ad7d878f2164345e2f8982d8bd6c750ef625e1761f80cee666627fb"
|
|
end
|
|
|
|
depends_on "cmake" => :build
|
|
depends_on "llvm"
|
|
|
|
def install
|
|
system "cmake", ".", *std_cmake_args
|
|
system "make", "install"
|
|
end
|
|
|
|
test do
|
|
(testpath/"rot13.c").write <<~'EOS'
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include <OpenCL/cl.h>
|
|
|
|
const char rot13_cl[] = " \
|
|
__kernel void rot13 \
|
|
( __global const char* in \
|
|
, __global char* out \
|
|
) \
|
|
{ \
|
|
const uint index = get_global_id(0); \
|
|
\
|
|
char c=in[index]; \
|
|
if (c<'A' || c>'z' || (c>'Z' && c<'a')) { \
|
|
out[index] = in[index]; \
|
|
} else { \
|
|
if (c>'m' || (c>'M' && c<'a')) { \
|
|
out[index] = in[index]-13; \
|
|
} else { \
|
|
out[index] = in[index]+13; \
|
|
} \
|
|
} \
|
|
} \
|
|
";
|
|
|
|
void rot13 (char *buf) {
|
|
int index=0;
|
|
char c=buf[index];
|
|
while (c!=0) {
|
|
if (c<'A' || c>'z' || (c>'Z' && c<'a')) {
|
|
buf[index] = buf[index];
|
|
} else {
|
|
if (c>'m' || (c>'M' && c<'a')) {
|
|
buf[index] = buf[index]-13;
|
|
} else {
|
|
buf[index] = buf[index]+13;
|
|
}
|
|
}
|
|
c=buf[++index];
|
|
}
|
|
}
|
|
|
|
int main() {
|
|
char buf[]="Hello, World!";
|
|
size_t srcsize, worksize=strlen(buf);
|
|
|
|
cl_int error;
|
|
cl_platform_id platform;
|
|
cl_device_id device;
|
|
cl_uint platforms, devices;
|
|
|
|
error=clGetPlatformIDs(1, &platform, &platforms);
|
|
error=clGetDeviceIDs(platform, CL_DEVICE_TYPE_ALL, 1, &device, &devices);
|
|
cl_context_properties properties[]={
|
|
CL_CONTEXT_PLATFORM, (cl_context_properties)platform,
|
|
0};
|
|
|
|
cl_context context=clCreateContext(properties, 1, &device, NULL, NULL, &error);
|
|
cl_command_queue cq = clCreateCommandQueue(context, device, 0, &error);
|
|
|
|
rot13(buf);
|
|
|
|
const char *src=rot13_cl;
|
|
srcsize=strlen(rot13_cl);
|
|
|
|
const char *srcptr[]={src};
|
|
cl_program prog=clCreateProgramWithSource(context,
|
|
1, srcptr, &srcsize, &error);
|
|
error=clBuildProgram(prog, 0, NULL, "", NULL, NULL);
|
|
|
|
if (error == CL_BUILD_PROGRAM_FAILURE) {
|
|
size_t logsize;
|
|
clGetProgramBuildInfo(prog, device, CL_PROGRAM_BUILD_LOG, 0, NULL, &logsize);
|
|
|
|
char *log=(char *)malloc(logsize);
|
|
clGetProgramBuildInfo(prog, device, CL_PROGRAM_BUILD_LOG, logsize, log, NULL);
|
|
|
|
fprintf(stderr, "%s\n", log);
|
|
free(log);
|
|
|
|
return 1;
|
|
}
|
|
|
|
cl_mem mem1, mem2;
|
|
mem1=clCreateBuffer(context, CL_MEM_READ_ONLY, worksize, NULL, &error);
|
|
mem2=clCreateBuffer(context, CL_MEM_WRITE_ONLY, worksize, NULL, &error);
|
|
|
|
cl_kernel k_rot13=clCreateKernel(prog, "rot13", &error);
|
|
clSetKernelArg(k_rot13, 0, sizeof(mem1), &mem1);
|
|
clSetKernelArg(k_rot13, 1, sizeof(mem2), &mem2);
|
|
|
|
char buf2[sizeof buf];
|
|
buf2[0]='?';
|
|
buf2[worksize]=0;
|
|
|
|
error=clEnqueueWriteBuffer(cq, mem1, CL_FALSE, 0, worksize, buf, 0, NULL, NULL);
|
|
error=clEnqueueNDRangeKernel(cq, k_rot13, 1, NULL, &worksize, &worksize, 0, NULL, NULL);
|
|
error=clEnqueueReadBuffer(cq, mem2, CL_FALSE, 0, worksize, buf2, 0, NULL, NULL);
|
|
error=clFinish(cq);
|
|
|
|
puts(buf2);
|
|
}
|
|
EOS
|
|
|
|
system ENV.cc, "rot13.c", "-o", "rot13", "-framework", "OpenCL"
|
|
output = shell_output("#{bin}/oclgrind ./rot13 2>&1").chomp
|
|
assert_equal "Hello, World!", output
|
|
end
|
|
end
|