/*******************************************************************************
 * Copyright (c) 2010 György Orosz.
 * 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
 *
 * Contributors:
 *     György Orosz - initial API and implementation
 ******************************************************************************/
package org.erlide.wrangler.refactoring.backend.internal;

import java.util.HashMap;
import java.util.Map.Entry;

import org.eclipse.jface.text.IDocument;
import org.erlide.util.ErlLogger;
import org.erlide.wrangler.refactoring.exception.WranglerException;
import org.erlide.wrangler.refactoring.exception.WranglerRpcParsingException;
import org.erlide.wrangler.refactoring.util.ErlRange;
import org.erlide.wrangler.refactoring.util.IErlRange;
import org.erlide.wrangler.refactoring.util.IRange;
import org.erlide.wrangler.refactoring.util.Range;

import com.ericsson.otp.erlang.OtpErlangList;
import com.ericsson.otp.erlang.OtpErlangObject;
import com.ericsson.otp.erlang.OtpErlangRangeException;
import com.ericsson.otp.erlang.OtpErlangString;
import com.ericsson.otp.erlang.OtpErlangTuple;

/**
 * RpcResultImpl parser which parses object which got from Fold expression
 * refactorings
 *
 * @author Gyorgy Orosz
 * @version %I%, %G%
 */
public class ExpressionPosRpcMessage extends AbstractRpcMessage {

    protected OtpErlangObject syntaxTree;
    protected HashMap<IRange, OtpErlangTuple> positionDefs;

    @Override
    protected void parseRefactoringMessage(final OtpErlangTuple resultTuple)
            throws WranglerException {
        try {
            final OtpErlangObject wranglerResult = resultTuple.elementAt(1);
            if (resultTuple.elementAt(0).toString().equals("ok")) {
                OtpErlangList posDefList;
                if (wranglerResult instanceof OtpErlangTuple) {
                    syntaxTree = ((OtpErlangTuple) wranglerResult).elementAt(0);
                    posDefList = (OtpErlangList) ((OtpErlangTuple) wranglerResult)
                            .elementAt(1);
                } else {
                    syntaxTree = null;
                    posDefList = (OtpErlangList) wranglerResult;
                }

                positionDefs = new HashMap<>();
                final OtpErlangObject[] elements = posDefList.elements();
                for (final OtpErlangObject o : elements) {
                    final OtpErlangTuple value = (OtpErlangTuple) o;
                    final OtpErlangTuple pos = (OtpErlangTuple) value.elementAt(0);
                    try {
                        positionDefs.put(new Range(pos), value);
                    } catch (final OtpErlangRangeException e) {
                        ErlLogger.error(e);
                        setUnsuccessful("Failed to parse the result!");
                    }
                }
                setSuccessful();

            } else {
                final OtpErlangString errorMsg = (OtpErlangString) wranglerResult;
                setUnsuccessful(errorMsg.stringValue());
                return;
            }
        } catch (final Exception e) {
            throw new WranglerRpcParsingException(resultTuple.toString());
        }

    }

    /**
     * Returns a syntax tree object which is got from Wrangler
     *
     * @return syntax tree wrapped in an Erlang object
     */
    public OtpErlangObject getSyntaxTree() {
        return syntaxTree;
    }

    /**
     * Returns pairs which represents a selection in a module.
     *
     * @param doc
     *            the document which containing the module
     * @return selections
     */
    public HashMap<IErlRange, OtpErlangTuple> getPositionDefinitions(
            final IDocument doc) {
        final HashMap<IErlRange, OtpErlangTuple> ret = new HashMap<>();
        for (final Entry<IRange, OtpErlangTuple> r : positionDefs.entrySet()) {
            ret.put(new ErlRange(r.getKey(), doc), r.getValue());
        }

        return ret;
    }

}