2 // Copyright 2012 Francisco Jerez
4 // Permission is hereby granted, free of charge, to any person obtaining a
5 // copy of this software and associated documentation files (the "Software"),
6 // to deal in the Software without restriction, including without limitation
7 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
8 // and/or sell copies of the Software, and to permit persons to whom the
9 // Software is furnished to do so, subject to the following conditions:
11 // The above copyright notice and this permission notice shall be included in
12 // all copies or substantial portions of the Software.
14 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
17 // THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18 // WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF
19 // OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
23 #include "api/util.hpp"
24 #include "core/context.hpp"
26 using namespace clover
;
29 clCreateContext(const cl_context_properties
*props
, cl_uint num_devs
,
30 const cl_device_id
*devs
,
31 void (CL_CALLBACK
*pfn_notify
)(const char *, const void *,
33 void *user_data
, cl_int
*errcode_ret
) try {
34 auto mprops
= property_map(props
);
36 if (!devs
|| !num_devs
||
37 (!pfn_notify
&& user_data
))
38 throw error(CL_INVALID_VALUE
);
40 if (any_of(is_zero
<cl_device_id
>(), devs
, devs
+ num_devs
))
41 throw error(CL_INVALID_DEVICE
);
43 for (auto p
: mprops
) {
44 if (!(p
.first
== CL_CONTEXT_PLATFORM
&&
45 (cl_platform_id
)p
.second
== NULL
))
46 throw error(CL_INVALID_PROPERTY
);
49 ret_error(errcode_ret
, CL_SUCCESS
);
51 property_vector(mprops
),
52 std::vector
<cl_device_id
>(devs
, devs
+ num_devs
));
55 ret_error(errcode_ret
, e
);
60 clCreateContextFromType(const cl_context_properties
*props
,
62 void (CL_CALLBACK
*pfn_notify
)(
63 const char *, const void *, size_t, void *),
64 void *user_data
, cl_int
*errcode_ret
) {
68 ret
= clGetDeviceIDs(0, type
, 1, &dev
, 0);
70 ret_error(errcode_ret
, ret
);
74 return clCreateContext(props
, 1, &dev
, pfn_notify
, user_data
, errcode_ret
);
78 clRetainContext(cl_context ctx
) {
80 return CL_INVALID_CONTEXT
;
87 clReleaseContext(cl_context ctx
) {
89 return CL_INVALID_CONTEXT
;
98 clGetContextInfo(cl_context ctx
, cl_context_info param
,
99 size_t size
, void *buf
, size_t *size_ret
) {
101 return CL_INVALID_CONTEXT
;
104 case CL_CONTEXT_REFERENCE_COUNT
:
105 return scalar_property
<cl_uint
>(buf
, size
, size_ret
, ctx
->ref_count());
107 case CL_CONTEXT_NUM_DEVICES
:
108 return scalar_property
<cl_uint
>(buf
, size
, size_ret
, ctx
->devs
.size());
110 case CL_CONTEXT_DEVICES
:
111 return vector_property
<cl_device_id
>(buf
, size
, size_ret
, ctx
->devs
);
113 case CL_CONTEXT_PROPERTIES
:
114 return vector_property
<cl_context_properties
>(buf
, size
, size_ret
,
118 return CL_INVALID_VALUE
;