/*
 * Copyright (c) 2015 Cisco Systems, Inc. and others.  All rights reserved.
 *
 * This program and the accompanying materials are made available under the
 * terms of the Eclipse Public License v1.0 which accompanies this distribution,
 * and is available at http://www.eclipse.org/legal/epl-v10.html
 */
package org.opendaylight.yangtools.yang.parser.stmt.reactor;

import static org.opendaylight.yangtools.yang.parser.spi.meta.ModelProcessingPhase.EFFECTIVE_MODEL;
import static org.opendaylight.yangtools.yang.parser.spi.meta.ModelProcessingPhase.FULL_DECLARATION;

import com.google.common.base.Function;
import com.google.common.base.Preconditions;
import java.util.HashSet;
import java.util.Iterator;
import java.util.Set;
import org.opendaylight.yangtools.yang.model.api.meta.DeclaredStatement;
import org.opendaylight.yangtools.yang.model.api.meta.EffectiveStatement;
import org.opendaylight.yangtools.yang.model.api.meta.IdentifierNamespace;
import org.opendaylight.yangtools.yang.parser.spi.meta.InferenceException;
import org.opendaylight.yangtools.yang.parser.spi.meta.ModelActionBuilder;
import org.opendaylight.yangtools.yang.parser.spi.meta.ModelProcessingPhase;
import org.opendaylight.yangtools.yang.parser.spi.meta.StatementNamespace;
import org.opendaylight.yangtools.yang.parser.spi.meta.StmtContext;
import org.opendaylight.yangtools.yang.parser.spi.meta.StmtContext.Mutable;
import org.opendaylight.yangtools.yang.parser.spi.meta.StmtContextUtils;
import org.opendaylight.yangtools.yang.parser.spi.source.SourceException;
import org.opendaylight.yangtools.yang.parser.stmt.reactor.StatementContextBase.ContextMutation;
import org.opendaylight.yangtools.yang.parser.stmt.reactor.StatementContextBase.OnNamespaceItemAdded;
import org.opendaylight.yangtools.yang.parser.stmt.reactor.StatementContextBase.OnPhaseFinished;

class ModifierImpl implements ModelActionBuilder {

    private final ModelProcessingPhase phase;
    private final Set<AbstractPrerequisite<?>> unsatisfied = new HashSet<>();
    private final Set<AbstractPrerequisite<?>> mutations = new HashSet<>();

    private InferenceAction action;
    private boolean actionApplied = false;

    ModifierImpl(final ModelProcessingPhase phase) {
        this.phase = Preconditions.checkNotNull(phase);
    }

    private <D> AbstractPrerequisite<D> addReq(final AbstractPrerequisite<D> prereq) {
        unsatisfied.add(prereq);
        return prereq;
    }

    private <T> AbstractPrerequisite<T> addMutation(final AbstractPrerequisite<T> mutation) {
        mutations.add(mutation);
        return mutation;
    }



    private void checkNotRegistered() {
        Preconditions.checkState(action == null, "Action was already registered.");
    }

    private static IllegalStateException shouldNotHappenProbablyBug(final SourceException e) {
        return new IllegalStateException("Source exception during registering prerequisite. This is probably bug.",e);
    }

    private boolean removeSatisfied() {
        Iterator<AbstractPrerequisite<?>> prereq = unsatisfied.iterator();
        boolean allSatisfied = true;
        while(prereq.hasNext()) {
            if(prereq.next().isDone()) {
                // We are removing current prerequisite from list.
                prereq.remove();
            } else {
                allSatisfied  = false;
            }
        }
        return allSatisfied;
    }

    ModelProcessingPhase getPhase() {
        return phase;
    }

    boolean isApplied() {

        return actionApplied;
    }

    void failModifier() {
        removeSatisfied();
        action.prerequisiteFailed(unsatisfied);
        action = null;
    }

    private void applyAction() {
        Preconditions.checkState(!actionApplied);
        action.apply();
        actionApplied = true;
    }

    @SuppressWarnings({ "unchecked", "rawtypes" })
    private <K, C extends StmtContext<?,?,?>, N extends StatementNamespace<K, ?, ?>> AbstractPrerequisite<C> requiresCtxImpl(final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key,final ModelProcessingPhase phase)  {
        checkNotRegistered();
        try {
            AddedToNamespace<C> addedToNs = new AddedToNamespace<C>(phase);
            addReq(addedToNs);
            contextImpl(context).onNamespaceItemAddedAction((Class) namespace,key,addedToNs);
            return addedToNs;
        } catch (SourceException e) {
            throw shouldNotHappenProbablyBug(e);
        }
    }

