Renamed functions for merge, prepare positions and set positions

Author: artemgl

src/GraphBLAS-sharp/Backend/EWiseAdd.fs

@@ -7,12 +7,12 @@ open GraphBLAS.FSharp.Backend.Common
 
 module internal EWiseAdd =
     let cooNotEmpty (matrixLeft: COOFormat<'a>) (matrixRight: COOFormat<'a>) (mask: Mask2D option) (semiring: Semiring<'a>) : OpenCLEvaluation<COOFormat<'a>> = opencl {
-        let! allRows, allColumns, allValues = Merge.runM matrixLeft matrixRight mask
+        let! allRows, allColumns, allValues = Merge.runForMatrix matrixLeft matrixRight mask
 
         let (BinaryOp append) = semiring.PlusMonoid.Append
-        let! rawPositions = PreparePositions.runM allRows allColumns allValues append
+        let! rawPositions = PreparePositions.runForMatrix allRows allColumns allValues append
 
-        let! resultRows, resultColumns, resultValues = SetPositions.runM allRows allColumns allValues rawPositions
+        let! resultRows, resultColumns, resultValues = SetPositions.runForMatrix allRows allColumns allValues rawPositions
 
         return {
             RowCount = matrixLeft.RowCount
@@ -55,12 +55,12 @@ module internal EWiseAdd =
         else cooNotEmpty matrixLeft matrixRight mask semiring
 
     let sparseNotEmpty (leftIndices: int[]) (leftValues: 'a[]) (rightIndices: int[]) (rightValues: 'a[]) (mask: Mask1D option) (semiring: Semiring<'a>) : OpenCLEvaluation<int[] * 'a[]> = opencl {
-        let! allIndices, allValues = Merge.runV leftIndices leftValues rightIndices rightValues mask
+        let! allIndices, allValues = Merge.runForVector leftIndices leftValues rightIndices rightValues mask
 
         let (BinaryOp append) = semiring.PlusMonoid.Append
-        let! rawPositions = PreparePositions.runV allIndices allValues append
+        let! rawPositions = PreparePositions.runForVector allIndices allValues append
 
-        return! SetPositions.runV allIndices allValues rawPositions
+        return! SetPositions.runForVector allIndices allValues rawPositions
     }
 
     let sparse (leftIndices: int[]) (leftValues: 'a[]) (rightIndices: int[]) (rightValues: 'a[]) (mask: Mask1D option) (semiring: Semiring<'a>) : OpenCLEvaluation<int[] * 'a[]> =

src/GraphBLAS-sharp/Backend/Merge.fs

@@ -7,7 +7,7 @@ open GraphBLAS.FSharp
 open GraphBLAS.FSharp.Backend.Common
 
 module internal Merge =
-    let runM (matrixLeft: COOFormat<'a>) (matrixRight: COOFormat<'a>) (mask: Mask2D option) : OpenCLEvaluation<int[] * int[] * 'a[]> = opencl {
+    let runForMatrix (matrixLeft: COOFormat<'a>) (matrixRight: COOFormat<'a>) (mask: Mask2D option) : OpenCLEvaluation<int[] * int[] * 'a[]> = opencl {
         let workGroupSize = Utils.workGroupSize
         let firstSide = matrixLeft.Values.Length
         let secondSide = matrixRight.Values.Length
@@ -126,7 +126,7 @@ module internal Merge =
         return allRows, allColumns, allValues
     }
 
-    let runV (leftIndices: int[]) (leftValues: 'a[]) (rightIndices: int[]) (rightValues: 'a[]) (mask: Mask1D option) : OpenCLEvaluation<int[] * 'a[]> = opencl {
+    let runForVector (leftIndices: int[]) (leftValues: 'a[]) (rightIndices: int[]) (rightValues: 'a[]) (mask: Mask1D option) : OpenCLEvaluation<int[] * 'a[]> = opencl {
         let workGroupSize = Utils.workGroupSize
         let firstSide = leftValues.Length
         let secondSide = rightValues.Length

src/GraphBLAS-sharp/Backend/PreparePositions.fs

@@ -7,7 +7,7 @@ open GraphBLAS.FSharp.Backend.Common
 open Microsoft.FSharp.Quotations
 
 module internal PreparePositions =
-    let runM (allRows: int[]) (allColumns: int[]) (allValues: 'a[]) (plus: Expr<'a -> 'a -> 'a>) : OpenCLEvaluation<int[]> = opencl {
+    let runForMatrix (allRows: int[]) (allColumns: int[]) (allValues: 'a[]) (plus: Expr<'a -> 'a -> 'a>) : OpenCLEvaluation<int[]> = opencl {
         let length = allValues.Length
 
         let preparePositions =
@@ -45,7 +45,7 @@ module internal PreparePositions =
         return rawPositions
     }
 
-    let runV (allIndices: int[]) (allValues: 'a[]) (plus: Expr<'a -> 'a -> 'a>) : OpenCLEvaluation<int[]> = opencl {
+    let runForVector (allIndices: int[]) (allValues: 'a[]) (plus: Expr<'a -> 'a -> 'a>) : OpenCLEvaluation<int[]> = opencl {
         let length = allValues.Length
 
         let preparePositions =

src/GraphBLAS-sharp/Backend/SetPositions.fs

@@ -6,7 +6,7 @@ open Brahma.FSharp.OpenCL.WorkflowBuilder.Evaluation
 open GraphBLAS.FSharp.Backend.Common
 
 module internal SetPositions =
-    let runM (allRows: int[]) (allColumns: int[]) (allValues: 'a[]) (positions: int[]) : OpenCLEvaluation<int[] * int[] * 'a[]> = opencl {
+    let runForMatrix (allRows: int[]) (allColumns: int[]) (allValues: 'a[]) (positions: int[]) : OpenCLEvaluation<int[] * int[] * 'a[]> = opencl {
         let prefixSumArrayLength = positions.Length
 
         let setPositions =
@@ -55,7 +55,7 @@ module internal SetPositions =
         return resultRows, resultColumns, resultValues
     }
 
-    let runV (allIndices: int[]) (allValues: 'a[]) (positions: int[]) : OpenCLEvaluation<int[] * 'a[]> = opencl {
+    let runForVector (allIndices: int[]) (allValues: 'a[]) (positions: int[]) : OpenCLEvaluation<int[] * 'a[]> = opencl {
         let prefixSumArrayLength = positions.Length
 
         let setPositions =