1// 2// Copyright 2012 Francisco Jerez 3// 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: 10// 11// The above copyright notice and this permission notice shall be included in 12// all copies or substantial portions of the Software. 13// 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. 21// 22 23#include "api/util.hpp" 24#include "core/queue.hpp" 25 26using namespace clover; 27 28CLOVER_API cl_command_queue 29clCreateCommandQueue(cl_context d_ctx, cl_device_id d_dev, 30 cl_command_queue_properties props, 31 cl_int *r_errcode) try { 32 auto &ctx = obj(d_ctx); 33 auto &dev = obj(d_dev); 34 35 if (!count(dev, ctx.devices())) 36 throw error(CL_INVALID_DEVICE); 37 38 if (props & ~(CL_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE | 39 CL_QUEUE_PROFILING_ENABLE)) 40 throw error(CL_INVALID_VALUE); 41 42 ret_error(r_errcode, CL_SUCCESS); 43 return new command_queue(ctx, dev, props); 44 45} catch (error &e) { 46 ret_error(r_errcode, e); 47 return NULL; 48} 49 50CLOVER_API cl_int 51clRetainCommandQueue(cl_command_queue d_q) try { 52 obj(d_q).retain(); 53 return CL_SUCCESS; 54 55} catch (error &e) { 56 return e.get(); 57} 58 59CLOVER_API cl_int 60clReleaseCommandQueue(cl_command_queue d_q) try { 61 auto &q = obj(d_q); 62 63 q.flush(); 64 65 if (q.release()) 66 delete pobj(d_q); 67 68 return CL_SUCCESS; 69 70} catch (error &e) { 71 return e.get(); 72} 73 74CLOVER_API cl_int 75clGetCommandQueueInfo(cl_command_queue d_q, cl_command_queue_info param, 76 size_t size, void *r_buf, size_t *r_size) try { 77 property_buffer buf { r_buf, size, r_size }; 78 auto &q = obj(d_q); 79 80 switch (param) { 81 case CL_QUEUE_CONTEXT: 82 buf.as_scalar<cl_context>() = desc(q.context()); 83 break; 84 85 case CL_QUEUE_DEVICE: 86 buf.as_scalar<cl_device_id>() = desc(q.device()); 87 break; 88 89 case CL_QUEUE_REFERENCE_COUNT: 90 buf.as_scalar<cl_uint>() = q.ref_count(); 91 break; 92 93 case CL_QUEUE_PROPERTIES: 94 buf.as_scalar<cl_command_queue_properties>() = q.props(); 95 break; 96 97 case CL_QUEUE_PROPERTIES_ARRAY: 98 buf.as_vector<cl_queue_properties>() = q.properties(); 99 break; 100 101 case CL_QUEUE_DEVICE_DEFAULT: 102 if (r_size) 103 *r_size = 0; 104 break; 105 106 case CL_QUEUE_SIZE: 107 throw error(CL_INVALID_COMMAND_QUEUE); 108 break; 109 110 default: 111 throw error(CL_INVALID_VALUE); 112 } 113 114 return CL_SUCCESS; 115 116} catch (error &e) { 117 return e.get(); 118} 119 120CLOVER_API cl_int 121clFlush(cl_command_queue d_q) try { 122 obj(d_q).flush(); 123 return CL_SUCCESS; 124 125} catch (error &e) { 126 return e.get(); 127} 128 129CLOVER_API cl_command_queue 130clCreateCommandQueueWithProperties(cl_context d_ctx, cl_device_id d_dev, 131 const cl_queue_properties *d_properties, 132 cl_int *r_errcode) try { 133 auto &ctx = obj(d_ctx); 134 auto &dev = obj(d_dev); 135 136 if (!count(dev, ctx.devices())) 137 throw error(CL_INVALID_DEVICE); 138 139 ret_error(r_errcode, CL_SUCCESS); 140 std::vector<cl_queue_properties> properties; 141 142 if (d_properties) { 143 int idx = -1; 144 /* these come in pairs, bail if the first is 0 */ 145 do { 146 idx++; 147 properties.push_back(d_properties[idx]); 148 } while (d_properties[idx & ~1]); 149 } 150 return new command_queue(ctx, dev, properties); 151 152} catch (error &e) { 153 ret_error(r_errcode, e); 154 return NULL; 155} 156