//
// Mono.VisualC.Interop.CppInstancePtr.cs: Represents a pointer to a native C++ instance
//
// Author:
//   Alexander Corrado (alexander.corrado@gmail.com)
//
// Copyright (C) 2010 Alexander Corrado
//

using System;
using System.Reflection.Emit;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using System.Diagnostics;

using Mono.VisualC.Interop.ABI;

namespace Mono.VisualC.Interop {
        public struct CppInstancePtr : ICppObject {
                private IntPtr ptr;
                private bool manage_memory;

                private static Dictionary<Type,object> implCache = null;

                // TODO: the managed instance argument may only be NULL if all methods in TWrapper
                //  that correspond to the virtual methods in Iface are static.
                public static CppInstancePtr ForManagedObject<Iface,TWrapper> (TWrapper managed)
                        where Iface : ICppClassOverridable<TWrapper>
                {
                        object cachedImpl;
                        Iface impl;

			if (implCache == null)
				implCache = new Dictionary<Type,object> ();

                        if (!implCache.TryGetValue (typeof (Iface), out cachedImpl))
                        {
                                VirtualOnlyAbi virtualABI = new VirtualOnlyAbi (VTable.BindToSignature);
                                impl = virtualABI.ImplementClass<Iface> (typeof (TWrapper), string.Empty, string.Empty);
                                implCache.Add (typeof (Iface), impl);
                        }
                        else
                                impl = (Iface)cachedImpl;

                        CppInstancePtr instance = impl.Alloc (managed);
                        impl.TypeInfo.VTable.InitInstance ((IntPtr)instance);

                        return instance;
                }

                // Alloc a new C++ instance
                internal CppInstancePtr (int nativeSize, object managedWrapper)
                {
                        // Under the hood, we're secretly subclassing this C++ class to store a
                        // handle to the managed wrapper.
                        int allocSize = nativeSize + Marshal.SizeOf (typeof (IntPtr));
                        ptr = Marshal.AllocHGlobal (allocSize);

                        // zero memory for sanity
                        byte[] zeroArray = new byte [allocSize];
                        Marshal.Copy (zeroArray, 0, ptr, allocSize);

                        IntPtr handlePtr = GetGCHandle (managedWrapper);
                        Marshal.WriteIntPtr (ptr, nativeSize, handlePtr);

                        manage_memory = true;
                }

                // Alloc a new C++ instance when there is no managed wrapper.
                internal CppInstancePtr (int nativeSize)
                {
                        ptr = Marshal.AllocHGlobal (nativeSize);
                        manage_memory = true;
                }

                // Get a CppInstancePtr for an existing C++ instance from an IntPtr
                public CppInstancePtr (IntPtr native)
                {
                        if (native == IntPtr.Zero)
                                throw new ArgumentOutOfRangeException ("native cannot be null pointer");

                        ptr = native;
                        manage_memory = false;
                }

                // Provide casts to/from IntPtr:
                public static implicit operator CppInstancePtr (IntPtr native)
                {
                        return new CppInstancePtr (native);
                }

                // cast from CppInstancePtr -> IntPtr is explicit because we lose information
                public static explicit operator IntPtr (CppInstancePtr ip)
                {
                        return ip.Native;
                }

                public IntPtr Native {
                        get {
                                if (ptr == IntPtr.Zero)
                                        throw new ObjectDisposedException ("CppInstancePtr");

                                return ptr;
                        }
                }

		CppInstancePtr ICppObject.Native {
			get { return this; }
		}

                public int NativeSize {
                        get {
                                throw new NotImplementedException ();
                        }
                }

                public bool IsManagedAlloc {
                        get { return manage_memory; }
                }

                internal static IntPtr GetGCHandle (object managedWrapper)
                {
                        // TODO: Dispose() should probably be called at some point on this GCHandle.
                        GCHandle handle = GCHandle.Alloc (managedWrapper, GCHandleType.Normal);
                        return GCHandle.ToIntPtr (handle);
                }

                // WARNING! This method is not safe. DO NOT call
                // if we do not KNOW that this instance is managed.
                internal static T GetManaged<T> (IntPtr native, int nativeSize) where T : class
                {

                        IntPtr handlePtr = Marshal.ReadIntPtr (native, nativeSize);
                        GCHandle handle = GCHandle.FromIntPtr (handlePtr);

                        return handle.Target as T;
                }

                // TODO: Free GCHandle?
                public void Dispose ()
                {
                        if (manage_memory && ptr != IntPtr.Zero)
                                Marshal.FreeHGlobal (ptr);

                        ptr = IntPtr.Zero;
                        manage_memory = false;
                }
        }
}