1 #Region "Microsoft.VisualBasic::1110699dc4dd396363970e2d12d42435, Microsoft.VisualBasic.Core\My\InnerQueue.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     '     Module InnerQueue
35     ' 
36     '         Properties: InnerThread
37     ' 
38     '         Sub: AddToQueue, WaitQueue
39     ' 
40     ' 
41     ' /********************************************************************************/
42
43 #End Region
44
45 Imports System.Runtime.CompilerServices
46 Imports Microsoft.VisualBasic.Parallel
47
48 Namespace My
49
50     ''' <summary>
51     ''' Task action Queue for terminal QUEUE SOLVER 🙉
52     ''' </summary>
53     Module InnerQueue
54
55         Public ReadOnly Property InnerThread As New ThreadQueue
56
57         ''' <summary>
58         ''' 添加终端输出的任务到任务队列之中
59         ''' </summary>
60         ''' <param name="task"></param>
61         ''' 
62         <MethodImpl(MethodImplOptions.AggressiveInlining)>
63         Public Sub AddToQueue(task As Action)
64             Call InnerThread.AddToQueue(task)
65         End Sub
66
67         ''' <summary>
68         ''' Wait for all thread queue job done.(Needed if you are using multiThreaded queue)
69         ''' </summary>
70         ''' 
71         <MethodImpl(MethodImplOptions.AggressiveInlining)>
72         Public Sub WaitQueue()
73             Call InnerThread.WaitQueue()
74         End Sub
75     End Module
76 End Namespace