update cli

Distribute_computing/HPC_cluster/Taskhost.vb

@@ -85,20 +85,37 @@ End Function
 
 ''' <summary>
 ''' ```bash
-''' /parallel
+''' /parallel --master &lt;port&gt; [--host &lt;localhost, default=localhost&gt; --socket &lt;tempdir&gt; --imageName &lt;docker_imageName&gt;]
 ''' ```
 ''' Run task parallel
 ''' </summary>
 '''
-
-Public Function Parallel() As Integer
-Dim cli = GetParallelCommandLine(internal_pipelineMode:=True)
+''' <param name="host"> The host location of the master node, default is localhost, means parallel computing on one host node, different host ip means cluster computing.
+''' </param>
+''' <param name="master"> The tcp port of the master node that opened to current parallel slave node.
+''' </param>
+''' <param name="socket"> A data location on shared storage of your cluster nodes if run parallel in cluster computing mode.
+''' </param>
+''' <param name="imageName"> The docker image name if your cluster application is deployed via docker.
+''' </param>
+Public Function Parallel(master As String, Optional host As String = "localhost", Optional socket As String = "", Optional imagename As String = "") As Integer
+Dim cli = GetParallelCommandLine(master:=master, host:=host, socket:=socket, imagename:=imagename, internal_pipelineMode:=True)
     Dim proc As IIORedirectAbstract = RunDotNetApp(cli)
     Return proc.Run()
 End Function
-Public Function GetParallelCommandLine(Optional internal_pipelineMode As Boolean = True) As String
+Public Function GetParallelCommandLine(master As String, Optional host As String = "localhost", Optional socket As String = "", Optional imagename As String = "", Optional internal_pipelineMode As Boolean = True) As String
     Dim CLI As New StringBuilder("/parallel")
     Call CLI.Append(" ")
+    Call CLI.Append("--master " & """" & master & """ ")
+    If Not host.StringEmpty Then
+            Call CLI.Append("--host " & """" & host & """ ")
+    End If
+    If Not socket.StringEmpty Then
+            Call CLI.Append("--socket " & """" & socket & """ ")
+    End If
+    If Not imagename.StringEmpty Then
+            Call CLI.Append("--imagename " & """" & imagename & """ ")
+    End If
      Call CLI.Append($"/@set --internal_pipeline={internal_pipelineMode.ToString.ToUpper()} ")
 
 

Distribute_computing/Taskhost.d/Program.vb

@@ -42,6 +42,7 @@
 #End Region
 
 Imports System.ComponentModel
+Imports System.Net
 Imports Microsoft.VisualBasic.CommandLine
 Imports Microsoft.VisualBasic.CommandLine.Reflection
 
@@ -72,9 +73,25 @@ Module Program
     ''' <param name="args"></param>
     ''' <returns></returns>
     <ExportAPI("/parallel")>
-    <Usage("/parallel")>
+    <Usage("/parallel --master <port> [--host <localhost, default=localhost> --socket <tempdir> --imageName <docker_imageName>]")>
     <Description("Run task parallel")>
+    <Argument("--host", True, CLITypes.String, PipelineTypes.undefined,
+              AcceptTypes:={GetType(IPAddress)},
+              Description:="The host location of the master node, default is localhost, means parallel computing on one host node, different host ip means cluster computing.")>
+    <Argument("--master", False, CLITypes.Integer, PipelineTypes.undefined,
+              AcceptTypes:={GetType(Integer)},
+              Description:="The tcp port of the master node that opened to current parallel slave node.")>
+    <Argument("--socket", True, CLITypes.File, PipelineTypes.undefined,
+              AcceptTypes:={GetType(String)},
+              Description:="A data location on shared storage of your cluster nodes if run parallel in cluster computing mode.")>
+    <Argument("--imageName", True, CLITypes.String, PipelineTypes.undefined,
+              AcceptTypes:={GetType(String)},
+              Description:="The docker image name if your cluster application is deployed via docker.")>
     Public Function Parallel(args As CommandLine) As Integer
+        Dim master As Integer = args <= "--master"
+        Dim host As String = args("--host") Or "localhost"
+        Dim socket As String = args <= "--socket"
+        Dim imageName As String = args <= "--imageName"
 
     End Function