libnd4j/include/ops/declarable/generic/list/read_list.cpp
/* ******************************************************************************
*
*
* This program and the accompanying materials are made available under the
* terms of the Apache License, Version 2.0 which is available at
* https://www.apache.org/licenses/LICENSE-2.0.
*
* See the NOTICE file distributed with this work for additional
* information regarding copyright ownership.
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
* WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
* License for the specific language governing permissions and limitations
* under the License.
*
* SPDX-License-Identifier: Apache-2.0
******************************************************************************/
//
// Created by raver119 on 06.11.2017.
//
#include <system/op_boilerplate.h>
#if NOT_EXCLUDED(OP_read_list)
#include <ops/declarable/CustomOperations.h>
namespace sd {
namespace ops {
LIST_OP_IMPL(read_list, 1, 1, 0, 0) {
auto list = INPUT_LIST(0);
NDArray *result = nullptr;
REQUIRE_TRUE(list->height() > 0, 0, "ReadList: number of elements in list should be positive prior to Read call");
if (block.numI() > 0) {
auto index = INT_ARG(0);
REQUIRE_TRUE(list->isWritten(index), 0, "ReadList: requested index [%i] wasn't written yet", index);
result = list->read(index);
} else if (block.width() > 0) {
auto vec = INPUT_VARIABLE(1);
REQUIRE_TRUE(vec->isScalar(), 0, "ReadList: index operand should be a scalar");
auto index = vec->e<int>(0);
REQUIRE_TRUE(list->isWritten(index), 0, "ReadList: requested index [%i] wasn't written yet", index);
result = list->read(index);
} else {
REQUIRE_TRUE(false, 0, "ReadList: index value should be set either via IntArgs or via second operand");
}
// OVERWRITE_RESULT(result);
setupResult(result, block);
return sd::Status::OK;
}
DECLARE_SYN(TensorArrayReadV3, read_list);
DECLARE_SYN(tensorarrayreadv3, read_list);
} // namespace ops
} // namespace sd
#endif