Cleanup code, related to oclContext

Author: dpanfilyonok

src/GraphBLAS-sharp/CSRMatrix.fs

@@ -34,9 +34,8 @@ type CSRMatrix<'a when 'a : struct and 'a : equality>(csrTuples: CSRFormat<'a>)
                 "vector"
                 (sprintf "Argument has invalid dimension. Need %i, but given %i" csrMatrixColumnCount vectorLength)
 
-        // let (BinaryOp op) = context.Times
-        let plus = !> context.PlusMonoid.Append
-        let mult = !> context.Times
+        let (BinaryOp plus) = context.PlusMonoid.Append
+        let (BinaryOp mult) = context.Times
 
         let resultVector = Array.zeroCreate<'a> csrMatrixRowCount
         let command =

src/GraphBLAS-sharp/ComputationalContext.fs

@@ -11,7 +11,7 @@
     <Compile Include="Operators.fs" />
     <Compile Include="Monoid.fs" />
     <Compile Include="Semiring.fs" />
-    <Compile Include="ComputationalContext.fs" />
+    <Compile Include="OpenCLContext.fs" />
     <Compile Include="Scalar.fs" />
     <Compile Include="MatrixAndVector.fs" />
     <Compile Include="DenseVector.fs" />

src/GraphBLAS-sharp/GraphBLAS-sharp.fsproj

@@ -0,0 +1,25 @@
+namespace GraphBLAS.FSharp
+
+open Brahma.OpenCL
+open OpenCL.Net
+open Brahma.OpenCL
+
+type OpenCLContext = {
+    Provider: ComputeProvider
+    CommandQueue: CommandQueue
+}
+
+module OpenCLContext =
+
+    let private defaultProvider =
+        try ComputeProvider.Create("*", DeviceType.Default)
+        with
+        | ex -> failwith ex.Message
+
+    let private defaultQueue =
+        new CommandQueue(defaultProvider, defaultProvider.Devices |> Seq.head)
+
+    let currentContext = {
+        Provider = defaultProvider
+        CommandQueue = defaultQueue
+    }