1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.
//
//
// All P/invokes used by System.Private.Interop and MCG generated code goes here.
//
// !!IMPORTANT!!
//
// Do not rely on MCG to generate marshalling code for these p/invokes as MCG might not see them at all
// due to not seeing dependency to those calls (before the MCG generated code is generated). Instead,
// always manually marshal the arguments
using System;
using System.Runtime.CompilerServices;
using System.Security;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;
namespace System.Runtime.InteropServices
{
[CLSCompliant(false)]
public static partial class ExternalInterop
{
private static partial class Libraries
{
#if TARGET_CORE_API_SET
internal const string CORE_COM = "api-ms-win-core-com-l1-1-0.dll";
#else
internal const string CORE_COM = "ole32.dll";
#endif
// @TODO: What is the matching dll in CoreSys?
// @TODO: Replace the below by the correspondent api-ms-win-core-...-0.dll
internal const string CORE_COM_AUT = "OleAut32.dll";
}
#if CORECLR
public static unsafe void SafeCoTaskMemFree(void* pv)
{
// Even though CoTaskMemFree is a no-op for NULLs, skipping the interop call entirely is faster
if (pv != null)
Marshal.FreeCoTaskMem(new IntPtr(pv));
}
public static unsafe IntPtr SysAllocStringLen(char* pStrIn, UInt32 dwSize)
{
string srcString = new string(pStrIn, 0, checked((int)dwSize));
return Marshal.StringToBSTR(srcString);
}
public static unsafe void SysFreeString(void* pBSTR)
{
SysFreeString(new IntPtr(pBSTR));
}
public static unsafe void SysFreeString(IntPtr pBSTR)
{
Marshal.FreeBSTR(pBSTR);
}
internal static void VariantClear(IntPtr pObject)
{
//Nop
}
#else
[DllImport(Libraries.CORE_COM)]
[McgGeneratedNativeCallCodeAttribute]
internal static extern unsafe int CoCreateInstanceFromApp(
Guid* clsid,
IntPtr pUnkOuter,
int context,
IntPtr reserved,
int count,
IntPtr results
);
[DllImport(Libraries.CORE_COM, PreserveSig = false)]
[SuppressUnmanagedCodeSecurity]
internal static extern void CreateBindCtx(UInt32 reserved, out IBindCtx ppbc);
[DllImport(Libraries.CORE_COM, PreserveSig = false)]
[SuppressUnmanagedCodeSecurity]
internal static extern void MkParseDisplayName(IBindCtx pbc, [MarshalAs(UnmanagedType.LPWStr)] String szUserName, out UInt32 pchEaten, out IMoniker ppmk);
#if !TARGET_CORE_API_SET // BindMoniker not available in core API set
[DllImport(Libraries.CORE_COM, PreserveSig = false)]
[SuppressUnmanagedCodeSecurity]
internal static extern void BindMoniker(IMoniker pmk, UInt32 grfOpt, ref Guid iidResult, [MarshalAs(UnmanagedType.Interface)] out Object ppvResult);
#endif
[DllImport(Libraries.CORE_COM_AUT)]
[McgGeneratedNativeCallCodeAttribute]
[MethodImplAttribute(MethodImplOptions.NoInlining)]
public static extern unsafe void SysFreeString(void* pBSTR);
public static unsafe void SysFreeString(IntPtr pBstr)
{
SysFreeString((void*)pBstr);
}
[DllImport(Libraries.CORE_COM_AUT)]
[McgGeneratedNativeCallCodeAttribute]
[MethodImplAttribute(MethodImplOptions.NoInlining)]
public static extern unsafe uint SysStringLen(void* pBSTR);
public static unsafe uint SysStringLen(IntPtr pBSTR)
{
return SysStringLen((void*)pBSTR);
}
[DllImport(Libraries.CORE_COM_AUT)]
[McgGeneratedNativeCallCodeAttribute]
[MethodImplAttribute(MethodImplOptions.NoInlining)]
public static extern unsafe IntPtr SysAllocString(IntPtr pStrIn);
[DllImport(Libraries.CORE_COM_AUT)]
[McgGeneratedNativeCallCodeAttribute]
[MethodImplAttribute(MethodImplOptions.NoInlining)]
public static extern unsafe char* SysAllocStringLen(char* pStrIn, uint len);
[DllImport(Libraries.CORE_COM_AUT)]
[McgGeneratedNativeCallCodeAttribute]
internal static extern void VariantClear(IntPtr pObject);
public static unsafe void SafeCoTaskMemFree(void* pv)
{
// Even though CoTaskMemFree is a no-op for NULLs, skipping the interop call entirely is faster
if (pv != null)
PInvokeMarshal.CoTaskMemFree(new IntPtr(pv));
}
#endif //CORECLR
}
}
|
