fix select operations

Author: abhinavmehndiratta

src/Object_Methods/Algebra_Methods.jl

@@ -239,17 +239,71 @@ end
 function GxB_SelectOp_new(op::GxB_SelectOp, GxB_select_function::Function, xtype::GrB_Type{T}, thunk_type::GrB_Type{U}) where {T, U}
 
     GxB_select_function_C = @cfunction(
-                                    $GxB_select_function, 
+                                    $GxB_select_function,
                                     Bool,
                                     (Cuintmax_t, Cuintmax_t, Cuintmax_t, Cuintmax_t, Ref{T}, Ref{U})
                                 )
-    
+
+    return GrB_Info(
+            ccall(
+                    dlsym(graphblas_lib, "GxB_SelectOp_new"),
+                    Cint,
+                    (Ptr{Cvoid}, Ptr{Cvoid}, Ptr{Cvoid}),
+                    pointer_from_objref(op), GxB_select_function_C, xtype.p
+                )
+            )
+end
+
+function GxB_SelectOp_new(op::GxB_SelectOp, GxB_select_function::Function, xtype::GrB_NULL_Type, thunk_type::GrB_NULL_Type)
+
+    GxB_select_function_C = @cfunction(
+                                    $GxB_select_function,
+                                    Bool,
+                                    (Cuintmax_t, Cuintmax_t, Cuintmax_t, Cuintmax_t, Ptr{Cvoid}, Ptr{Cvoid})
+                                )
+
+    return GrB_Info(
+            ccall(
+                    dlsym(graphblas_lib, "GxB_SelectOp_new"),
+                    Cint,
+                    (Ptr{Cvoid}, Ptr{Cvoid}, Ptr{Cvoid}),
+                    pointer_from_objref(op), GxB_select_function_C, xtype.p
+                )
+            )
+end
+
+function GxB_SelectOp_new(op::GxB_SelectOp, GxB_select_function::Function, xtype::GrB_NULL_Type, thunk_type::GrB_Type{U}) where U
+
+    GxB_select_function_C = @cfunction(
+                                    $GxB_select_function,
+                                    Bool,
+                                    (Cuintmax_t, Cuintmax_t, Cuintmax_t, Cuintmax_t, Ptr{Cvoid}, Ref{U})
+                                )
+
+    return GrB_Info(
+            ccall(
+                    dlsym(graphblas_lib, "GxB_SelectOp_new"),
+                    Cint,
+                    (Ptr{Cvoid}, Ptr{Cvoid}, Ptr{Cvoid}),
+                    pointer_from_objref(op), GxB_select_function_C, xtype.p
+                )
+            )
+end
+
+function GxB_SelectOp_new(op::GxB_SelectOp, GxB_select_function::Function, xtype::GrB_Type{T}, thunk_type::GrB_NULL_Type) where T
+
+    GxB_select_function_C = @cfunction(
+                                    $GxB_select_function,
+                                    Bool,
+                                    (Cuintmax_t, Cuintmax_t, Cuintmax_t, Cuintmax_t, Ref{T}, Ptr{Cvoid})
+                                )
+
     return GrB_Info(
             ccall(
                     dlsym(graphblas_lib, "GxB_SelectOp_new"),
                     Cint,
                     (Ptr{Cvoid}, Ptr{Cvoid}, Ptr{Cvoid}),
-                    op.p, GxB_select_function_C, xtype.p
+                    pointer_from_objref(op), GxB_select_function_C, xtype.p
                 )
             )
 end

src/Operations/Select.jl

@@ -1,5 +1,5 @@
 GxB_select(C::GrB_Matrix, Mask, accum, op, A, k, desc) = GxB_Matrix_select(C, Mask, accum, op, A, k, desc)
-GxB_select(C::GrB_Vector, Mask, accum, op, A, k, desc) = GxB_Vectorselect(C, Mask, accum, op, A, k, desc)
+GxB_select(C::GrB_Vector, Mask, accum, op, A, k, desc) = GxB_Vector_select(C, Mask, accum, op, A, k, desc)
 
 function GxB_Vector_select(             # w<mask> = accum (w, op(u,k))
         w::GrB_Vector,                  # input/output vector for results

src/SuiteSparseGraphBLAS.jl

@@ -68,7 +68,7 @@ export
 @GxB_UnaryOp_fprint, @GxB_BinaryOp_fprint, @GxB_Monoid_fprint, @GxB_Semiring_fprint,
 @GxB_Matrix_fprint, @GxB_Vector_fprint, @GxB_Descriptor_fprint, @GxB_fprint,
 # Select Operations
-GxB_Vector_select, GxB_Matrix_select, GxB_select,
+GxB_SelectOp_new, GxB_Vector_select, GxB_Matrix_select, GxB_select,
 # Print-level enum
 GxB_Print_Level
 for s in instances(GxB_Print_Level)