/*
    Copyright (C) 2011-2012 de4dot@gmail.com

    This file is part of de4dot.

    de4dot is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    de4dot 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 for more details.

    You should have received a copy of the GNU General Public License
    along with de4dot.  If not, see <http://www.gnu.org/licenses/>.
*/

using System.Collections.Generic;
using Mono.Cecil;
using Mono.Cecil.Cil;
using Mono.Cecil.Metadata;
using de4dot.blocks;
using de4dot.blocks.cflow;

namespace de4dot.code.deobfuscators.Spices_Net {
	class SpicesMethodCallInliner : MethodCallInliner {
		ModuleDefinition module;
		TypeDefinitionDict<bool> methodsTypes = new TypeDefinitionDict<bool>();
		MethodDefinitionAndDeclaringTypeDict<MethodDefinition> classMethods = new MethodDefinitionAndDeclaringTypeDict<MethodDefinition>();

		public SpicesMethodCallInliner(ModuleDefinition module)
			: base(false) {
			this.module = module;
		}

		public bool checkCanInline(MethodDefinition method) {
			return methodsTypes.find(method.DeclaringType);
		}

		protected override bool canInline(MethodDefinition method) {
			return checkCanInline(method);
		}

		public void initialize() {
			initializeMethodsTypes();
			restoreInstanceMethods();
		}

		void restoreInstanceMethods() {
			var methodToOrigMethods = new MethodDefinitionAndDeclaringTypeDict<List<MethodDefinition>>();
			foreach (var t in module.Types) {
				foreach (var type in TypeDefinition.GetTypes(new List<TypeDefinition> { t })) {
					if (methodsTypes.find(type))
						continue;
					foreach (var method in type.Methods) {
						if (method.Name == ".ctor" || method.Name == ".cctor")
							continue;

						MethodDefinition calledMethod;
						if (!checkRestoreBody(method, out calledMethod))
							continue;

						var list = methodToOrigMethods.find(calledMethod);
						if (list == null)
							methodToOrigMethods.add(calledMethod, list = new List<MethodDefinition>());
						list.Add(method);
					}
				}
			}

			foreach (var calledMethod in methodToOrigMethods.getKeys()) {
				var list = methodToOrigMethods.find(calledMethod);
				var method = list[0];

				Log.v("Restored method body {0:X8} from method {1:X8}",
							method.MetadataToken.ToInt32(),
							calledMethod.MetadataToken.ToInt32());
				DotNetUtils.copyBodyFromTo(calledMethod, method);
				classMethods.add(calledMethod, method);
			}
		}

		bool checkRestoreBody(MethodDefinition method, out MethodDefinition calledMethod) {
			calledMethod = null;
			if (method.Body == null)
				return false;
			if (method.Body.Variables.Count > 0)
				return false;
			if (method.Body.ExceptionHandlers.Count > 0)
				return false;

			if (!checkRestoreBody2(method, out calledMethod))
				return false;
			if (calledMethod == method)
				return false;

			return true;
		}

		bool checkRestoreBody2(MethodDefinition instanceMethod, out MethodDefinition calledMethod) {
			calledMethod = null;

			var instrs = instanceMethod.Body.Instructions;
			int index;
			for (index = 0; index < instrs.Count; index++) {
				if (DotNetUtils.getArgIndex(instrs[index]) != index)
					break;
			}
			var call = instrs[index++];
			if (call.OpCode.Code != Code.Call)
				return false;

			calledMethod = call.Operand as MethodDefinition;
			if (calledMethod == null)
				return false;

			if (instrs[index++].OpCode.Code != Code.Ret)
				return false;

			return true;
		}

		void initializeMethodsTypes() {
			foreach (var type in module.GetTypes()) {
				if (checkMethodsType(type))
					methodsTypes.add(type, true);
			}
		}

		static bool checkMethodsType(TypeDefinition type) {
			if (!type.IsNested)
				return false;
			if ((type.Attributes & ~TypeAttributes.BeforeFieldInit) != TypeAttributes.NestedAssembly)
				return false;
			if (type.HasProperties || type.HasEvents || type.HasFields || type.HasNestedTypes)
				return false;
			if (type.GenericParameters.Count > 0)
				return false;
			if (type.IsValueType || type.IsInterface)
				return false;
			if (type.BaseType == null || type.BaseType.EType != ElementType.Object)
				return false;
			if (type.Interfaces.Count > 0)
				return false;
			if (!checkMethods(type))
				return false;

			return true;
		}

		static bool checkMethods(TypeDefinition type) {
			bool foundCtor = false;
			int numMethods = 0;

			foreach (var method in type.Methods) {
				if (method.Name == ".cctor")
					return false;
				if (method.Name == ".ctor") {
					if (method.Parameters.Count != 0)
						return false;
					foundCtor = true;
					continue;
				}
				if (method.Attributes != (MethodAttributes.Assembly | MethodAttributes.Static | MethodAttributes.HideBySig))
					return false;
				if (method.HasPInvokeInfo || method.PInvokeInfo != null)
					return false;
				if (method.GenericParameters.Count > 0)
					return false;

				numMethods++;
			}

			return numMethods > 0 && foundCtor;
		}

		public List<MethodDefinition> getInlinedMethods() {
			var list = new List<MethodDefinition>();

			foreach (var type in methodsTypes.getKeys())
				list.AddRange(type.Methods);

			return list;
		}

		public TypeDefinitionDict<bool> getInlinedTypes(IEnumerable<MethodDefinition> unusedMethods) {
			var unused = new MethodDefinitionAndDeclaringTypeDict<bool>();
			foreach (var method in unusedMethods)
				unused.add(method, true);

			var types = new TypeDefinitionDict<bool>();
			foreach (var type in methodsTypes.getKeys()) {
				if (checkAllMethodsUnused(unused, type))
					types.add(type, true);
			}
			return types;
		}

		static bool checkAllMethodsUnused(MethodDefinitionAndDeclaringTypeDict<bool> unused, TypeDefinition type) {
			foreach (var method in type.Methods) {
				if (!unused.find(method))
					return false;
			}
			return true;
		}

		public void deobfuscate(Blocks blocks) {
			foreach (var block in blocks.MethodBlocks.getAllBlocks()) {
				var instrs = block.Instructions;
				for (int i = 0; i < instrs.Count; i++) {
					var call = instrs[i];
					if (call.OpCode.Code != Code.Call)
						continue;
					var realInstanceMethod = classMethods.find(call.Operand as MethodReference);
					if (realInstanceMethod == null)
						continue;
					call.Operand = realInstanceMethod;
				}
			}
		}
	}
}