mirror of https://github.com/mono/CppSharp.git
João Matos
12 years ago
15 changed files with 400 additions and 47 deletions
@ -0,0 +1,129 @@
@@ -0,0 +1,129 @@
|
||||
using System.Collections.Generic; |
||||
using System.Linq; |
||||
using CppSharp.AST; |
||||
using CppSharp.Generators.CSharp; |
||||
|
||||
namespace CppSharp.Passes |
||||
{ |
||||
public class MultipleInheritancePass : TranslationUnitPass |
||||
{ |
||||
/// <summary>
|
||||
/// Collects all interfaces in a unit to be added at the end
|
||||
/// because the unit cannot be changed while it's being iterated though.
|
||||
/// We also need it to check if a class already has a complementary interface
|
||||
/// because different classes may have the same secondary bases.
|
||||
/// </summary>
|
||||
private readonly Dictionary<Class, Class> interfaces = new Dictionary<Class, Class>(); |
||||
|
||||
public override bool VisitTranslationUnit(TranslationUnit unit) |
||||
{ |
||||
bool result = base.VisitTranslationUnit(unit); |
||||
foreach (var @interface in interfaces) |
||||
@interface.Key.Namespace.Classes.Add(@interface.Value); |
||||
interfaces.Clear(); |
||||
return result; |
||||
} |
||||
|
||||
public override bool VisitClassDecl(Class @class) |
||||
{ |
||||
// skip the first base because we can inherit from one class
|
||||
for (int i = 1; i < @class.Bases.Count; i++) |
||||
{ |
||||
var @base = @class.Bases[i].Class; |
||||
if (@base.IsInterface) continue; |
||||
|
||||
var @interface = GetInterface(@class, @base, true); |
||||
@class.Bases[i] = new BaseClassSpecifier { Type = new TagType(@interface) }; |
||||
} |
||||
return base.VisitClassDecl(@class); |
||||
} |
||||
|
||||
private Class GetInterface(Class @class, Class @base, bool addMembers = false) |
||||
{ |
||||
if (@base.CompleteDeclaration != null) |
||||
@base = (Class) @base.CompleteDeclaration; |
||||
var name = "I" + @base.Name; |
||||
if (interfaces.ContainsKey(@base)) |
||||
return interfaces[@base]; |
||||
|
||||
return @base.Namespace.Classes.FirstOrDefault(c => c.Name == name) ?? |
||||
GetNewInterface(@class, name, @base, addMembers); |
||||
} |
||||
|
||||
private Class GetNewInterface(Class @class, string name, Class @base, bool addMembers = false) |
||||
{ |
||||
var @interface = new Class |
||||
{ |
||||
Name = name, |
||||
Namespace = @base.Namespace, |
||||
Access = @base.Access, |
||||
Type = ClassType.Interface, |
||||
OriginalClass = @base |
||||
}; |
||||
|
||||
@interface.Bases.AddRange( |
||||
from b in @base.Bases |
||||
let i = GetInterface(@base, b.Class) |
||||
select new BaseClassSpecifier { Type = new TagType(i) }); |
||||
|
||||
@interface.Methods.AddRange(@base.Methods.Where( |
||||
m => !m.IsConstructor && !m.IsDestructor && !m.IsStatic && !m.Ignore)); |
||||
@interface.Properties.AddRange(@base.Properties.Where(p => !p.Ignore)); |
||||
|
||||
if (@interface.Bases.Count == 0) |
||||
{ |
||||
Property instance = new Property(); |
||||
instance.Name = Helpers.InstanceIdentifier; |
||||
instance.QualifiedType = new QualifiedType(new BuiltinType(PrimitiveType.IntPtr)); |
||||
instance.GetMethod = new Method(); |
||||
@interface.Properties.Add(instance); |
||||
} |
||||
|
||||
@interface.Events.AddRange(@base.Events); |
||||
|
||||
if (addMembers) |
||||
{ |
||||
ImplementInterfaceMethods(@class, @interface); |
||||
ImplementInterfaceProperties(@class, @interface); |
||||
} |
||||
if (@base.Bases.All(b => b.Class != @interface)) |
||||
@base.Bases.Add(new BaseClassSpecifier { Type = new TagType(@interface) }); |
||||
|
||||
interfaces.Add(@base, @interface); |
||||
return @interface; |
||||
} |
||||
|
||||
private static void ImplementInterfaceMethods(Class @class, Class @interface) |
||||
{ |
||||
foreach (var method in @interface.Methods) |
||||
{ |
||||
var impl = new Method(method) |
||||
{ |
||||
Namespace = @class, |
||||
IsVirtual = false, |
||||
IsOverride = false |
||||
}; |
||||
var rootBaseMethod = @class.GetRootBaseMethod(method, true); |
||||
if (rootBaseMethod != null && !rootBaseMethod.Ignore) |
||||
impl.ExplicitInterfaceImpl = @interface; |
||||
@class.Methods.Add(impl); |
||||
} |
||||
foreach (var @base in @interface.Bases) |
||||
ImplementInterfaceMethods(@class, @base.Class); |
||||
} |
||||
|
||||
private static void ImplementInterfaceProperties(Class @class, Class @interface) |
||||
{ |
||||
foreach (var property in @interface.Properties.Where(p => p.Name != Helpers.InstanceIdentifier)) |
||||
{ |
||||
var impl = new Property(property) { Namespace = @class }; |
||||
var rootBaseProperty = @class.GetRootBaseProperty(property, true); |
||||
if (rootBaseProperty != null && !rootBaseProperty.Ignore) |
||||
impl.ExplicitInterfaceImpl = @interface; |
||||
@class.Properties.Add(impl); |
||||
} |
||||
foreach (var @base in @interface.Bases) |
||||
ImplementInterfaceProperties(@class, @base.Class); |
||||
} |
||||
} |
||||
} |
||||
@ -0,0 +1,49 @@
@@ -0,0 +1,49 @@
|
||||
using CppSharp.AST; |
||||
|
||||
namespace CppSharp.Passes |
||||
{ |
||||
public class ParamTypeToInterfacePass : TranslationUnitPass |
||||
{ |
||||
public override bool VisitFunctionDecl(Function function) |
||||
{ |
||||
if (function.HasIndirectReturnTypeParameter) |
||||
{ |
||||
var parameter = function.Parameters.Find(p => p.Kind == ParameterKind.IndirectReturnType); |
||||
parameter.QualifiedType = GetInterfaceType(parameter.QualifiedType); |
||||
} |
||||
else |
||||
{ |
||||
function.ReturnType = GetInterfaceType(function.ReturnType); |
||||
} |
||||
return base.VisitFunctionDecl(function); |
||||
} |
||||
|
||||
public override bool VisitParameterDecl(Parameter parameter) |
||||
{ |
||||
parameter.QualifiedType = GetInterfaceType(parameter.QualifiedType); |
||||
return base.VisitParameterDecl(parameter); |
||||
} |
||||
|
||||
private static QualifiedType GetInterfaceType(QualifiedType type) |
||||
{ |
||||
var tagType = type.Type as TagType; |
||||
if (tagType == null) |
||||
{ |
||||
var pointerType = type.Type as PointerType; |
||||
if (pointerType != null) |
||||
tagType = pointerType.Pointee as TagType; |
||||
} |
||||
if (tagType != null) |
||||
{ |
||||
var @class = tagType.Declaration as Class; |
||||
if (@class != null) |
||||
{ |
||||
var @interface = @class.Namespace.Classes.Find(c => c.OriginalClass == @class); |
||||
if (@interface != null) |
||||
return new QualifiedType(new TagType(@interface)); |
||||
} |
||||
} |
||||
return type; |
||||
} |
||||
} |
||||
} |
||||
Loading…
Reference in new issue