/* ******************************************************************************
 *
 *
 * 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
 ******************************************************************************/

//
//  @author raver119@gmail.com
//

#include <system/op_boilerplate.h>
#if NOT_EXCLUDED(OP_bincount)

//#include <ops/declarable/headers/parity_ops.h>
#include <ops/declarable/CustomOperations.h>
#include <ops/declarable/helpers/weights.h>

namespace sd {
    namespace ops {
        DECLARE_TYPES(bincount) {
            getOpDescriptor()
                    ->setAllowedInputTypes(0, sd::DataType::INT32)
                    ->setAllowedInputTypes(1, sd::DataType::ANY)
                    ->setAllowedOutputTypes({ALL_INTS, ALL_FLOATS});
        }

        CUSTOM_OP_IMPL(bincount, 1, 1, false, 0, 0) {
            auto values = INPUT_VARIABLE(0);

            NDArray *weights = nullptr;

            int maxLength = -1;
            int minLength = 0;
            int maxIndex = values->argMax();
            maxLength = values->e<int>(maxIndex)  + 1;

            if (block.numI() > 0) {
                minLength = sd::math::nd4j_max(INT_ARG(0), 0);
                if (block.numI() == 2)
                    maxLength = sd::math::nd4j_min(maxLength, INT_ARG(1));
            }

            if (block.width() == 2) { // the second argument is weights
                weights = INPUT_VARIABLE(1);
                if(weights->lengthOf() < 1) {
                    weights = NDArrayFactory::create_('c',values->getShapeAsVector(),values->dataType());
                    weights->assign(1);
                } else if(weights->isScalar()) {
                    auto value = weights->asVectorT<int>();
                    weights = NDArrayFactory::create_('c',values->getShapeAsVector(),values->dataType());
                    weights->assign(value[0]);

                }

                REQUIRE_TRUE(values->isSameShape(weights), 0, "bincount: the input and weights shapes should be equals");
            }
            else if (block.width() == 3) { // the second argument is min and the third is max
                auto min= INPUT_VARIABLE(1);
                auto max = min;
                if(INPUT_VARIABLE(2)->lengthOf() > 0) {
                    max = INPUT_VARIABLE(2);
                }
                minLength = min->e<int>(0);
                maxLength = max->e<int>(0);
            }
            else if (block.width() > 3) {
                auto min= INPUT_VARIABLE(2);
                auto max = INPUT_VARIABLE(3);
                minLength = min->e<int>(0);
                if(INPUT_VARIABLE(2)->lengthOf() > 0) {
                    maxLength = max->e<int>(0);
                }
                else
                    maxLength = minLength;
                weights = INPUT_VARIABLE(1);
                if(weights->lengthOf() < 1) {
                    weights = NDArrayFactory::create_('c',values->getShapeAsVector(),values->dataType());
                    weights->assign(1);
                } else if(weights->isScalar()) {
                    auto value = weights->asVectorT<int>();
                    weights = NDArrayFactory::create_('c',values->getShapeAsVector(),values->dataType());
                    weights->assign(value[0]);

                }
                REQUIRE_TRUE(values->isSameShape(weights), 0, "bincount: the input and weights shapes should be equals");

            }

            minLength = sd::math::nd4j_max(minLength, 0);
            maxLength = sd::math::nd4j_min(maxLength, values->e<int>(maxIndex) + 1);

            auto result = OUTPUT_VARIABLE(0);
            result->assign(0.0f);

            helpers::adjustWeights(block.launchContext(), values, weights, result, minLength, maxLength);

            return Status::OK();
        }

        DECLARE_SHAPE_FN(bincount) {
            auto shapeList = SHAPELIST();
            auto in = INPUT_VARIABLE(0);
            sd::DataType dtype = DataType::INT32;
            if (block.width() > 1)
                dtype = ArrayOptions::dataType(inputShape->at(1));
            else if (block.numI() > 2)
                dtype = (sd::DataType)INT_ARG(2);

            int maxIndex = in->argMax();
            int maxLength = in->e<int>(maxIndex)  + 1;
            int outLength = maxLength;

            if (block.numI() > 0)
                outLength = sd::math::nd4j_max(maxLength, INT_ARG(0));

            if (block.numI() > 1)
                outLength = sd::math::nd4j_min(outLength, INT_ARG(1));


            if (block.width() == 3) { // the second argument is min and the third is max
                auto min = INPUT_VARIABLE(1)->e<int>(0);
                auto max = min;
                if(INPUT_VARIABLE(2)->lengthOf() > 0) {
                    max = INPUT_VARIABLE(2)->e<int>(0);
                }

                outLength = sd::math::nd4j_max(maxLength, min);
                outLength = sd::math::nd4j_min(outLength, max);
            }
            else if (block.width() > 3) {
                auto min= INPUT_VARIABLE(2);
                auto max = min;
                if(INPUT_VARIABLE(3)->lengthOf() > 0) {
                    max = INPUT_VARIABLE(3);
                }
                outLength = sd::math::nd4j_max(maxLength, min->e<int>(0));
                outLength = sd::math::nd4j_min(outLength, max->e<int>(0));
            }


            auto newshape = ConstantShapeHelper::getInstance().vectorShapeInfo(outLength, dtype);

            shapeList->push_back(newshape);
            return shapeList;
        }

    }
}

#endif