1 #Region "Microsoft.VisualBasic::6cd06372a0ab61fdc6935b640899b086, Microsoft.VisualBasic.Core\Language\Language\Python\NamedTuple.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     '     Class NamedTuple
35     
36     '         Properties: Type
37     
38     '         FunctionToString
39     
40     
41     ' /********************************************************************************/
42
43 #End Region
44
45 Imports Microsoft.VisualBasic.ComponentModel.Collection.Generic
46 Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel
47 Imports Microsoft.VisualBasic.Serialization.JSON
48
49 Namespace Language.Python
50
51     ''' <summary>
52     ''' ``namedtuple()`` Factory Function for Tuples with Named Fields
53     ''' </summary>
54     Public Class NamedTuple : Inherits [Property](Of Object)
55         Implements INamedValue
56
57         Public Property Type As String Implements INamedValue.Key
58
59         Public Overrides Function ToString() As String
60             Return Me.GetJson
61         End Function
62     End Class
63 End Namespace