1*c217d954SCole Faust /*
2*c217d954SCole Faust * Copyright (c) 2021 Arm Limited.
3*c217d954SCole Faust *
4*c217d954SCole Faust * SPDX-License-Identifier: MIT
5*c217d954SCole Faust *
6*c217d954SCole Faust * Permission is hereby granted, free of charge, to any person obtaining a copy
7*c217d954SCole Faust * of this software and associated documentation files (the "Software"), to
8*c217d954SCole Faust * deal in the Software without restriction, including without limitation the
9*c217d954SCole Faust * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
10*c217d954SCole Faust * sell copies of the Software, and to permit persons to whom the Software is
11*c217d954SCole Faust * furnished to do so, subject to the following conditions:
12*c217d954SCole Faust *
13*c217d954SCole Faust * The above copyright notice and this permission notice shall be included in all
14*c217d954SCole Faust * copies or substantial portions of the Software.
15*c217d954SCole Faust *
16*c217d954SCole Faust * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17*c217d954SCole Faust * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18*c217d954SCole Faust * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19*c217d954SCole Faust * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20*c217d954SCole Faust * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21*c217d954SCole Faust * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
22*c217d954SCole Faust * SOFTWARE.
23*c217d954SCole Faust */
24*c217d954SCole Faust #include "arm_compute/AclEntrypoints.h"
25*c217d954SCole Faust #include "src/common/ITensorV2.h"
26*c217d954SCole Faust #include "src/common/TensorPack.h"
27*c217d954SCole Faust #include "src/common/utils/Macros.h"
28*c217d954SCole Faust
29*c217d954SCole Faust namespace
30*c217d954SCole Faust {
31*c217d954SCole Faust using namespace arm_compute;
PackTensorInternal(TensorPack & pack,AclTensor external_tensor,int32_t slot_id)32*c217d954SCole Faust StatusCode PackTensorInternal(TensorPack &pack, AclTensor external_tensor, int32_t slot_id)
33*c217d954SCole Faust {
34*c217d954SCole Faust auto status = StatusCode::Success;
35*c217d954SCole Faust auto tensor = get_internal(external_tensor);
36*c217d954SCole Faust
37*c217d954SCole Faust status = detail::validate_internal_tensor(tensor);
38*c217d954SCole Faust
39*c217d954SCole Faust if(status != StatusCode::Success)
40*c217d954SCole Faust {
41*c217d954SCole Faust return status;
42*c217d954SCole Faust }
43*c217d954SCole Faust
44*c217d954SCole Faust pack.add_tensor(tensor, slot_id);
45*c217d954SCole Faust
46*c217d954SCole Faust return status;
47*c217d954SCole Faust }
48*c217d954SCole Faust } // namespace
49*c217d954SCole Faust
AclCreateTensorPack(AclTensorPack * external_pack,AclContext external_ctx)50*c217d954SCole Faust extern "C" AclStatus AclCreateTensorPack(AclTensorPack *external_pack, AclContext external_ctx)
51*c217d954SCole Faust {
52*c217d954SCole Faust using namespace arm_compute;
53*c217d954SCole Faust
54*c217d954SCole Faust IContext *ctx = get_internal(external_ctx);
55*c217d954SCole Faust
56*c217d954SCole Faust const StatusCode status = detail::validate_internal_context(ctx);
57*c217d954SCole Faust ARM_COMPUTE_RETURN_CENUM_ON_FAILURE(status);
58*c217d954SCole Faust
59*c217d954SCole Faust auto pack = new TensorPack(ctx);
60*c217d954SCole Faust if(pack == nullptr)
61*c217d954SCole Faust {
62*c217d954SCole Faust ARM_COMPUTE_LOG_ERROR_WITH_FUNCNAME_ACL("Couldn't allocate internal resources!");
63*c217d954SCole Faust return AclOutOfMemory;
64*c217d954SCole Faust }
65*c217d954SCole Faust *external_pack = pack;
66*c217d954SCole Faust
67*c217d954SCole Faust return AclSuccess;
68*c217d954SCole Faust }
69*c217d954SCole Faust
AclPackTensor(AclTensorPack external_pack,AclTensor external_tensor,int32_t slot_id)70*c217d954SCole Faust extern "C" AclStatus AclPackTensor(AclTensorPack external_pack, AclTensor external_tensor, int32_t slot_id)
71*c217d954SCole Faust {
72*c217d954SCole Faust using namespace arm_compute;
73*c217d954SCole Faust
74*c217d954SCole Faust auto pack = get_internal(external_pack);
75*c217d954SCole Faust ARM_COMPUTE_RETURN_CENUM_ON_FAILURE(detail::validate_internal_pack(pack));
76*c217d954SCole Faust ARM_COMPUTE_RETURN_CENUM_ON_FAILURE(PackTensorInternal(*pack, external_tensor, slot_id));
77*c217d954SCole Faust return AclStatus::AclSuccess;
78*c217d954SCole Faust }
79*c217d954SCole Faust
AclPackTensors(AclTensorPack external_pack,AclTensor * external_tensors,int32_t * slot_ids,size_t num_tensors)80*c217d954SCole Faust extern "C" AclStatus AclPackTensors(AclTensorPack external_pack, AclTensor *external_tensors, int32_t *slot_ids, size_t num_tensors)
81*c217d954SCole Faust {
82*c217d954SCole Faust using namespace arm_compute;
83*c217d954SCole Faust
84*c217d954SCole Faust auto pack = get_internal(external_pack);
85*c217d954SCole Faust ARM_COMPUTE_RETURN_CENUM_ON_FAILURE(detail::validate_internal_pack(pack));
86*c217d954SCole Faust
87*c217d954SCole Faust for(unsigned i = 0; i < num_tensors; ++i)
88*c217d954SCole Faust {
89*c217d954SCole Faust ARM_COMPUTE_RETURN_CENUM_ON_FAILURE(PackTensorInternal(*pack, external_tensors[i], slot_ids[i]));
90*c217d954SCole Faust }
91*c217d954SCole Faust return AclStatus::AclSuccess;
92*c217d954SCole Faust }
93*c217d954SCole Faust
AclDestroyTensorPack(AclTensorPack external_pack)94*c217d954SCole Faust extern "C" AclStatus AclDestroyTensorPack(AclTensorPack external_pack)
95*c217d954SCole Faust {
96*c217d954SCole Faust using namespace arm_compute;
97*c217d954SCole Faust
98*c217d954SCole Faust auto pack = get_internal(external_pack);
99*c217d954SCole Faust StatusCode status = detail::validate_internal_pack(pack);
100*c217d954SCole Faust ARM_COMPUTE_RETURN_CENUM_ON_FAILURE(status);
101*c217d954SCole Faust
102*c217d954SCole Faust delete pack;
103*c217d954SCole Faust
104*c217d954SCole Faust return AclSuccess;
105*c217d954SCole Faust }
106