/*
 * Copyright (c) 2015, Oracle and/or its affiliates. All rights reserved.
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 *
 * This code is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License version 2 only, as
 * published by the Free Software Foundation.
 *
 * This code is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * version 2 for more details (a copy is included in the LICENSE file that
 * accompanied this code).
 *
 * You should have received a copy of the GNU General Public License version
 * 2 along with this work; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
 * or visit www.oracle.com if you need additional information or have any
 * questions.
 */

package jdk.test.lib.jittester.factories;

import jdk.test.lib.jittester.IRNode;
import jdk.test.lib.jittester.Initialization;
import jdk.test.lib.jittester.Literal;
import jdk.test.lib.jittester.LocalVariable;
import jdk.test.lib.jittester.Nothing;
import jdk.test.lib.jittester.ProductionFailedException;
import jdk.test.lib.jittester.SymbolTable;
import jdk.test.lib.jittester.Type;
import jdk.test.lib.jittester.loops.Loop;
import jdk.test.lib.jittester.loops.While;
import jdk.test.lib.jittester.types.TypeKlass;
import jdk.test.lib.jittester.types.TypeInt;
import jdk.test.lib.jittester.utils.PseudoRandom;

class WhileFactory extends SafeFactory {
    private final Loop loop;
    private final long complexityLimit;
    private final int statementLimit;
    private final int operatorLimit;
    private final TypeKlass ownerClass;
    private final int level;
    private final Type returnType;
    private long thisLoopIterLimit = 0;
    private final boolean canHaveReturn;

    WhileFactory(TypeKlass ownerClass, Type returnType, long complexityLimit, int statementLimit,
            int operatorLimit, int level, boolean canHaveReturn) {
        this.ownerClass = ownerClass;
        this.returnType = returnType;
        loop = new Loop();
        this.complexityLimit = complexityLimit;
        this.statementLimit = statementLimit;
        this.operatorLimit = operatorLimit;
        this.level = level;
        this.canHaveReturn = canHaveReturn;
    }

    @Override
    protected IRNode sproduce() throws ProductionFailedException {
        if (statementLimit <= 0 || complexityLimit <= 0) {
            throw new ProductionFailedException();
        }
        long complexity = complexityLimit;
        // Loop header parameters
        long headerComplLimit = (long) (0.005 * complexity * PseudoRandom.random());
        complexity -= headerComplLimit;
        int headerStatementLimit = PseudoRandom.randomNotZero((int) (statementLimit / 3.0));
        // Loop body parameters
        thisLoopIterLimit = (long) (0.0001 * complexity * PseudoRandom.random());
        if (thisLoopIterLimit > Integer.MAX_VALUE || thisLoopIterLimit == 0) {
            throw new ProductionFailedException();
        }
        complexity = thisLoopIterLimit > 0 ? complexity / thisLoopIterLimit : 0;
        long condComplLimit = (long) (complexity * PseudoRandom.random());
        complexity -= condComplLimit;
        long body1ComplLimit = (long) (complexity * PseudoRandom.random());
        complexity -= body1ComplLimit;
        int body1StatementLimit = PseudoRandom.randomNotZero((int) (statementLimit / 4.0));
        long body2ComplLimit = (long) (complexity * PseudoRandom.random());
        complexity -= body2ComplLimit;
        int body2StatementLimit = PseudoRandom.randomNotZero((int) (statementLimit / 4.0));
        long body3ComplLimit = complexity;
        int body3StatementLimit = PseudoRandom.randomNotZero((int) (statementLimit / 4.0));
        // Production
        IRNodeBuilder builder =  new IRNodeBuilder().setOwnerKlass(ownerClass)
                .setResultType(returnType)
                .setOperatorLimit(operatorLimit);
        loop.initialization = builder.getCounterInitializerFactory(0).produce();
        IRNode header;
        try {
            header = builder.setComplexityLimit(headerComplLimit)
                    .setStatementLimit(headerStatementLimit)
                    .setLevel(level - 1)
                    .setSubBlock(true)
                    .setCanHaveBreaks(false)
                    .setCanHaveContinues(false)
                    .setCanHaveReturn(false)
                    .getBlockFactory()
                    .produce();
        } catch (ProductionFailedException e) {
            header = new Nothing();
        }
        LocalVariable counter = new LocalVariable(((Initialization) loop.initialization).get());
        Literal limiter = new Literal(Integer.valueOf((int) thisLoopIterLimit), new TypeInt());
        loop.condition = builder.setComplexityLimit(condComplLimit)
                .setLocalVariable(counter)
                .getLoopingConditionFactory(limiter)
                .produce();
        IRNode body1;
        SymbolTable.push();
        try {
            body1 = builder.setComplexityLimit(body1ComplLimit)
                    .setStatementLimit(body1StatementLimit)
                    .setLevel(level)
                    .setSubBlock(true)
                    .setCanHaveBreaks(true)
                    .setCanHaveContinues(false)
                    .setCanHaveReturn(canHaveReturn)
                    .getBlockFactory()
                    .produce();
        } catch (ProductionFailedException e) {
            body1 = new Nothing();
        }
        loop.manipulator = builder.setLocalVariable(counter).getCounterManipulatorFactory().produce();
        IRNode body2;
        try {
            body2 = builder.setComplexityLimit(body2ComplLimit)
                    .setStatementLimit(body2StatementLimit)
                    .setLevel(level)
                    .setSubBlock(true)
                    .setCanHaveBreaks(true)
                    .setCanHaveContinues(true)
                    .setCanHaveReturn(canHaveReturn)
                    .getBlockFactory()
                    .produce();
        } catch (ProductionFailedException e) {
            body2 = new Nothing();
        }
        IRNode body3;
        try {
            body3 = builder.setComplexityLimit(body3ComplLimit)
                    .setStatementLimit(body3StatementLimit)
                    .setLevel(level)
                    .setSubBlock(true)
                    .setCanHaveBreaks(true)
                    .setCanHaveContinues(false)
                    .setCanHaveReturn(canHaveReturn)
                    .getBlockFactory()
                    .produce();
        } catch (ProductionFailedException e) {
            body3 = new Nothing();
        }
        SymbolTable.pop();
        return new While(level, loop, thisLoopIterLimit, header, body1, body2, body3);
    }
}