package org.erlide.backend.debug.events;

import org.eclipse.debug.core.DebugEvent;
import org.erlide.backend.debug.model.ErlangDebugTarget;
import org.erlide.backend.debug.model.ErlangProcess;

import com.ericsson.otp.erlang.OtpErlangAtom;
import com.ericsson.otp.erlang.OtpErlangList;
import com.ericsson.otp.erlang.OtpErlangLong;
import com.ericsson.otp.erlang.OtpErlangObject;
import com.ericsson.otp.erlang.OtpErlangPid;
import com.ericsson.otp.erlang.OtpErlangRangeException;
import com.ericsson.otp.erlang.OtpErlangTuple;

public class ExitAtEvent extends MetaEvent {

    private final String module;
    private final int line;
    @SuppressWarnings("unused")
    private final OtpErlangPid metaPid;
    private final OtpErlangPid pid;
    private final OtpErlangList bindings;
    private final OtpErlangList stackFrames;

    public ExitAtEvent(final OtpErlangPid metaPid, final OtpErlangObject otpErlangObject2,
            final OtpErlangObject otpErlangObject3, final OtpErlangObject otpErlangObject,
            final OtpErlangPid pid2) {
        this(metaPid, otpErlangObject2, otpErlangObject3, otpErlangObject, pid2, null,
                null);
    }

    public ExitAtEvent(final OtpErlangPid metaPid, final OtpErlangObject pos,
            final OtpErlangObject reason, final OtpErlangObject otpErlangObject,
            final OtpErlangPid pid2, final OtpErlangList stackFrames,
            final OtpErlangList bindings) {
        super(metaPid, null);
        if (pos instanceof OtpErlangTuple) {
            final OtpErlangTuple t = (OtpErlangTuple) pos;
            module = ((OtpErlangAtom) t.elementAt(0)).atomValue();
            line = parseLine((OtpErlangLong) t.elementAt(1));
        } else {
            module = null;
            line = -1;
        }
        this.metaPid = metaPid;
        pid = pid2;
        this.stackFrames = stackFrames;
        this.bindings = bindings;
    }

    private int parseLine(final OtpErlangLong elementAt) {
        try {
            return elementAt.intValue();
        } catch (final OtpErlangRangeException e) {
            return -1;
        }
    }

    @Override
    public void execute(final ErlangDebugTarget debugTarget) {
        final ErlangProcess erlangProcess = debugTarget
                .getOrCreateErlangProcess(getPid(debugTarget));

        if (module == null || line == -1) {
            erlangProcess.removeStackFrames();
            erlangProcess.fireSuspendEvent(DebugEvent.TERMINATE);
        }
        if (stackFrames != null) {
            erlangProcess.setStackFrames(module, line, stackFrames, bindings);
        }
        erlangProcess.fireSuspendEvent(DebugEvent.TERMINATE);
    }

    @Override
    public OtpErlangPid getPid(final ErlangDebugTarget debugTarget) {
        return pid;
    }

    public String getModule() {
        return module;
    }

    public int getLine() {
        return line;
    }
}