// Sean MacIsaac (macisaac@ximian.com)
// Paolo Molaro (lupus@ximian.com)
// Dietmar Maurer (dietmar@ximian.com)
+// Jonathan Chambers (joncham@gmail.com)
//
// (C) 2001-2002 Ximian, Inc.
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//
+using System.Collections;
using System.Runtime.CompilerServices;
using System;
using System.Security;
using System.Reflection;
using System.Threading;
-#if NET_2_0
using System.Runtime.ConstrainedExecution;
+#if !MOONLIGHT
+using System.Runtime.InteropServices.ComTypes;
+#endif
+
+#if !MOONLIGHT
+using Mono.Interop;
#endif
namespace System.Runtime.InteropServices
{
[SuppressUnmanagedCodeSecurity ()]
- public
-#if NET_2_0
- static
-#else
- sealed
-#endif
- class Marshal
+ public static class Marshal
{
/* fields */
public static readonly int SystemMaxDBCSCharSize = 2; // don't know what this is
- public static readonly int SystemDefaultCharSize = 2;
+ public static readonly int SystemDefaultCharSize;
-#if !NET_2_0
- private Marshal () {}
-#endif
+ static Marshal ()
+ {
+ SystemDefaultCharSize = Environment.OSVersion.Platform == PlatformID.Win32NT ? 2 : 1;
+ }
- [MonoTODO]
- public static int AddRef (IntPtr pUnk) {
- throw new NotImplementedException ();
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private extern static int AddRefInternal (IntPtr pUnk);
+
+ public static int AddRef (IntPtr pUnk)
+ {
+ if (pUnk == IntPtr.Zero)
+ throw new ArgumentException ("Value cannot be null.", "pUnk");
+ return AddRefInternal (pUnk);
}
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static IntPtr AllocCoTaskMem (int cb);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.MayFail)]
public extern static IntPtr AllocHGlobal (IntPtr cb);
- public static IntPtr AllocHGlobal (int cb) {
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.MayFail)]
+ public static IntPtr AllocHGlobal (int cb)
+ {
return AllocHGlobal ((IntPtr)cb);
}
[MonoTODO]
- public static object BindToMoniker (string monikerName) {
+ public static object BindToMoniker (string monikerName)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static void ChangeWrapperHandleStrength (object otp, bool fIsWeak) {
+ public static void ChangeWrapperHandleStrength (object otp, bool fIsWeak)
+ {
throw new NotImplementedException ();
}
[MethodImplAttribute(MethodImplOptions.InternalCall)]
- extern static void copy_to_unmanaged (Array source, int startIndex,
- IntPtr destination, int length);
+ internal extern static void copy_to_unmanaged (Array source, int startIndex,
+ IntPtr destination, int length);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
- extern static void copy_from_unmanaged (IntPtr source, int startIndex,
- Array destination, int length);
+ internal extern static void copy_from_unmanaged (IntPtr source, int startIndex,
+ Array destination, int length);
+
+ public static void Copy (byte[] source, int startIndex, IntPtr destination, int length)
+ {
+ copy_to_unmanaged (source, startIndex, destination, length);
+ }
- public static void Copy (byte[] source, int startIndex, IntPtr destination, int length) {
+ public static void Copy (char[] source, int startIndex, IntPtr destination, int length)
+ {
copy_to_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (char[] source, int startIndex, IntPtr destination, int length) {
+ public static void Copy (short[] source, int startIndex, IntPtr destination, int length)
+ {
copy_to_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (short[] source, int startIndex, IntPtr destination, int length) {
+ public static void Copy (int[] source, int startIndex, IntPtr destination, int length)
+ {
copy_to_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (int[] source, int startIndex, IntPtr destination, int length) {
+ public static void Copy (long[] source, int startIndex, IntPtr destination, int length)
+ {
copy_to_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (long[] source, int startIndex, IntPtr destination, int length) {
+ public static void Copy (float[] source, int startIndex, IntPtr destination, int length)
+ {
copy_to_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (float[] source, int startIndex, IntPtr destination, int length) {
+ public static void Copy (double[] source, int startIndex, IntPtr destination, int length)
+ {
copy_to_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (double[] source, int startIndex, IntPtr destination, int length) {
+ public static void Copy (IntPtr[] source, int startIndex, IntPtr destination, int length)
+ {
copy_to_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (IntPtr source, byte[] destination, int startIndex, int length) {
+ public static void Copy (IntPtr source, byte[] destination, int startIndex, int length)
+ {
copy_from_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (IntPtr source, char[] destination, int startIndex, int length) {
+ public static void Copy (IntPtr source, char[] destination, int startIndex, int length)
+ {
copy_from_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (IntPtr source, short[] destination, int startIndex, int length) {
+ public static void Copy (IntPtr source, short[] destination, int startIndex, int length)
+ {
copy_from_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (IntPtr source, int[] destination, int startIndex, int length) {
+ public static void Copy (IntPtr source, int[] destination, int startIndex, int length)
+ {
copy_from_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (IntPtr source, long[] destination, int startIndex, int length) {
+ public static void Copy (IntPtr source, long[] destination, int startIndex, int length)
+ {
copy_from_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (IntPtr source, float[] destination, int startIndex, int length) {
+ public static void Copy (IntPtr source, float[] destination, int startIndex, int length)
+ {
copy_from_unmanaged (source, startIndex, destination, length);
}
- public static void Copy (IntPtr source, double[] destination, int startIndex, int length) {
+ public static void Copy (IntPtr source, double[] destination, int startIndex, int length)
+ {
copy_from_unmanaged (source, startIndex, destination, length);
}
- [MonoTODO]
- public static object CreateWrapperOfType (object o, Type t) {
+ public static void Copy (IntPtr source, IntPtr[] destination, int startIndex, int length)
+ {
+ copy_from_unmanaged (source, startIndex, destination, length);
+ }
+
+ public static IntPtr CreateAggregatedObject (IntPtr pOuter,
+ object o)
+ {
throw new NotImplementedException ();
}
+#if !MOONLIGHT
+ public static object CreateWrapperOfType (object o, Type t)
+ {
+ __ComObject co = o as __ComObject;
+ if (co == null)
+ throw new ArgumentException ("o must derive from __ComObject", "o");
+ if (t == null)
+ throw new ArgumentNullException ("t");
+
+ Type[] itfs = o.GetType ().GetInterfaces ();
+ foreach (Type itf in itfs) {
+ if (itf.IsImport && co.GetInterface (itf) == IntPtr.Zero)
+ throw new InvalidCastException ();
+ }
+
+ return ComInteropProxy.GetProxy (co.IUnknown, t).GetTransparentProxy ();
+ }
+#endif
+
[MethodImplAttribute(MethodImplOptions.InternalCall)]
+ [ComVisible (true)]
public extern static void DestroyStructure (IntPtr ptr, Type structuretype);
- [MonoTODO]
- public static void FreeBSTR (IntPtr ptr) {
- throw new NotImplementedException ();
- }
+ [MethodImplAttribute(MethodImplOptions.InternalCall)]
+ public extern static void FreeBSTR (IntPtr ptr);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static void FreeCoTaskMem (IntPtr ptr);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
public extern static void FreeHGlobal (IntPtr hglobal);
-#if NET_2_0
- [MonoTODO]
- public static void ZeroFreeBSTR (IntPtr ptr) {
- throw new NotImplementedException ();
+ static void ClearBSTR (IntPtr ptr)
+ {
+ int len = ReadInt32 (ptr, -4);
+
+ for (int i = 0; i < len; i++)
+ WriteByte (ptr, i, 0);
+ }
+
+ public static void ZeroFreeBSTR (IntPtr s)
+ {
+ ClearBSTR (s);
+ FreeBSTR (s);
}
- [MonoTODO]
- public static void ZeroFreeCoTaskMemAnsi (IntPtr ptr) {
- throw new NotImplementedException ();
+ static void ClearAnsi (IntPtr ptr)
+ {
+ for (int i = 0; ReadByte (ptr, i) != 0; i++)
+ WriteByte (ptr, i, 0);
}
- [MonoTODO]
- public static void ZeroFreeCoTaskMemUni (IntPtr ptr) {
- throw new NotImplementedException ();
+ static void ClearUnicode (IntPtr ptr)
+ {
+ for (int i = 0; ReadInt16 (ptr, i) != 0; i += 2)
+ WriteInt16 (ptr, i, 0);
+ }
+
+ public static void ZeroFreeCoTaskMemAnsi (IntPtr s)
+ {
+ ClearAnsi (s);
+ FreeCoTaskMem (s);
}
- [MonoTODO]
- public static void ZeroFreeGlobalAllocAnsi (IntPtr hglobal) {
- throw new NotImplementedException ();
+ public static void ZeroFreeCoTaskMemUnicode (IntPtr s)
+ {
+ ClearUnicode (s);
+ FreeCoTaskMem (s);
}
- [MonoTODO]
- public static void ZeroFreeGlobalAllocUni (IntPtr hglobal) {
- throw new NotImplementedException ();
+ public static void ZeroFreeGlobalAllocAnsi (IntPtr s)
+ {
+ ClearAnsi (s);
+ FreeHGlobal (s);
}
-#endif
- [MonoTODO]
- public static Guid GenerateGuidForType (Type type) {
- throw new NotImplementedException ();
+ public static void ZeroFreeGlobalAllocUnicode (IntPtr s)
+ {
+ ClearUnicode (s);
+ FreeHGlobal (s);
}
- [MonoTODO]
- public static string GenerateProgIdForType (Type type) {
- throw new NotImplementedException ();
+#if !MOONLIGHT
+ public static Guid GenerateGuidForType (Type type)
+ {
+ return type.GUID;
}
[MonoTODO]
- public static object GetActiveObject (string progID) {
+ public static string GenerateProgIdForType (Type type)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static IntPtr GetComInterfaceForObject (object o, Type T) {
+ public static object GetActiveObject (string progID)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
- [MonoTODO]
- public static IntPtr GetComInterfaceForObjectInContext (object o, Type t) {
- throw new NotImplementedException ();
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private extern static IntPtr GetCCW (object o, Type T);
+
+ private static IntPtr GetComInterfaceForObjectInternal (object o, Type T)
+ {
+ if (IsComObject (o))
+ return ((__ComObject)o).GetInterface (T);
+ else
+ return GetCCW (o, T);
}
-#endif
- [MonoTODO]
- public static object GetComObjectData (object obj, object key) {
- throw new NotImplementedException ();
+ public static IntPtr GetComInterfaceForObject (object o, Type T)
+ {
+ IntPtr pItf = GetComInterfaceForObjectInternal (o, T);
+ AddRef (pItf);
+ return pItf;
}
[MonoTODO]
- public static int GetComSlotForMethodInfo (MemberInfo m) {
+ public static IntPtr GetComInterfaceForObjectInContext (object o, Type t)
+ {
throw new NotImplementedException ();
}
- [MonoTODO]
- public static int GetEndComSlot (Type t) {
- throw new NotImplementedException ();
+ [MonoNotSupportedAttribute ("MSDN states user code should never need to call this method.")]
+ public static object GetComObjectData (object obj, object key)
+ {
+ throw new NotSupportedException ("MSDN states user code should never need to call this method.");
}
- [MonoTODO]
- public static int GetExceptionCode() {
- throw new NotImplementedException ();
+ [MethodImplAttribute(MethodImplOptions.InternalCall)]
+ private extern static int GetComSlotForMethodInfoInternal (MemberInfo m);
+
+ public static int GetComSlotForMethodInfo (MemberInfo m)
+ {
+ if (m == null)
+ throw new ArgumentNullException ("m");
+ if (!(m is MethodInfo))
+ throw new ArgumentException ("The MemberInfo must be an interface method.", "m");
+ if (!m.DeclaringType.IsInterface)
+ throw new ArgumentException ("The MemberInfo must be an interface method.", "m");
+ return GetComSlotForMethodInfoInternal (m);
}
[MonoTODO]
- public static IntPtr GetExceptionPointers() {
+ public static int GetEndComSlot (Type t)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static IntPtr GetHINSTANCE (Module m) {
+ public static int GetExceptionCode()
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static int GetHRForException (Exception e) {
+ [ComVisible (true)]
+ public static IntPtr GetExceptionPointers()
+ {
throw new NotImplementedException ();
}
- [MonoTODO]
- public static int GetHRForLastWin32Error() {
- throw new NotImplementedException ();
+ public static IntPtr GetHINSTANCE (Module m)
+ {
+ if (m == null)
+ throw new ArgumentNullException ("m");
+
+ return m.GetHINSTANCE ();
}
+#endif // !NET_2_1
- [MonoTODO]
- public static IntPtr GetIDispatchForObject (object o) {
- throw new NotImplementedException ();
+ [MonoTODO ("SetErrorInfo")]
+ public static int GetHRForException (Exception e)
+ {
+ return e.hresult;
}
-#if NET_2_0
[MonoTODO]
- public static IntPtr GetIDispatchForObjectInContext (object o) {
+ [ReliabilityContract (Consistency.WillNotCorruptState, Cer.Success)]
+ public static int GetHRForLastWin32Error()
+ {
throw new NotImplementedException ();
}
-#endif
+#if !MOONLIGHT
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private extern static IntPtr GetIDispatchForObjectInternal (object o);
- [MonoTODO]
- public static IntPtr GetITypeInfoForType (Type t) {
- throw new NotImplementedException ();
+ public static IntPtr GetIDispatchForObject (object o)
+ {
+ IntPtr pUnk = GetIDispatchForObjectInternal (o);
+ // Internal method does not AddRef
+ AddRef (pUnk);
+ return pUnk;
}
[MonoTODO]
- public static IntPtr GetIUnknownForObject (object o) {
+ public static IntPtr GetIDispatchForObjectInContext (object o)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
[MonoTODO]
- public static IntPtr GetIUnknownForObjectInContext (object o) {
+ public static IntPtr GetITypeInfoForType (Type t)
+ {
throw new NotImplementedException ();
}
-#endif
- [MethodImplAttribute(MethodImplOptions.InternalCall)]
- public static extern int GetLastWin32Error();
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private extern static IntPtr GetIUnknownForObjectInternal (object o);
+
+ public static IntPtr GetIUnknownForObject (object o)
+ {
+ IntPtr pUnk = GetIUnknownForObjectInternal (o);
+ // Internal method does not AddRef
+ AddRef (pUnk);
+ return pUnk;
+ }
[MonoTODO]
- public static IntPtr GetManagedThunkForUnmanagedMethodPtr (IntPtr pfnMethodToWrap, IntPtr pbSignature, int cbSignature) {
+ public static IntPtr GetIUnknownForObjectInContext (object o)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static MemberInfo GetMethodInfoForComSlot (Type t, int slot, ref ComMemberType memberType) {
+ [Obsolete ("This method has been deprecated")]
+ public static IntPtr GetManagedThunkForUnmanagedMethodPtr (IntPtr pfnMethodToWrap, IntPtr pbSignature, int cbSignature)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static void GetNativeVariantForObject (object obj, IntPtr pDstNativeVariant) {
+ public static MemberInfo GetMethodInfoForComSlot (Type t, int slot, ref ComMemberType memberType)
+ {
throw new NotImplementedException ();
}
+ public static void GetNativeVariantForObject (object obj, IntPtr pDstNativeVariant)
+ {
+ Variant vt = new Variant();
+ vt.SetValue(obj);
+ Marshal.StructureToPtr(vt, pDstNativeVariant, false);
+ }
+
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private static extern object GetObjectForCCW (IntPtr pUnk);
+
+ public static object GetObjectForIUnknown (IntPtr pUnk)
+ {
+ object obj = GetObjectForCCW (pUnk);
+ // was not a CCW
+ if (obj == null) {
+ ComInteropProxy proxy = ComInteropProxy.GetProxy (pUnk, typeof (__ComObject));
+ obj = proxy.GetTransparentProxy ();
+ }
+ return obj;
+ }
+
+ public static object GetObjectForNativeVariant (IntPtr pSrcNativeVariant)
+ {
+ Variant vt = (Variant)Marshal.PtrToStructure(pSrcNativeVariant, typeof(Variant));
+ return vt.GetValue();
+ }
+
+ public static object[] GetObjectsForNativeVariants (IntPtr aSrcNativeVariant, int cVars)
+ {
+ if (cVars < 0)
+ throw new ArgumentOutOfRangeException ("cVars", "cVars cannot be a negative number.");
+ object[] objects = new object[cVars];
+ for (int i = 0; i < cVars; i++)
+ objects[i] = GetObjectForNativeVariant ((IntPtr)(aSrcNativeVariant.ToInt64 () +
+ i * SizeOf (typeof(Variant))));
+ return objects;
+ }
+
[MonoTODO]
- public static object GetObjectForIUnknown (IntPtr pUnk) {
+ public static int GetStartComSlot (Type t)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static object GetObjectForNativeVariant (IntPtr pSrcNativeVariant) {
+ [Obsolete ("This method has been deprecated")]
+ public static Thread GetThreadFromFiberCookie (int cookie)
+ {
throw new NotImplementedException ();
}
+ public static object GetTypedObjectForIUnknown (IntPtr pUnk, Type t)
+ {
+ ComInteropProxy proxy = new ComInteropProxy (pUnk, t);
+ __ComObject co = (__ComObject)proxy.GetTransparentProxy ();
+ foreach (Type itf in t.GetInterfaces ()) {
+ if ((itf.Attributes & TypeAttributes.Import) == TypeAttributes.Import) {
+ if (co.GetInterface (itf) == IntPtr.Zero)
+ return null;
+ }
+ }
+ return co;
+ }
+
[MonoTODO]
- public static object[] GetObjectsForNativeVariants (IntPtr aSrcNativeVariant, int cVars) {
+ public static Type GetTypeForITypeInfo (IntPtr piTypeInfo)
+ {
throw new NotImplementedException ();
}
+ [Obsolete]
[MonoTODO]
- public static int GetStartComSlot (Type t) {
+ public static string GetTypeInfoName (UCOMITypeInfo pTI)
+ {
throw new NotImplementedException ();
}
- [MonoTODO]
- public static Thread GetThreadFromFiberCookie (int cookie) {
+ public static string GetTypeInfoName (ITypeInfo typeInfo)
+ {
throw new NotImplementedException ();
}
+ [Obsolete]
[MonoTODO]
- public static object GetTypedObjectForIUnknown (IntPtr pUnk, Type t) {
+ public static Guid GetTypeLibGuid (UCOMITypeLib pTLB)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static Type GetTypeForITypeInfo (IntPtr piTypeInfo) {
+ public static Guid GetTypeLibGuid (ITypeLib typelib)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
- [Obsolete]
-#endif
[MonoTODO]
- public static string GetTypeInfoName (UCOMITypeInfo pTI) {
+ public static Guid GetTypeLibGuidForAssembly (Assembly asm)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
[Obsolete]
-#endif
[MonoTODO]
- public static Guid GetTypeLibGuid (UCOMITypeLib pTLB) {
+ public static int GetTypeLibLcid (UCOMITypeLib pTLB)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static Guid GetTypeLibGuidForAssembly (Assembly asm) {
+ public static int GetTypeLibLcid (ITypeLib typelib)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
[Obsolete]
-#endif
[MonoTODO]
- public static int GetTypeLibLcid (UCOMITypeLib pTLB) {
+ public static string GetTypeLibName (UCOMITypeLib pTLB)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
- [Obsolete]
-#endif
[MonoTODO]
- public static string GetTypeLibName (UCOMITypeLib pTLB) {
+ public static string GetTypeLibName (ITypeLib typelib)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
[MonoTODO]
- public static void GetTypeLibVersionForAssembly (Assembly inputAssembly, out int majorVersion, out int minorVersion) {
+ public static void GetTypeLibVersionForAssembly (Assembly inputAssembly, out int majorVersion, out int minorVersion)
+ {
throw new NotImplementedException ();
}
-#endif
- [MonoTODO]
- public static IntPtr GetUnmanagedThunkForManagedMethodPtr (IntPtr pfnMethodToWrap, IntPtr pbSignature, int cbSignature) {
+ public static object GetUniqueObjectForIUnknown (IntPtr unknown)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static bool IsComObject (object o) {
+ [Obsolete ("This method has been deprecated")]
+ public static IntPtr GetUnmanagedThunkForManagedMethodPtr (IntPtr pfnMethodToWrap, IntPtr pbSignature, int cbSignature)
+ {
throw new NotImplementedException ();
}
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ public extern static bool IsComObject (object o);
+
[MonoTODO]
- public static bool IsTypeVisibleFromCom (Type t) {
+ public static bool IsTypeVisibleFromCom (Type t)
+ {
throw new NotImplementedException ();
}
[MonoTODO]
- public static int NumParamBytes (MethodInfo m) {
+ public static int NumParamBytes (MethodInfo m)
+ {
throw new NotImplementedException ();
}
+#endif // !NET_2_1
+
+ [MethodImplAttribute(MethodImplOptions.InternalCall)]
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
+ public static extern int GetLastWin32Error();
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static IntPtr OffsetOf (Type t, string fieldName);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static string PtrToStringAnsi (IntPtr ptr, int len);
- [MethodImplAttribute(MethodImplOptions.InternalCall)]
- public extern static string PtrToStringAuto (IntPtr ptr);
+ public static string PtrToStringAuto (IntPtr ptr)
+ {
+ return SystemDefaultCharSize == 2
+ ? PtrToStringUni (ptr) : PtrToStringAnsi (ptr);
+ }
- [MethodImplAttribute(MethodImplOptions.InternalCall)]
- public extern static string PtrToStringAuto (IntPtr ptr, int len);
+ public static string PtrToStringAuto (IntPtr ptr, int len)
+ {
+ return SystemDefaultCharSize == 2
+ ? PtrToStringUni (ptr, len) : PtrToStringAnsi (ptr, len);
+ }
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static string PtrToStringUni (IntPtr ptr);
public extern static string PtrToStringBSTR (IntPtr ptr);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
+ [ComVisible (true)]
public extern static void PtrToStructure (IntPtr ptr, object structure);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
+ [ComVisible (true)]
public extern static object PtrToStructure (IntPtr ptr, Type structureType);
- [MonoTODO]
- public static int QueryInterface (IntPtr pUnk, ref Guid iid, out IntPtr ppv) {
- throw new NotImplementedException ();
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private extern static int QueryInterfaceInternal (IntPtr pUnk, ref Guid iid, out IntPtr ppv);
+
+ public static int QueryInterface (IntPtr pUnk, ref Guid iid, out IntPtr ppv)
+ {
+ if (pUnk == IntPtr.Zero)
+ throw new ArgumentException ("Value cannot be null.", "pUnk");
+ return QueryInterfaceInternal (pUnk, ref iid, out ppv);
}
- public static byte ReadByte (IntPtr ptr) {
+ public static byte ReadByte (IntPtr ptr)
+ {
return ReadByte (ptr, 0);
}
public extern static byte ReadByte (IntPtr ptr, int ofs);
[MonoTODO]
- public static byte ReadByte ([In, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs) {
+ public static byte ReadByte ([In, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs)
+ {
throw new NotImplementedException ();
}
- public static short ReadInt16 (IntPtr ptr) {
+ public static short ReadInt16 (IntPtr ptr)
+ {
return ReadInt16 (ptr, 0);
}
public extern static short ReadInt16 (IntPtr ptr, int ofs);
[MonoTODO]
- public static short ReadInt16 ([In, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs) {
+ public static short ReadInt16 ([In, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
- public static int ReadInt32 (IntPtr ptr) {
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
+ public static int ReadInt32 (IntPtr ptr)
+ {
return ReadInt32 (ptr, 0);
}
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static int ReadInt32 (IntPtr ptr, int ofs);
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
[MonoTODO]
- public static int ReadInt32 ([In, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs) {
+ public static int ReadInt32 ([In, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
- public static long ReadInt64 (IntPtr ptr) {
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
+ public static long ReadInt64 (IntPtr ptr)
+ {
return ReadInt64 (ptr, 0);
}
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static long ReadInt64 (IntPtr ptr, int ofs);
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
[MonoTODO]
- public static long ReadInt64 ([In, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs) {
+ public static long ReadInt64 ([In, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs)
+ {
throw new NotImplementedException ();
}
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
- public static IntPtr ReadIntPtr (IntPtr ptr) {
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
+ public static IntPtr ReadIntPtr (IntPtr ptr)
+ {
return ReadIntPtr (ptr, 0);
}
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static IntPtr ReadIntPtr (IntPtr ptr, int ofs);
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
[MonoTODO]
- public static IntPtr ReadIntPtr ([In, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs) {
+ public static IntPtr ReadIntPtr ([In, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs)
+ {
throw new NotImplementedException ();
}
- [MonoTODO]
- public static IntPtr ReAllocCoTaskMem (IntPtr pv, int cb) {
- throw new NotImplementedException ();
- }
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ public extern static IntPtr ReAllocCoTaskMem (IntPtr pv, int cb);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static IntPtr ReAllocHGlobal (IntPtr pv, IntPtr cb);
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.Success)]
-#endif
- [MonoTODO]
- public static int Release (IntPtr pUnk) {
- throw new NotImplementedException ();
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.Success)]
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private extern static int ReleaseInternal (IntPtr pUnk);
+
+ [ReliabilityContract (Consistency.WillNotCorruptState, Cer.Success)]
+ public static int Release (IntPtr pUnk)
+ {
+ if (pUnk == IntPtr.Zero)
+ throw new ArgumentException ("Value cannot be null.", "pUnk");
+ return ReleaseInternal (pUnk);
}
- [MonoTODO]
- public static int ReleaseComObject (object o) {
- throw new NotImplementedException ();
+#if !MOONLIGHT
+ [MethodImplAttribute (MethodImplOptions.InternalCall)]
+ private extern static int ReleaseComObjectInternal (object co);
+
+ public static int ReleaseComObject (object o)
+ {
+ if (o == null)
+ throw new ArgumentException ("Value cannot be null.", "o");
+ if (!IsComObject (o))
+ throw new ArgumentException ("Value must be a Com object.", "o");
+ return ReleaseComObjectInternal (o);
}
-#if NET_2_0
[Obsolete]
-#endif
[MonoTODO]
- public static void ReleaseThreadCache() {
+ public static void ReleaseThreadCache()
+ {
throw new NotImplementedException ();
}
- [MonoTODO]
- public static bool SetComObjectData (object obj, object key, object data) {
- throw new NotImplementedException ();
+ [MonoNotSupportedAttribute ("MSDN states user code should never need to call this method.")]
+ public static bool SetComObjectData (object obj, object key, object data)
+ {
+ throw new NotSupportedException ("MSDN states user code should never need to call this method.");
}
+#endif // !NET_2_1
- public static int SizeOf (object structure) {
+ [ComVisible (true)]
+ public static int SizeOf (object structure)
+ {
return SizeOf (structure.GetType ());
}
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static int SizeOf (Type t);
- [MonoTODO]
- public static IntPtr StringToBSTR (string s) {
- throw new NotImplementedException ();
- }
-
- public static IntPtr StringToCoTaskMemAnsi (string s) {
+ [MethodImplAttribute(MethodImplOptions.InternalCall)]
+ public extern static IntPtr StringToBSTR (string s);
+
+ //
+ // I believe this is wrong, because in Mono and in P/Invoke
+ // we treat "Ansi" conversions as UTF-8 conversions, while
+ // this one does not do this
+ //
+ public static IntPtr StringToCoTaskMemAnsi (string s)
+ {
int length = s.Length + 1;
IntPtr ctm = AllocCoTaskMem (length);
return ctm;
}
- [MonoTODO]
- public static IntPtr StringToCoTaskMemAuto (string s) {
- throw new NotImplementedException ();
+ public static IntPtr StringToCoTaskMemAuto (string s)
+ {
+ return SystemDefaultCharSize == 2
+ ? StringToCoTaskMemUni (s) : StringToCoTaskMemAnsi (s);
}
- public static IntPtr StringToCoTaskMemUni (string s) {
+ public static IntPtr StringToCoTaskMemUni (string s)
+ {
int length = s.Length + 1;
IntPtr ctm = AllocCoTaskMem (length * 2);
-
+
char[] asChars = new char[length];
s.CopyTo (0, asChars, 0, s.Length);
asChars[s.Length] = '\0';
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static IntPtr StringToHGlobalAnsi (string s);
- [MethodImplAttribute(MethodImplOptions.InternalCall)]
- public extern static IntPtr StringToHGlobalAuto (string s);
+ public static IntPtr StringToHGlobalAuto (string s)
+ {
+ return SystemDefaultCharSize == 2
+ ? StringToHGlobalUni (s) : StringToHGlobalAnsi (s);
+ }
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static IntPtr StringToHGlobalUni (string s);
-#if NET_2_0
- [MonoTODO]
- public static IntPtr SecureStringToBSTR (SecureString s) {
- throw new NotImplementedException ();
+#if !MOONLIGHT
+ public static IntPtr SecureStringToBSTR (SecureString s)
+ {
+ if (s == null)
+ throw new ArgumentNullException ("s");
+ int len = s.Length;
+ IntPtr ctm = AllocCoTaskMem ((len+1) * 2 + 4);
+ byte [] buffer = null;
+ WriteInt32 (ctm, 0, len*2);
+ try {
+ buffer = s.GetBuffer ();
+
+ for (int i = 0; i < len; i++)
+ WriteInt16 (ctm, 4 + (i * 2), (short) ((buffer [(i*2)] << 8) | (buffer [i*2+1])));
+ WriteInt16 (ctm, 4 + buffer.Length, 0);
+ } finally {
+ if (buffer != null)
+ for (int i = buffer.Length; i > 0; ){
+ i--;
+ buffer [i] = 0;
+ }
+ }
+ return (IntPtr) ((long)ctm + 4);
+ }
+
+ public static IntPtr SecureStringToCoTaskMemAnsi (SecureString s)
+ {
+ if (s == null)
+ throw new ArgumentNullException ("s");
+ int len = s.Length;
+ IntPtr ctm = AllocCoTaskMem (len + 1);
+ byte [] copy = new byte [len+1];
+
+ try {
+ byte [] buffer = s.GetBuffer ();
+ int i = 0, j = 0;
+ for (; i < len; i++, j += 2){
+ copy [i] = buffer [j+1];
+ buffer [j] = 0;
+ buffer [j+1] = 0;
+ }
+ copy [i] = 0;
+ copy_to_unmanaged (copy, 0, ctm, len+1);
+ } finally {
+ // Ensure that we clear the buffer.
+ for (int i = len; i > 0; ){
+ i--;
+ copy [i] = 0;
+ }
+ }
+ return ctm;
}
- [MonoTODO]
- public static IntPtr SecureStringToCoTaskMemAnsi (SecureString s) {
- throw new NotImplementedException ();
+ public static IntPtr SecureStringToCoTaskMemUnicode (SecureString s)
+ {
+ if (s == null)
+ throw new ArgumentNullException ("s");
+ int len = s.Length;
+ IntPtr ctm = AllocCoTaskMem (len * 2 + 2);
+ byte [] buffer = null;
+ try {
+ buffer = s.GetBuffer ();
+ for (int i = 0; i < len; i++)
+ WriteInt16 (ctm, i * 2, (short) ((buffer [(i*2)] << 8) | (buffer [i*2+1])));
+ WriteInt16 (ctm, buffer.Length, 0);
+ } finally {
+ if (buffer != null)
+ for (int i = buffer.Length; i > 0; ){
+ i--;
+ buffer [i] = 0;
+ }
+ }
+ return ctm;
}
- [MonoTODO]
- public static IntPtr SecureStringToCoTaskMemUni (SecureString s) {
- throw new NotImplementedException ();
+ public static IntPtr SecureStringToGlobalAllocAnsi (SecureString s)
+ {
+ if (s == null)
+ throw new ArgumentNullException ("s");
+ return SecureStringToCoTaskMemAnsi (s);
}
- [MonoTODO]
- public static IntPtr SecureStringToGlobalAllocAnsi (SecureString s) {
- throw new NotImplementedException ();
- }
-
- [MonoTODO]
- public static IntPtr SecureStringToGlobalAllocUni (SecureString s) {
- throw new NotImplementedException ();
+ public static IntPtr SecureStringToGlobalAllocUnicode (SecureString s)
+ {
+ if (s == null)
+ throw new ArgumentNullException ("s");
+ return SecureStringToCoTaskMemUnicode (s);
}
#endif
-#if NET_2_0
- [ReliabilityContractAttribute (Consistency.WillNotCorruptState, CER.MayFail)]
-#endif
+ [ReliabilityContractAttribute (Consistency.WillNotCorruptState, Cer.MayFail)]
+ [ComVisible (true)]
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static void StructureToPtr (object structure, IntPtr ptr, bool fDeleteOld);
- [MonoTODO]
public static void ThrowExceptionForHR (int errorCode) {
- throw new NotImplementedException ();
+ Exception ex = GetExceptionForHR (errorCode);
+ if (ex != null)
+ throw ex;
}
- [MonoTODO]
public static void ThrowExceptionForHR (int errorCode, IntPtr errorInfo) {
- throw new NotImplementedException ();
+ Exception ex = GetExceptionForHR (errorCode, errorInfo);
+ if (ex != null)
+ throw ex;
}
[MethodImplAttribute(MethodImplOptions.InternalCall)]
public extern static IntPtr UnsafeAddrOfPinnedArrayElement (Array arr, int index);
- public static void WriteByte (IntPtr ptr, byte val) {
+ public static void WriteByte (IntPtr ptr, byte val)
+ {
WriteByte (ptr, 0, val);
}
public extern static void WriteByte (IntPtr ptr, int ofs, byte val);
[MonoTODO]
- public static void WriteByte ([In, Out, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs, byte val) {
+ public static void WriteByte ([In, Out, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs, byte val)
+ {
throw new NotImplementedException ();
}
- public static void WriteInt16 (IntPtr ptr, short val) {
+ public static void WriteInt16 (IntPtr ptr, short val)
+ {
WriteInt16 (ptr, 0, val);
}
public extern static void WriteInt16 (IntPtr ptr, int ofs, short val);
[MonoTODO]
- public static void WriteInt16 ([In, Out, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs, short val) {
+ public static void WriteInt16 ([In, Out, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs, short val)
+ {
throw new NotImplementedException ();
}
- public static void WriteInt16 (IntPtr ptr, char val) {
+ public static void WriteInt16 (IntPtr ptr, char val)
+ {
WriteInt16 (ptr, 0, val);
}
public extern static void WriteInt16 (IntPtr ptr, int ofs, char val);
[MonoTODO]
- public static void WriteInt16([In, Out, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs, char val) {
+ public static void WriteInt16([In, Out] object ptr, int ofs, char val)
+ {
throw new NotImplementedException ();
}
- public static void WriteInt32 (IntPtr ptr, int val) {
+ public static void WriteInt32 (IntPtr ptr, int val)
+ {
WriteInt32 (ptr, 0, val);
}
public extern static void WriteInt32 (IntPtr ptr, int ofs, int val);
[MonoTODO]
- public static void WriteInt32([In, Out, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs, int val) {
+ public static void WriteInt32([In, Out, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs, int val)
+ {
throw new NotImplementedException ();
}
- public static void WriteInt64 (IntPtr ptr, long val) {
+ public static void WriteInt64 (IntPtr ptr, long val)
+ {
WriteInt64 (ptr, 0, val);
}
public extern static void WriteInt64 (IntPtr ptr, int ofs, long val);
[MonoTODO]
- public static void WriteInt64 ([In, Out, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs, long val) {
+ public static void WriteInt64 ([In, Out, MarshalAs (UnmanagedType.AsAny)] object ptr, int ofs, long val)
+ {
throw new NotImplementedException ();
}
- public static void WriteIntPtr (IntPtr ptr, IntPtr val) {
+ public static void WriteIntPtr (IntPtr ptr, IntPtr val)
+ {
WriteIntPtr (ptr, 0, val);
}
public extern static void WriteIntPtr (IntPtr ptr, int ofs, IntPtr val);
[MonoTODO]
- public static void WriteIntPtr([In, Out, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs, IntPtr val) {
- throw new NotImplementedException ();
- }
-
-#if NET_2_0
- [MonoTODO]
- public static int FinalReleaseComObject (object o) {
+ public static void WriteIntPtr([In, Out, MarshalAs(UnmanagedType.AsAny)] object ptr, int ofs, IntPtr val)
+ {
throw new NotImplementedException ();
}
- [MonoTODO]
public static Exception GetExceptionForHR (int errorCode) {
- throw new NotImplementedException ();
+ return GetExceptionForHR (errorCode, IntPtr.Zero);
}
- [MonoTODO]
public static Exception GetExceptionForHR (int errorCode, IntPtr errorInfo) {
- throw new NotImplementedException ();
+
+ const int E_OUTOFMEMORY = unchecked ((int)0x8007000EL);
+ const int E_INVALIDARG = unchecked ((int)0X80070057);
+
+ switch (errorCode)
+ {
+ case E_OUTOFMEMORY:
+ return new OutOfMemoryException ();
+ case E_INVALIDARG:
+ return new ArgumentException ();
+ }
+ if (errorCode < 0)
+ return new COMException ("", errorCode);
+ return null;
+ }
+
+#if !MOONLIGHT
+ public static int FinalReleaseComObject (object o)
+ {
+ while (ReleaseComObject (o) != 0);
+ return 0;
}
+#endif
[MethodImplAttribute(MethodImplOptions.InternalCall)]
private static extern Delegate GetDelegateForFunctionPointerInternal (IntPtr ptr, Type t);
- public static Delegate GetDelegateForFunctionPointer (IntPtr ptr, Type t) {
+ public static Delegate GetDelegateForFunctionPointer (IntPtr ptr, Type t)
+ {
+ if (t == null)
+ throw new ArgumentNullException ("t");
if (!t.IsSubclassOf (typeof (MulticastDelegate)) || (t == typeof (MulticastDelegate)))
throw new ArgumentException ("Type is not a delegate", "t");
if (ptr == IntPtr.Zero)
[MethodImplAttribute(MethodImplOptions.InternalCall)]
private static extern IntPtr GetFunctionPointerForDelegateInternal (Delegate d);
- public static IntPtr GetFunctionPointerForDelegate (Delegate d) {
+ public static IntPtr GetFunctionPointerForDelegate (Delegate d)
+ {
if (d == null)
throw new ArgumentNullException ("d");
return GetFunctionPointerForDelegateInternal (d);
}
-#endif
}
}
projects / mono.git / blobdiff