patrick/WoofWare.PawPrint
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.PawPrint synced 2025-10-07 06:58:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Implement custom delegate calling (#60)

Browse Source
This commit is contained in:
Patrick Stevens
2025-06-20 16:45:43 +01:00
committed by GitHub
parent c620152fb1
commit f9e03f4340
7 changed files with 226 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
WoofWare.PawPrint.Test/TestCases.fs
View File

@@ -73,6 +73,22 @@ module TestCases =
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = [ CliType.Numeric (CliNumericType.Int32 1) ]
}
{
FileName = "CustomDelegate.cs"
ExpectedReturnCode = 8
NativeImpls = MockEnv.make ()
LocalVariablesOfMain =
[
// filter
CliType.ObjectRef (Some (ManagedHeapAddress 2))
// result
CliType.OfBool true
// result, cloned for "if(result)" check
CliType.OfBool true
// ret
CliType.Numeric (CliNumericType.Int32 8)
]
}
{
FileName = "ArgumentOrdering.cs"
ExpectedReturnCode = 42

1
WoofWare.PawPrint.Test/WoofWare.PawPrint.Test.fsproj
View File

@@ -28,6 +28,7 @@
<EmbeddedResource Include="sources\Threads.cs" />
<EmbeddedResource Include="sources\ResizeArray.cs" />
<EmbeddedResource Include="sources\ArgumentOrdering.cs" />
<EmbeddedResource Include="sources\CustomDelegate.cs" />
</ItemGroup>
<ItemGroup>

27
WoofWare.PawPrint.Test/sources/CustomDelegate.cs Normal file
View File

@@ -0,0 +1,27 @@
public delegate bool MyFilter(object item, object criteria);
public class DelegateDemo
{
// This static field initialization will generate the exact IL pattern:
public static readonly MyFilter FilterField = FilterImpl;
// The static method that the delegate points to
private static bool FilterImpl(object item, object criteria)
{
return true;
}
public static int Main(string[] argv)
{
// Force static constructor to run
var filter = FilterField;
// Test the delegate
bool result = filter("test item", "criterion");
if (result)
{
return 8;
}
return 5;
}
}