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/sampler.hpp"
26 using namespace clover
;
29 clCreateSampler(cl_context ctx
, cl_bool norm_mode
,
30 cl_addressing_mode addr_mode
, cl_filter_mode filter_mode
,
31 cl_int
*errcode_ret
) try {
33 throw error(CL_INVALID_CONTEXT
);
35 ret_error(errcode_ret
, CL_SUCCESS
);
36 return new sampler(*ctx
, norm_mode
, addr_mode
, filter_mode
);
39 ret_error(errcode_ret
, e
);
44 clRetainSampler(cl_sampler s
) {
46 throw error(CL_INVALID_SAMPLER
);
53 clReleaseSampler(cl_sampler s
) {
55 throw error(CL_INVALID_SAMPLER
);
64 clGetSamplerInfo(cl_sampler s
, cl_sampler_info param
,
65 size_t size
, void *r_buf
, size_t *r_size
) try {
66 property_buffer buf
{ r_buf
, size
, r_size
};
69 throw error(CL_INVALID_SAMPLER
);
72 case CL_SAMPLER_REFERENCE_COUNT
:
73 buf
.as_scalar
<cl_uint
>() = s
->ref_count();
76 case CL_SAMPLER_CONTEXT
:
77 buf
.as_scalar
<cl_context
>() = &s
->ctx
;
80 case CL_SAMPLER_NORMALIZED_COORDS
:
81 buf
.as_scalar
<cl_bool
>() = s
->norm_mode();
84 case CL_SAMPLER_ADDRESSING_MODE
:
85 buf
.as_scalar
<cl_addressing_mode
>() = s
->addr_mode();
88 case CL_SAMPLER_FILTER_MODE
:
89 buf
.as_scalar
<cl_filter_mode
>() = s
->filter_mode();
93 throw error(CL_INVALID_VALUE
);