/*
 * Copyright © 2011-2012 Philipp Eichhorn
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */
package lombok.core.handlers;

import static lombok.ast.AST.*;
import static lombok.core.util.ErrorMessages.*;

import java.util.ArrayList;
import java.util.List;
import java.util.regex.Matcher;
import java.util.regex.Pattern;

import lombok.*;
import lombok.ast.*;
import lombok.core.DiagnosticsReceiver;
import lombok.core.util.As;
import lombok.core.util.Is;

@RequiredArgsConstructor
public final class RethrowAndRethrowsHandler<METHOD_TYPE extends IMethod<?, ?, ?, ?>> {
	private final List<RethrowData> rethrows = new ArrayList<RethrowData>();
	private final METHOD_TYPE method;
	private final DiagnosticsReceiver diagnosticsReceiver;

	public RethrowAndRethrowsHandler<METHOD_TYPE> withRethrow(final RethrowData rethrowData) {
		rethrows.add(rethrowData);
		return this;
	}

	public void handle(final Class<? extends java.lang.annotation.Annotation> annotationType, final IParameterValidator<METHOD_TYPE> validation,
			final IParameterSanitizer<METHOD_TYPE> sanitizer) {
		if (rethrows.isEmpty()) {
			return;
		}

		if (method == null) {
			diagnosticsReceiver.addError(canBeUsedOnMethodOnly(annotationType));
			return;
		}

		if (method.isAbstract() || method.isEmpty()) {
			diagnosticsReceiver.addError(canBeUsedOnConcreteMethodOnly(annotationType));
			return;
		}

		Try tryBuilder = Try(Block() //
				.withStatements(validation.validateParameterOf(method)) //
				.withStatements(sanitizer.sanitizeParameterOf(method)) //
				.withStatements(method.statements()));
		int counter = 1;
		for (RethrowData rethrow : rethrows) {
			for (Class<?> thrown : rethrow.thrown) {
				final String varname = "$e" + counter++;
				String message = rethrow.message;
				if (RethrowData.class == thrown) {
					tryBuilder.Catch(Arg(Type(RuntimeException.class), varname), Block().withStatement(Throw(Name(varname))));
				} else if (message.isEmpty()) {
					tryBuilder.Catch(Arg(Type(thrown.getName()), varname), Block().withStatement(Throw(New(Type(rethrow.as.getName())) //
							.withArgument(Name(varname)))));
				} else {
					final List<Expression<?>> arguments = new ArrayList<Expression<?>>();
					message = manipulateMessage(message, arguments);
					tryBuilder.Catch(Arg(Type(thrown.getName()), varname), Block().withStatement(Throw(New(Type(rethrow.as.getName())) //
							.withArgument(Call(Name(String.class), "format").withArgument(String(message)).withArguments(arguments)).withArgument(Name(varname)))));
				}
			}
		}
		method.editor().replaceBody(Block().withStatement(tryBuilder).posHint(method.get()));

		method.editor().rebuild();
	}

	private String manipulateMessage(final String message, final List<Expression<?>> arguments) {
		final Matcher matcher = Pattern.compile("\\$([a-zA-Z0-9_]+)").matcher(message);
		final StringBuilder manipulatedMessage = new StringBuilder();
		int start = 0;
		for (; matcher.find(); start = matcher.end()) {
			manipulatedMessage.append(message.substring(start, matcher.start())).append("%s");
			arguments.add(Name(message.substring(matcher.start(1), matcher.end(1))));
		}
		manipulatedMessage.append(message.substring(start, message.length()));
		return manipulatedMessage.toString();
	}

	public static List<Class<?>> classNames(final Class<?>[] classes) {
		if (Is.empty(classes)) {
			return As.<Class<?>> list(RethrowData.class, Exception.class);
		}
		return As.list(classes);
	}

	@RequiredArgsConstructor
	public static class RethrowData {
		public final List<Class<?>> thrown;
		public final Class<?> as;
		public final String message;
	}
}