add abstract source file

master
xieguigang 5 years ago
parent e2728a971e
commit 7e4c93c5ea

@ -1,3 +0,0 @@
Public Class Class1
End Class

@ -64,7 +64,6 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Class1.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
@ -80,6 +79,7 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="SlaveTask.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
@ -100,5 +100,11 @@
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\sciBASIC#\Microsoft.VisualBasic.Core\src\47-dotnet_Microsoft.VisualBasic.vbproj">
<Project>{fecce1fd-e1d4-49e3-a668-60bb5e7aed99}</Project>
<Name>47-dotnet_Microsoft.VisualBasic</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

@ -0,0 +1,33 @@
Imports System.IO
Imports Microsoft.VisualBasic
Public Class SlaveTask
Dim toBuffers As New Dictionary(Of Type, Func(Of Object, Stream))
Dim fromBuffer As New Dictionary(Of Type, Func(Of Stream, Object))
Sub New()
End Sub
Public Function Emit(Of T)(streamAs As Func(Of T, Stream)) As SlaveTask
toBuffers(GetType(T)) = Function(obj) streamAs(obj)
Return Me
End Function
Public Function Emit(Of T)(fromStream As Func(Of Stream, T)) As SlaveTask
fromBuffer(GetType(T)) = Function(buf) fromStream(buf)
Return Me
End Function
Public Function RunTask(entry As [Delegate], ParamArray parameters As Object()) As Object
End Function
End Class
Public Class IDelegate
Public Property name As String
Public Property type As typeinfo
End Class
Loading…
Cancel
Save