administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fixing method filtering

Browse source
This commit is contained in:
samuraiGH 2024-06-28 19:18:32 +03:00
parent 15a05360a4
commit 2436627fdd
1 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -18483,7 +18483,7 @@ namespace PascalABCCompiler.TreeConverter
return false;
}
private bool IsIEnumInterface(Type t)
private bool IsIEnumerableInterface(Type t)
{
var IEnumType = typeof(IEnumerable);
var IEnumTypedType = typeof(IEnumerable<>);
@ -18496,18 +18496,31 @@ namespace PascalABCCompiler.TreeConverter
return isIEnumType || isIEnumTypedType;
}
public bool IsIEnumeratorInterface(Type t)
{
var IEnumType = typeof(IEnumerator);
var IEnumTypedType = typeof(IEnumerator<>);
var isIEnumType = (t == IEnumType);
var isIEnumTypedType = t.IsGenericType
&& (t.GetGenericTypeDefinition() == IEnumTypedType
);
return isIEnumType || isIEnumTypedType;
}
public Type FindIEnumerableInterfaceInCompiledType(Type compiledType)
{
var IEnumType = typeof(IEnumerable);
var IEnumTypedType = typeof(IEnumerable<>);
// если тип является интерфейсом IEnumerable или IEnumerable<T> то берём его
if (IsIEnumInterface(compiledType))
if (IsIEnumerableInterface(compiledType))
return compiledType;
// иначе ищем подходящие интерфейсы в иерархии
var filterdInterfaces = compiledType.FindInterfaces(
(item, _) => IsIEnumInterface(item),
(item, _) => IsIEnumerableInterface(item),
null
);
@ -18527,7 +18540,10 @@ namespace PascalABCCompiler.TreeConverter
}
// для класса/записи необходимо учитывать явные реализации GetEnumerator
var methods = compiledType.GetMethods().Where(item => item.Name == "GetEnumerator").ToArray();
var methods = compiledType.GetMethods().Where(item =>
item.Name == "GetEnumerator"
&& IsIEnumeratorInterface(item.ReturnType)
).ToArray();
switch (methods.Length)
{