diff --git a/src/Distribute_computing/Evolution/AppHost.vb b/src/Distribute_computing/Evolution/AppHost.vb
index bcf0c43..1d6bf93 100644
--- a/src/Distribute_computing/Evolution/AppHost.vb
+++ b/src/Distribute_computing/Evolution/AppHost.vb
@@ -28,4 +28,8 @@ Public Class AppHost
Protocol = args
End Sub
+ Public Overrides Function ToString() As String
+ Return $"[{AppName}] {Protocol}"
+ End Function
+
End Class
diff --git a/src/Parallel/IpcParallel/TaskBuilder.vb b/src/Parallel/IpcParallel/TaskBuilder.vb
index 58da67b..6bc5924 100644
--- a/src/Parallel/IpcParallel/TaskBuilder.vb
+++ b/src/Parallel/IpcParallel/TaskBuilder.vb
@@ -1,54 +1,55 @@
#Region "Microsoft.VisualBasic::e1ea725da821d59758c31270653c458d, Parallel\IpcParallel\TaskBuilder.vb"
- ' Author:
- '
- ' asuka (amethyst.asuka@gcmodeller.org)
- ' xie (genetics@smrucc.org)
- ' xieguigang (xie.guigang@live.com)
- '
- ' Copyright (c) 2018 GPL3 Licensed
- '
- '
- ' GNU GENERAL PUBLIC LICENSE (GPL3)
- '
- '
- ' This program is free software: you can redistribute it and/or modify
- ' it under the terms of the GNU General Public License as published by
- ' the Free Software Foundation, either version 3 of the License, or
- ' (at your option) any later version.
- '
- ' This program is distributed in the hope that it will be useful,
- ' but WITHOUT ANY WARRANTY; without even the implied warranty of
- ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ' GNU General Public License for more details.
- '
- ' You should have received a copy of the GNU General Public License
- ' along with this program. If not, see .
-
-
-
- ' /********************************************************************************/
-
- ' Summaries:
-
- ' Class TaskBuilder
- '
- ' Constructor: (+1 Overloads) Sub New
- '
- ' Function: FromStream, GetArgumentValue, GetArgumentValueNumber, GetMethod, GetParameters
- ' Initialize, PostError, Run
- '
- ' Sub: PostFinished
- '
- ' /********************************************************************************/
+' Author:
+'
+' asuka (amethyst.asuka@gcmodeller.org)
+' xie (genetics@smrucc.org)
+' xieguigang (xie.guigang@live.com)
+'
+' Copyright (c) 2018 GPL3 Licensed
+'
+'
+' GNU GENERAL PUBLIC LICENSE (GPL3)
+'
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
+'
+' This program is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+' GNU General Public License for more details.
+'
+' You should have received a copy of the GNU General Public License
+' along with this program. If not, see .
+
+
+
+' /********************************************************************************/
+
+' Summaries:
+
+' Class TaskBuilder
+'
+' Constructor: (+1 Overloads) Sub New
+'
+' Function: FromStream, GetArgumentValue, GetArgumentValueNumber, GetMethod, GetParameters
+' Initialize, PostError, Run
+'
+' Sub: PostFinished
+'
+' /********************************************************************************/
#End Region
-Imports System.IO
-Imports System.Reflection
-#If netcore5 = 1 Then
+#If NETCOREAPP Then
Imports Microsoft.VisualBasic.ApplicationServices.Development.NetCore5
#End If
+
+Imports System.IO
+Imports System.Reflection
Imports Microsoft.VisualBasic.ComponentModel
Imports Microsoft.VisualBasic.Language
Imports Microsoft.VisualBasic.MIME.application.json
@@ -95,6 +96,13 @@ Public Class TaskBuilder : Implements ITaskDriver
Next
End Function
+ '''
+ ''' load task method delegate function and request parameters from remote master for run the task
+ '''
+ '''
+ '''
+ '''
+ '''
Private Function Initialize(ByRef api As MethodInfo, ByRef target As Object, ByRef args As Object()) As Integer
Dim task As IDelegate = GetMethod()
Dim params As ParameterInfo()
@@ -106,8 +114,8 @@ Public Class TaskBuilder : Implements ITaskDriver
Dim n As Integer = GetArgumentValueNumber()
Dim argList As New List(Of Object)(GetParameters(params, n))
- Call Console.WriteLine("run task:")
- Call Console.WriteLine(task.GetJson(indent:=False, simpleDict:=True))
+ Call VBDebugger.EchoLine("run task:")
+ Call VBDebugger.EchoLine(task.GetJson(indent:=False, simpleDict:=True))
' fix for optional parameter values
For i As Integer = n To params.Length - 1
@@ -147,7 +155,7 @@ Public Class TaskBuilder : Implements ITaskDriver
Catch ex As Exception
Call PostError(ex)
Finally
- Call Console.WriteLine("job done!")
+ Call VBDebugger.EchoLine("job done!")
End Try
Return 0
@@ -174,7 +182,7 @@ Public Class TaskBuilder : Implements ITaskDriver
searchPath:={stream.type.assembly}
)
-#If netcore5 = 1 Then
+#If NETCOREAPP Then
Call deps.TryHandleNetCore5AssemblyBugs(package:=type)
#End If
@@ -222,9 +230,9 @@ Public Class TaskBuilder : Implements ITaskDriver
)
If TypeOf result Is IPCError Then
- Call Console.WriteLine($"post error...")
+ Call VBDebugger.EchoLine($"post error...")
Else
- Call Console.WriteLine($"post result...")
+ Call VBDebugger.EchoLine($"post result...")
End If
Call New TcpRequest(masterHost, masterPort).SendMessage(request)
diff --git a/src/Parallel/MemoryMap/MapObject.vb b/src/Parallel/MemoryMap/MapObject.vb
index 5a79874..1a30697 100644
--- a/src/Parallel/MemoryMap/MapObject.vb
+++ b/src/Parallel/MemoryMap/MapObject.vb
@@ -116,6 +116,8 @@ Public Class MapObject : Implements IDisposable
Dim bufferSize As Integer
Dim hMem As String = If(hMemP.StringEmpty, App.GetNextUniqueName($"mem_{type.Name}_"), hMemP)
+ ' keeps the memory map file between the process during the runtime
+ ' via this private static symbol
Static mapFiles As New Dictionary(Of String, MemoryMappedFile)
Using ms As MemoryStream = BSONFormat.SafeGetBuffer(element)