    private <C extends StmtContext<?, ?, ?>> AbstractPrerequisite<C> requiresCtxImpl(final C context, final ModelProcessingPhase phase) {
        Preconditions.checkState(action == null, "Action was already registered.");
        try {
            PhaseFinished<C> phaseFin = new PhaseFinished<C>();
            addReq(phaseFin);
            contextImpl(context).addPhaseCompletedListener(phase,phaseFin);
            return phaseFin;
        } catch (SourceException e) {
            throw shouldNotHappenProbablyBug(e);
        }
    }

    @SuppressWarnings({ "rawtypes", "unchecked" })
    private <K, C extends StmtContext.Mutable<?, ?, ?> , N extends IdentifierNamespace<K, ? extends StmtContext<?, ?, ?>>> AbstractPrerequisite<C> mutatesCtxImpl(
                final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key, final ModelProcessingPhase phase) {
            try {
                PhaseModificationInNamespace<C> mod = new PhaseModificationInNamespace<C>(phase);
                addReq(mod);
                addMutation(mod);
                contextImpl(context).onNamespaceItemAddedAction((Class) namespace,key,mod);
                return mod;
            } catch (SourceException e) {
                throw shouldNotHappenProbablyBug(e);
            }
        }

    private static StatementContextBase<?,?,?> contextImpl(final Object value) {
        Preconditions.checkArgument(value instanceof StatementContextBase,"Supplied context was not provided by this reactor.");
        return StatementContextBase.class.cast(value);
    }

    boolean tryApply() {
        Preconditions.checkState(action != null, "Action was not defined yet.");

        if (removeSatisfied()) {
            applyAction();
            return true;
        }
        return false;
    }

    @Override
    public <C extends Mutable<?, ?, ?>, CT extends C> Prerequisite<C> mutatesCtx(final CT context, final ModelProcessingPhase phase) {
        try {
            return addMutation(new PhaseMutation<C>(contextImpl(context),phase));
        } catch (InferenceException e) {
            throw shouldNotHappenProbablyBug(e);
        }
    }

    @Override
    public  <A,D extends DeclaredStatement<A>,E extends EffectiveStatement<A, D>> AbstractPrerequisite<StmtContext<A, D, E>> requiresCtx(final StmtContext<A, D, E> context, final ModelProcessingPhase phase) {
        return requiresCtxImpl(context, phase);
    }


    @Override
    public <K, N extends StatementNamespace<K, ?, ? >> Prerequisite<StmtContext<?,?,?>> requiresCtx(final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key, final ModelProcessingPhase phase) {
        return requiresCtxImpl(context, namespace, key, phase);
    }

    @Override
    public <D extends DeclaredStatement<?>> Prerequisite<D> requiresDeclared(final StmtContext<?, ? extends D, ?> context) {
        return requiresCtxImpl(context, FULL_DECLARATION).transform(StmtContextUtils.<D>buildDeclared());
    }

    @Override
    public <K, D extends DeclaredStatement<?>, N extends StatementNamespace<K, ? extends D, ?>> AbstractPrerequisite<StmtContext<?, D, ?>> requiresDeclaredCtx(
            final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key) {
        return requiresCtxImpl(context, namespace, key, FULL_DECLARATION);
    }

    @Override
    public <K, D extends DeclaredStatement<?>, N extends StatementNamespace<K, ? extends D, ?>> Prerequisite<D> requiresDeclared(
            final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key) {
        final AbstractPrerequisite<StmtContext<?,D,?>> rawContext = requiresCtxImpl(context, namespace, key, FULL_DECLARATION);
        return rawContext.transform(StmtContextUtils.<D>buildDeclared());
    }

    @Override
    public <E extends EffectiveStatement<?, ?>> Prerequisite<E> requiresEffective(final StmtContext<?, ?, ? extends E> stmt) {
        return requiresCtxImpl(stmt, EFFECTIVE_MODEL).transform(StmtContextUtils.<E>buildEffective());
    }

    @Override
    public <K, E extends EffectiveStatement<?, ?>, N extends StatementNamespace<K, ?, ? extends E>> AbstractPrerequisite<StmtContext<?, ?, E>> requiresEffectiveCtx(
            final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key) {
        return requiresCtxImpl(contextImpl(context),namespace,key, EFFECTIVE_MODEL);
    }

    @Override
    public <K, E extends EffectiveStatement<?, ?>, N extends StatementNamespace<K, ?, ? extends E>> Prerequisite<E> requiresEffective(
            final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key) {
        final AbstractPrerequisite<StmtContext<?,?,E>> rawContext = requiresCtxImpl(context, namespace, key, EFFECTIVE_MODEL);
        return rawContext.transform(StmtContextUtils.<E>buildEffective());
    }


