1 #Region "Microsoft.VisualBasic::80186c68f6cada2fbd494b39f47cf359, Microsoft.VisualBasic.Core\CommandLine\CLI\IIORedirectAbstract.vb"
2
3     ' Author:
4     
5     '       asuka (amethyst.asuka@gcmodeller.org)
6     '       xie (genetics@smrucc.org)
7     '       xieguigang (xie.guigang@live.com)
8     
9     ' Copyright (c) 2018 GPL3 Licensed
10     
11     
12     ' GNU GENERAL PUBLIC LICENSE (GPL3)
13     
14     
15     ' This program is free software: you can redistribute it and/or modify
16     ' it under the terms of the GNU General Public License as published by
17     ' the Free Software Foundation, either version 3 of the License, or
18     ' (at your option) any later version.
19     
20     ' This program is distributed in the hope that it will be useful,
21     ' but WITHOUT ANY WARRANTY; without even the implied warranty of
22     ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23     ' GNU General Public License for more details.
24     
25     ' You should have received a copy of the GNU General Public License
26     ' along with this program. If not, see <http://www.gnu.org/licenses/>.
27
28
29
30     ' /********************************************************************************/
31
32     ' Summaries:
33
34     '     Interface IIORedirectAbstract
35     
36     '         Properties: Bin, CLIArguments, StandardOutput
37     
38     '         Function: Run, Start
39     
40     '     Structure ProcessEx
41     
42     '         Properties: Bin, CLIArguments, StandardOutput
43     
44     '         Function: Run, Start, ToString
45     
46     '         Sub: __wait
47     
48     
49     ' /********************************************************************************/
50
51 #End Region
52
53 Imports System.Threading
54 Imports Microsoft.VisualBasic.Serialization.JSON
55
56 Namespace CommandLine
57
58     Public Interface IIORedirectAbstract
59
60         ReadOnly Property Bin As String
61         ReadOnly Property CLIArguments As String
62
63         ''' <summary>
64         ''' The target invoked process event has been exit with a specific return code.(目标派生子进程已经结束了运行并且返回了一个错误值)
65         ''' </summary>
66         ''' <param name="exitCode"></param>
67         ''' <param name="exitTime"></param>
68         ''' <remarks></remarks>
69         Event ProcessExit(exitCode As Integer, exitTime As String)
70
71         ''' <summary>
72         ''' Gets the standard output for the target invoke process.
73         ''' </summary>
74         ''' <value></value>
75         ''' <returns></returns>
76         ''' <remarks></remarks>
77         ReadOnly Property StandardOutput As String
78
79         ''' <summary>
80         ''' Start the target process. If the target invoked process is currently on the running state, 
81         ''' then this function will returns the -100 value as error code and print the warning 
82         ''' information on the system console.(启动目标进程)
83         ''' </summary>
84         ''' <param name="WaitForExit">Indicate that the program code wait for the target process exit or not?(参数指示应用程序代码是否等待目标进程的结束)</param>
85         ''' <returns>当发生错误的时候会返回错误代码,当当前的进程任然处于运行的状态的时候,程序会返回-100错误代码并在终端之上打印出警告信息</returns>
86         ''' <remarks></remarks>
87         Function Start(Optional WaitForExit As Boolean = FalseAs Integer
88         ''' <summary>
89         ''' 启动目标子进程,然后等待执行完毕并返回退出代码(请注意,在进程未执行完毕之前,整个线程会阻塞在这里)
90         ''' </summary>
91         ''' <returns></returns>
92         Function Run() As Integer
93     End Interface
94
95     Public Structure ProcessEx
96         Implements IIORedirectAbstract
97
98         Public Property Bin As String Implements IIORedirectAbstract.Bin
99         Public Property CLIArguments As String Implements IIORedirectAbstract.CLIArguments
100
101         Public ReadOnly Property StandardOutput As String Implements IIORedirectAbstract.StandardOutput
102             Get
103                 Throw New NotSupportedException
104             End Get
105         End Property
106
107         Public Event ProcessExit(exitCode As Integer, exitTime As StringImplements IIORedirectAbstract.ProcessExit
108
109         Public Overrides Function ToString() As String
110             Return Me.GetJson
111         End Function
112
113         Public Function Run() As Integer Implements IIORedirectAbstract.Run
114             Return Start(True)
115         End Function
116
117         Public Function Start(Optional WaitForExit As Boolean = FalseAs Integer Implements IIORedirectAbstract.Start
118             Dim proc As New Process
119
120             Try
121                 proc.StartInfo = New ProcessStartInfo(Bin, CLIArguments)
122                 proc.Start()
123             Catch ex As Exception
124                 ex = New Exception(Me.GetJson, ex)
125                 Throw ex
126             End Try
127
128             If WaitForExit Then
129                 Call __wait(proc)
130                 Return proc.ExitCode
131             Else
132                 Dim h As Action(Of Process) = AddressOf __wait
133                 Call New Thread(Sub() Call h(proc)).Start()
134                 Return 0
135             End If
136         End Function
137
138         Private Sub __wait(proc As Process)
139             Call proc.WaitForExit()
140             RaiseEvent ProcessExit(proc.ExitCode, Now.ToString)
141         End Sub
142     End Structure
143 End Namespace