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 OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
18 // OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
19 // ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
20 // OTHER DEALINGS IN THE SOFTWARE.
23 #include "api/util.hpp"
24 #include "core/context.hpp"
25 #include "core/platform.hpp"
27 using namespace clover
;
30 clCreateContext(const cl_context_properties
*d_props
, cl_uint num_devs
,
31 const cl_device_id
*d_devs
,
32 void (CL_CALLBACK
*pfn_notify
)(const char *, const void *,
34 void *user_data
, cl_int
*r_errcode
) try {
35 auto props
= obj
<property_list_tag
>(d_props
);
36 auto devs
= objs(d_devs
, num_devs
);
38 if (!pfn_notify
&& user_data
)
39 throw error(CL_INVALID_VALUE
);
41 for (auto &prop
: props
) {
42 if (prop
.first
== CL_CONTEXT_PLATFORM
)
43 obj(prop
.second
.as
<cl_platform_id
>());
45 throw error(CL_INVALID_PROPERTY
);
48 const auto notify
= (!pfn_notify
? context::notify_action() :
50 pfn_notify(s
, NULL
, 0, user_data
);
53 ret_error(r_errcode
, CL_SUCCESS
);
54 return desc(new context(props
, devs
, notify
));
57 ret_error(r_errcode
, e
);
62 clCreateContextFromType(const cl_context_properties
*d_props
,
64 void (CL_CALLBACK
*pfn_notify
)(
65 const char *, const void *, size_t, void *),
66 void *user_data
, cl_int
*r_errcode
) try {
67 cl_platform_id d_platform
;
68 cl_uint num_platforms
;
70 std::vector
<cl_device_id
> devs
;
73 ret
= clGetPlatformIDs(1, &d_platform
, &num_platforms
);
74 if (ret
|| !num_platforms
)
75 throw error(CL_INVALID_PLATFORM
);
77 ret
= clGetDeviceIDs(d_platform
, type
, 0, NULL
, &num_devices
);
79 throw error(CL_DEVICE_NOT_FOUND
);
80 devs
.resize(num_devices
);
81 ret
= clGetDeviceIDs(d_platform
, type
, num_devices
, devs
.data(), 0);
83 throw error(CL_DEVICE_NOT_FOUND
);
85 return clCreateContext(d_props
, num_devices
, devs
.data(), pfn_notify
,
86 user_data
, r_errcode
);
89 ret_error(r_errcode
, e
);
94 clRetainContext(cl_context d_ctx
) try {
103 clReleaseContext(cl_context d_ctx
) try {
104 if (obj(d_ctx
).release())
114 clGetContextInfo(cl_context d_ctx
, cl_context_info param
,
115 size_t size
, void *r_buf
, size_t *r_size
) try {
116 property_buffer buf
{ r_buf
, size
, r_size
};
117 auto &ctx
= obj(d_ctx
);
120 case CL_CONTEXT_REFERENCE_COUNT
:
121 buf
.as_scalar
<cl_uint
>() = ctx
.ref_count();
124 case CL_CONTEXT_NUM_DEVICES
:
125 buf
.as_scalar
<cl_uint
>() = ctx
.devices().size();
128 case CL_CONTEXT_DEVICES
:
129 buf
.as_vector
<cl_device_id
>() = descs(ctx
.devices());
132 case CL_CONTEXT_PROPERTIES
:
133 buf
.as_vector
<cl_context_properties
>() = desc(ctx
.properties());
137 throw error(CL_INVALID_VALUE
);