    @Override
    public <N extends IdentifierNamespace<?, ?>> Prerequisite<Mutable<?, ?, ?>> mutatesNs(final Mutable<?, ?, ?> context,
            final Class<N> namespace) {
        try {
            return addMutation(new NamespaceMutation<N>(contextImpl(context),namespace));
        } catch (SourceException e) {
            throw shouldNotHappenProbablyBug(e);
        }
    }

    @Override
    public <T extends Mutable<?, ?, ?>> Prerequisite<T> mutatesEffectiveCtx(final T stmt) {
        return mutatesCtx(stmt, EFFECTIVE_MODEL);
    }


   @Override
    public <K, E extends EffectiveStatement<?, ?>, N extends IdentifierNamespace<K, ? extends StmtContext<?, ?, ?>>> AbstractPrerequisite<Mutable<?, ?, E>> mutatesEffectiveCtx(
            final StmtContext<?, ?, ?> context, final Class<N> namespace, final K key) {
        return mutatesCtxImpl(context, namespace, key, EFFECTIVE_MODEL);
    }



    @Override
    public void apply(final InferenceAction action) {
        this.action = Preconditions.checkNotNull(action);
    }

    private abstract class AbstractPrerequisite<T> implements Prerequisite<T> {

        private T value;
        private boolean done = false;

        @Override
        public T get() {
            Preconditions.checkState(isDone());
            return value;
        }

        @Override
        public boolean isDone() {
            return done;
        }

        protected boolean resolvePrereq(final T value) {
            this.value = value;
            this.done = true;
            return isApplied();
        }

        protected <O> Prerequisite<O> transform(final Function<? super T,O> transformation) {

            return new Prerequisite<O>() {

                @Override
                public O get() {
                    return transformation.apply(AbstractPrerequisite.this.get());
                }

                @Override
                public boolean isDone() {
                    return AbstractPrerequisite.this.isDone();
                }

            };
        }

    }

    private class PhaseMutation<C> extends AbstractPrerequisite<C> implements ContextMutation {

        @SuppressWarnings("unchecked")
        public PhaseMutation(final StatementContextBase<?, ?, ?> context, final ModelProcessingPhase phase) {
            context.addMutation(phase, this);
            resolvePrereq((C) context);
        }

        @Override
        public boolean isFinished() {
            return isApplied();
        }


    }
    private class PhaseFinished<C extends StmtContext<?, ?, ?>> extends AbstractPrerequisite<C> implements OnPhaseFinished {

        @SuppressWarnings("unchecked")
        @Override
        public boolean phaseFinished(final StatementContextBase<?, ?, ?> context, final ModelProcessingPhase phase) {
            return resolvePrereq((C) (context));
        }
    }

    private class NamespaceMutation<N extends IdentifierNamespace<?,?>> extends  AbstractPrerequisite<StmtContext.Mutable<?, ?, ?>>  {

        public NamespaceMutation(final StatementContextBase<?, ?, ?> ctx, final Class<N> namespace) {
            resolvePrereq(ctx);
        }

    }

    private class AddedToNamespace<C extends StmtContext<?,?,?>> extends  AbstractPrerequisite<C> implements OnNamespaceItemAdded,OnPhaseFinished {

        private final ModelProcessingPhase phase;

        public <K, N extends StatementNamespace<K, ?, ?>> AddedToNamespace(final ModelProcessingPhase phase) {
            this.phase = phase;
        }

        @Override
        public void namespaceItemAdded(final StatementContextBase<?, ?, ?> context, final Class<?> namespace, final Object key,
                final Object value) {
            StatementContextBase<?, ?, ?> targetContext = (StatementContextBase<?, ?, ?>) value;
            targetContext.addPhaseCompletedListener(phase, this);
        }

        @SuppressWarnings("unchecked")
        @Override
        public boolean phaseFinished(final StatementContextBase<?, ?, ?> context, final ModelProcessingPhase phase) {
            return resolvePrereq((C) context);
        }

    }

    private class PhaseModificationInNamespace<C extends Mutable<?,?,?>> extends AbstractPrerequisite<C> implements OnNamespaceItemAdded, ContextMutation {

        private final ModelProcessingPhase modPhase;

        public <K, N extends StatementNamespace<K, ?, ?>> PhaseModificationInNamespace(final ModelProcessingPhase phase) {
            Preconditions.checkArgument(phase != null, "Model processing phase must not be null");
            this.modPhase = phase;
        }

        @SuppressWarnings("unchecked")
        @Override
        public void namespaceItemAdded(final StatementContextBase<?, ?, ?> context, final Class<?> namespace, final Object key,
                final Object value) {
            StatementContextBase<?, ?, ?> targetCtx = contextImpl(value);
            targetCtx.addMutation(modPhase,this);
            resolvePrereq((C) targetCtx);
        }

        @Override
        public boolean isFinished() {
            return isApplied();
        }
    }

}