#Region "Microsoft.VisualBasic::9bd23076d203de1d2865c07c374dbe5a, ossutil\Model\MetaData.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 MetaData ' ' Function: getValue, ToString ' ' ' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Serialization.JSON Namespace Model Public MustInherit Class MetaData Friend meta As Dictionary(Of String, String) Protected Function getValue( Optional key$ = Nothing) As String Return If(meta.ContainsKey(key), meta(key), Nothing) End Function Public Overrides Function ToString() As String Return meta.GetJson End Function End Class End Namespace