samples: add Terra samples

source: https://github.com/zdevito/terra/tree/master/tests

samples/Terra/cudatex.t

@@ -0,0 +1,59 @@
+if not terralib.cudacompile then
+	print("CUDA not enabled, not performing test...")
+	return
+end
+
+local tid = cudalib.nvvm_read_ptx_sreg_tid_x--terralib.intrinsic("llvm.nvvm.read.ptx.sreg.tid.x",{} -> int)
+
+C = terralib.includecstring [[
+#include <stdio.h>
+#include <cuda.h>
+#include <cuda_runtime.h>
+#include <string.h>
+]]
+
+vprintf = terralib.externfunction("cudart:vprintf", {&int8,&int8} -> int)
+
+foo = terra(result : C.cudaTextureObject_t)
+    var t = tid()
+    var r = terralib.asm([tuple(float,float,float,float)],
+                          "tex.1d.v4.f32.s32 {$0,$1,$2,$3}, [$4, {$5}];", 
+                          "=f,=f,=f,=f,l,r",false,result,t)
+    var rr : double = r._0
+    vprintf("%f\n",[&int8](&rr))    
+end
+
+terralib.includepath = terralib.includepath..";/usr/local/cuda/include"
+
+sync = terralib.externfunction("cudaThreadSynchronize", {} -> int)
+
+local R = terralib.cudacompile({ foo = foo })
+
+terra doit(N : int)
+	var d_buffer : &double
+	C.cudaMalloc([&&opaque](&d_buffer),N*sizeof(float))
+	
+	var h_buffer = arrayof(float,0,1,2,3,4,5,6,7,8,9,10)
+	C.cudaMemcpy(d_buffer,&h_buffer[0],sizeof(float)*N, C.cudaMemcpyHostToDevice)
+	
+	var resDesc : C.cudaResourceDesc
+	C.memset(&resDesc,0,sizeof(C.cudaResourceDesc))
+	resDesc.resType = C.cudaResourceTypeLinear;
+    resDesc.res.linear.devPtr = d_buffer;
+    resDesc.res.linear.desc.f = C.cudaChannelFormatKindFloat;
+    resDesc.res.linear.desc.x = 32; -- bits per channel
+    resDesc.res.linear.sizeInBytes = N*sizeof(float);
+    var texDesc : C.cudaTextureDesc
+    C.memset(&texDesc, 0, sizeof(C.cudaTextureDesc));
+    texDesc.readMode = C.cudaReadModeElementType;
+	
+	var tex : C.cudaTextureObject_t
+    C.cudaCreateTextureObject(&tex, &resDesc, &texDesc, nil);
+    
+	var launch = terralib.CUDAParams { 1,1,1, N,1,1, 0, nil }
+	R.foo(&launch,tex)
+	sync()
+	C.printf("and were done\n")
+end
+
+doit(10)