public ElemDesc(FuncDesc funcdesc, int index)
{
m_parent = funcdesc;
IntPtr pParam = funcdesc.m_funcdesc.lprgelemdescParam;
IntPtr pElemDesc = Utils.MovePointer(pParam, index * Marshal.SizeOf(typeof(ELEMDESC)));
Init((ELEMDESC)Marshal.PtrToStructure(pElemDesc, typeof(ELEMDESC)));
}
/// <summary>
/// Get the event delegate for specified method in the source interface. Create a new one if necessary
/// </summary>
/// <param name="index">Function index</param>
/// <returns>The delegate type</returns>
public Type GetEventDelegate(InterfaceMemberInfo memberInfo)
{
TypeInfo type = memberInfo.RefTypeInfo;
using (TypeAttr attr = type.GetTypeAttr())
{
// Create m_delegateTypes on demand
if (m_delegateTypes == null)
{
m_delegateTypes = new Dictionary <InterfaceMemberInfo, Type>();
}
//
// Check if we already have a delegate type for method n
//
if (!m_delegateTypes.ContainsKey(memberInfo))
{
//
// If not, create a new delegate
//
FuncDesc func = type.GetFuncDesc(memberInfo.Index);
string eventName = type.GetDocumentation(func.memid);
string delegateName = m_info.GetRecommendedManagedName(m_convInterface.RefTypeInfo, ConvType.Interface, true) + "_" + type.GetDocumentation(func.memid) + "EventHandler";
// Deal with name collisions
delegateName = m_info.GetUniqueManagedName(delegateName);
TypeBuilder delegateTypeBuilder = m_info.ModuleBuilder.DefineType(
delegateName,
TypeAttributes.Public | TypeAttributes.Sealed,
typeof(MulticastDelegate)
);
// Create constructor for the delegate
ConstructorBuilder delegateCtorBuilder = delegateTypeBuilder.DefineConstructor(MethodAttributes.Public, CallingConventions.HasThis, new Type[] { typeof(Object), typeof(UIntPtr) });
delegateCtorBuilder.SetImplementationFlags(MethodImplAttributes.Runtime | MethodImplAttributes.Managed);
// Create methods for the delegate
InterfaceInfo interfaceInfoForDelegate = new InterfaceInfo(m_info, delegateTypeBuilder, false, type, attr, false, true);
interfaceInfoForDelegate.AllowNewEnum = !m_convInterface.ImplementsIEnumerable;
ConvCommon.CreateMethodForDelegate(interfaceInfoForDelegate, func, memberInfo.Index);
// Emit ComVisibleAttribute(false)
delegateTypeBuilder.SetCustomAttribute(CustomAttributeHelper.GetBuilderForComVisible(false));
// Emit TypeLibTypeAttribute(TypeLibTypeFlags.FHidden) to hide it from object browser in VB
delegateTypeBuilder.SetCustomAttribute(CustomAttributeHelper.GetBuilderForTypeLibType(TypeLibTypeFlags.FHidden));
// Create the delegate
m_delegateTypes[memberInfo] = delegateTypeBuilder.CreateType();
}
}
return(m_delegateTypes[memberInfo]);
}
/// <summary>
/// Generate properties for Functions
/// </summary>
public void GenerateProperty(InterfaceInfo info, TypeBuilder typebuilder)
{
// Generate property using unique name
string uniqueName = info.GenerateUniqueMemberName(
m_propertyInfo.RecommendedName,
null,
MemberTypes.Property);
//
// Convert the signature
//
Type[] paramTypes = null;
Type retType = null;
if (m_propertyInfo.Kind == PropertyKind.VarProperty)
{
// Converting variable to property. There are no parameters at all
TypeConverter typeConverter = m_propertyInfo.GetPropertyTypeConverter(info.ConverterInfo, info.RefTypeInfo);
info.IsConversionLoss |= typeConverter.IsConversionLoss;
retType = typeConverter.ConvertedType;
}
else
{
// If /preservesig is specified, do not generate property, and only
// the getter and setter functions are enough.
// Property requires that the property getter must return the real property value, and the first parameter of
// the setter must be the property value. While, the /preservesig switch will change the prototype of the setters and
// getters, which is different from what the compiler expected.
// So we do not support the Property if the /preservesig is specified.
if (info.ConverterInfo.Settings.m_isPreserveSig &&
(m_propertyInfo.BestFuncDesc != null && !m_propertyInfo.BestFuncDesc.IsDispatch))
{
if (TlbImpCode.TlbImpCode.s_Options.m_bVerboseMode)
{
FormattedOutput.Output.WriteInfo(Resource.FormatString("Msg_PropertyIsOmitted",
m_propertyInfo.RecommendedName,
m_propertyInfo.RefTypeInfo.GetDocumentation()),
MessageCode.Msg_PropertyIsOmitted);
}
return;
}
// Converting propget/propput/propputref functions to property.
TypeConverter typeConverter = m_propertyInfo.GetPropertyTypeConverter(info.ConverterInfo, info.RefTypeInfo);
retType = typeConverter.ConvertedType;
info.IsConversionLoss |= typeConverter.IsConversionLoss;
FuncDesc bestFuncDesc = m_propertyInfo.BestFuncDesc;
// if we have a [vararg]
int varArg, firstOptArg, lastOptArg;
if (bestFuncDesc.cParamsOpt == -1)
{
ConvCommon.CheckForOptionalArguments(info.ConverterInfo, bestFuncDesc, out varArg, out firstOptArg, out lastOptArg);
}
else
{
varArg = -1;
}
List <Type> paramTypeList = new List <Type>();
// Find the index part of the property's signature
bool skipLastRetVal = (bestFuncDesc.IsPropertyPut || bestFuncDesc.IsPropertyPutRef);
for (int i = 0; i < bestFuncDesc.cParams; ++i)
{
ElemDesc elemDesc = bestFuncDesc.GetElemDesc(i);
ParamDesc paramDesc = elemDesc.paramdesc;
// Skip LCID/RetVal
if (paramDesc.IsLCID || paramDesc.IsRetval)
{
continue;
}
// Skip the "new value" parameter for putters
if (skipLastRetVal)
{
skipLastRetVal = false;
continue;
}
ConversionType conversionType;
if (i == varArg)
{
conversionType = ConversionType.VarArgParameter;
}
else
{
conversionType = ConversionType.Parameter;
}
TypeConverter paramTypeConverter = new TypeConverter(info.ConverterInfo, info.RefTypeInfo, elemDesc.tdesc, conversionType);
info.IsConversionLoss |= paramTypeConverter.IsConversionLoss;
paramTypeList.Add(paramTypeConverter.ConvertedType);
}
paramTypes = paramTypeList.ToArray();
}
// Define the property
PropertyBuilder propertyBuilder = typebuilder.DefineProperty(uniqueName, PropertyAttributes.HasDefault, retType, paramTypes);
if (info.IsCoClass && !info.IsDefaultInterface)
{
// Skip non-default interfaces / implemented interfaces (when we are creating coclass)
}
else
{
// Emit dispatch id attribute
propertyBuilder.SetCustomAttribute(CustomAttributeHelper.GetBuilderForDispId(m_propertyInfo.DispId));
}
// We don't need to emit MarshalAs for properties because the get/set functions should already have them
// Emitting MarshalAs for property will hang up CLR!!
if (m_methodGet != null)
{
propertyBuilder.SetGetMethod(m_methodGet);
}
// Has both propPut & propPutRef?
if (m_methodPut != null && m_methodPutRef != null)
{
propertyBuilder.SetSetMethod(m_methodPutRef);
propertyBuilder.AddOtherMethod(m_methodPut);
}
else
{
if (m_methodPut != null)
{
propertyBuilder.SetSetMethod(m_methodPut);
}
else if (m_methodPutRef != null)
{
propertyBuilder.SetSetMethod(m_methodPutRef);
}
}
//
// Handle DefaultMemberAttribute
//
if (m_propertyInfo.DispId == WellKnownDispId.DISPID_VALUE)
{
// DIFF: TlbImpv1 use the type library name while we use the unique name
info.ConverterInfo.SetDefaultMember(info.TypeBuilder, uniqueName);
}
// Handle alias information
ConvCommon.HandleAlias(info.ConverterInfo, info.RefTypeInfo, m_propertyInfo.PropertyTypeDesc, propertyBuilder);
}
public ElemDesc(FuncDesc funcdesc, ELEMDESC elemdesc)
{
m_parent = funcdesc;
Init(elemdesc);
}
