add filter device functionality

Author: SimonDanisch

src/CLArrays.jl

@@ -17,6 +17,6 @@ include("context.jl")
 include("compilation.jl")
 include("3rdparty.jl")
 
-export CLArray, gpu_call
+export CLArray, gpu_call, is_gpu, is_cpu
 
 end # module

src/compilation.jl

@@ -10,7 +10,6 @@ using Sugar: isfunction
 using Base: tail
 
 
-
 function _gpu_call(f, A::CLArray, args::Tuple, blocks_threads::Tuple{T, T}) where T <: NTuple{N, Integer} where N
     ctx = context(A)
     _args = (KernelState(), args...) # CLArrays "state"

src/device.jl

@@ -1,11 +1,13 @@
 import GPUArrays: is_gpu, is_cpu, name, threads, blocks, global_memory
 import GPUArrays: supports_double, local_memory
 
-function devices()
-    filter(cl.devices()) do dev
+
+function devices(filter_funcs...)
+    sort(filter(cl.devices()) do dev
         # These drivers have some problems -  TODO figure out if we are the problem
-        !contains(cl.info(dev, :version), "(Build 10)") # intels experimental 2.1 driver
-    end
+        !contains(cl.info(dev, :version), "(Build 10)") && # intels experimental 2.1 driver
+        !any(f-> !f(dev), filter_funcs)
+    end, by = x-> !is_gpu(x)) # now gpu devices come first
 end
 
 is_gpu(dev::cl.Device) = cl.info(dev, :device_type) == :gpu