OpenCL properties (#35)

Author: thewilsonator

source/dcompute/driver/ocl120/context.d

@@ -19,9 +19,10 @@ struct Context
     {
         @(0x1080) uint referenceCount;
         @(0x1081) Device* _devices;
-        @(0x1082) Properties* properties;
-        @(0x1083) uint numDevices;
-        ArrayAccesssor!(_devices,numDevices) devices;
+        @(0x1082) Properties* _properties;
+        ZeroTerminatedArrayAccessor!_properties properties;
+        @(0x1083) uint _numDevices;
+        ArrayAccesssor!(_devices,_numDevices) devices;
         // Extensions
         //@(0x2010) khrTerminate;
         //@(0x200E) khrMemoryInitialise;

source/dcompute/driver/ocl120/program.d

@@ -9,16 +9,19 @@ struct Program
     {
         @(0x1160) uint referneceCount;
         @(0x1161) Context context;
+        
         @(0x1162) uint _numDevices;
         @(0x1163) Device* _devices;
         ArrayAccesssor!(_devices,_numDevices) devices;
+        
         @(0x1164) char* _source;
         StringzAccessor!(_source) source;
+        
         @(0x1165) size_t* _binarySizes;
-        // TODO expose `binaries` properly
-        @(0x1166) ubyte** binaries;
+        @(0x1166) ubyte** _binaries;
         @(0x1167) size_t _numKernels;
-        ArrayAccesssor!(_binarySizes,_numKernels) binarySizes;
+        ArrayAccesssor2D!(_binaries,_binarySizes,_numKernels) binaries;
+        
         @(0x1168) char* _kernelNames;
         StringzAccessor!(_kernelNames) kernelNames;
     }

source/dcompute/driver/ocl120/util.d

@@ -27,14 +27,48 @@ T[Args.length + 1] propertyList(T,Args...)(Args args)
     return props;
 }
 
-struct ArrayAccesssor(alias ptr, alias len) {}
+struct ArrayAccesssor(alias ptr, alias len) 
+{
+    alias elementType = typeof(*ptr);
+}
+
+struct ArrayAccesssor2D(alias ptr, alias lens, alias len) 
+{
+    alias elementType = typeof(**ptr);
+}
 
+// C style char*
 struct StringzAccessor(alias ptr) {}
 
+// A propertyList
 struct ZeroTerminatedArrayAccessor(alias ptr) {}
 
 mixin template generateGetInfo(alias func)
 {
     //TODO
     //
 }
+
+// Returned by ArrayAccesssor2D
+struct RangeOfArray(T)
+{
+    T**     ptr;
+    size_t* lengths;
+    size_t  length;
+    size_t  index;
+    
+    bool empty()
+    {
+        return index == length;
+    }
+    
+    @property T[] front()
+    {
+        return ptr[index][0 .. lengths[index]];
+    }
+    
+    void popFront()
+    {
+        ++index;
+    }
+}