From 99625f9eed955a636786ef24c563aa39f9c276a3 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 17 Jul 2019 22:14:41 +0800 Subject: [PATCH 001/104] improvements of the language hlper module --- 47-dotnet_Microsoft.VisualBasic.vbproj | 1 + ApplicationServices/VBDev/Signature/CodeSign.vb | 7 ------- .../VBDev/Signature/SupportedLanguages.vb | 9 +++++++++ Extensions/StringHelpers/StringHelpers.vb | 5 +++++ Language/Language/Java/Arrays.vb | 4 ++-- 5 files changed, 17 insertions(+), 9 deletions(-) create mode 100644 ApplicationServices/VBDev/Signature/SupportedLanguages.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 047a45f2..0cabec77 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -953,6 +953,7 @@ + diff --git a/ApplicationServices/VBDev/Signature/CodeSign.vb b/ApplicationServices/VBDev/Signature/CodeSign.vb index c7f33619..03200846 100644 --- a/ApplicationServices/VBDev/Signature/CodeSign.vb +++ b/ApplicationServices/VBDev/Signature/CodeSign.vb @@ -59,13 +59,6 @@ Namespace ApplicationServices.Development ''' Public Module CodeSign - Public Enum Languages - VisualBasic - R - PHP - TypeScript - End Enum - Const PhpHeaderRegion$ = "#region ""PHP\\Foundation[:]{2}.*"".+?#endregion" Const TypeScriptHeaderRegion$ = "//#region ""Microsoft.TypeScript[:]{2}.*"".+?//#endregion" Const ROpenHeaderRegion$ = "#Region ""Microsoft.ROpen[:]{2}.*"".+?#End Region" diff --git a/ApplicationServices/VBDev/Signature/SupportedLanguages.vb b/ApplicationServices/VBDev/Signature/SupportedLanguages.vb new file mode 100644 index 00000000..0cf61eea --- /dev/null +++ b/ApplicationServices/VBDev/Signature/SupportedLanguages.vb @@ -0,0 +1,9 @@ +Namespace ApplicationServices.Development + + Public Enum Languages + VisualBasic + R + PHP + TypeScript + End Enum +End Namespace \ No newline at end of file diff --git a/Extensions/StringHelpers/StringHelpers.vb b/Extensions/StringHelpers/StringHelpers.vb index cb11f058..2c53e7ed 100644 --- a/Extensions/StringHelpers/StringHelpers.vb +++ b/Extensions/StringHelpers/StringHelpers.vb @@ -86,6 +86,11 @@ Public Module StringHelpers Return str.PadRight(padLen, padString) End Function + ''' + ''' 将字符串中的所有的给移除 + ''' + ''' + ''' Public Function TrimNull(str As String) As String diff --git a/Language/Language/Java/Arrays.vb b/Language/Language/Java/Arrays.vb index 54618485..2e98f361 100644 --- a/Language/Language/Java/Arrays.vb +++ b/Language/Language/Java/Arrays.vb @@ -44,6 +44,7 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Math +Imports randf = Microsoft.VisualBasic.Math.RandomExtensions Namespace Language.Java @@ -64,8 +65,7 @@ Namespace Language.Java Public Function Shuffle(Of T)(ByRef list As List(Of T)) As List(Of T) - Dim rnd As New Random - Call rnd.Shuffle(list) + Call randf.seeds.Shuffle(list) Return list End Function From 7083987976699b923697f60935ee496579ecbe73 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 20 Jul 2019 23:31:56 +0800 Subject: [PATCH 002/104] fix for date time caster --- Extensions/Collection/KeyValuePair.vb | 2 +- Extensions/ValueTypes/DateTimeHelper.vb | 20 ++++ Net/HTTP/sitemap.xml.vb | 107 +++++++++++----------- Scripting/Runtime/CType/Casting.vb | 5 + Scripting/VisualBasic/KeywordProcessor.vb | 16 ++-- 5 files changed, 89 insertions(+), 61 deletions(-) diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index c74ce610..1c5e4446 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -93,7 +93,7 @@ Public Module KeyValuePairExtensions - Public Function Selects(Of K, V)(table As Dictionary(Of K, V), ParamArray keys As K()) As IEnumerable + Public Function Selects(Of K, V)(table As Dictionary(Of K, V), ParamArray keys As K()) As IEnumerable(Of V) Return From key As K In keys Select table(key) End Function diff --git a/Extensions/ValueTypes/DateTimeHelper.vb b/Extensions/ValueTypes/DateTimeHelper.vb index fc1a0da3..e230d658 100644 --- a/Extensions/ValueTypes/DateTimeHelper.vb +++ b/Extensions/ValueTypes/DateTimeHelper.vb @@ -221,5 +221,25 @@ Namespace ValueTypes Return format End Function + + ' var s = "1364835180000-0700" + ' alert(toDate(s)); // Tue Apr 02 2013 09:53:00 GMT+1000 (EST) + + ''' + ''' Parse date string in json value format. + ''' + ''' Where s Is a time value with offset + ''' + Public Function ToDate(s As String) As Date + ' Include factor to convert mins to ms in sign + Dim sign = If(s.IndexOf("-") > -1, 60000.0, -60000.0) + Dim twoParts = s.StringSplit("[\+\-]") + Dim l As Integer = twoParts(1).Length + ' Convert offset in milliseconds + Dim offset = sign * twoParts(1).Substring(l - 2, 2) + sign * twoParts(1).Substring(l - 4, 2) * 60 + + ' Add offset to time value to get UTC And create date object + Return New Date(Long.Parse(twoParts(0)) + offset) + End Function End Module End Namespace diff --git a/Net/HTTP/sitemap.xml.vb b/Net/HTTP/sitemap.xml.vb index ffa26c7e..f75152ce 100644 --- a/Net/HTTP/sitemap.xml.vb +++ b/Net/HTTP/sitemap.xml.vb @@ -1,60 +1,60 @@ #Region "Microsoft.VisualBasic::5a099b4ca8a8b710b5c0b912588cd2dc, Net\HTTP\sitemap.xml.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 . +' 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: +' Summaries: - ' Class sitemap - ' - ' Properties: urls - ' - ' Function: ToString - ' Structure url - ' - ' Properties: changefreq, lastmod, loc, priority - ' - ' Function: ToString - ' - ' Enum changefreqs - ' - ' always, daily, hourly, monthly, never - ' weekly, yearly - ' - ' - ' - ' - ' - ' Function: (+2 Overloads) Save, ScanAllFiles - ' - ' - ' /********************************************************************************/ +' Class sitemap +' +' Properties: urls +' +' Function: ToString +' Structure url +' +' Properties: changefreq, lastmod, loc, priority +' +' Function: ToString +' +' Enum changefreqs +' +' always, daily, hourly, monthly, never +' weekly, yearly +' +' +' +' +' +' Function: (+2 Overloads) Save, ScanAllFiles +' +' +' /********************************************************************************/ #End Region @@ -63,6 +63,7 @@ Imports System.Text.RegularExpressions Imports System.Xml.Serialization Imports Microsoft.VisualBasic.ComponentModel Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Language.Default Imports Microsoft.VisualBasic.Language.UnixBash Imports Microsoft.VisualBasic.Serialization.JSON Imports Microsoft.VisualBasic.Text @@ -125,7 +126,9 @@ Namespace Net.Http Return Save(path, encoding.CodePage) End Function - Public Shared Function ScanAllFiles(wwwroot$, host$, Optional changefreq As changefreqs = changefreqs.monthly) As sitemap + Shared ReadOnly htmlFiles As [Default](Of String()) = {"*.html", "*.htm"} + + Public Shared Function ScanAllFiles(wwwroot$, host$, Optional fileTypes$() = Nothing, Optional changefreq As changefreqs = changefreqs.monthly) As sitemap Dim url As New List(Of url) Dim freq$ = changefreq.ToString Dim lastmod$ = $"{Now.Year}-{FillDateZero(Now.Month)}-{FillDateZero(Now.Day)}" @@ -133,7 +136,7 @@ Namespace Net.Http wwwroot = wwwroot.GetDirectoryFullPath host = host.TrimDIR - For Each file$ In ls - l - r - "*.*" <= wwwroot + For Each file$ In ls - l - r - (fileTypes Or htmlFiles) <= wwwroot file = file.Replace("\", "/").Replace(wwwroot, "") file = host & file url += New url With { diff --git a/Scripting/Runtime/CType/Casting.vb b/Scripting/Runtime/CType/Casting.vb index 75a8254f..1d674ef5 100644 --- a/Scripting/Runtime/CType/Casting.vb +++ b/Scripting/Runtime/CType/Casting.vb @@ -57,6 +57,7 @@ Imports Microsoft.VisualBasic.ComponentModel.Ranges.Model Imports Microsoft.VisualBasic.Imaging Imports Microsoft.VisualBasic.Text Imports Microsoft.VisualBasic.ValueTypes +Imports Microsoft.VisualBasic.Serialization.JSON Namespace Scripting.Runtime @@ -343,6 +344,10 @@ Namespace Scripting.Runtime ElseIf obj.IsPattern("\d+") Then ' unix timestamp Return CLng(Val(obj)).FromUnixTimeStamp + ElseIf obj.IsPattern("/Date\(\d+\+\d+\)/") Then + ' /Date(1559115042272+0800)/ + ' json格式的 + Return DateTimeHelper.ToDate(obj.Match("\d+[+-]\d+")) Else Return DateTime.Parse(obj) End If diff --git a/Scripting/VisualBasic/KeywordProcessor.vb b/Scripting/VisualBasic/KeywordProcessor.vb index 029b2080..111be2f4 100644 --- a/Scripting/VisualBasic/KeywordProcessor.vb +++ b/Scripting/VisualBasic/KeywordProcessor.vb @@ -56,27 +56,27 @@ Namespace Scripting.SymbolBuilder.VBLanguage ''' List of VB.NET language keywords ''' Public Const VBKeywords$ = - "|AddHandler|AddressOf|Alias|And|AndAlso|As|" & - "|Boolean|ByRef|Byte|" & + "|AddHandler|AddressOf|Alias|And|AndAlso|As|Ascending|" & + "|Boolean|ByRef|Byte|By|" & "|Call|Case|Catch|CBool|CByte|CChar|CDate|CDec|CDbl|Char|CInt|Class|CLng|CObj|Const|Continue|CSByte|CShort|CSng|CStr|CType|CUInt|CULng|CUShort|" & "|Date|Decimal|Declare|Default|Delegate|Dim|DirectCast|Do|Double|" & "|Each|Else|ElseIf|End|EndIf|Enum|Erase|Error|Event|Exit|" & - "|False|Finally|For|Friend|Function|" & + "|False|Finally|For|Friend|Function|From|" & "|Get|GetType|GetXMLNamespace|Global|GoSub|GoTo|" & "|Handles|" & "|If|Implements|Imports|In|Inherits|Integer|Interface|Is|IsNot|" & "|Let|Lib|Like|Long|Loop|" & - "|Me|Mod|Module|MustInherit|MustOverride|MyBase|MyClass|" & + "|Me|Mod|Module|MustInherit|MustOverride|MyBase|MyClass|My|" & "|Namespace|Narrowing|New|Next|Not|Nothing|NotInheritable|NotOverridable|NameOf|" & - "|Object|Of|On|Operator|Option|Optional|Or|OrElse|Overloads|Overridable|Overrides|" & + "|Object|Of|On|Operator|Option|Optional|Or|OrElse|Overloads|Overridable|Overrides|Order|" & "|ParamArray|Partial|Private|Property|Protected|Public|" & "|RaiseEvent|ReadOnly|ReDim|REM|RemoveHandler|Resume|Return|" & "|SByte|Select|Set|Shadows|Shared|Short|Single|Static|Step|Stop|String|Structure|Sub|SyncLock|" & "|Then|Throw|To|True|Try|TryCast|TypeOf|" & "|Variant|" & "|Wend|" & - "|UInteger|ULong|UShort|Using|" & - "|When|While|Widening|With|WithEvents|WriteOnly|" & + "|UInteger|ULong|UShort|Using|Union|" & + "|When|While|Widening|With|WithEvents|WriteOnly|Where|" & "|Xor|" & "|Yield|" @@ -84,7 +84,7 @@ Namespace Scripting.SymbolBuilder.VBLanguage ''' Tokenize of ''' ''' - Public ReadOnly Property Words As String() + Public Shared ReadOnly Property TokenWords As String() Get Return VBKeywords _ From ec9d66a7d4bbad0a18d65da66b356503aa854a27 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 21 Jul 2019 02:01:33 +0800 Subject: [PATCH 003/104] fi8x comments --- Extensions/Math/Math.vb | 28 +++++++++++----------------- 1 file changed, 11 insertions(+), 17 deletions(-) diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb index 3d2fc178..adf7994e 100644 --- a/Extensions/Math/Math.vb +++ b/Extensions/Math/Math.vb @@ -466,23 +466,17 @@ Namespace Math Return 0 End If End Function - ' - ' Summary: - ' Returns an integer that indicates the sign of a double-precision floating-point - ' number. - ' - ' Parameters: - ' value: - ' A signed number. - ' - ' Returns: - ' A number that indicates the sign of value, as shown in the following table.Return - ' value Meaning -1 value is less than zero. 0 value is equal to zero. 1 value is - ' greater than zero. - ' - ' Exceptions: - ' T:System.ArithmeticException: - ' value is equal to System.Double.NaN. + + ''' + ''' Returns an integer that indicates the sign of a double-precision floating-point + ''' number. + ''' + ''' A signed number. + ''' + ''' A number that indicates the sign of value, as shown in the following table.Return + ''' value Meaning -1 value is less than zero. 0 value is equal to zero. 1 value is + ''' greater than zero. + ''' Public Function Sign(value As Double) As Integer If value > 0 Then From d8f578722064fe1e0adfb9e923888bb0a5ee04e3 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 24 Jul 2019 01:37:01 +0800 Subject: [PATCH 004/104] add plugin helper --- 47-dotnet_Microsoft.VisualBasic.vbproj | 5 +- .../Debugger/Exception/ExceptionData.vb | 198 ++++++++---------- .../Debugger/Exception/StackFrame.vb | 68 ++++++ .../VisualBasicAppException.vb | 0 .../Parallel/MMFProtocol/Pipeline/Pipeline.vb | 2 +- .../Parallel/OperationTimeOut.vb | 2 +- .../Parallel/Tasks/AsyncHandle.vb | 3 +- .../Parallel/Tasks/__backgroundTask(Of T).vb | 4 +- ApplicationServices/Parallel/Threading.vb | 14 +- .../Parallel/Threads/CodeThread.vb | 4 +- .../Threads/LQuerySchedule/LQuerySchedule.vb | 10 +- .../Parallel/Threads/ParallelExtension.vb | 1 - ApplicationServices/ServerModule.vb | 2 +- ApplicationServices/Tools/Plugin/Loader.vb | 39 ++++ .../Tools/Plugin/PluginAttribute.vb | 16 ++ Language/Value/DefaultValue/DefaultString.vb | 78 +++---- Net/Abstract.vb | 4 +- Net/Protocol/Reflection/ProtocolHandler.vb | 2 +- Net/Tcp/Persistent/Socket/TcpClient.vb | 8 +- Net/Tcp/Persistent/Socket/WorkSocket.vb | 2 +- Net/Tcp/StateObject.vb | 21 +- Net/Tcp/TcpRequest.vb | 45 ++-- Net/Tcp/TcpServicesSocket.vb | 73 +++---- Scripting/MetaData/Type.vb | 108 +++++----- 24 files changed, 400 insertions(+), 309 deletions(-) create mode 100644 ApplicationServices/Debugger/Exception/StackFrame.vb rename ApplicationServices/Debugger/{ => Exception}/VisualBasicAppException.vb (100%) create mode 100644 ApplicationServices/Tools/Plugin/Loader.vb create mode 100644 ApplicationServices/Tools/Plugin/PluginAttribute.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 04185a79..3d2cb8a7 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -942,10 +942,13 @@ + + + @@ -1129,7 +1132,7 @@ - + diff --git a/ApplicationServices/Debugger/Exception/ExceptionData.vb b/ApplicationServices/Debugger/Exception/ExceptionData.vb index 613d5c6b..7c852b59 100644 --- a/ApplicationServices/Debugger/Exception/ExceptionData.vb +++ b/ApplicationServices/Debugger/Exception/ExceptionData.vb @@ -1,60 +1,62 @@ #Region "Microsoft.VisualBasic::679f37232d839b0731209665afe32b3b, ApplicationServices\Debugger\Exception\ExceptionData.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 . +' 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: +' Summaries: - ' Class ExceptionData - ' - ' Properties: Message, StackTrace, TypeFullName - ' - ' Function: CreateInstance, GetCurrentStackTrace, ToString - ' - ' Class StackFrame - ' - ' Properties: File, Line, Method - ' - ' Function: Parser, ToString - ' - ' Class Method - ' - ' Properties: [Module], [Namespace], Method - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: ToString - ' - ' - ' /********************************************************************************/ +' Class ExceptionData +' +' Properties: Message, StackTrace, TypeFullName +' +' Function: CreateInstance, GetCurrentStackTrace, ToString +' +' Class StackFrame +' +' Properties: File, Line, Method +' +' Function: Parser, ToString +' +' Class Method +' +' Properties: [Module], [Namespace], Method +' +' Constructor: (+1 Overloads) Sub New +' Function: ToString +' +' +' /********************************************************************************/ #End Region +Imports Microsoft.VisualBasic.Text + Namespace ApplicationServices.Debugging.Diagnostics Public Class ExceptionData @@ -63,10 +65,40 @@ Namespace ApplicationServices.Debugging.Diagnostics Public Property Message As String() Public Property StackTrace As StackFrame() + ''' + ''' Create exception object for throw exception expression + ''' + ''' + Public Function Exception() As Exception + Return New Exception(Message.Select(Function(msg, i) $"{i}. {msg}").JoinBy(ASCII.LF)) With { + .Source = StackTrace.JoinBy(ASCII.LF) + } + End Function + Public Overrides Function ToString() As String Return TypeFullName End Function + Private Shared Iterator Function getMessages(ex As Exception) As IEnumerable(Of String) + Do While True + Yield ex.Message + + If Not ex.InnerException Is Nothing Then + ex = ex.InnerException + Else + Exit Do + End If + Loop + End Function + + Public Shared Function CreateFromObject(ex As Exception) As ExceptionData + Return New ExceptionData With { + .Message = getMessages(ex).ToArray, + .TypeFullName = ex.GetType.FullName, + .StackTrace = ParseStackTrace(ex.StackTrace) + } + End Function + Public Shared Function CreateInstance(messages$(), stackTrace$(), type$) As ExceptionData Return New ExceptionData With { .TypeFullName = type, @@ -77,12 +109,8 @@ Namespace ApplicationServices.Debugging.Diagnostics } End Function - ''' - ''' Parsing , gets current stack trace information. - ''' - ''' - Public Shared Function GetCurrentStackTrace() As StackFrame() - Return Environment.StackTrace _ + Public Shared Function ParseStackTrace(stackTrace As String) As StackFrame() + Return stackTrace _ .LineTokens _ .Where(Function(s) Not s.StringEmpty) _ .Skip(3) _ @@ -92,71 +120,13 @@ Namespace ApplicationServices.Debugging.Diagnostics End Function) _ .ToArray End Function - End Class - - Public Class StackFrame ''' - ''' Method call + ''' Parsing , gets current stack trace information. ''' ''' - Public Property Method As Method - ''' - ''' The file path of the source file - ''' - ''' - Public Property File As String - ''' - ''' The line number in current source . - ''' - ''' - Public Property Line As String - - Public Overrides Function ToString() As String - Return $"{Method} at {File}:line {Line}" - End Function - - Public Shared Function Parser(line As String) As StackFrame - With line.Replace("位置", "at").Replace("行号", "line") - Dim t = .StringSplit(" at ") - Dim method = t(0) - Dim location = t.ElementAtOrDefault(1) - Dim file$, lineNumber$ - - If Not location.StringEmpty Then - t = location.StringSplit("[:]line ") - file = t(0) - lineNumber = t(1) - Else - file = "Unknown" - lineNumber = 0 - End If - - Return New StackFrame With { - .Method = New Method(method), - .File = file, - .Line = lineNumber - } - End With - End Function - End Class - - Public Class Method - - Public Property [Namespace] As String - Public Property [Module] As String - Public Property Method As String - - Sub New(s As String) - Dim t = s.Split("."c).AsList - - Method = t(-1) - [Module] = t(-2) - [Namespace] = t.Take(t.Count - 2).JoinBy(".") - End Sub - - Public Overrides Function ToString() As String - Return $"{[Namespace]}.{[Module]}.{Method}" + Public Shared Function GetCurrentStackTrace() As StackFrame() + Return ParseStackTrace(Environment.StackTrace) End Function End Class End Namespace diff --git a/ApplicationServices/Debugger/Exception/StackFrame.vb b/ApplicationServices/Debugger/Exception/StackFrame.vb new file mode 100644 index 00000000..0368e8c8 --- /dev/null +++ b/ApplicationServices/Debugger/Exception/StackFrame.vb @@ -0,0 +1,68 @@ +Namespace ApplicationServices.Debugging.Diagnostics + + Public Class StackFrame + + ''' + ''' Method call + ''' + ''' + Public Property Method As Method + ''' + ''' The file path of the source file + ''' + ''' + Public Property File As String + ''' + ''' The line number in current source . + ''' + ''' + Public Property Line As String + + Public Overrides Function ToString() As String + Return $"{Method} at {File}:line {Line}" + End Function + + Public Shared Function Parser(line As String) As StackFrame + With line.Replace("位置", "in").Replace("行号", "line") + Dim t = .StringSplit(" in ") + Dim method = t(0) + Dim location = t.ElementAtOrDefault(1) + Dim file$, lineNumber$ + + If Not location.StringEmpty Then + t = location.StringSplit("[:]line ") + file = t(0) + lineNumber = t(1) + Else + file = "Unknown" + lineNumber = 0 + End If + + Return New StackFrame With { + .Method = New Method(method), + .File = file, + .Line = lineNumber + } + End With + End Function + End Class + + Public Class Method + + Public Property [Namespace] As String + Public Property [Module] As String + Public Property Method As String + + Sub New(s As String) + Dim t = s.Split("."c).AsList + + Method = t(-1) + [Module] = t(-2) + [Namespace] = t.Take(t.Count - 2).JoinBy(".") + End Sub + + Public Overrides Function ToString() As String + Return $"{[Namespace]}.{[Module]}.{Method}" + End Function + End Class +End Namespace \ No newline at end of file diff --git a/ApplicationServices/Debugger/VisualBasicAppException.vb b/ApplicationServices/Debugger/Exception/VisualBasicAppException.vb similarity index 100% rename from ApplicationServices/Debugger/VisualBasicAppException.vb rename to ApplicationServices/Debugger/Exception/VisualBasicAppException.vb diff --git a/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb b/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb index e36582d3..1a2f9707 100644 --- a/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb +++ b/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb @@ -63,7 +63,7 @@ Namespace Parallel.MMFProtocol.Pipeline Sub New(Optional port As Integer = API.PeplinePort) _protocols = New ProtocolHandler(Me) _netSocket = New TcpServicesSocket(port) - _netSocket.Responsehandler = AddressOf _protocols.HandleRequest + _netSocket.ResponseHandler = AddressOf _protocols.HandleRequest Call Parallel.RunTask(AddressOf _netSocket.Run) End Sub diff --git a/ApplicationServices/Parallel/OperationTimeOut.vb b/ApplicationServices/Parallel/OperationTimeOut.vb index 4c73e1fb..c3ee877b 100644 --- a/ApplicationServices/Parallel/OperationTimeOut.vb +++ b/ApplicationServices/Parallel/OperationTimeOut.vb @@ -60,7 +60,7 @@ Namespace Parallel ''' Public Function OperationTimeOut(Of T, TOut)(handle As Func(Of T, TOut), [In] As T, ByRef Out As TOut, TimeOut As Double) As Boolean - Dim invoke As New __backgroundTask(Of TOut)(Function() handle([In])) + Dim invoke As New backgroundTask(Of TOut)(Function() handle([In])) Dim i As Integer TimeOut = TimeOut * 1000 diff --git a/ApplicationServices/Parallel/Tasks/AsyncHandle.vb b/ApplicationServices/Parallel/Tasks/AsyncHandle.vb index 55aa4aab..6d82a664 100644 --- a/ApplicationServices/Parallel/Tasks/AsyncHandle.vb +++ b/ApplicationServices/Parallel/Tasks/AsyncHandle.vb @@ -95,7 +95,8 @@ Namespace Parallel.Tasks ''' Public Function Run() As AsyncHandle(Of TOut) If IsCompleted Then - _Handle = Task.BeginInvoke(Nothing, Nothing) ' 假若没有执行完毕也调用的话，会改变handle + ' 假若没有执行完毕也调用的话，会改变handle + _Handle = Task.BeginInvoke(Nothing, Nothing) End If Return Me diff --git a/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb b/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb index 216263e3..1fbca841 100644 --- a/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb +++ b/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb @@ -61,7 +61,7 @@ Namespace Parallel.Tasks ''' Public Delegate Function IBackgroundTask(Of T)() As T - Friend Class __backgroundTask(Of T) : Inherits IParallelTask + Friend Class backgroundTask(Of T) : Inherits IParallelTask ''' ''' 获取得到任务线程执行的输出结果 @@ -103,7 +103,7 @@ Namespace Parallel.Tasks _RunningTask = False End Sub - Public Function Start() As __backgroundTask(Of T) + Public Function Start() As backgroundTask(Of T) If Not TaskRunning Then _taskThread.Start() _TaskComplete = False diff --git a/ApplicationServices/Parallel/Threading.vb b/ApplicationServices/Parallel/Threading.vb index de0642ca..52380705 100644 --- a/ApplicationServices/Parallel/Threading.vb +++ b/ApplicationServices/Parallel/Threading.vb @@ -62,9 +62,9 @@ Namespace Parallel ''' Public Function Invoke(tasks As Action(), numOfThreads As Integer) As Integer Dim getTask As Func(Of Action, Func(Of Integer)) = - Function(task) AddressOf New __invokeHelper With { - .__task = task - }.Task + Function(task) AddressOf New invokeHelper With { + .task = task + }.RunTask Dim invokes As Func(Of Integer)() = LinqAPI.Exec(Of Func(Of Integer)) <= From action As Action In tasks @@ -72,12 +72,12 @@ Namespace Parallel Return BatchTasks.BatchTask(invokes, numOfThreads).Length End Function - Private Structure __invokeHelper + Private Structure invokeHelper - Dim __task As Action + Dim task As Action - Public Function Task() As Integer - Call __task() + Public Function RunTask() As Integer + Call task() Return 0 End Function End Structure diff --git a/ApplicationServices/Parallel/Threads/CodeThread.vb b/ApplicationServices/Parallel/Threads/CodeThread.vb index eb45886c..f6ca2116 100644 --- a/ApplicationServices/Parallel/Threads/CodeThread.vb +++ b/ApplicationServices/Parallel/Threads/CodeThread.vb @@ -53,10 +53,10 @@ Namespace Parallel.Threads Protected ReadOnly thread As Thread Sub New() - thread = New Thread(AddressOf __run) + thread = New Thread(AddressOf run) End Sub - Protected MustOverride Sub __run() + Protected MustOverride Sub run() Public Shared Function GetThread(x As CodeThread) As Thread Return x.thread diff --git a/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb b/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb index 44fa8c9d..771b1aa7 100644 --- a/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb +++ b/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb @@ -157,14 +157,14 @@ Namespace Parallel.Linq Public Iterator Function LQuery(Of T, TOut)(inputs As IEnumerable(Of T), task As Func(Of T, TOut), Optional where As Func(Of T, Boolean) = Nothing, - Optional parTokens As Integer = 20000) As IEnumerable(Of TOut) + Optional partitionSize As Integer = 20000) As IEnumerable(Of TOut) Call $"Start schedule task pool for {GetType(T).FullName} --> {GetType(TOut).FullName}".__DEBUG_ECHO Dim buf As IEnumerable(Of Func(Of TOut())) = If(where Is Nothing, - TaskPartitions.Partitioning(inputs, parTokens, task), - TaskPartitions.Partitioning(inputs, parTokens, task, where)) + TaskPartitions.Partitioning(inputs, partitionSize, task), + TaskPartitions.Partitioning(inputs, partitionSize, task, where)) Dim LQueryInvoke = From part As Func(Of TOut()) In buf.AsParallel Select part() @@ -190,11 +190,11 @@ Namespace Parallel.Linq Public Iterator Function LQuery(Of T, TOut)(inputs As IEnumerable(Of T), task As Func(Of T, TOut), outWhere As Func(Of TOut, Boolean), - Optional parTokens As Integer = 20000) As IEnumerable(Of TOut) + Optional partitionSize As Integer = 20000) As IEnumerable(Of TOut) Call $"Start schedule task pool for {GetType(T).FullName} --> {GetType(TOut).FullName}".__DEBUG_ECHO - Dim buf As IEnumerable(Of Func(Of TOut())) = TaskPartitions.Partitioning(inputs, parTokens, task) + Dim buf As IEnumerable(Of Func(Of TOut())) = TaskPartitions.Partitioning(inputs, partitionSize, task) Dim LQueryInvoke = From part As Func(Of TOut()) In buf.AsParallel Select part() diff --git a/ApplicationServices/Parallel/Threads/ParallelExtension.vb b/ApplicationServices/Parallel/Threads/ParallelExtension.vb index fa48121e..9353aa9c 100644 --- a/ApplicationServices/Parallel/Threads/ParallelExtension.vb +++ b/ApplicationServices/Parallel/Threads/ParallelExtension.vb @@ -42,7 +42,6 @@ Imports System.Runtime.CompilerServices Imports System.Threading -Imports Microsoft.VisualBasic.MethodsExtension Namespace Parallel diff --git a/ApplicationServices/ServerModule.vb b/ApplicationServices/ServerModule.vb index b29a93fe..f367e096 100644 --- a/ApplicationServices/ServerModule.vb +++ b/ApplicationServices/ServerModule.vb @@ -78,7 +78,7 @@ Namespace ApplicationServices ''' The listen port of the tcp socket. Sub New(port As Integer) socket = New TcpServicesSocket(port, AddressOf LogException) With { - .Responsehandler = ProtocolHandler() + .ResponseHandler = ProtocolHandler() } End Sub diff --git a/ApplicationServices/Tools/Plugin/Loader.vb b/ApplicationServices/Tools/Plugin/Loader.vb new file mode 100644 index 00000000..72bdfd62 --- /dev/null +++ b/ApplicationServices/Tools/Plugin/Loader.vb @@ -0,0 +1,39 @@ +Imports System.Reflection + +Namespace ApplicationServices.Plugin + + Public Module Loader + + ''' + ''' 只会查找静态方法 + ''' + ''' + ''' + ''' + Public Function GetPluginMethod(assembly$, guid As String) As MethodInfo + Dim assm As Assembly = System.Reflection.Assembly.UnsafeLoadFrom(assembly.GetFullPath) + Dim types = assm.DefinedTypes.ToArray + + For Each type As TypeInfo In types + Dim methods As MethodInfo() = type.GetMethods(BindingFlags.Public Or BindingFlags.Static) + Dim pluginMethod As MethodInfo = methods _ + .Where(Function(m) + Return Not m.GetCustomAttribute(Of PluginAttribute) Is Nothing + End Function) _ + .FirstOrDefault(Function(m) + Return m _ + .GetCustomAttributes(Of PluginAttribute) _ + .Any(Function(a) + Return a.UniqueKey.TextEquals(guid) + End Function) + End Function) + + If Not pluginMethod Is Nothing Then + Return pluginMethod + End If + Next + + Return Nothing + End Function + End Module +End Namespace \ No newline at end of file diff --git a/ApplicationServices/Tools/Plugin/PluginAttribute.vb b/ApplicationServices/Tools/Plugin/PluginAttribute.vb new file mode 100644 index 00000000..0c28f3bf --- /dev/null +++ b/ApplicationServices/Tools/Plugin/PluginAttribute.vb @@ -0,0 +1,16 @@ +Namespace ApplicationServices.Plugin + + + Public Class PluginAttribute : Inherits Attribute + + Public ReadOnly Property UniqueKey As String + + Sub New(guid As String) + UniqueKey = guid + End Sub + + Public Overrides Function ToString() As String + Return UniqueKey + End Function + End Class +End Namespace \ No newline at end of file diff --git a/Language/Value/DefaultValue/DefaultString.vb b/Language/Value/DefaultValue/DefaultString.vb index ccd280aa..894e7b3e 100644 --- a/Language/Value/DefaultValue/DefaultString.vb +++ b/Language/Value/DefaultValue/DefaultString.vb @@ -1,50 +1,51 @@ #Region "Microsoft.VisualBasic::c0c300c7751c675905ed4b93e9c9d6f8, Language\Value\DefaultValue\DefaultString.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 . +' 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: +' Summaries: - ' Structure DefaultString - ' - ' Properties: DefaultValue, IsEmpty, IsTrue - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: assertIsNothing, LoadJson, LoadXml, ReadAllLines, ToString - ' Operators: (+2 Overloads) IsFalse, (+2 Overloads) IsTrue, (+8 Overloads) Or - ' - ' - ' /********************************************************************************/ +' Structure DefaultString +' +' Properties: DefaultValue, IsEmpty, IsTrue +' +' Constructor: (+1 Overloads) Sub New +' Function: assertIsNothing, LoadJson, LoadXml, ReadAllLines, ToString +' Operators: (+2 Overloads) IsFalse, (+2 Overloads) IsTrue, (+8 Overloads) Or +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices +Imports Microsoft.VisualBasic.Net.Http Imports Microsoft.VisualBasic.Serialization.JSON Imports CLI = Microsoft.VisualBasic.CommandLine.CommandLine @@ -105,6 +106,11 @@ Namespace Language.Default End If End Function + + Public Function Base64Decode() As String + Return Base64Codec.DecodeBase64(DefaultValue) + End Function + Public Function ReadAllLines() As String() Return DefaultValue.ReadAllLines diff --git a/Net/Abstract.vb b/Net/Abstract.vb index f2eafd6d..b9c5d054 100644 --- a/Net/Abstract.vb +++ b/Net/Abstract.vb @@ -77,6 +77,8 @@ Namespace Net.Abstract #Region "Delegate Abstract Interface" + Public Delegate Function SendMessageInvoke(Message As String) As String + Public Delegate Sub ForceCloseHandle(socket As StateObject) ''' @@ -131,6 +133,6 @@ Namespace Net.Abstract ''' (这个函数指针用于处理来自于客户端的请求) ''' ''' - Property Responsehandler As DataRequestHandler + Property ResponseHandler As DataRequestHandler End Interface End Namespace diff --git a/Net/Protocol/Reflection/ProtocolHandler.vb b/Net/Protocol/Reflection/ProtocolHandler.vb index 8d63f873..cca3c3ea 100644 --- a/Net/Protocol/Reflection/ProtocolHandler.vb +++ b/Net/Protocol/Reflection/ProtocolHandler.vb @@ -135,7 +135,7 @@ Namespace Net.Protocols.Reflection End Function ''' - ''' Handle the data request from the client for socket events: . + ''' Handle the data request from the client for socket events: . ''' ''' The request stream object which contains the commands from the client ''' The IPAddress of the target incoming client data request. diff --git a/Net/Tcp/Persistent/Socket/TcpClient.vb b/Net/Tcp/Persistent/Socket/TcpClient.vb index 51045f04..38ec3506 100644 --- a/Net/Tcp/Persistent/Socket/TcpClient.vb +++ b/Net/Tcp/Persistent/Socket/TcpClient.vb @@ -356,19 +356,19 @@ Namespace Net.Tcp.Persistent.Socket If bytesBuffer.IsNullOrEmpty Then Return - Call state.ChunkBuffer.AddRange(bytesBuffer) + Call state.received.AddRange(bytesBuffer) - Dim TempBuffer = state.ChunkBuffer.ToArray + Dim TempBuffer = state.received.ToArray Dim request = New RequestStream(TempBuffer) If Not request.FullRead Then Return - Call state.ChunkBuffer.Clear() + Call state.received.Clear() If TempBuffer.Length > request.TotalBytes Then TempBuffer = TempBuffer.Skip(request.TotalBytes).ToArray ' 含有剩余的剪裁后的数据 - Call state.ChunkBuffer.AddRange(TempBuffer) + Call state.received.AddRange(TempBuffer) End If Try diff --git a/Net/Tcp/Persistent/Socket/WorkSocket.vb b/Net/Tcp/Persistent/Socket/WorkSocket.vb index eb1c78ef..8291d2cc 100644 --- a/Net/Tcp/Persistent/Socket/WorkSocket.vb +++ b/Net/Tcp/Persistent/Socket/WorkSocket.vb @@ -61,7 +61,7 @@ Namespace Net.Tcp.Persistent.Socket Public ReadOnly ConnectTime As Date = Now Sub New(Socket As StateObject) - Me.ChunkBuffer = Socket.ChunkBuffer + Me.received = Socket.received Me.readBuffer = Socket.readBuffer Me.workSocket = Socket.workSocket End Sub diff --git a/Net/Tcp/StateObject.vb b/Net/Tcp/StateObject.vb index 2dd10811..210e82c8 100644 --- a/Net/Tcp/StateObject.vb +++ b/Net/Tcp/StateObject.vb @@ -53,16 +53,17 @@ Namespace Net.Tcp ''' Public Class StateObject : Implements IDisposable - ''' - ''' Client socket. - ''' - ''' - Public workSocket As Socket ''' ''' Size of receive buffer. ''' ''' Public Const BufferSize As Integer = 1024 * 1024 + + ''' + ''' Client socket. + ''' + ''' + Public workSocket As Socket ''' ''' Receive buffer. ''' @@ -72,14 +73,14 @@ Namespace Net.Tcp ''' Received data. ''' ''' - Public ChunkBuffer As New List(Of Byte) + Public received As New List(Of Byte) Public Overrides Function ToString() As String - Return workSocket.RemoteEndPoint.ToString & " <=====> " & workSocket.LocalEndPoint.ToString + Return workSocket.RemoteEndPoint.ToString & " <==> " & workSocket.LocalEndPoint.ToString End Function Public Function GetRequest() As RequestStream - Return New RequestStream(ChunkBuffer.ToArray) + Return New RequestStream(received.ToArray) End Function #Region "IDisposable Support" @@ -95,8 +96,8 @@ Namespace Net.Tcp Dim ep As String = workSocket.RemoteEndPoint.ToString ' TODO: dispose managed state (managed objects). - Call ChunkBuffer.Clear() - Call ChunkBuffer.Free + Call received.Clear() + Call received.Free Call readBuffer.Free Call workSocket.Shutdown(SocketShutdown.Both) Call workSocket.Free diff --git a/Net/Tcp/TcpRequest.vb b/Net/Tcp/TcpRequest.vb index c399f312..03173f96 100644 --- a/Net/Tcp/TcpRequest.vb +++ b/Net/Tcp/TcpRequest.vb @@ -64,9 +64,10 @@ Imports TcpEndPoint = System.Net.IPEndPoint Namespace Net.Tcp ''' - ''' The server socket should returns some data string to this client or this client will stuck at the function. - ''' (服务器端必须要返回数据，否则本客户端会在函数位置一直处于等待的状态) + ''' The server socket should returns some data string to this client or this client + ''' will stuck at the function. + ''' (服务器端必须要返回数据， + ''' 否则本客户端会在函数位置一直处于等待的状态) ''' ''' Public Class TcpRequest : Implements IDisposable @@ -92,7 +93,7 @@ Namespace Net.Tcp Dim connectDone As ManualResetEvent Dim sendDone As ManualResetEvent Dim receiveDone As ManualResetEvent - Dim __exceptionHandler As ExceptionHandler + Dim exceptionHandler As ExceptionHandler Dim remoteHost As String ''' @@ -104,7 +105,8 @@ Namespace Net.Tcp ''' ''' Gets the IP address of this local machine. - ''' (获取本机对象的IP地址，请注意这个属性获取得到的仅仅是本机在局域网内的ip地址，假若需要获取得到公网IP地址，还需要外部服务器的帮助才行) + ''' (获取本机对象的IP地址，请注意这个属性获取得到的仅仅是本机在局域网内的ip地址， + ''' 假若需要获取得到公网IP地址，还需要外部服务器的帮助才行) ''' ''' ''' @@ -145,7 +147,7 @@ Namespace Net.Tcp Sub New(client As TcpRequest, Optional exceptionHandler As ExceptionHandler = Nothing) remoteHost = client.remoteHost port = client.port - __exceptionHandler = exceptionHandler Or defaultHandler + Me.exceptionHandler = exceptionHandler Or defaultHandler remoteEP = New TcpEndPoint(System.Net.IPAddress.Parse(remoteHost), port) End Sub @@ -165,7 +167,7 @@ Namespace Net.Tcp End If port = remotePort - __exceptionHandler = exceptionHandler Or defaultHandler + Me.exceptionHandler = exceptionHandler Or defaultHandler remoteEP = New TcpEndPoint(System.Net.IPAddress.Parse(remoteHost), port) End Sub @@ -229,24 +231,23 @@ Namespace Net.Tcp If bResult Then If Not timeoutHandler Is Nothing Then Call timeoutHandler() '操作超时了 - If Not connectDone Is Nothing Then Call connectDone.Set() ' ManualResetEvent instances signal completion. If Not sendDone Is Nothing Then Call sendDone.Set() If Not receiveDone Is Nothing Then Call receiveDone.Set() '中断服务器的连接 Dim ex As Exception = New Exception("[OPERATION_TIME_OUT] " & Message.GetUTF8String) Dim ret As New RequestStream(0, HTTP_RFC.RFC_REQUEST_TIMEOUT, "HTTP/408 " & Me.ToString) - Call __exceptionHandler(New Exception(ret.GetUTF8String, ex)) + + Call exceptionHandler(New Exception(ret.GetUTF8String, ex)) + Return ret Else Return response End If End Function - Public Delegate Function SendMessageInvoke(Message As String) As String - Public Function SendMessage(Message As String, Callback As Action(Of String)) As IAsyncResult - Dim SendMessageClient As New TcpRequest(Me, exceptionHandler:=Me.__exceptionHandler) + Dim SendMessageClient As New TcpRequest(Me, exceptionHandler:=Me.exceptionHandler) Return (Sub() Call Callback(SendMessageClient.SendMessage(Message))).BeginInvoke(Nothing, Nothing) End Function @@ -330,7 +331,7 @@ Namespace Net.Tcp ' Signal that the connection has been made. connectDone.Set() Catch ex As Exception - Call __exceptionHandler(ex) + Call exceptionHandler(ex) End Try End Sub 'ConnectCallback @@ -350,7 +351,7 @@ Namespace Net.Tcp Try Call client.BeginReceive(state.readBuffer, 0, StateObject.BufferSize, 0, New AsyncCallback(AddressOf ReceiveCallback), state) Catch ex As Exception - Call Me.__exceptionHandler(ex) + Call Me.exceptionHandler(ex) End Try End Sub 'Receive @@ -367,19 +368,19 @@ Namespace Net.Tcp ' Read data from the remote device. bytesRead = client.EndReceive(ar) Catch ex As Exception - Call __exceptionHandler(ex) + Call exceptionHandler(ex) GoTo EX_EXIT End Try If bytesRead > 0 Then ' There might be more data, so store the data received so far. - state.ChunkBuffer.AddRange(state.readBuffer.Takes(bytesRead)) + state.received.AddRange(state.readBuffer.Takes(bytesRead)) ' Get the rest of the data. client.BeginReceive(state.readBuffer, 0, StateObject.BufferSize, 0, New AsyncCallback(AddressOf ReceiveCallback), state) Else ' All the data has arrived; put it in response. - If state.ChunkBuffer.Count > 1 Then - response = state.ChunkBuffer.ToArray + If state.received.Count > 1 Then + response = state.received.ToArray Else EX_EXIT: response = Nothing End If @@ -403,9 +404,9 @@ EX_EXIT: response = Nothing Try Call client.BeginSend(byteData, 0, byteData.Length, 0, New AsyncCallback(AddressOf SendCallback), client) Catch ex As Exception - Call Me.__exceptionHandler(ex) + Call Me.exceptionHandler(ex) End Try - End Sub 'Send + End Sub Private Sub SendCallback(ar As IAsyncResult) @@ -416,7 +417,7 @@ EX_EXIT: response = Nothing 'Console.WriteLine("Sent {0} bytes to server.", bytesSent) ' Signal that all bytes have been sent. sendDone.Set() - End Sub 'SendCallback + End Sub #Region "IDisposable Support" Private disposedValue As Boolean ' To detect redundant calls @@ -452,5 +453,5 @@ EX_EXIT: response = Nothing End Sub #End Region - End Class 'AsynchronousClient + End Class End Namespace diff --git a/Net/Tcp/TcpServicesSocket.vb b/Net/Tcp/TcpServicesSocket.vb index 54511f1e..cf89f1b5 100644 --- a/Net/Tcp/TcpServicesSocket.vb +++ b/Net/Tcp/TcpServicesSocket.vb @@ -96,7 +96,7 @@ Namespace Net.Tcp ''' (这个函数指针用于处理来自于客户端的请求) ''' ''' - Public Property Responsehandler As DataRequestHandler Implements IServicesSocket.Responsehandler + Public Property ResponseHandler As DataRequestHandler Implements IServicesSocket.ResponseHandler Public ReadOnly Property IsShutdown As Boolean Implements IServicesSocket.IsShutdown Get @@ -109,40 +109,40 @@ Namespace Net.Tcp ''' ''' 消息处理的方法接口： Public Delegate Function DataResponseHandler(str As String, RemotePort As Integer) As String ''' - ''' 监听的本地端口号，假若需要进行端口映射的话，则可以在方法之中设置映射的端口号 + ''' 监听的本地端口号，假若需要进行端口映射的话，则可以在方法之中设置映射的端口号 ''' - Sub New(Optional LocalPort As Integer = 11000, - Optional exHandler As ExceptionHandler = Nothing) + Sub New(Optional localPort As Integer = 11000, + Optional exceptionHandler As ExceptionHandler = Nothing) - Me._LocalPort = LocalPort - Me._exceptionHandle = exHandler Or defaultHandler + Me._LocalPort = localPort + Me._exceptionHandle = exceptionHandler Or defaultHandler End Sub ''' ''' 短连接socket服务端 ''' - ''' + ''' ''' - ''' - Sub New(DataArrivalEventHandler As DataRequestHandler, localPort%, Optional exHandler As ExceptionHandler = Nothing) - Me.Responsehandler = DataArrivalEventHandler - Me._exceptionHandle = exHandler Or defaultHandler + ''' + Sub New(requestEventHandler As DataRequestHandler, localPort%, Optional exceptionHandler As ExceptionHandler = Nothing) + Me.ResponseHandler = requestEventHandler + Me._exceptionHandle = exceptionHandler Or defaultHandler Me._LocalPort = localPort End Sub ''' ''' 函数返回Socket的注销方法 ''' - ''' Public Delegate Function DataResponseHandler(str As String, RemotePort As Integer) As String - ''' - ''' + ''' Public Delegate Function DataResponseHandler(str As String, RemotePort As Integer) As String + ''' + ''' ''' ''' - Public Shared Function BeginListen(DataArrivalEventHandler As DataRequestHandler, - Optional LocalPort As Integer = 11000, - Optional exHandler As ExceptionHandler = Nothing) As Action + Public Shared Function BeginListen(requestEventHandler As DataRequestHandler, + Optional localPort As Integer = 11000, + Optional exceptionHandler As ExceptionHandler = Nothing) As Action - With New TcpServicesSocket(DataArrivalEventHandler, LocalPort, exHandler) + With New TcpServicesSocket(requestEventHandler, localPort, exceptionHandler) Call New Action(AddressOf .Run).BeginInvoke(Nothing, Nothing) Return AddressOf .Dispose End With @@ -166,7 +166,7 @@ Namespace Net.Tcp ''' Public Function Run() As Integer Implements ITaskDriver.Run, IServicesSocket.Run ' Establish the local endpoint for the socket. - Dim localEndPoint As TcpEndPoint = New TcpEndPoint(System.Net.IPAddress.Any, _LocalPort) + Dim localEndPoint As New TcpEndPoint(System.Net.IPAddress.Any, _LocalPort) Return Run(localEndPoint) End Function @@ -201,26 +201,11 @@ Namespace Net.Tcp Call $"{MethodBase.GetCurrentMethod().GetFullName} ==> {localEndPoint.ToString}".__DEBUG_ECHO #End If End Try -#Region "" - 'If SelfMapping Then '端口转发映射设置 - ' Call Console.WriteLine("Self port mapping @wan_port={0} --->@lan_port", _LocalPort) - ' If Microsoft.VisualBasic.PortMapping.SetPortsMapping(_LocalPort, _LocalPort) = False Then - ' Call Console.WriteLine("Ports mapping is not successful!") - ' End If - 'Else - ' If Not PortMapping < 100 Then - ' Call Console.WriteLine("Ports mapping wan_port={0} -----> lan_port={1}", PortMapping, LocalPort) - ' If False = SetPortsMapping(PortMapping, _LocalPort) Then - ' Call Console.WriteLine("Ports mapping is not successful!") - ' End If - ' End If - 'End If -#End Region + _threadEndAccept = True _Running = True While Not Me.disposedValue - If _threadEndAccept Then _threadEndAccept = False @@ -251,7 +236,6 @@ Namespace Net.Tcp Public Sub AcceptCallback(ar As IAsyncResult) ' Get the socket that handles the client request. Dim listener As Socket = DirectCast(ar.AsyncState, Socket) - ' End the operation. Dim handler As Socket @@ -275,8 +259,7 @@ Namespace Net.Tcp End Try _threadEndAccept = True - - End Sub 'AcceptCallback + End Sub Private Sub ForceCloseHandle(RemoteEndPoint As EndPoint) Call $"Connection was force closed by {RemoteEndPoint.ToString}, services thread abort!".__DEBUG_ECHO @@ -303,10 +286,10 @@ Namespace Net.Tcp If bytesRead > 0 Then ' There might be more data, so store the data received so far. - state.ChunkBuffer.AddRange(state.readBuffer.Takes(bytesRead)) + state.received.AddRange(state.readBuffer.Takes(bytesRead)) ' Check for end-of-file tag. If it is not there, read ' more data. - state.readBuffer = state.ChunkBuffer.ToArray + state.readBuffer = state.received.ToArray ' 得到的是原始的请求数据 Dim requestData As New RequestStream(state.readBuffer) @@ -323,7 +306,7 @@ Namespace Net.Tcp End Try End If End If - End Sub 'ReadCallback + End Sub ''' ''' All the data has been read from the client. Display it on the console. @@ -341,8 +324,9 @@ Namespace Net.Tcp If requestData.IsPing Then requestData = NetResponse.RFC_OK Else - requestData = Me.Responsehandler()(requestData, remoteEP) + requestData = Me.ResponseHandler()(requestData, remoteEP) End If + Call Send(handler, requestData) Catch ex As Exception Call _exceptionHandle(ex) @@ -368,7 +352,7 @@ Namespace Net.Tcp byteData = New RequestStream(0, 0, byteData).Serialize ' Begin sending the data to the remote device. Call handler.BeginSend(byteData, 0, byteData.Length, 0, New AsyncCallback(AddressOf SendCallback), handler) - End Sub 'Send + End Sub Private Sub Send(handler As Socket, data As RequestStream) ' Convert the string data to byte data using ASCII encoding. @@ -385,7 +369,7 @@ Namespace Net.Tcp Call handler.Shutdown(SocketShutdown.Both) Call handler.Close() - End Sub 'SendCallback + End Sub ''' ''' SERVER_INTERNAL_EXCEPTION，Server encounter an internal exception during processing @@ -444,6 +428,5 @@ Namespace Net.Tcp GC.SuppressFinalize(Me) End Sub #End Region - End Class End Namespace diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index cf870a8b..527f2af3 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -1,55 +1,56 @@ #Region "Microsoft.VisualBasic::d8bc1d00cad0b167ad1d2d6d37f66594, Scripting\MetaData\Type.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 . +' 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: +' Summaries: - ' Class TypeInfo - ' - ' Properties: assm, FullIdentity, SystemKnownType - ' - ' Constructor: (+2 Overloads) Sub New - ' - ' Function: [GetType], LoadAssembly, ToString - ' - ' Sub: __infoParser - ' - ' Operators: <>, = - ' - ' - ' /********************************************************************************/ +' Class TypeInfo +' +' Properties: assm, FullIdentity, SystemKnownType +' +' Constructor: (+2 Overloads) Sub New +' +' Function: [GetType], LoadAssembly, ToString +' +' Sub: __infoParser +' +' Operators: <>, = +' +' +' /********************************************************************************/ #End Region Imports System.Reflection Imports System.Xml.Serialization +Imports Microsoft.VisualBasic.Language.Default Namespace Scripting.MetaData @@ -67,15 +68,15 @@ Namespace Scripting.MetaData ''' .(类型源) ''' ''' - Public Property FullIdentity As String + Public Property fullIdentity As String ''' ''' Is this type object is a known system type?(是否是已知的类型？) ''' ''' - Public ReadOnly Property SystemKnownType As Boolean + Public ReadOnly Property isSystemKnownType As Boolean Get - Return Not Scripting.GetType(FullIdentity) Is Nothing + Return Not Scripting.GetType(fullIdentity) Is Nothing End Get End Property @@ -87,16 +88,16 @@ Namespace Scripting.MetaData ''' ''' Sub New(info As Type) - Call __infoParser(info, assm, FullIdentity) + Call doInfoParser(info, assm, fullIdentity) End Sub - Private Shared Sub __infoParser(info As Type, ByRef assm As String, ByRef id As String) - assm = FileIO.FileSystem.GetFileInfo(info.Assembly.Location).Name + Private Shared Sub doInfoParser(info As Type, ByRef assm As String, ByRef id As String) + assm = info.Assembly.Location.FileName id = info.FullName End Sub Public Overrides Function ToString() As String - Return $"{assm}!{FullIdentity}" + Return $"{assm}!{fullIdentity}" End Function ''' @@ -104,8 +105,8 @@ Namespace Scripting.MetaData ''' then using the location as default. ''' ''' - Public Function LoadAssembly(Optional DIR As String = Nothing) As Assembly - Dim path As String = If(Not DIR.DirectoryExists, App.HOME, DIR) & "/" & Me.assm + Public Function LoadAssembly(Optional DIR As DefaultString = Nothing) As Assembly + Dim path As String = $"{DIR Or App.HOME}/{Me.assm}" Dim assm As Assembly = Assembly.LoadFile(path) Return assm End Function @@ -118,14 +119,15 @@ Namespace Scripting.MetaData Dim type As Type If knownFirst Then - type = Scripting.GetType(FullIdentity) + type = Scripting.GetType(fullIdentity) + If Not type Is Nothing Then Return type End If End If Dim assm As Assembly = LoadAssembly() - type = assm.GetType(Me.FullIdentity) + type = assm.GetType(Me.fullIdentity) Return type End Function @@ -137,9 +139,9 @@ Namespace Scripting.MetaData ''' Public Overloads Shared Operator =(a As TypeInfo, b As Type) As Boolean Dim assm As String = Nothing, type As String = Nothing - Call __infoParser(b, assm, type) + Call doInfoParser(b, assm, type) Return String.Equals(a.assm, assm, StringComparison.OrdinalIgnoreCase) AndAlso - String.Equals(a.FullIdentity, type, StringComparison.Ordinal) + String.Equals(a.fullIdentity, type, StringComparison.Ordinal) End Operator Public Overloads Shared Operator <>(a As TypeInfo, b As Type) As Boolean From 9eee2cc23159e3bf5a064712d1e922a8242ebd49 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 24 Jul 2019 20:26:48 +0800 Subject: [PATCH 005/104] fix bugs in commandline parser --- 47-dotnet_Microsoft.VisualBasic.vbproj | 38 +++++++- CommandLine/CLITools.vb | 5 +- CommandLine/CommandLine.vb | 4 +- CommandLine/Stream.vb | 126 ++++++++++++++++--------- 4 files changed, 124 insertions(+), 49 deletions(-) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 3d2cb8a7..36daa758 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -794,7 +794,7 @@ true true bin\x64\Biostack\ - FRAMEWORD_CORE=1 + FRAMEWORD_CORE=1,UNIX=True true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml true @@ -899,6 +899,42 @@ On AllRules.ruleset + + true + true + true + bin\node-debug\ + FRAMEWORD_CORE=1 + Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + AnyCPU + AllRules.ruleset + + + true + true + true + bin\x64\node-debug\ + FRAMEWORD_CORE=1 + Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + x64 + AllRules.ruleset + + + true + true + true + bin\x86\node-debug\ + FRAMEWORD_CORE=1 + Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + x86 + AllRules.ruleset + diff --git a/CommandLine/CLITools.vb b/CommandLine/CLITools.vb index 2c31a46e..e9cd564e 100644 --- a/CommandLine/CLITools.vb +++ b/CommandLine/CLITools.vb @@ -106,6 +106,7 @@ Namespace CommandLine ''' Public Function CreateParameterValues(tokens$(), includeLogicals As Boolean, Optional note$ = Nothing) As List(Of NamedValue(Of String)) Dim list As New List(Of NamedValue(Of String)) + Dim key As String If tokens.IsNullOrEmpty Then Return list @@ -138,7 +139,7 @@ Namespace CommandLine Dim s As String = tokens([next]) ' 当前的这个元素是开关，下一个也是开关开头，则本元素肯定是一个开关 - If IsPossibleLogicFlag(s) Then + If tokens(i).ToLower <> "/@set" AndAlso IsPossibleLogicFlag(s) Then If includeLogicals Then list += New NamedValue(Of String)(tokens(i), True, note) End If @@ -146,7 +147,7 @@ Namespace CommandLine Continue For Else ' 下一个元素不是开关，则当前元素为一个参数名，则跳过下一个元素 - Dim key As String = tokens(i).ToLower + key = tokens(i).ToLower list += New NamedValue(Of String)(key, s, note) i += 1 diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index f502666f..5b434406 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -501,13 +501,13 @@ Namespace CommandLine ''' ''' ''' - Public Function OpenStreamOutput(param$, Optional encoding As Encodings = Encodings.UTF8) As StreamWriter + Public Function OpenStreamOutput(param$, Optional encoding As Encodings = Encodings.UTF8, Optional size& = 512 * 1024 * 1024) As StreamWriter Dim path$ = Me(param) Dim type As FileTypes = StreamExtensions.FileType(path) Select Case type Case FileTypes.MemoryFile, FileTypes.PipelineFile - Return New StreamWriter(StreamExtensions.OpenForWrite(path)) + Return New StreamWriter(StreamExtensions.OpenForWrite(path, size)) Case Else If path.StringEmpty Then Return New StreamWriter(Console.OpenStandardOutput, encoding.CodePage) diff --git a/CommandLine/Stream.vb b/CommandLine/Stream.vb index 0a475e5b..83f67803 100644 --- a/CommandLine/Stream.vb +++ b/CommandLine/Stream.vb @@ -1,55 +1,56 @@ #Region "Microsoft.VisualBasic::f7090379a93984ecee32ecbba064de75, CommandLine\Stream.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 . +' 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: +' Summaries: - ' Enum FileTypes - ' - ' DiskFile, MemoryFile, PipelineFile - ' - ' - ' - ' - ' - ' Module StreamExtensions - ' - ' Function: FileType, OpenForRead, OpenForWrite - ' - ' - ' /********************************************************************************/ +' Enum FileTypes +' +' DiskFile, MemoryFile, PipelineFile +' +' +' +' +' +' Module StreamExtensions +' +' Function: FileType, OpenForRead, OpenForWrite +' +' +' /********************************************************************************/ #End Region Imports System.IO Imports System.IO.MemoryMappedFiles +Imports System.Security.AccessControl Namespace CommandLine @@ -65,7 +66,7 @@ Namespace CommandLine ''' + standard output: std_out:// ''' + memory mapping file: memory://file/uri ''' - Public Module StreamExtensions + Public Module StreamExtensions Public Function FileType(reference As String) As FileTypes If reference.TextEquals("std_in://") OrElse reference.TextEquals("std_out://") Then @@ -77,27 +78,64 @@ Namespace CommandLine End If End Function + ''' + ''' 一个用于通用化的打开数据流读取对象的函数 + ''' + ''' + ''' Public Function OpenForRead(reference As String) As Stream If reference.TextEquals("std_in://") Then Return Console.OpenStandardInput ElseIf reference.TextEquals("std_out://") Then Throw New InvalidProgramException() ElseIf reference.ToLower.StartsWith("memory://") Then + Dim view As Stream + reference = reference.GetTagValue(":/").Value - Return MemoryMappedFile.OpenExisting(reference).CreateViewStream + view = MemoryMappedFile.OpenExisting(reference).CreateViewStream + view.Seek(Scan0, SeekOrigin.Begin) + + Return view Else Return New FileStream(reference, FileMode.Open, access:=FileAccess.Read, share:=FileShare.ReadWrite) End If End Function - Public Function OpenForWrite(reference As String, Optional size& = 1024 * 1024 * 1024) As Stream + ''' + ''' 请注意,这个函数在创建内存映射文件的时候,默认是0.5GB大小的 + ''' + ''' + ''' + ''' + Public Function OpenForWrite(reference As String, Optional size& = 512 * 1024 * 1024) As Stream If reference.TextEquals("std_in://") Then Throw New InvalidProgramException ElseIf reference.TextEquals("std_out://") Then Return Console.OpenStandardOutput ElseIf reference.ToLower.StartsWith("memory://") Then + Dim view As Stream + 'Dim security As New MemoryMappedFileSecurity() + 'Dim userName$ = "everyone" + + 'If Not App.IsMicrosoftPlatform Then + ' ' 20190724 linux平台上很有可能不存在"everyone"这个账户角色 + ' userName = Environment.UserName + 'End If + + ' Security.AddAccessRule(New AccessRule(Of MemoryMappedFileRights)(userName, MemoryMappedFileRights.FullControl, AccessControlType.Allow)) reference = reference.GetTagValue(":/").Value - Return MemoryMappedFile.CreateOrOpen(reference, size).CreateViewStream + view = MemoryMappedFile.CreateOrOpen(reference, size, MemoryMappedFileAccess.ReadWrite).CreateViewStream + 'view = MemoryMappedFile.CreateOrOpen( + ' reference, size, + ' access:=MemoryMappedFileAccess.ReadWrite, + ' options:=MemoryMappedFileOptions.DelayAllocatePages, + ' memoryMappedFileSecurity:=security, + ' inheritability:=HandleInheritability.Inheritable + ').CreateViewStream + + Call view.Seek(Scan0, SeekOrigin.Begin) + + Return view Else Return New FileStream(reference, FileMode.OpenOrCreate, access:=FileAccess.Write, share:=FileShare.Read) End If From 0180fc6ea00e5dfee83d2a50e914f693e326aa23 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 25 Jul 2019 20:18:49 +0800 Subject: [PATCH 006/104] console api have some bugs on linux platform when screen command is on --- 47-dotnet_Microsoft.VisualBasic.vbproj | 2 +- .../Terminal/ProgressBar/ProgressBar.vb | 14 ++++++++++++++ Extensions/Image/Math/GeomTransform.vb | 1 + 3 files changed, 16 insertions(+), 1 deletion(-) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 36daa758..951872c4 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -619,7 +619,7 @@ FRAMEWORD_CORE=1,UNIX=1 true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml - true + false 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 Full x64 diff --git a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb index 4bd3c70f..65178163 100644 --- a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb +++ b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb @@ -411,6 +411,14 @@ Namespace Terminal.ProgressBar Return Me.GetJson End Function + Shared ReadOnly NaN As Double = New TimeSpan( + days:=9999999,' 10658576, + hours:=23, + minutes:=59, + seconds:=59, + milliseconds:=59 + ).TotalMilliseconds + ''' ''' ''' @@ -427,6 +435,12 @@ Namespace Terminal.ProgressBar Dim lefts = (1 - cur) / d ' lefts = 100% - currents Dim time = lefts * Elapsed + + ' System.OverflowException: TimeSpan overflowed because the duration is too long. + If time > NaN Then + time = NaN + End If + Dim estimates = TimeSpan.FromMilliseconds(time) Return estimates End Function diff --git a/Extensions/Image/Math/GeomTransform.vb b/Extensions/Image/Math/GeomTransform.vb index 3e6678e3..a8f814e7 100644 --- a/Extensions/Image/Math/GeomTransform.vb +++ b/Extensions/Image/Math/GeomTransform.vb @@ -354,6 +354,7 @@ Namespace Imaging.Math2D Dim ymax = array.Max(Function(pt) pt.Y) Dim topLeft As New PointF(xmin, ymin) Dim size As New SizeF(xmax - xmin, ymax - ymin) + Return New RectangleF(topLeft, size) End Function From cd28b881c36692ec71bb7ce91578e890897cd05d Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 27 Jul 2019 01:22:08 +0800 Subject: [PATCH 007/104] improvements of the color extension helpers --- ComponentModel/Ranges/RangeModel/DoubleRange.vb | 4 ++++ Extensions/Image/Colors/ColorMap.vb | 14 ++++++++++++++ Language/Value/DefaultValue/DefaultString.vb | 4 ++-- 3 files changed, 20 insertions(+), 2 deletions(-) diff --git a/ComponentModel/Ranges/RangeModel/DoubleRange.vb b/ComponentModel/Ranges/RangeModel/DoubleRange.vb index 37be9742..ffff5d0c 100644 --- a/ComponentModel/Ranges/RangeModel/DoubleRange.vb +++ b/ComponentModel/Ranges/RangeModel/DoubleRange.vb @@ -225,6 +225,10 @@ Namespace ComponentModel.Ranges.Model Return New DoubleRange(tuple.min, tuple.max) End Operator + Public Shared Widening Operator CType(vector As Vector(Of Double)) As DoubleRange + Return New DoubleRange(vector.Min, vector.Max) + End Operator + Public Shared Widening Operator CType(data As VectorShadows(Of Single)) As DoubleRange Return data _ .Select(Function(s) CDbl(s)) _ diff --git a/Extensions/Image/Colors/ColorMap.vb b/Extensions/Image/Colors/ColorMap.vb index 0e231fd9..9698cd20 100644 --- a/Extensions/Image/Colors/ColorMap.vb +++ b/Extensions/Image/Colors/ColorMap.vb @@ -69,6 +69,20 @@ Namespace Imaging Public Module ColorMapsExtensions + ''' + ''' Is this given color value is near black or white + ''' + ''' + ''' + + Public Function IsBlackOrWhite(c As Color, Optional offset As Integer = 5) As Boolean + Dim upperBound As Integer = 255 - offset + Dim isblack As Boolean = c.R <= offset AndAlso c.G <= offset AndAlso c.B <= offset + Dim isWhite As Boolean = c.R >= upperBound AndAlso c.G >= upperBound AndAlso c.B >= upperBound + + Return isblack Or isWhite + End Function + ''' ''' 大小写不敏感 ''' diff --git a/Language/Value/DefaultValue/DefaultString.vb b/Language/Value/DefaultValue/DefaultString.vb index 894e7b3e..c21c910d 100644 --- a/Language/Value/DefaultValue/DefaultString.vb +++ b/Language/Value/DefaultValue/DefaultString.vb @@ -86,8 +86,8 @@ Namespace Language.Default End Sub - Public Function LoadXml(Of T)() As T - Return DefaultValue.LoadXml(Of T) + Public Function LoadXml(Of T)(Optional throwEx As Boolean = True) As T + Return DefaultValue.LoadXml(Of T)(throwEx:=throwEx) End Function ''' From cc838333c5d6e422a1ae02bb0946f9e4cb858f4d Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 27 Jul 2019 03:15:05 +0800 Subject: [PATCH 008/104] fix constructor overloads error --- ComponentModel/Ranges/RangeModel/DoubleRange.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ComponentModel/Ranges/RangeModel/DoubleRange.vb b/ComponentModel/Ranges/RangeModel/DoubleRange.vb index ffff5d0c..833ea88b 100644 --- a/ComponentModel/Ranges/RangeModel/DoubleRange.vb +++ b/ComponentModel/Ranges/RangeModel/DoubleRange.vb @@ -121,6 +121,10 @@ Namespace ComponentModel.Ranges.Model Call Me.New(range.Min, range.Max) End Sub + Sub New(vec As Vector(Of Double)) + Call Me.New(vec.AsEnumerable) + End Sub + ''' ''' Value copy ''' From 9bae12457ecea05e9fc0ba4d9e0dc5727b26fa95 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 29 Jul 2019 02:05:05 +0800 Subject: [PATCH 009/104] update file headers --- ApplicationServices/App.vb | 2 +- ApplicationServices/Debugger.vb | 2 +- ApplicationServices/Debugger/Config.vb | 2 +- ApplicationServices/Debugger/DebuggerArgs.vb | 2 +- .../Debugger/DebuggerLevels.vb | 2 +- .../Debugger/Exception/ExceptionData.vb | 84 +++++++-------- .../Debugger/Exception/StackFrame.vb | 55 +++++++++- .../Exception/VisualBasicAppException.vb | 2 +- .../Debugger/Logging/EventLog.vb | 2 +- .../Debugger/Logging/LogFile/LogEntry.vb | 2 +- .../Debugger/Logging/LogFile/LogFile.vb | 2 +- .../Debugger/Logging/LogFile/LogReader.vb | 2 +- .../Debugger/Logging/LogFile/MSG_TYPES.vb | 2 +- ApplicationServices/Debugger/NETDebugger.vb | 2 +- .../Debugger/VisualStudioPreviews.vb | 2 +- ApplicationServices/IOHandler.vb | 2 +- .../LanguageHelper/LanguageAttribute.vb | 2 +- .../LanguageHelper/LanguageHelper.vb | 2 +- .../LanguageHelper/StringResources.vb | 2 +- .../Parallel/MMFProtocol/MMFChannel.vb | 2 +- .../MMFProtocol/MapStream/MSReader.vb | 2 +- .../MMFProtocol/MapStream/MSWriter.vb | 2 +- .../Parallel/MMFProtocol/Pipeline/API.vb | 2 +- .../MMFProtocol/Pipeline/PipeBuffer.vb | 2 +- .../MMFProtocol/Pipeline/PipeStream.vb | 2 +- .../Parallel/MMFProtocol/Pipeline/Pipeline.vb | 2 +- .../Parallel/MMFProtocol/ProcessLock.vb | 2 +- .../Parallel/MMFProtocol/WorkFlow.vb | 2 +- .../Parallel/OperationTimeOut.vb | 2 +- .../Parallel/Tasks/Actor(Of T, V).vb | 2 +- .../Parallel/Tasks/AsyncHandle.vb | 2 +- .../Parallel/Tasks/CallbackTask.vb | 2 +- .../Parallel/Tasks/IParallelTask.vb | 2 +- ApplicationServices/Parallel/Tasks/Task.vb | 2 +- .../Parallel/Tasks/TaskQueue.vb | 2 +- .../Parallel/Tasks/UpdateThread.vb | 2 +- .../Parallel/Tasks/__backgroundTask(Of T).vb | 4 +- ApplicationServices/Parallel/Threading.vb | 6 +- .../Parallel/Threads/BatchTasks.vb | 2 +- .../Parallel/Threads/CodeThread.vb | 2 +- .../Parallel/Threads/Groups/DataGroup.vb | 2 +- .../Parallel/Threads/Groups/GroupAPI.vb | 2 +- .../Threads/LQuerySchedule/LQuerySchedule.vb | 2 +- .../Parallel/Threads/LQuerySchedule/Models.vb | 2 +- .../Threads/LQuerySchedule/TaskPartitions.vb | 2 +- .../Parallel/Threads/ParallelExtension.vb | 2 +- .../Parallel/Threads/ThreadPool.vb | 2 +- .../Parallel/Threads/ThreadQueue.vb | 2 +- ApplicationServices/ServerModule.vb | 2 +- .../InteractiveIODevice/HistoryStacks.vb | 2 +- .../InteractiveIODevice/InteractiveDevice.vb | 2 +- .../Terminal/InteractiveIODevice/Shell.vb | 2 +- .../Terminal/InteractiveIODevice/Terminal.vb | 2 +- .../InteractiveIODevice/TerminalExtensions.vb | 2 +- ApplicationServices/Terminal/PipelineCLI.vb | 2 +- ApplicationServices/Terminal/PrintAsTable.vb | 2 +- .../Terminal/ProgressBar/AbstractBar.vb | 2 +- .../Terminal/ProgressBar/AnimatedBar.vb | 2 +- .../Terminal/ProgressBar/Program.vb | 2 +- .../Terminal/ProgressBar/ProgressBar.vb | 2 +- .../Terminal/ProgressBar/SwayBar.vb | 2 +- .../Terminal/STDIO__/I_ConsoleDeviceHandle.vb | 2 +- ApplicationServices/Terminal/STDIO__/STDIO.vb | 2 +- ApplicationServices/Terminal/STDIO__/Shell.vb | 2 +- .../Terminal/Utility/CBusyIndicator.vb | 2 +- .../Terminal/Utility/ConsolePasswordInput.vb | 2 +- .../Terminal/Utility/EventProc.vb | 2 +- .../Terminal/Utility/ManualPages.vb | 2 +- .../Terminal/xConsole/Helpers.vb | 2 +- .../Terminal/xConsole/xConsole.vb | 2 +- ApplicationServices/Tools/GMailClient.vb | 2 +- ApplicationServices/Tools/OSVersionInfo.vb | 2 +- ApplicationServices/Tools/Plugin/Loader.vb | 46 +++++++- .../Tools/Plugin/PluginAttribute.vb | 49 ++++++++- ApplicationServices/Tools/Resources.vb | 2 +- .../Tools/Win32/GetLastErrorAPI.vb | 2 +- .../Tools/Win32/HardwareInfo.vb | 2 +- .../Tools/Win32/PriorityClass.vb | 2 +- .../Tools/Win32/TaskManager.vb | 2 +- ApplicationServices/Tools/Win32/Win32API.vb | 2 +- ApplicationServices/Tools/Win32/Win32File.vb | 2 +- .../Tools/Win32/WindowsServices.vb | 2 +- .../Tools/WinForm/ChromeUIRender.vb | 2 +- .../Tools/WinForm/Extensions.vb | 2 +- ApplicationServices/Tools/WinForm/MockForm.vb | 2 +- .../Tools/WinForm/SingleInstanceFormEntry.vb | 2 +- .../Tools/WinForm/VistaSecurity.vb | 2 +- ApplicationServices/Tools/Zip/Options.vb | 2 +- ApplicationServices/Tools/Zip/StreamReader.vb | 2 +- ApplicationServices/Tools/Zip/UnZip.vb | 2 +- ApplicationServices/Tools/Zip/ZipLib.vb | 2 +- ApplicationServices/Utils.vb | 2 +- .../VBDev/ApplicationInfoUtils.vb | 2 +- ApplicationServices/VBDev/NamespaceDoc.vb | 2 +- ApplicationServices/VBDev/Ngen/Ngen.vb | 2 +- ApplicationServices/VBDev/Ngen/Registry.vb | 2 +- .../VBDev/Signature/CodeSign.vb | 13 +-- .../VBDev/Signature/LicenseInfo.vb | 2 +- .../VBDev/Signature/LicenseMgr.vb | 2 +- .../VBDev/Signature/SupportedLanguages.vb | 50 ++++++++- .../VBDev/Signature/VBCodeSignature.vb | 2 +- .../VBDev/XmlDoc/Extensions/APIExtensions2.vb | 2 +- .../VBDev/XmlDoc/Extensions/VBSpecific.vb | 2 +- ApplicationServices/VBDev/XmlDoc/Project.vb | 2 +- .../VBDev/XmlDoc/ProjectMember.vb | 2 +- .../VBDev/XmlDoc/ProjectNamespace.vb | 2 +- .../VBDev/XmlDoc/ProjectSpace.vb | 2 +- .../VBDev/XmlDoc/ProjectType.vb | 2 +- .../XmlDoc/Serialization/APIExtensions.vb | 2 +- .../XmlDoc/Serialization/APIExtensions2.vb | 2 +- .../VBDev/XmlDoc/Serialization/Models/Doc.vb | 2 +- .../XmlDoc/Serialization/Models/Member.vb | 2 +- .../XmlDoc/Serialization/NamespaceDoc.vb | 2 +- CommandLine/CLI/IIORedirectAbstract.vb | 2 +- CommandLine/CLI/IORedirect.vb | 2 +- CommandLine/CLI/IORedirectFile.vb | 2 +- CommandLine/CLI/ProcExtensions.vb | 2 +- CommandLine/CLI/Scripting.vb | 2 +- CommandLine/CLIMapper.vb | 2 +- CommandLine/CLITools.vb | 2 +- CommandLine/CliResCommon.vb | 2 +- CommandLine/CommandLine.vb | 2 +- CommandLine/InteropService/Abstract.vb | 2 +- CommandLine/InteropService/CLIAbstractor.vb | 2 +- CommandLine/InteropService/CLIBuilder.vb | 2 +- CommandLine/InteropService/InCompatible.vb | 2 +- CommandLine/InteropService/SharedORM/API.vb | 2 +- CommandLine/InteropService/SharedORM/CLI.vb | 2 +- .../InteropService/SharedORM/CodeGenerator.vb | 2 +- CommandLine/InteropService/SharedORM/PHP.vb | 2 +- CommandLine/InteropService/SharedORM/Perl.vb | 2 +- CommandLine/InteropService/SharedORM/R.vb | 2 +- .../InteropService/SharedORM/VisualBasic.vb | 2 +- CommandLine/Interpreters/Abstract.vb | 2 +- .../Interpreters/InteractiveConsole.vb | 2 +- CommandLine/Interpreters/Interpreter.vb | 2 +- CommandLine/Interpreters/View/CommandHelp.vb | 2 +- .../Interpreters/View/ExceptionHandler.vb | 2 +- .../Interpreters/View/ManualBuilder.vb | 2 +- CommandLine/Interpreters/View/SDKManual.vb | 2 +- CommandLine/Parsers/CLIParser.vb | 2 +- CommandLine/Parsers/DictionaryParser.vb | 2 +- CommandLine/Reflection/ArgumentCollection.vb | 2 +- .../Reflection/Attributes/ActiveViews.vb | 2 +- CommandLine/Reflection/Attributes/Argument.vb | 2 +- .../Reflection/Attributes/Attribute.vb | 2 +- .../Reflection/Attributes/ExportAPI.vb | 2 +- CommandLine/Reflection/Attributes/Flags.vb | 2 +- CommandLine/Reflection/Attributes/Grouping.vb | 2 +- .../Reflection/Attributes/[Namespace].vb | 2 +- CommandLine/Reflection/CLIToken.vb | 2 +- CommandLine/Reflection/CLITypes.vb | 2 +- .../Reflection/EntryPoints/APIEntryPoint.vb | 2 +- .../Reflection/EntryPoints/Delegate.vb | 2 +- CommandLine/Reflection/Grouping.vb | 2 +- CommandLine/Reflection/RunDll.vb | 2 +- CommandLine/Stream.vb | 83 +++++++------- .../Algorithm/BinaryTree/AVLSupports.vb | 2 +- .../Algorithm/BinaryTree/AVLTree.vb | 2 +- .../Algorithm/BinaryTree/BinaryTree.vb | 2 +- .../Algorithm/BinaryTree/Enumerable.vb | 2 +- .../Algorithm/BinaryTree/NaiveBinaryTree.vb | 2 +- .../Algorithm/BinaryTree/RBTree/Iterator.vb | 2 +- .../Algorithm/BinaryTree/RBTree/RBNode.vb | 2 +- .../Algorithm/BinaryTree/RBTree/RBTree.vb | 2 +- .../Algorithm/BinaryTree/TreeBase.vb | 2 +- .../Algorithm/BinaryTree/TreeNode.vb | 2 +- .../DynamicProgramming/DynamicProgramming.vb | 2 +- .../Algorithm/DynamicProgramming/LCS.vb | 2 +- .../LongestCommonSubsequence.vb | 2 +- .../Algorithm/DynamicProgramming/SCS.vb | 2 +- .../Levenshtein/DamerauLevenshteinDistance.vb | 2 +- .../Levenshtein/LevenshteinDistance.vb | 2 +- .../Algorithm/Levenshtein/LevenshteinModel.vb | 2 +- .../Algorithm/Levenshtein/ResultVisualize.vb | 2 +- .../Algorithm/base/Combination/Comb.vb | 2 +- .../Algorithm/base/Combination/Combination.vb | 2 +- .../Algorithm/base/SlideWindow/Extensions.vb | 2 +- .../Algorithm/base/SlideWindow/SlideWindow.vb | 2 +- ComponentModel/Count.vb | 2 +- ComponentModel/DataSource/Abstract.vb | 2 +- ComponentModel/DataSource/DataFramework.vb | 2 +- ComponentModel/DataSource/DefaultAttribute.vb | 2 +- ComponentModel/DataSource/Iterator.vb | 2 +- .../DataSource/Property/Controls.vb | 2 +- .../DataSource/Property/DynamicProperty.vb | 2 +- .../DataSource/Property/GenericProperty.vb | 2 +- .../DataSource/Property/IProperty.vb | 2 +- .../DataSource/Property/NamedCollection.vb | 2 +- .../DataSource/Property/NamedValue.vb | 2 +- .../DataSource/Property/PropertyValue.vb | 2 +- .../Repository/ILocalSearchHandle.vb | 2 +- .../DataSource/Repository/IMatched.vb | 2 +- .../DataSource/Repository/QueryCache.vb | 2 +- .../DataSource/Repository/Repository.vb | 2 +- .../DataSource/SchemaMaps/BindProperty.vb | 2 +- .../DataSource/SchemaMaps/DataSource.vb | 2 +- .../DataSource/SchemaMaps/Mappings.vb | 2 +- .../DataSource/SchemaMaps/PropertyValue.vb | 2 +- ComponentModel/DataSource/SchemaMaps/SQL.vb | 2 +- .../DataSource/SchemaMaps/Schema.vb | 2 +- ComponentModel/DataSource/Tsv.vb | 2 +- .../DataStructures/BitMap/HashHandle.vb | 2 +- .../DataStructures/BitMap/HashList.vb | 2 +- .../DataStructures/BitMap/HashModel.vb | 2 +- .../DataStructures/CapacityQueue.vb | 2 +- .../DataStructures/Enumerable/IEnumerable.vb | 2 +- .../Enumerable/NamedValueList.vb | 2 +- ComponentModel/DataStructures/FuzzyGroup.vb | 2 +- .../DataStructures/HashDictionary.vb | 2 +- ComponentModel/DataStructures/LoopArray.vb | 2 +- ComponentModel/DataStructures/Pointer.vb | 2 +- .../Set/BadBehaviourResponses.vb | 2 +- ComponentModel/DataStructures/Set/Set.vb | 2 +- ComponentModel/DataStructures/Set/SetAPI.vb | 2 +- .../DataStructures/Set/SetsExtension.vb | 2 +- .../DataStructures/Set/StringSet.vb | 2 +- .../Tree/BinaryTree/Abstract.vb | 2 +- .../Tree/BinaryTree/Extensions.vb | 2 +- .../Tree/BinaryTree/TreeNode.vb | 2 +- .../DataStructures/Tree/ITreeNode.vb | 2 +- .../DataStructures/Tree/TreeNodeBase.vb | 2 +- ComponentModel/DataStructures/Trigger.vb | 2 +- ComponentModel/DriverModel.vb | 2 +- ComponentModel/File/BufferedStream.vb | 2 +- ComponentModel/File/FileSaveHandle.vb | 2 +- ComponentModel/File/XmlDataModel.vb | 2 +- ComponentModel/LazyLoader.vb | 2 +- ComponentModel/Ranges/Extensions.vb | 2 +- ComponentModel/Ranges/RangeList.vb | 2 +- .../Ranges/RangeModel/DoubleRange.vb | 4 +- ComponentModel/Ranges/RangeModel/IRanges.vb | 2 +- ComponentModel/Ranges/RangeModel/IntRange.vb | 2 +- ComponentModel/Ranges/RangeModel/Range.vb | 2 +- ComponentModel/Ranges/Relations.vb | 2 +- .../Ranges/Selector/IndexSelector.vb | 2 +- ComponentModel/Ranges/Selector/IntTag.vb | 2 +- .../Ranges/Selector/NumericTagged.vb | 2 +- .../Ranges/Selector/SelectorExtensions.vb | 2 +- ComponentModel/Ranges/Unit.vb | 2 +- ComponentModel/RelayCommand.vb | 2 +- ComponentModel/Settings/ConfigEngine.vb | 2 +- .../Settings/DataModels/BindMapping.vb | 2 +- .../Settings/DataModels/ModelBase.vb | 2 +- .../Settings/DataModels/ProfileItem.vb | 2 +- .../Settings/DataModels/ProfileTable.vb | 2 +- ComponentModel/Settings/Inf/ClassMapper.vb | 2 +- ComponentModel/Settings/Inf/INIProfile.vb | 2 +- ComponentModel/Settings/Inf/IOProvider.vb | 2 +- ComponentModel/Settings/Inf/IniFile.vb | 2 +- ComponentModel/Settings/Inf/Section.vb | 2 +- ComponentModel/Settings/Inf/Serialization.vb | 2 +- ComponentModel/Settings/Settings.vb | 2 +- ComponentModel/Settings/SimpleConfig.vb | 2 +- ComponentModel/SingletonHolder.vb | 2 +- .../BucketDictionary.vb | 2 +- .../System.Collections.Generic/IndexOf.vb | 2 +- .../KeyDictionary.vb | 2 +- .../System.Collections.Generic/MapsHelper.vb | 2 +- .../PriorityQueue/Abstract.vb | 2 +- .../PriorityQueue/BinaryPriorityQueue.vb | 2 +- .../PriorityQueue/PairingHeap.vb | 2 +- .../PriorityQueue/PriorityQueue.vb | 2 +- ComponentModel/TimeSpan.vb | 2 +- ComponentModel/Uid.vb | 2 +- ComponentModel/ValuePair/Binding.vb | 2 +- ComponentModel/ValuePair/GenericAbstract.vb | 2 +- ComponentModel/ValuePair/NamedTuple.vb | 2 +- .../ValuePair/TagData/FactorValue.vb | 2 +- ComponentModel/ValuePair/TagData/Indexing.vb | 2 +- ComponentModel/ValuePair/TagData/LineValue.vb | 2 +- ComponentModel/ValuePair/TagData/TagData.vb | 2 +- Extensions/CodeDOM/CodeDOM.vb | 2 +- Extensions/CodeDOM/CodeDOMExpressions.vb | 2 +- Extensions/CodeDOM/CodeHelper.vb | 2 +- Extensions/CodeDOM/References.vb | 2 +- Extensions/CodeDOM/VBC.vb | 2 +- Extensions/Collection/AnonymousTypeHelper.vb | 2 +- Extensions/Collection/BucketExtensions.vb | 2 +- Extensions/Collection/ByteStreamExtensions.vb | 2 +- Extensions/Collection/Enumerable.vb | 2 +- .../Collection/IsNullOrEmptyExtensions.vb | 2 +- Extensions/Collection/KeyValuePair.vb | 2 +- Extensions/Collection/Linq/Enumeration.vb | 2 +- Extensions/Collection/Linq/Iterator.vb | 2 +- Extensions/Collection/Linq/Linq.vb | 2 +- Extensions/Collection/Linq/NumericSequence.vb | 2 +- Extensions/Collection/Linq/Pipeline.vb | 2 +- Extensions/Collection/Linq/SeqValue.vb | 2 +- Extensions/Collection/Linq/SetValue.vb | 2 +- Extensions/Collection/Linq/Takes.vb | 2 +- .../Collection/Linq/VectorAssertExtensions.vb | 2 +- Extensions/Collection/Linq/VectorAssertor.vb | 2 +- Extensions/Collection/Linq/Which.vb | 2 +- Extensions/Collection/ListExtensions.vb | 2 +- Extensions/Collection/Matrix.vb | 2 +- Extensions/Collection/Vector.vb | 2 +- Extensions/Doc/LargeTextFile.vb | 2 +- Extensions/Doc/PartitionedStream.vb | 2 +- Extensions/Doc/Text.vb | 2 +- Extensions/Doc/XmlExtensions.vb | 2 +- Extensions/Extensions.vb | 2 +- Extensions/IO/Extensions/Extensions.vb | 2 +- Extensions/IO/Extensions/IO.vb | 2 +- Extensions/IO/Extensions/NetFile.vb | 2 +- Extensions/IO/Extensions/PathExtensions.vb | 2 +- Extensions/IO/Extensions/SerializationIO.vb | 2 +- Extensions/IO/Extensions/StreamHelper.vb | 2 +- Extensions/IO/IOStream.vb | 2 +- Extensions/IO/Path/CopyDirectory.vb | 2 +- Extensions/IO/Path/Directory.vb | 2 +- Extensions/IO/Path/Extensions.vb | 2 +- Extensions/IO/Path/Includes.vb | 2 +- Extensions/IO/Path/PathMatch.vb | 2 +- Extensions/IO/Path/ProgramPathSearchTool.vb | 2 +- Extensions/IO/Path/TemporaryEnvironment.vb | 2 +- Extensions/IO/SymLinker/HardLink.vb | 2 +- Extensions/IO/SymLinker/JunctionPoint.vb | 2 +- Extensions/IO/SymLinker/SymbolicLink.vb | 2 +- Extensions/Image/Bitmap/BitmapBuffer.vb | 2 +- Extensions/Image/Bitmap/BitmapScale.vb | 2 +- Extensions/Image/Bitmap/Effects.vb | 2 +- Extensions/Image/Bitmap/Utils.vb | 2 +- Extensions/Image/Colors/ColorCube.vb | 2 +- Extensions/Image/Colors/ColorMap.vb | 4 +- Extensions/Image/Colors/CytoscapeColor.vb | 2 +- Extensions/Image/Colors/GDIColors.vb | 2 +- Extensions/Image/Colors/HSLColor.vb | 2 +- Extensions/Image/Colors/HexColor.vb | 2 +- Extensions/Image/GDI+/FontFace.vb | 2 +- Extensions/Image/GDI+/GDICanvas.vb | 2 +- Extensions/Image/GDI+/Graphics2D.vb | 2 +- Extensions/Image/GDI+/GraphicsExtensions.vb | 2 +- Extensions/Image/GDI+/Interface.vb | 2 +- Extensions/Image/GDI+/Layouts/Abstract.vb | 2 +- .../Image/GDI+/Layouts/ColaExtensions.vb | 2 +- Extensions/Image/GDI+/Layouts/Point2D.vb | 2 +- Extensions/Image/GDI+/Layouts/Rectangle2D.vb | 2 +- Extensions/Image/ImageFormat.vb | 2 +- Extensions/Image/Math/GeomTransform.vb | 2 +- Extensions/Image/Math/GeometryMath.vb | 2 +- Extensions/Image/Math/Models/Line.vb | 2 +- Extensions/Image/Math/Models/PolarPoint.vb | 2 +- Extensions/Image/Math/Models/Polygon.vb | 2 +- Extensions/Image/Math/Models/Vector2D.vb | 2 +- Extensions/Image/Math/Polygon2D.vb | 2 +- Extensions/Image/Math/VectorMath2D.vb | 2 +- Extensions/Image/PointF3D.vb | 2 +- Extensions/Image/TiffWriter.vb | 2 +- Extensions/Image/Wmf.vb | 2 +- Extensions/Math/Correlations/Beta.vb | 2 +- Extensions/Math/Correlations/Correlations.vb | 2 +- Extensions/Math/Correlations/Ranking.vb | 2 +- Extensions/Math/Correlations/Ranks.vb | 2 +- Extensions/Math/Correlations/Scripting.vb | 2 +- Extensions/Math/Information/Entropy.vb | 2 +- Extensions/Math/Information/UncheckHelpers.vb | 2 +- Extensions/Math/Math.vb | 2 +- Extensions/Math/Matrix.vb | 2 +- Extensions/Math/NumberEqualityComparer.vb | 2 +- Extensions/Math/NumberGroups.vb | 2 +- Extensions/Math/NumeralSystem.vb | 2 +- Extensions/Math/Percentage.vb | 2 +- Extensions/Math/Random/PreciseRandom.vb | 2 +- Extensions/Math/Random/RandomExtensions.vb | 2 +- Extensions/Math/Random/RandomRange.vb | 2 +- Extensions/Math/ScaleMaps.vb | 2 +- Extensions/Math/ScientificNotation.vb | 2 +- .../Math/StatisticsMathExtensions/Average.vb | 2 +- .../StatisticsMathExtensions/DataSample.vb | 2 +- .../Linq/CPOLLicense.vb | 2 +- .../Linq/EnumerableStatsCovariance.vb | 2 +- .../Linq/EnumerableStatsMedian.vb | 2 +- .../Linq/EnumerableStatsMode.vb | 2 +- .../Linq/EnumerableStatsPearson.vb | 2 +- .../Linq/EnumerableStatsRange.vb | 2 +- .../Linq/EnumerableStatsStandardDeviation.vb | 2 +- .../Linq/EnumerableStatsStandardDeviationP.vb | 2 +- .../Linq/EnumerableStatsVariance.vb | 2 +- .../Linq/EnumerableStatsVarianceP.vb | 2 +- Extensions/Math/Trigonometric/Arctan.vb | 2 +- .../Math/Trigonometric/Trigonometric.vb | 2 +- .../Math/Trigonometric/Trigonometric2.vb | 2 +- Extensions/Reflection/Delegate/DataValue.vb | 2 +- .../Reflection/Delegate/DelegateFactory.vb | 2 +- .../Reflection/Delegate/TypeExtensions.vb | 2 +- Extensions/Reflection/Marshal/IntPtr(Of T).vb | 2 +- .../Reflection/Marshal/MarshalExtensions.vb | 2 +- .../Reflection/Marshal/Pointer(Of T).vb | 2 +- Extensions/Reflection/Marshal/Pointers.vb | 2 +- Extensions/Reflection/Methods.vb | 2 +- .../Reflection/Parameters/ParamLogUtility.vb | 2 +- Extensions/Reflection/Parameters/Simple.vb | 2 +- Extensions/Reflection/Reflection.vb | 2 +- Extensions/Security/AES.vb | 2 +- Extensions/Security/Md5.vb | 2 +- Extensions/Security/Md5HashProvider.vb | 2 +- Extensions/Security/RSACrypto.vb | 2 +- Extensions/Security/SHA.vb | 2 +- Extensions/Security/SecurityString.vb | 2 +- Extensions/Security/TripleDES.vb | 2 +- .../StringHelpers/NumericFormatHelper.vb | 2 +- Extensions/StringHelpers/Parser.vb | 2 +- Extensions/StringHelpers/RegexExtensions.vb | 2 +- Extensions/StringHelpers/StrUtils.vb | 2 +- Extensions/StringHelpers/StringBuilders.vb | 2 +- Extensions/StringHelpers/StringHelpers.vb | 2 +- Extensions/Trinity/Expression.vb | 2 +- Extensions/Trinity/Extensions.vb | 2 +- Extensions/Trinity/NLP/TextTokens.vb | 2 +- Extensions/Trinity/Word.vb | 2 +- Extensions/Trinity/WordClass.vb | 2 +- Extensions/ValueTypes/DateTimeHelper.vb | 4 +- Extensions/ValueTypes/RangeExtensions.vb | 2 +- Extensions/ValueTypes/TimeSpanScale.vb | 2 +- Extensions/WebServices/HTTP_RFC.vb | 2 +- Extensions/WebServices/HttpGet.vb | 2 +- Extensions/WebServices/NetResponse.vb | 2 +- Extensions/WebServices/RequestBuilder.vb | 2 +- Extensions/WebServices/WebResult.vb | 2 +- Extensions/WebServices/WebServiceUtils.vb | 2 +- Extensions/Webpage.vb | 2 +- Extensions/Win32API.vb | 2 +- LICENSE.vb | 2 +- Language/API.vb | 2 +- Language/Language/C/CFormatProvider.vb | 2 +- Language/Language/C/CString.vb | 2 +- Language/Language/C/File.vb | 2 +- Language/Language/C/RandomNumbers.vb | 2 +- Language/Language/C/Vector.vb | 2 +- Language/Language/Java/Arrays.vb | 2 +- Language/Language/Java/Collections.vb | 2 +- Language/Language/Java/JavaMath.vb | 2 +- Language/Language/Java/Line2D.vb | 2 +- Language/Language/Java/LogTricks.vb | 2 +- Language/Language/Java/MathUtils.vb | 2 +- Language/Language/Java/MersenneTwisterFast.vb | 2 +- Language/Language/Java/NamespaceDoc.vb | 2 +- Language/Language/Java/Reflection.vb | 2 +- Language/Language/Perl/Tools.vb | 2 +- Language/Language/Perl/die.vb | 2 +- Language/Language/Python/Array.vb | 2 +- Language/Language/Python/Collection.vb | 2 +- Language/Language/Python/NamedTuple.vb | 2 +- Language/Language/Python/NamespaceDoc.vb | 2 +- Language/Language/Python/Regexp.vb | 2 +- Language/Language/UnixBash/Cowsay.vb | 2 +- Language/Language/UnixBash/FileSystem/File.vb | 2 +- .../UnixBash/FileSystem/PathMapper.vb | 2 +- Language/Language/UnixBash/PS1.vb | 2 +- Language/Language/UnixBash/Shell/Text/Grep.vb | 2 +- Language/Language/UnixBash/Shell/ls.vb | 2 +- Language/Language/UnixBash/Shell/rm.vb | 2 +- Language/Language/UnixBash/Shell/tree.vb | 2 +- Language/Language/UnixBash/ShellSyntax.vb | 2 +- .../Linq/Assert/AssertEqualsExtensions.vb | 2 +- Language/Linq/Assert/VectorAssert.vb | 2 +- Language/Linq/Indexer.vb | 2 +- Language/Linq/LanguageExtensions.vb | 2 +- Language/Linq/Linq.vb | 2 +- Language/Linq/List.vb | 2 +- Language/Linq/Vectorization/BooleanVector.vb | 2 +- Language/Linq/Vectorization/Extensions.vb | 2 +- Language/Linq/Vectorization/SchemaProvider.vb | 2 +- Language/Linq/Vectorization/StringVector.vb | 2 +- Language/Linq/Vectorization/Strings.vb | 2 +- Language/Linq/Vectorization/Vector.vb | 2 +- Language/Linq/Vectorization/VectorShadows.vb | 2 +- Language/NamespaceDoc.vb | 2 +- Language/Runtime.vb | 2 +- Language/StringHelpers.vb | 2 +- Language/Value/ByRefValueExtensions.vb | 2 +- Language/Value/CharStream.vb | 2 +- Language/Value/Clones.vb | 2 +- Language/Value/DefaultValue/BooleanAssert.vb | 2 +- Language/Value/DefaultValue/Default.vb | 2 +- .../Value/DefaultValue/DefaultExtensions.vb | 2 +- Language/Value/DefaultValue/DefaultString.vb | 75 ++++++------- Language/Value/Numeric/Numeric.vb | 2 +- Language/Value/Numeric/VBDouble.vb | 2 +- Language/Value/Numeric/VBInteger.vb | 2 +- Language/Value/Pointer.vb | 2 +- Language/Value/Value.vb | 2 +- Language/Value/Variant.vb | 2 +- Language/Value/var.vb | 2 +- My/File.vb | 2 +- My/InnerQueue.vb | 2 +- My/JavaScript/ES6/Map.vb | 2 +- My/JavaScript/JavaScriptObject.vb | 2 +- My/JavaScript/Linq.vb | 2 +- My/JavaScript/UnionType.vb | 2 +- My/LinuxRunHelper.vb | 2 +- My/Log4VB.vb | 2 +- NamespaceDoc.vb | 2 +- Net/Abstract.vb | 9 +- Net/DomainName.vb | 2 +- Net/DomainParser.vb | 2 +- Net/HTTP/DataURI.vb | 2 +- Net/HTTP/Multipart.vb | 2 +- Net/HTTP/Stream/Base64Codec.vb | 2 +- Net/HTTP/Stream/GZStream.vb | 2 +- Net/HTTP/Stream/ZipStream.vb | 2 +- Net/HTTP/UserAgent.vb | 2 +- Net/HTTP/sitemap.xml.vb | 102 +++++++++--------- Net/MIME/ContentType.vb | 2 +- Net/MIME/MIME.vb | 2 +- Net/PingUtility.vb | 2 +- Net/PortMapping.vb | 2 +- Net/Protocol/Abstract.vb | 2 +- Net/Protocol/IVerifySession.vb | 2 +- Net/Protocol/Reflection/AppMgr.vb | 2 +- Net/Protocol/Reflection/Protocol.vb | 2 +- Net/Protocol/Reflection/ProtocolHandler.vb | 2 +- Net/Protocol/Reflection/ProtocolInvoker.vb | 2 +- Net/Protocol/RequestStream.vb | 2 +- Net/Protocol/Streams/Array.vb | 2 +- Net/Protocol/Streams/ArrayAbstract.vb | 2 +- Net/Protocol/Streams/ArrayBase.vb | 2 +- Net/Protocol/Streams/String.vb | 2 +- Net/Protocol/Streams/VarArray.vb | 2 +- Net/TCPExtensions.vb | 2 +- Net/Tcp/IPTools/AddressEnumerator.vb | 2 +- Net/Tcp/IPTools/IPEndPoint.vb | 2 +- Net/Tcp/IPTools/LAN.vb | 2 +- Net/Tcp/Persistent/Protocols/POST.vb | 2 +- Net/Tcp/Persistent/Protocols/Protocol.vb | 2 +- Net/Tcp/Persistent/Socket/ServicesSocket.vb | 2 +- Net/Tcp/Persistent/Socket/TcpClient.vb | 2 +- Net/Tcp/Persistent/Socket/WorkSocket.vb | 2 +- Net/Tcp/Persistent/TcpClient.vb | 2 +- .../TcpSynchronizationServicesSocket.vb | 2 +- Net/Tcp/StateObject.vb | 2 +- Net/Tcp/TCPExtensions.vb | 2 +- Net/Tcp/TcpAsynchronousServicesSocket.vb | 2 +- Net/Tcp/TcpRequest.vb | 11 +- Net/Tcp/TcpServicesSocket.vb | 4 +- Net/TcpClient.vb | 2 +- Net/TcpServer.vb | 2 +- Net/wGetTools.vb | 2 +- Scripting/Abstract.vb | 2 +- Scripting/Actives.vb | 2 +- Scripting/Expressions/Aggregate.vb | 2 +- Scripting/Expressions/ArrayIndex.vb | 2 +- Scripting/Expressions/Selector.vb | 2 +- Scripting/Expressions/StringInterpolation.vb | 2 +- Scripting/ExternalCall.vb | 2 +- Scripting/InputHandler.vb | 2 +- Scripting/MetaData/Author.vb | 2 +- Scripting/MetaData/Cite.vb | 2 +- Scripting/MetaData/EntryPointMetaData.vb | 2 +- Scripting/MetaData/MetaAPI.vb | 2 +- Scripting/MetaData/Namespace.vb | 2 +- Scripting/MetaData/Parameter.vb | 2 +- Scripting/MetaData/Type.vb | 82 +++++++------- Scripting/Runtime/BinaryOperator.vb | 2 +- Scripting/Runtime/CType/Abstract.vb | 2 +- Scripting/Runtime/CType/CastStringVector.vb | 2 +- Scripting/Runtime/CType/Casting.vb | 2 +- Scripting/Runtime/CType/Narrowing.vb | 2 +- .../Runtime/CType/NumberConversionRoutines.vb | 2 +- Scripting/Runtime/Extensions.vb | 2 +- Scripting/Runtime/OverloadsFunction.vb | 2 +- Scripting/Runtime/Where.vb | 2 +- Scripting/ScriptBuilder.vb | 2 +- Scripting/TextGrepScriptEngine.vb | 2 +- Scripting/TokenIcer/LangModels/Func.vb | 2 +- .../LangModels/OperatorExpression.vb | 2 +- Scripting/TokenIcer/LangModels/PeekToken.vb | 2 +- .../LangModels/StackTokens(Of Tokens).vb | 2 +- Scripting/TokenIcer/LangModels/Token.vb | 2 +- Scripting/TokenIcer/ParserCommon.vb | 2 +- Scripting/TokenIcer/Prefix.vb | 2 +- Scripting/TokenIcer/StackParser.vb | 2 +- Scripting/TokenIcer/TokenParser.vb | 2 +- Scripting/VisualBasic/Extensions.vb | 2 +- Scripting/VisualBasic/KeywordProcessor.vb | 4 +- Scripting/VisualBasic/VBLanguage.vb | 2 +- Serialization/Abstract.vb | 2 +- Serialization/BinaryDumping/BinaryReader.vb | 2 +- Serialization/BinaryDumping/BinaryWriter.vb | 2 +- Serialization/BinaryDumping/Buffer.vb | 2 +- .../BinaryDumping/StructFormatter.vb | 2 +- .../BinaryDumping/StructSerializer.vb | 2 +- Serialization/ConfigMappings/Attributes.vb | 2 +- .../ConfigMappings/ConfigurationMappings.vb | 2 +- .../ConfigMappings/DynamicsConfiguration.vb | 2 +- Serialization/Controls/Contrls.vb | 2 +- Serialization/DumpData/DumpData.vb | 2 +- Serialization/DumpData/DumpNode.vb | 2 +- Serialization/ICloneable.vb | 2 +- Serialization/JSON/AnonymousJSON.vb | 2 +- .../JSON/Formatter/FormatterScopeState.vb | 2 +- .../JSON/Formatter/ICharacterStrategy.vb | 2 +- .../JSON/Formatter/JsonFormatterInternal.vb | 2 +- .../Formatter/JsonFormatterStrategyContext.vb | 2 +- .../Strategies/CloseBracketStrategy.vb | 2 +- .../Strategies/CloseSquareBracketStrategy.vb | 2 +- .../Strategies/ColonCharacterStrategy.vb | 2 +- .../Strategies/CommaCharacterStrategy.vb | 2 +- .../Strategies/DefaultCharacterStrategy.vb | 2 +- .../Strategies/DoubleQuoteStrategy.vb | 2 +- .../Strategies/OpenBracketStrategy.vb | 2 +- .../Strategies/OpenSquareBracketStrategy.vb | 2 +- .../Strategies/SingleQuoteStrategy.vb | 2 +- .../SkipWhileNotInStringStrategy.vb | 2 +- Serialization/JSON/JsonFormatter.vb | 2 +- Serialization/JSON/JsonSerialization.vb | 2 +- .../JSON/SchemaProvider/Extensions.vb | 2 +- Serialization/JSON/SchemaProvider/Markdown.vb | 2 +- Serialization/JSON/SchemaProvider/Schema.vb | 2 +- .../JSON/SchemaProvider/VisualBasicCode.vb | 2 +- Serialization/ShadowsCopy.vb | 2 +- Text/ASCII.vb | 2 +- Text/GreekAlphabets.vb | 2 +- Text/IO/EncodingHelper.vb | 2 +- Text/IO/GB2312.vb | 2 +- Text/IO/TextFileEncodingDetector.vb | 2 +- Text/IO/UnbufferedStringReader.vb | 2 +- Text/LogFile.vb | 2 +- Text/Paragraph.vb | 2 +- Text/Parser/CharEnumerator.vb | 2 +- Text/Parser/FormattedParser.vb | 2 +- Text/Parser/HtmlParser/HtmlStrips.vb | 2 +- Text/Parser/HtmlParser/Table.vb | 2 +- Text/Parser/HtmlParser/TagAttributeParser.vb | 2 +- Text/Parser/ParserValue.vb | 2 +- Text/Parser/TryParse.vb | 2 +- Text/Patterns/Regexp.vb | 2 +- Text/Patterns/Wildcards.vb | 2 +- .../SearchEngine/TextIndexing/TextIndexing.vb | 2 +- Text/SearchEngine/TextIndexing/TextSegment.vb | 2 +- Text/Splitter.vb | 2 +- Text/StringSimilarity/IEqualityComparer.vb | 2 +- .../Levenshtein/Extensions.vb | 2 +- .../Levenshtein/LevenshteinString.vb | 2 +- Text/StringSimilarity/Similarity.vb | 2 +- Text/TextEncodings.vb | 2 +- Text/Xml/Extensions.vb | 2 +- Text/Xml/HtmlBuilder.vb | 2 +- Text/Xml/Linq/DataSetWriter.vb | 2 +- Text/Xml/Linq/DeserializeHandler.vb | 2 +- Text/Xml/Linq/Entity.vb | 2 +- Text/Xml/Linq/Linq.vb | 2 +- Text/Xml/Linq/NodeIterator.vb | 2 +- Text/Xml/Models/Coordinate.vb | 2 +- Text/Xml/Models/Href.vb | 2 +- Text/Xml/Models/ListOf.vb | 2 +- Text/Xml/Models/Sequence.vb | 2 +- Text/Xml/Models/StringValue.vb | 2 +- Text/Xml/Models/ValueTuples/Extensions.vb | 2 +- Text/Xml/Models/ValueTuples/NamedValues.vb | 2 +- Text/Xml/Models/ValueTuples/ValuePair.vb | 2 +- Text/Xml/Models/Vector.vb | 2 +- Text/Xml/OpenXml/Content_Types.vb | 2 +- Text/Xml/Serialization/XmlComment.vb | 2 +- Text/Xml/XmlBuilder.vb | 2 +- Text/Xml/XmlDeclaration.vb | 2 +- Text/Xml/XmlDoc.vb | 2 +- Text/Xml/XmlEntity.vb | 2 +- Text/Xml/Xmlns.vb | 2 +- test/LinqExpressiontest.vb | 2 +- test/Module1.vb | 2 +- test/TypeTest.vb | 2 +- test/htmlParserTest.vb | 2 +- test/math_test.vb | 2 +- test/numberParserTest.vb | 2 +- 666 files changed, 1074 insertions(+), 909 deletions(-) diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 5b5ce3c0..2a566198 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::11d59e8cf799bd8b63b30b390b05215b, ApplicationServices\App.vb" +#Region "Microsoft.VisualBasic::11d59e8cf799bd8b63b30b390b05215b, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" ' Author: ' diff --git a/ApplicationServices/Debugger.vb b/ApplicationServices/Debugger.vb index b30eb70e..8d8af1b6 100644 --- a/ApplicationServices/Debugger.vb +++ b/ApplicationServices/Debugger.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::04369fce4edad7572df6e2634f9e59eb, ApplicationServices\Debugger.vb" +#Region "Microsoft.VisualBasic::04369fce4edad7572df6e2634f9e59eb, Microsoft.VisualBasic.Core\ApplicationServices\Debugger.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Config.vb b/ApplicationServices/Debugger/Config.vb index 1d1dfe87..6234e816 100644 --- a/ApplicationServices/Debugger/Config.vb +++ b/ApplicationServices/Debugger/Config.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e4116dfe0b06870e2dcf53a489a4fb5e, ApplicationServices\Debugger\Config.vb" +#Region "Microsoft.VisualBasic::e4116dfe0b06870e2dcf53a489a4fb5e, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Config.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/DebuggerArgs.vb b/ApplicationServices/Debugger/DebuggerArgs.vb index df6589c9..a8b4ce53 100644 --- a/ApplicationServices/Debugger/DebuggerArgs.vb +++ b/ApplicationServices/Debugger/DebuggerArgs.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::45d782ae175d587a152a19d88a206ff7, ApplicationServices\Debugger\DebuggerArgs.vb" +#Region "Microsoft.VisualBasic::45d782ae175d587a152a19d88a206ff7, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\DebuggerArgs.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/DebuggerLevels.vb b/ApplicationServices/Debugger/DebuggerLevels.vb index 9b158c14..bc525678 100644 --- a/ApplicationServices/Debugger/DebuggerLevels.vb +++ b/ApplicationServices/Debugger/DebuggerLevels.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::70fd68fd2eafbadf80da2922e0ec0b7d, ApplicationServices\Debugger\DebuggerLevels.vb" +#Region "Microsoft.VisualBasic::70fd68fd2eafbadf80da2922e0ec0b7d, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\DebuggerLevels.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Exception/ExceptionData.vb b/ApplicationServices/Debugger/Exception/ExceptionData.vb index 7c852b59..cd3355d1 100644 --- a/ApplicationServices/Debugger/Exception/ExceptionData.vb +++ b/ApplicationServices/Debugger/Exception/ExceptionData.vb @@ -1,57 +1,45 @@ -#Region "Microsoft.VisualBasic::679f37232d839b0731209665afe32b3b, ApplicationServices\Debugger\Exception\ExceptionData.vb" +#Region "Microsoft.VisualBasic::626d2b64093e22f3527641427fdc424e, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Exception\ExceptionData.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 . + ' 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: + ' Summaries: -' Class ExceptionData -' -' Properties: Message, StackTrace, TypeFullName -' -' Function: CreateInstance, GetCurrentStackTrace, ToString -' -' Class StackFrame -' -' Properties: File, Line, Method -' -' Function: Parser, ToString -' -' Class Method -' -' Properties: [Module], [Namespace], Method -' -' Constructor: (+1 Overloads) Sub New -' Function: ToString -' -' -' /********************************************************************************/ + ' Class ExceptionData + ' + ' Properties: Message, StackTrace, TypeFullName + ' + ' Function: CreateFromObject, CreateInstance, Exception, GetCurrentStackTrace, getMessages + ' ParseStackTrace, ToString + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ApplicationServices/Debugger/Exception/StackFrame.vb b/ApplicationServices/Debugger/Exception/StackFrame.vb index 0368e8c8..6bc29897 100644 --- a/ApplicationServices/Debugger/Exception/StackFrame.vb +++ b/ApplicationServices/Debugger/Exception/StackFrame.vb @@ -1,4 +1,55 @@ -Namespace ApplicationServices.Debugging.Diagnostics +#Region "Microsoft.VisualBasic::a64a2f3951ad63fc29ea88edc624c9da, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Exception\StackFrame.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 StackFrame + ' + ' Properties: File, Line, Method + ' + ' Function: Parser, ToString + ' + ' Class Method + ' + ' Properties: [Module], [Namespace], Method + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: ToString + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace ApplicationServices.Debugging.Diagnostics Public Class StackFrame @@ -65,4 +116,4 @@ Return $"{[Namespace]}.{[Module]}.{Method}" End Function End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/Debugger/Exception/VisualBasicAppException.vb b/ApplicationServices/Debugger/Exception/VisualBasicAppException.vb index 1c5a8e6c..1abebb09 100644 --- a/ApplicationServices/Debugger/Exception/VisualBasicAppException.vb +++ b/ApplicationServices/Debugger/Exception/VisualBasicAppException.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::94ae4e0b491c5d095a6e2a53002a395b, ApplicationServices\Debugger\VisualBasicAppException.vb" +#Region "Microsoft.VisualBasic::94ae4e0b491c5d095a6e2a53002a395b, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Exception\VisualBasicAppException.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Logging/EventLog.vb b/ApplicationServices/Debugger/Logging/EventLog.vb index de396141..b9a9694f 100644 --- a/ApplicationServices/Debugger/Logging/EventLog.vb +++ b/ApplicationServices/Debugger/Logging/EventLog.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b0e392b76c5a7ef2f7c5dd8334eb5080, ApplicationServices\Debugger\Logging\EventLog.vb" +#Region "Microsoft.VisualBasic::b0e392b76c5a7ef2f7c5dd8334eb5080, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Logging\EventLog.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Logging/LogFile/LogEntry.vb b/ApplicationServices/Debugger/Logging/LogFile/LogEntry.vb index ab926665..c165fb2d 100644 --- a/ApplicationServices/Debugger/Logging/LogFile/LogEntry.vb +++ b/ApplicationServices/Debugger/Logging/LogFile/LogEntry.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b140e1247998449c2e44aee59c798206, ApplicationServices\Debugger\Logging\LogFile\LogEntry.vb" +#Region "Microsoft.VisualBasic::b140e1247998449c2e44aee59c798206, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Logging\LogFile\LogEntry.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Logging/LogFile/LogFile.vb b/ApplicationServices/Debugger/Logging/LogFile/LogFile.vb index 60658157..89814125 100644 --- a/ApplicationServices/Debugger/Logging/LogFile/LogFile.vb +++ b/ApplicationServices/Debugger/Logging/LogFile/LogFile.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::99634e02bd3bb723482cefb5aa8536d9, ApplicationServices\Debugger\Logging\LogFile\LogFile.vb" +#Region "Microsoft.VisualBasic::99634e02bd3bb723482cefb5aa8536d9, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Logging\LogFile\LogFile.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Logging/LogFile/LogReader.vb b/ApplicationServices/Debugger/Logging/LogFile/LogReader.vb index 2749dc97..cf75aa40 100644 --- a/ApplicationServices/Debugger/Logging/LogFile/LogReader.vb +++ b/ApplicationServices/Debugger/Logging/LogFile/LogReader.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aeac6967faadad97a2c9eea28aa83cc1, ApplicationServices\Debugger\Logging\LogFile\LogReader.vb" +#Region "Microsoft.VisualBasic::aeac6967faadad97a2c9eea28aa83cc1, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Logging\LogFile\LogReader.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Logging/LogFile/MSG_TYPES.vb b/ApplicationServices/Debugger/Logging/LogFile/MSG_TYPES.vb index 342edcc2..55ff8c4e 100644 --- a/ApplicationServices/Debugger/Logging/LogFile/MSG_TYPES.vb +++ b/ApplicationServices/Debugger/Logging/LogFile/MSG_TYPES.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a5a87ff1247563c2eb0d404bbf3c6774, ApplicationServices\Debugger\Logging\LogFile\MSG_TYPES.vb" +#Region "Microsoft.VisualBasic::a5a87ff1247563c2eb0d404bbf3c6774, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Logging\LogFile\MSG_TYPES.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/NETDebugger.vb b/ApplicationServices/Debugger/NETDebugger.vb index a3cee13b..7d415495 100644 --- a/ApplicationServices/Debugger/NETDebugger.vb +++ b/ApplicationServices/Debugger/NETDebugger.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2973138edf1beb9688e7277ff9156880, ApplicationServices\Debugger\NETDebugger.vb" +#Region "Microsoft.VisualBasic::2973138edf1beb9688e7277ff9156880, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\NETDebugger.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/VisualStudioPreviews.vb b/ApplicationServices/Debugger/VisualStudioPreviews.vb index 1de44f37..17f4c0f0 100644 --- a/ApplicationServices/Debugger/VisualStudioPreviews.vb +++ b/ApplicationServices/Debugger/VisualStudioPreviews.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::31fa0cd6ac08db181a93bd8a2614d2c9, ApplicationServices\Debugger\VisualStudioPreviews.vb" +#Region "Microsoft.VisualBasic::31fa0cd6ac08db181a93bd8a2614d2c9, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\VisualStudioPreviews.vb" ' Author: ' diff --git a/ApplicationServices/IOHandler.vb b/ApplicationServices/IOHandler.vb index f7669f16..830964fa 100644 --- a/ApplicationServices/IOHandler.vb +++ b/ApplicationServices/IOHandler.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::94e30bc7355c17ff77226a317b3876c1, ApplicationServices\IOHandler.vb" +#Region "Microsoft.VisualBasic::94e30bc7355c17ff77226a317b3876c1, Microsoft.VisualBasic.Core\ApplicationServices\IOHandler.vb" ' Author: ' diff --git a/ApplicationServices/LanguageHelper/LanguageAttribute.vb b/ApplicationServices/LanguageHelper/LanguageAttribute.vb index 1b299ae7..5dab032b 100644 --- a/ApplicationServices/LanguageHelper/LanguageAttribute.vb +++ b/ApplicationServices/LanguageHelper/LanguageAttribute.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b25e743ee7591c1e71fdaa2fd2db4d63, ApplicationServices\LanguageHelper\LanguageAttribute.vb" +#Region "Microsoft.VisualBasic::b25e743ee7591c1e71fdaa2fd2db4d63, Microsoft.VisualBasic.Core\ApplicationServices\LanguageHelper\LanguageAttribute.vb" ' Author: ' diff --git a/ApplicationServices/LanguageHelper/LanguageHelper.vb b/ApplicationServices/LanguageHelper/LanguageHelper.vb index 1a481452..ca1e7db8 100644 --- a/ApplicationServices/LanguageHelper/LanguageHelper.vb +++ b/ApplicationServices/LanguageHelper/LanguageHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aa2ce89be28d9bbb102c6c1ba1c87a7a, ApplicationServices\LanguageHelper\LanguageHelper.vb" +#Region "Microsoft.VisualBasic::aa2ce89be28d9bbb102c6c1ba1c87a7a, Microsoft.VisualBasic.Core\ApplicationServices\LanguageHelper\LanguageHelper.vb" ' Author: ' diff --git a/ApplicationServices/LanguageHelper/StringResources.vb b/ApplicationServices/LanguageHelper/StringResources.vb index ade386d4..a67ea908 100644 --- a/ApplicationServices/LanguageHelper/StringResources.vb +++ b/ApplicationServices/LanguageHelper/StringResources.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ba85f5e7914cccfad1a4a2adcb3d9fac, ApplicationServices\LanguageHelper\StringResources.vb" +#Region "Microsoft.VisualBasic::ba85f5e7914cccfad1a4a2adcb3d9fac, Microsoft.VisualBasic.Core\ApplicationServices\LanguageHelper\StringResources.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/MMFChannel.vb b/ApplicationServices/Parallel/MMFProtocol/MMFChannel.vb index 5eddfe6c..c125452c 100644 --- a/ApplicationServices/Parallel/MMFProtocol/MMFChannel.vb +++ b/ApplicationServices/Parallel/MMFProtocol/MMFChannel.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ab3c4c8a2c451e14dce950d548490d07, ApplicationServices\Parallel\MMFProtocol\MMFChannel.vb" +#Region "Microsoft.VisualBasic::ab3c4c8a2c451e14dce950d548490d07, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\MMFChannel.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/MapStream/MSReader.vb b/ApplicationServices/Parallel/MMFProtocol/MapStream/MSReader.vb index 595590bb..68ca2447 100644 --- a/ApplicationServices/Parallel/MMFProtocol/MapStream/MSReader.vb +++ b/ApplicationServices/Parallel/MMFProtocol/MapStream/MSReader.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2393125faf83bc9ae53a165797bdd6f1, ApplicationServices\Parallel\MMFProtocol\MapStream\MSReader.vb" +#Region "Microsoft.VisualBasic::2393125faf83bc9ae53a165797bdd6f1, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\MapStream\MSReader.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/MapStream/MSWriter.vb b/ApplicationServices/Parallel/MMFProtocol/MapStream/MSWriter.vb index 1aa99670..91599781 100644 --- a/ApplicationServices/Parallel/MMFProtocol/MapStream/MSWriter.vb +++ b/ApplicationServices/Parallel/MMFProtocol/MapStream/MSWriter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::677cab0ad3137bc4e63a8cf7939e93ae, ApplicationServices\Parallel\MMFProtocol\MapStream\MSWriter.vb" +#Region "Microsoft.VisualBasic::677cab0ad3137bc4e63a8cf7939e93ae, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\MapStream\MSWriter.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/Pipeline/API.vb b/ApplicationServices/Parallel/MMFProtocol/Pipeline/API.vb index 47aedce5..ca75c7b1 100644 --- a/ApplicationServices/Parallel/MMFProtocol/Pipeline/API.vb +++ b/ApplicationServices/Parallel/MMFProtocol/Pipeline/API.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3cb2b985d6842151b781445429322b32, ApplicationServices\Parallel\MMFProtocol\Pipeline\API.vb" +#Region "Microsoft.VisualBasic::3cb2b985d6842151b781445429322b32, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\Pipeline\API.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb index 2cd33368..d26ead1e 100644 --- a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb +++ b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b6eb1b86ae83ffd1e0ceab81f5ca2159, ApplicationServices\Parallel\MMFProtocol\Pipeline\PipeBuffer.vb" +#Region "Microsoft.VisualBasic::b6eb1b86ae83ffd1e0ceab81f5ca2159, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\Pipeline\PipeBuffer.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeStream.vb b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeStream.vb index 35832f9d..6bf90675 100644 --- a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeStream.vb +++ b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9096a916051799d9c0ff6c7e69c083a9, ApplicationServices\Parallel\MMFProtocol\Pipeline\PipeStream.vb" +#Region "Microsoft.VisualBasic::9096a916051799d9c0ff6c7e69c083a9, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\Pipeline\PipeStream.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb b/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb index 1a2f9707..ebacc6ad 100644 --- a/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb +++ b/ApplicationServices/Parallel/MMFProtocol/Pipeline/Pipeline.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b0f12490536f283a929877085408362f, ApplicationServices\Parallel\MMFProtocol\Pipeline\Pipeline.vb" +#Region "Microsoft.VisualBasic::d0d32908bf3f727a46036d0f6bfe8033, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\Pipeline\Pipeline.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/ProcessLock.vb b/ApplicationServices/Parallel/MMFProtocol/ProcessLock.vb index d3c8c072..eaef950f 100644 --- a/ApplicationServices/Parallel/MMFProtocol/ProcessLock.vb +++ b/ApplicationServices/Parallel/MMFProtocol/ProcessLock.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::97968f150921e7fd613c9978de939575, ApplicationServices\Parallel\MMFProtocol\ProcessLock.vb" +#Region "Microsoft.VisualBasic::97968f150921e7fd613c9978de939575, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\ProcessLock.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/WorkFlow.vb b/ApplicationServices/Parallel/MMFProtocol/WorkFlow.vb index af1e0928..305598be 100644 --- a/ApplicationServices/Parallel/MMFProtocol/WorkFlow.vb +++ b/ApplicationServices/Parallel/MMFProtocol/WorkFlow.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aa9a6c158df2b0f6ff46e52ef7b79e28, ApplicationServices\Parallel\MMFProtocol\WorkFlow.vb" +#Region "Microsoft.VisualBasic::aa9a6c158df2b0f6ff46e52ef7b79e28, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\WorkFlow.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/OperationTimeOut.vb b/ApplicationServices/Parallel/OperationTimeOut.vb index c3ee877b..5736ce47 100644 --- a/ApplicationServices/Parallel/OperationTimeOut.vb +++ b/ApplicationServices/Parallel/OperationTimeOut.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8692c0dfaacf8f0e842aa47da86c0416, ApplicationServices\Parallel\OperationTimeOut.vb" +#Region "Microsoft.VisualBasic::0207a3cffa83d75a0e5040b759daa6c3, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\OperationTimeOut.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/Actor(Of T, V).vb b/ApplicationServices/Parallel/Tasks/Actor(Of T, V).vb index 9730a96f..95f83e1f 100644 --- a/ApplicationServices/Parallel/Tasks/Actor(Of T, V).vb +++ b/ApplicationServices/Parallel/Tasks/Actor(Of T, V).vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::afb02982ac0178b827bb2e0d041591f0, ApplicationServices\Parallel\Tasks\Actor(Of T, V).vb" +#Region "Microsoft.VisualBasic::afb02982ac0178b827bb2e0d041591f0, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\Actor(Of T, V).vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/AsyncHandle.vb b/ApplicationServices/Parallel/Tasks/AsyncHandle.vb index 6d82a664..86410256 100644 --- a/ApplicationServices/Parallel/Tasks/AsyncHandle.vb +++ b/ApplicationServices/Parallel/Tasks/AsyncHandle.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0ad42454b00ba27b8315decee04bc742, ApplicationServices\Parallel\Tasks\AsyncHandle.vb" +#Region "Microsoft.VisualBasic::abe0e686dd1e1517f830f2fdbc7dd72f, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\AsyncHandle.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/CallbackTask.vb b/ApplicationServices/Parallel/Tasks/CallbackTask.vb index abf6f25e..3d34147b 100644 --- a/ApplicationServices/Parallel/Tasks/CallbackTask.vb +++ b/ApplicationServices/Parallel/Tasks/CallbackTask.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0cb14b35413196d04634cbeb887b9907, ApplicationServices\Parallel\Tasks\CallbackTask.vb" +#Region "Microsoft.VisualBasic::0cb14b35413196d04634cbeb887b9907, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\CallbackTask.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/IParallelTask.vb b/ApplicationServices/Parallel/Tasks/IParallelTask.vb index 323dd345..68978ab6 100644 --- a/ApplicationServices/Parallel/Tasks/IParallelTask.vb +++ b/ApplicationServices/Parallel/Tasks/IParallelTask.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f1949dc0dd55a5a4f0a9cc72039bcdbc, ApplicationServices\Parallel\Tasks\IParallelTask.vb" +#Region "Microsoft.VisualBasic::f1949dc0dd55a5a4f0a9cc72039bcdbc, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\IParallelTask.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/Task.vb b/ApplicationServices/Parallel/Tasks/Task.vb index 0b2eb4e3..27a56dc4 100644 --- a/ApplicationServices/Parallel/Tasks/Task.vb +++ b/ApplicationServices/Parallel/Tasks/Task.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ace065b1c8fa32d27a4802a089772660, ApplicationServices\Parallel\Tasks\Task.vb" +#Region "Microsoft.VisualBasic::ace065b1c8fa32d27a4802a089772660, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\Task.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/TaskQueue.vb b/ApplicationServices/Parallel/Tasks/TaskQueue.vb index e790b762..9e37cf49 100644 --- a/ApplicationServices/Parallel/Tasks/TaskQueue.vb +++ b/ApplicationServices/Parallel/Tasks/TaskQueue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::956ebcd8a97a2cc25b960fde016dcc9d, ApplicationServices\Parallel\Tasks\TaskQueue.vb" +#Region "Microsoft.VisualBasic::956ebcd8a97a2cc25b960fde016dcc9d, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\TaskQueue.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/UpdateThread.vb b/ApplicationServices/Parallel/Tasks/UpdateThread.vb index 011d761f..1263811f 100644 --- a/ApplicationServices/Parallel/Tasks/UpdateThread.vb +++ b/ApplicationServices/Parallel/Tasks/UpdateThread.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d600fc3bc5d544d05801c901e154e033, ApplicationServices\Parallel\Tasks\UpdateThread.vb" +#Region "Microsoft.VisualBasic::d600fc3bc5d544d05801c901e154e033, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\UpdateThread.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb b/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb index 1fbca841..dc61b797 100644 --- a/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb +++ b/ApplicationServices/Parallel/Tasks/__backgroundTask(Of T).vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::869b09ad14c8f2c6c6f514616cbc3e82, ApplicationServices\Parallel\Tasks\__backgroundTask(Of T).vb" +#Region "Microsoft.VisualBasic::c60deb7b2b37593b3ba785850c01201e, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Tasks\__backgroundTask(Of T).vb" ' Author: ' @@ -34,7 +34,7 @@ ' Delegate Function ' ' - ' Class __backgroundTask + ' Class backgroundTask ' ' Properties: ExecuteException, TaskHandle, Value ' diff --git a/ApplicationServices/Parallel/Threading.vb b/ApplicationServices/Parallel/Threading.vb index 52380705..5abb2c9e 100644 --- a/ApplicationServices/Parallel/Threading.vb +++ b/ApplicationServices/Parallel/Threading.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4aab5d65673186dcf22de324c7b683d1, ApplicationServices\Parallel\Threading.vb" +#Region "Microsoft.VisualBasic::f9683810290dc0fe5b22bfab369b6ce2, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threading.vb" ' Author: ' @@ -34,9 +34,9 @@ ' Module InvokesHelper ' ' Function: Invoke - ' Structure __invokeHelper + ' Structure invokeHelper ' - ' Function: Task + ' Function: RunTask ' ' ' diff --git a/ApplicationServices/Parallel/Threads/BatchTasks.vb b/ApplicationServices/Parallel/Threads/BatchTasks.vb index 127cb7b8..eee8b8d2 100644 --- a/ApplicationServices/Parallel/Threads/BatchTasks.vb +++ b/ApplicationServices/Parallel/Threads/BatchTasks.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d0ce60baace81f393dc0f3e4bc8ddd61, ApplicationServices\Parallel\Threads\BatchTasks.vb" +#Region "Microsoft.VisualBasic::d0ce60baace81f393dc0f3e4bc8ddd61, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\BatchTasks.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/CodeThread.vb b/ApplicationServices/Parallel/Threads/CodeThread.vb index f6ca2116..0d65e067 100644 --- a/ApplicationServices/Parallel/Threads/CodeThread.vb +++ b/ApplicationServices/Parallel/Threads/CodeThread.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8e100823622f774acbd1bd5233f9a410, ApplicationServices\Parallel\Threads\CodeThread.vb" +#Region "Microsoft.VisualBasic::925f82e3918fced638676dee182b7a78, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\CodeThread.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/Groups/DataGroup.vb b/ApplicationServices/Parallel/Threads/Groups/DataGroup.vb index aabda533..2e864243 100644 --- a/ApplicationServices/Parallel/Threads/Groups/DataGroup.vb +++ b/ApplicationServices/Parallel/Threads/Groups/DataGroup.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::19568ecf19640f9af2343dfceba0d3f4, ApplicationServices\Parallel\Threads\Groups\DataGroup.vb" +#Region "Microsoft.VisualBasic::19568ecf19640f9af2343dfceba0d3f4, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\Groups\DataGroup.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/Groups/GroupAPI.vb b/ApplicationServices/Parallel/Threads/Groups/GroupAPI.vb index 77601ed9..445e76c2 100644 --- a/ApplicationServices/Parallel/Threads/Groups/GroupAPI.vb +++ b/ApplicationServices/Parallel/Threads/Groups/GroupAPI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::91c0c7bf05f5cc78570c51304351cd2d, ApplicationServices\Parallel\Threads\Groups\GroupAPI.vb" +#Region "Microsoft.VisualBasic::91c0c7bf05f5cc78570c51304351cd2d, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\Groups\GroupAPI.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb b/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb index 771b1aa7..6eb28ba5 100644 --- a/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb +++ b/ApplicationServices/Parallel/Threads/LQuerySchedule/LQuerySchedule.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2d841996800b3a70e80c0d50dc98e787, ApplicationServices\Parallel\Threads\LQuerySchedule\LQuerySchedule.vb" +#Region "Microsoft.VisualBasic::708662ae342ebb27208a8e66aa4233f7, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\LQuerySchedule\LQuerySchedule.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/LQuerySchedule/Models.vb b/ApplicationServices/Parallel/Threads/LQuerySchedule/Models.vb index 2a9758a1..ad686236 100644 --- a/ApplicationServices/Parallel/Threads/LQuerySchedule/Models.vb +++ b/ApplicationServices/Parallel/Threads/LQuerySchedule/Models.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3be5c17214536ce52cfb48a329ec834f, ApplicationServices\Parallel\Threads\LQuerySchedule\Models.vb" +#Region "Microsoft.VisualBasic::3be5c17214536ce52cfb48a329ec834f, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\LQuerySchedule\Models.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/LQuerySchedule/TaskPartitions.vb b/ApplicationServices/Parallel/Threads/LQuerySchedule/TaskPartitions.vb index 776e63f9..c0b0ea7a 100644 --- a/ApplicationServices/Parallel/Threads/LQuerySchedule/TaskPartitions.vb +++ b/ApplicationServices/Parallel/Threads/LQuerySchedule/TaskPartitions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b2b58862d64fb542fc56e70f154d98a2, ApplicationServices\Parallel\Threads\LQuerySchedule\TaskPartitions.vb" +#Region "Microsoft.VisualBasic::b2b58862d64fb542fc56e70f154d98a2, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\LQuerySchedule\TaskPartitions.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/ParallelExtension.vb b/ApplicationServices/Parallel/Threads/ParallelExtension.vb index 9353aa9c..16ee5ded 100644 --- a/ApplicationServices/Parallel/Threads/ParallelExtension.vb +++ b/ApplicationServices/Parallel/Threads/ParallelExtension.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::add210b8a4f87e7cf23051aaaa02d33d, ApplicationServices\Parallel\Threads\ParallelExtension.vb" +#Region "Microsoft.VisualBasic::d644612bcbf5b4839c5ed206221a2c94, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\ParallelExtension.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/ThreadPool.vb b/ApplicationServices/Parallel/Threads/ThreadPool.vb index 608b2700..daba924d 100644 --- a/ApplicationServices/Parallel/Threads/ThreadPool.vb +++ b/ApplicationServices/Parallel/Threads/ThreadPool.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::428f68cffb11bf82c69327e04c881853, ApplicationServices\Parallel\Threads\ThreadPool.vb" +#Region "Microsoft.VisualBasic::428f68cffb11bf82c69327e04c881853, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\ThreadPool.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/Threads/ThreadQueue.vb b/ApplicationServices/Parallel/Threads/ThreadQueue.vb index 68e5ae2c..e6f46c01 100644 --- a/ApplicationServices/Parallel/Threads/ThreadQueue.vb +++ b/ApplicationServices/Parallel/Threads/ThreadQueue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ee7085a89d6da3f3e69575abf655dfa5, ApplicationServices\Parallel\Threads\ThreadQueue.vb" +#Region "Microsoft.VisualBasic::ee7085a89d6da3f3e69575abf655dfa5, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\Threads\ThreadQueue.vb" ' Author: ' diff --git a/ApplicationServices/ServerModule.vb b/ApplicationServices/ServerModule.vb index f367e096..e08c2efa 100644 --- a/ApplicationServices/ServerModule.vb +++ b/ApplicationServices/ServerModule.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2da983e326a439e3d78ee22104032cec, ApplicationServices\ServerModule.vb" +#Region "Microsoft.VisualBasic::978e12e2ef6e9729f386445dd33bf5d8, Microsoft.VisualBasic.Core\ApplicationServices\ServerModule.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/InteractiveIODevice/HistoryStacks.vb b/ApplicationServices/Terminal/InteractiveIODevice/HistoryStacks.vb index 00628d4a..0749b22f 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/HistoryStacks.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/HistoryStacks.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c8f36b0edfb7202aadaeacfc27e2b874, ApplicationServices\Terminal\InteractiveIODevice\HistoryStacks.vb" +#Region "Microsoft.VisualBasic::c8f36b0edfb7202aadaeacfc27e2b874, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\HistoryStacks.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/InteractiveIODevice/InteractiveDevice.vb b/ApplicationServices/Terminal/InteractiveIODevice/InteractiveDevice.vb index 491ef448..7c3d2165 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/InteractiveDevice.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/InteractiveDevice.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b622c2133a1e54beb409936d192a5a9c, ApplicationServices\Terminal\InteractiveIODevice\InteractiveDevice.vb" +#Region "Microsoft.VisualBasic::b622c2133a1e54beb409936d192a5a9c, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\InteractiveDevice.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb index dc57e020..6eabf4ad 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a596d68f21ddfe88f4f2dacfb45376f7, ApplicationServices\Terminal\InteractiveIODevice\Shell.vb" +#Region "Microsoft.VisualBasic::a596d68f21ddfe88f4f2dacfb45376f7, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\Shell.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/InteractiveIODevice/Terminal.vb b/ApplicationServices/Terminal/InteractiveIODevice/Terminal.vb index 9cbe2c00..ba307957 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/Terminal.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/Terminal.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c08c74a1b5e60c7ce11f1c1dfbde7b00, ApplicationServices\Terminal\InteractiveIODevice\Terminal.vb" +#Region "Microsoft.VisualBasic::c08c74a1b5e60c7ce11f1c1dfbde7b00, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\Terminal.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb b/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb index f60cbd64..4be0639e 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::10a854194c79e6e0a93f21577272dedb, ApplicationServices\Terminal\InteractiveIODevice\TerminalExtensions.vb" +#Region "Microsoft.VisualBasic::10a854194c79e6e0a93f21577272dedb, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\TerminalExtensions.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/PipelineCLI.vb b/ApplicationServices/Terminal/PipelineCLI.vb index a1cf66e9..e9845040 100644 --- a/ApplicationServices/Terminal/PipelineCLI.vb +++ b/ApplicationServices/Terminal/PipelineCLI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2c82045a56ccf9a6611a6f19d9df9155, ApplicationServices\Terminal\PipelineCLI.vb" +#Region "Microsoft.VisualBasic::2c82045a56ccf9a6611a6f19d9df9155, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\PipelineCLI.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/PrintAsTable.vb b/ApplicationServices/Terminal/PrintAsTable.vb index 99732197..5d668274 100644 --- a/ApplicationServices/Terminal/PrintAsTable.vb +++ b/ApplicationServices/Terminal/PrintAsTable.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::87ff800f84a01faadeeb402ebf125a11, ApplicationServices\Terminal\PrintAsTable.vb" +#Region "Microsoft.VisualBasic::87ff800f84a01faadeeb402ebf125a11, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\PrintAsTable.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/ProgressBar/AbstractBar.vb b/ApplicationServices/Terminal/ProgressBar/AbstractBar.vb index cee23935..29559597 100644 --- a/ApplicationServices/Terminal/ProgressBar/AbstractBar.vb +++ b/ApplicationServices/Terminal/ProgressBar/AbstractBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cb989a65864302229727d204bec99e19, ApplicationServices\Terminal\ProgressBar\AbstractBar.vb" +#Region "Microsoft.VisualBasic::cb989a65864302229727d204bec99e19, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\AbstractBar.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/ProgressBar/AnimatedBar.vb b/ApplicationServices/Terminal/ProgressBar/AnimatedBar.vb index fe61690e..3b94185c 100644 --- a/ApplicationServices/Terminal/ProgressBar/AnimatedBar.vb +++ b/ApplicationServices/Terminal/ProgressBar/AnimatedBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::add5e7662691a588b501cb9803aff443, ApplicationServices\Terminal\ProgressBar\AnimatedBar.vb" +#Region "Microsoft.VisualBasic::add5e7662691a588b501cb9803aff443, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\AnimatedBar.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/ProgressBar/Program.vb b/ApplicationServices/Terminal/ProgressBar/Program.vb index 8f8a7fba..fad16354 100644 --- a/ApplicationServices/Terminal/ProgressBar/Program.vb +++ b/ApplicationServices/Terminal/ProgressBar/Program.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ed83e7b7feb6cc4ee61e7cc071105a28, ApplicationServices\Terminal\ProgressBar\Program.vb" +#Region "Microsoft.VisualBasic::ed83e7b7feb6cc4ee61e7cc071105a28, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\Program.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb index 65178163..2a818ee4 100644 --- a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb +++ b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::62654a088843804f9eb38fd9f0772359, ApplicationServices\Terminal\ProgressBar\ProgressBar.vb" +#Region "Microsoft.VisualBasic::3562e8340d57b44a6cb3447221203925, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\ProgressBar.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/ProgressBar/SwayBar.vb b/ApplicationServices/Terminal/ProgressBar/SwayBar.vb index 4ea606e8..50f8d6fb 100644 --- a/ApplicationServices/Terminal/ProgressBar/SwayBar.vb +++ b/ApplicationServices/Terminal/ProgressBar/SwayBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e93d47961896d9fcaad122fc7e9c01ed, ApplicationServices\Terminal\ProgressBar\SwayBar.vb" +#Region "Microsoft.VisualBasic::e93d47961896d9fcaad122fc7e9c01ed, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\SwayBar.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/STDIO__/I_ConsoleDeviceHandle.vb b/ApplicationServices/Terminal/STDIO__/I_ConsoleDeviceHandle.vb index 8af7bda5..cf8da902 100644 --- a/ApplicationServices/Terminal/STDIO__/I_ConsoleDeviceHandle.vb +++ b/ApplicationServices/Terminal/STDIO__/I_ConsoleDeviceHandle.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2aa3a0e8fd3451b671d76bef6a1c3bbc, ApplicationServices\Terminal\STDIO__\I_ConsoleDeviceHandle.vb" +#Region "Microsoft.VisualBasic::2aa3a0e8fd3451b671d76bef6a1c3bbc, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\STDIO__\I_ConsoleDeviceHandle.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/STDIO__/STDIO.vb b/ApplicationServices/Terminal/STDIO__/STDIO.vb index 8d7f7e6c..621017a6 100644 --- a/ApplicationServices/Terminal/STDIO__/STDIO.vb +++ b/ApplicationServices/Terminal/STDIO__/STDIO.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0ecd7b473e0dc43dfa7dec39c98e5467, ApplicationServices\Terminal\STDIO__\STDIO.vb" +#Region "Microsoft.VisualBasic::0ecd7b473e0dc43dfa7dec39c98e5467, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\STDIO__\STDIO.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/STDIO__/Shell.vb b/ApplicationServices/Terminal/STDIO__/Shell.vb index 6536fb3d..8bd31c25 100644 --- a/ApplicationServices/Terminal/STDIO__/Shell.vb +++ b/ApplicationServices/Terminal/STDIO__/Shell.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9739a2dfdefc02b9fe20ca81f03b878d, ApplicationServices\Terminal\STDIO__\Shell.vb" +#Region "Microsoft.VisualBasic::9739a2dfdefc02b9fe20ca81f03b878d, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\STDIO__\Shell.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/CBusyIndicator.vb b/ApplicationServices/Terminal/Utility/CBusyIndicator.vb index e748c4cf..dd97a033 100644 --- a/ApplicationServices/Terminal/Utility/CBusyIndicator.vb +++ b/ApplicationServices/Terminal/Utility/CBusyIndicator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6e8b09e7218d99da99b8ace3223a2777, ApplicationServices\Terminal\Utility\CBusyIndicator.vb" +#Region "Microsoft.VisualBasic::6e8b09e7218d99da99b8ace3223a2777, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\CBusyIndicator.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/ConsolePasswordInput.vb b/ApplicationServices/Terminal/Utility/ConsolePasswordInput.vb index 6e8d6bd9..c16ccd2d 100644 --- a/ApplicationServices/Terminal/Utility/ConsolePasswordInput.vb +++ b/ApplicationServices/Terminal/Utility/ConsolePasswordInput.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a327073d8c1912fb6d47e38285e938b0, ApplicationServices\Terminal\Utility\ConsolePasswordInput.vb" +#Region "Microsoft.VisualBasic::a327073d8c1912fb6d47e38285e938b0, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\ConsolePasswordInput.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/EventProc.vb b/ApplicationServices/Terminal/Utility/EventProc.vb index 5746a61c..154b78d5 100644 --- a/ApplicationServices/Terminal/Utility/EventProc.vb +++ b/ApplicationServices/Terminal/Utility/EventProc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a55db275422fac8c7cd30fc5b1d99117, ApplicationServices\Terminal\Utility\EventProc.vb" +#Region "Microsoft.VisualBasic::a55db275422fac8c7cd30fc5b1d99117, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\EventProc.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/ManualPages.vb b/ApplicationServices/Terminal/Utility/ManualPages.vb index 61d0e226..785fe3ce 100644 --- a/ApplicationServices/Terminal/Utility/ManualPages.vb +++ b/ApplicationServices/Terminal/Utility/ManualPages.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::022c48ff60aa11fbd66b2c657c58ba1c, ApplicationServices\Terminal\Utility\ManualPages.vb" +#Region "Microsoft.VisualBasic::022c48ff60aa11fbd66b2c657c58ba1c, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\ManualPages.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/xConsole/Helpers.vb b/ApplicationServices/Terminal/xConsole/Helpers.vb index ae8d96a0..6010fb8b 100644 --- a/ApplicationServices/Terminal/xConsole/Helpers.vb +++ b/ApplicationServices/Terminal/xConsole/Helpers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4efecaebf76db9799527811db18dd578, ApplicationServices\Terminal\xConsole\Helpers.vb" +#Region "Microsoft.VisualBasic::4efecaebf76db9799527811db18dd578, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\Helpers.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/xConsole/xConsole.vb b/ApplicationServices/Terminal/xConsole/xConsole.vb index cde10872..c460547b 100644 --- a/ApplicationServices/Terminal/xConsole/xConsole.vb +++ b/ApplicationServices/Terminal/xConsole/xConsole.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a8251d66048cbc47fdba172bdaeb7f54, ApplicationServices\Terminal\xConsole\xConsole.vb" +#Region "Microsoft.VisualBasic::a8251d66048cbc47fdba172bdaeb7f54, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\xConsole.vb" ' Author: ' diff --git a/ApplicationServices/Tools/GMailClient.vb b/ApplicationServices/Tools/GMailClient.vb index 04f2f31b..4ed8d6ae 100644 --- a/ApplicationServices/Tools/GMailClient.vb +++ b/ApplicationServices/Tools/GMailClient.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::079bb93832659dcad79f67bc008fa45b, ApplicationServices\Tools\GMailClient.vb" +#Region "Microsoft.VisualBasic::079bb93832659dcad79f67bc008fa45b, Microsoft.VisualBasic.Core\ApplicationServices\Tools\GMailClient.vb" ' Author: ' diff --git a/ApplicationServices/Tools/OSVersionInfo.vb b/ApplicationServices/Tools/OSVersionInfo.vb index d570eff6..fe699541 100644 --- a/ApplicationServices/Tools/OSVersionInfo.vb +++ b/ApplicationServices/Tools/OSVersionInfo.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3c118018626760676a3fc9601c964582, ApplicationServices\Tools\OSVersionInfo.vb" +#Region "Microsoft.VisualBasic::3c118018626760676a3fc9601c964582, Microsoft.VisualBasic.Core\ApplicationServices\Tools\OSVersionInfo.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Plugin/Loader.vb b/ApplicationServices/Tools/Plugin/Loader.vb index 72bdfd62..49adb8af 100644 --- a/ApplicationServices/Tools/Plugin/Loader.vb +++ b/ApplicationServices/Tools/Plugin/Loader.vb @@ -1,4 +1,46 @@ -Imports System.Reflection +#Region "Microsoft.VisualBasic::63c9989b77b6b1b04de901c0e5f438ac, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Plugin\Loader.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: + + ' Module Loader + ' + ' Function: GetPluginMethod + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Reflection Namespace ApplicationServices.Plugin @@ -36,4 +78,4 @@ Namespace ApplicationServices.Plugin Return Nothing End Function End Module -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/Tools/Plugin/PluginAttribute.vb b/ApplicationServices/Tools/Plugin/PluginAttribute.vb index 0c28f3bf..cd8a4b60 100644 --- a/ApplicationServices/Tools/Plugin/PluginAttribute.vb +++ b/ApplicationServices/Tools/Plugin/PluginAttribute.vb @@ -1,4 +1,49 @@ -Namespace ApplicationServices.Plugin +#Region "Microsoft.VisualBasic::de6cfa0c844217dfe9ea5a05146b4413, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Plugin\PluginAttribute.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 PluginAttribute + ' + ' Properties: UniqueKey + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: ToString + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace ApplicationServices.Plugin Public Class PluginAttribute : Inherits Attribute @@ -13,4 +58,4 @@ Return UniqueKey End Function End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/Tools/Resources.vb b/ApplicationServices/Tools/Resources.vb index 0dea1d2b..ae9f5312 100644 --- a/ApplicationServices/Tools/Resources.vb +++ b/ApplicationServices/Tools/Resources.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::342a6de1f7bc3c807986dc5a2d76b044, ApplicationServices\Tools\Resources.vb" +#Region "Microsoft.VisualBasic::342a6de1f7bc3c807986dc5a2d76b044, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Resources.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Win32/GetLastErrorAPI.vb b/ApplicationServices/Tools/Win32/GetLastErrorAPI.vb index 24d2d997..b84a7beb 100644 --- a/ApplicationServices/Tools/Win32/GetLastErrorAPI.vb +++ b/ApplicationServices/Tools/Win32/GetLastErrorAPI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dd20f5bcd1d85cfbb30980c437ecdbb1, ApplicationServices\Tools\Win32\GetLastErrorAPI.vb" +#Region "Microsoft.VisualBasic::dd20f5bcd1d85cfbb30980c437ecdbb1, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\GetLastErrorAPI.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Win32/HardwareInfo.vb b/ApplicationServices/Tools/Win32/HardwareInfo.vb index 9d41ac03..490bffa1 100644 --- a/ApplicationServices/Tools/Win32/HardwareInfo.vb +++ b/ApplicationServices/Tools/Win32/HardwareInfo.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::569e94a0eee2f4b49b160f19eb302c50, ApplicationServices\Tools\Win32\HardwareInfo.vb" +#Region "Microsoft.VisualBasic::569e94a0eee2f4b49b160f19eb302c50, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\HardwareInfo.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Win32/PriorityClass.vb b/ApplicationServices/Tools/Win32/PriorityClass.vb index 506828c4..a4f1ba91 100644 --- a/ApplicationServices/Tools/Win32/PriorityClass.vb +++ b/ApplicationServices/Tools/Win32/PriorityClass.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d2fb9c656753077274a4c14b6c3ef9d6, ApplicationServices\Tools\Win32\PriorityClass.vb" +#Region "Microsoft.VisualBasic::d2fb9c656753077274a4c14b6c3ef9d6, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\PriorityClass.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Win32/TaskManager.vb b/ApplicationServices/Tools/Win32/TaskManager.vb index c47a8928..27215db0 100644 --- a/ApplicationServices/Tools/Win32/TaskManager.vb +++ b/ApplicationServices/Tools/Win32/TaskManager.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6dac82a5a59fa93194bba41263b84e65, ApplicationServices\Tools\Win32\TaskManager.vb" +#Region "Microsoft.VisualBasic::6dac82a5a59fa93194bba41263b84e65, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\TaskManager.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Win32/Win32API.vb b/ApplicationServices/Tools/Win32/Win32API.vb index f89634ae..708cfc52 100644 --- a/ApplicationServices/Tools/Win32/Win32API.vb +++ b/ApplicationServices/Tools/Win32/Win32API.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a8249973c8caf43e37764fb9bbd8e1f2, ApplicationServices\Tools\Win32\Win32API.vb" +#Region "Microsoft.VisualBasic::a8249973c8caf43e37764fb9bbd8e1f2, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\Win32API.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Win32/Win32File.vb b/ApplicationServices/Tools/Win32/Win32File.vb index c6e1fbbe..5e137ddf 100644 --- a/ApplicationServices/Tools/Win32/Win32File.vb +++ b/ApplicationServices/Tools/Win32/Win32File.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5fabdcf92fe163a9b8eff4cd5bd91ce1, ApplicationServices\Tools\Win32\Win32File.vb" +#Region "Microsoft.VisualBasic::5fabdcf92fe163a9b8eff4cd5bd91ce1, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\Win32File.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Win32/WindowsServices.vb b/ApplicationServices/Tools/Win32/WindowsServices.vb index 5b2d3e8e..88d98208 100644 --- a/ApplicationServices/Tools/Win32/WindowsServices.vb +++ b/ApplicationServices/Tools/Win32/WindowsServices.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b43dd450ac1875ebd780ed6c399af063, ApplicationServices\Tools\Win32\WindowsServices.vb" +#Region "Microsoft.VisualBasic::b43dd450ac1875ebd780ed6c399af063, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\WindowsServices.vb" ' Author: ' diff --git a/ApplicationServices/Tools/WinForm/ChromeUIRender.vb b/ApplicationServices/Tools/WinForm/ChromeUIRender.vb index 376a8515..25728462 100644 --- a/ApplicationServices/Tools/WinForm/ChromeUIRender.vb +++ b/ApplicationServices/Tools/WinForm/ChromeUIRender.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a52f224044e46fb7dcafc4ecf1739dbf, ApplicationServices\Tools\WinForm\ChromeUIRender.vb" +#Region "Microsoft.VisualBasic::a52f224044e46fb7dcafc4ecf1739dbf, Microsoft.VisualBasic.Core\ApplicationServices\Tools\WinForm\ChromeUIRender.vb" ' Author: ' diff --git a/ApplicationServices/Tools/WinForm/Extensions.vb b/ApplicationServices/Tools/WinForm/Extensions.vb index bc3eb85c..6a13ed9d 100644 --- a/ApplicationServices/Tools/WinForm/Extensions.vb +++ b/ApplicationServices/Tools/WinForm/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::29a9366500996532fe82cc1072f8675c, ApplicationServices\Tools\WinForm\Extensions.vb" +#Region "Microsoft.VisualBasic::29a9366500996532fe82cc1072f8675c, Microsoft.VisualBasic.Core\ApplicationServices\Tools\WinForm\Extensions.vb" ' Author: ' diff --git a/ApplicationServices/Tools/WinForm/MockForm.vb b/ApplicationServices/Tools/WinForm/MockForm.vb index 47ef538d..b10bf636 100644 --- a/ApplicationServices/Tools/WinForm/MockForm.vb +++ b/ApplicationServices/Tools/WinForm/MockForm.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4bb180cca46a978033e3eabfbdcbe73e, ApplicationServices\Tools\WinForm\MockForm.vb" +#Region "Microsoft.VisualBasic::4bb180cca46a978033e3eabfbdcbe73e, Microsoft.VisualBasic.Core\ApplicationServices\Tools\WinForm\MockForm.vb" ' Author: ' diff --git a/ApplicationServices/Tools/WinForm/SingleInstanceFormEntry.vb b/ApplicationServices/Tools/WinForm/SingleInstanceFormEntry.vb index efb1f20f..04dd90c9 100644 --- a/ApplicationServices/Tools/WinForm/SingleInstanceFormEntry.vb +++ b/ApplicationServices/Tools/WinForm/SingleInstanceFormEntry.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4e83cbcb6c757991f46eb5759cd104d0, ApplicationServices\Tools\WinForm\SingleInstanceFormEntry.vb" +#Region "Microsoft.VisualBasic::4e83cbcb6c757991f46eb5759cd104d0, Microsoft.VisualBasic.Core\ApplicationServices\Tools\WinForm\SingleInstanceFormEntry.vb" ' Author: ' diff --git a/ApplicationServices/Tools/WinForm/VistaSecurity.vb b/ApplicationServices/Tools/WinForm/VistaSecurity.vb index 3c323907..5d97b23e 100644 --- a/ApplicationServices/Tools/WinForm/VistaSecurity.vb +++ b/ApplicationServices/Tools/WinForm/VistaSecurity.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7e3b7e103b4668634dc99b2fde490ce0, ApplicationServices\Tools\WinForm\VistaSecurity.vb" +#Region "Microsoft.VisualBasic::7e3b7e103b4668634dc99b2fde490ce0, Microsoft.VisualBasic.Core\ApplicationServices\Tools\WinForm\VistaSecurity.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Zip/Options.vb b/ApplicationServices/Tools/Zip/Options.vb index cc374526..a6e481cd 100644 --- a/ApplicationServices/Tools/Zip/Options.vb +++ b/ApplicationServices/Tools/Zip/Options.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ebdf46fff322a8fbaf22989b286305b2, ApplicationServices\Tools\Zip\Options.vb" +#Region "Microsoft.VisualBasic::ebdf46fff322a8fbaf22989b286305b2, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\Options.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Zip/StreamReader.vb b/ApplicationServices/Tools/Zip/StreamReader.vb index 70d9a90e..19704cfd 100644 --- a/ApplicationServices/Tools/Zip/StreamReader.vb +++ b/ApplicationServices/Tools/Zip/StreamReader.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a7764170bb2462a44609972063c01f91, ApplicationServices\Tools\Zip\StreamReader.vb" +#Region "Microsoft.VisualBasic::a7764170bb2462a44609972063c01f91, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\StreamReader.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Zip/UnZip.vb b/ApplicationServices/Tools/Zip/UnZip.vb index 8fc7e47e..ff9b8c48 100644 --- a/ApplicationServices/Tools/Zip/UnZip.vb +++ b/ApplicationServices/Tools/Zip/UnZip.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c75882c2ae2d3f489422ea4953d52775, ApplicationServices\Tools\Zip\UnZip.vb" +#Region "Microsoft.VisualBasic::c75882c2ae2d3f489422ea4953d52775, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\UnZip.vb" ' Author: ' diff --git a/ApplicationServices/Tools/Zip/ZipLib.vb b/ApplicationServices/Tools/Zip/ZipLib.vb index 24046f9d..fd59ea60 100644 --- a/ApplicationServices/Tools/Zip/ZipLib.vb +++ b/ApplicationServices/Tools/Zip/ZipLib.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d1c59b3d414151d828ccee637dc6b49d, ApplicationServices\Tools\Zip\ZipLib.vb" +#Region "Microsoft.VisualBasic::d1c59b3d414151d828ccee637dc6b49d, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\ZipLib.vb" ' Author: ' diff --git a/ApplicationServices/Utils.vb b/ApplicationServices/Utils.vb index bea55c15..a4d7fb55 100644 --- a/ApplicationServices/Utils.vb +++ b/ApplicationServices/Utils.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5a7f6e6c12029e7e628810bd183163fe, ApplicationServices\Utils.vb" +#Region "Microsoft.VisualBasic::5a7f6e6c12029e7e628810bd183163fe, Microsoft.VisualBasic.Core\ApplicationServices\Utils.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/ApplicationInfoUtils.vb b/ApplicationServices/VBDev/ApplicationInfoUtils.vb index d99f107e..d5139890 100644 --- a/ApplicationServices/VBDev/ApplicationInfoUtils.vb +++ b/ApplicationServices/VBDev/ApplicationInfoUtils.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2123247c2dbf0e64ee9e4932a216e17b, ApplicationServices\VBDev\ApplicationInfoUtils.vb" +#Region "Microsoft.VisualBasic::2123247c2dbf0e64ee9e4932a216e17b, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\ApplicationInfoUtils.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/NamespaceDoc.vb b/ApplicationServices/VBDev/NamespaceDoc.vb index c1309a0d..dae0d6da 100644 --- a/ApplicationServices/VBDev/NamespaceDoc.vb +++ b/ApplicationServices/VBDev/NamespaceDoc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d326f1cea6f71bb0f99f44fb78e24b3c, ApplicationServices\VBDev\NamespaceDoc.vb" +#Region "Microsoft.VisualBasic::d326f1cea6f71bb0f99f44fb78e24b3c, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\NamespaceDoc.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/Ngen/Ngen.vb b/ApplicationServices/VBDev/Ngen/Ngen.vb index 7fd20fcf..92210adc 100644 --- a/ApplicationServices/VBDev/Ngen/Ngen.vb +++ b/ApplicationServices/VBDev/Ngen/Ngen.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6b310ee0f8bdbd4e9321dc03255d2197, ApplicationServices\VBDev\Ngen\Ngen.vb" +#Region "Microsoft.VisualBasic::6b310ee0f8bdbd4e9321dc03255d2197, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\Ngen\Ngen.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/Ngen/Registry.vb b/ApplicationServices/VBDev/Ngen/Registry.vb index f6f93e44..6a9abc6b 100644 --- a/ApplicationServices/VBDev/Ngen/Registry.vb +++ b/ApplicationServices/VBDev/Ngen/Registry.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::64625ae6702b8f28df8c85a6224313e0, ApplicationServices\VBDev\Ngen\Registry.vb" +#Region "Microsoft.VisualBasic::64625ae6702b8f28df8c85a6224313e0, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\Ngen\Registry.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/Signature/CodeSign.vb b/ApplicationServices/VBDev/Signature/CodeSign.vb index bafc5536..04db91be 100644 --- a/ApplicationServices/VBDev/Signature/CodeSign.vb +++ b/ApplicationServices/VBDev/Signature/CodeSign.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::54168908a8a088c83e19233d15cbb460, ApplicationServices\VBDev\Signature\CodeSign.vb" +#Region "Microsoft.VisualBasic::dd2889b664c11a2f7e649fa774042171, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\Signature\CodeSign.vb" ' Author: ' @@ -33,16 +33,7 @@ ' Module CodeSign ' - ' - ' Enum Languages - ' - ' PHP, R, TypeScript, VisualBasic - ' - ' - ' - ' - ' - ' Function: ParseHeaderRegion, SignCode + ' Function: ParseHeaderRegion, SignCode ' ' ' /********************************************************************************/ diff --git a/ApplicationServices/VBDev/Signature/LicenseInfo.vb b/ApplicationServices/VBDev/Signature/LicenseInfo.vb index 62730b52..3c0edd21 100644 --- a/ApplicationServices/VBDev/Signature/LicenseInfo.vb +++ b/ApplicationServices/VBDev/Signature/LicenseInfo.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6e209f6e9b16a9f7d548e3d0e98f638f, ApplicationServices\VBDev\Signature\LicenseInfo.vb" +#Region "Microsoft.VisualBasic::6e209f6e9b16a9f7d548e3d0e98f638f, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\Signature\LicenseInfo.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/Signature/LicenseMgr.vb b/ApplicationServices/VBDev/Signature/LicenseMgr.vb index 1ea9ef0c..6073e81d 100644 --- a/ApplicationServices/VBDev/Signature/LicenseMgr.vb +++ b/ApplicationServices/VBDev/Signature/LicenseMgr.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a1c14c20f2acf914567e924bd797f5b1, ApplicationServices\VBDev\Signature\LicenseMgr.vb" +#Region "Microsoft.VisualBasic::a1c14c20f2acf914567e924bd797f5b1, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\Signature\LicenseMgr.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/Signature/SupportedLanguages.vb b/ApplicationServices/VBDev/Signature/SupportedLanguages.vb index 0cf61eea..029110bc 100644 --- a/ApplicationServices/VBDev/Signature/SupportedLanguages.vb +++ b/ApplicationServices/VBDev/Signature/SupportedLanguages.vb @@ -1,4 +1,50 @@ -Namespace ApplicationServices.Development +#Region "Microsoft.VisualBasic::fa192dc8778c6bcd4976992fe2af7087, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\Signature\SupportedLanguages.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: + + ' Enum Languages + ' + ' PHP, R, TypeScript, VisualBasic + ' + ' + ' + ' + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace ApplicationServices.Development Public Enum Languages VisualBasic @@ -6,4 +52,4 @@ PHP TypeScript End Enum -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/VBDev/Signature/VBCodeSignature.vb b/ApplicationServices/VBDev/Signature/VBCodeSignature.vb index 2dcf4250..1903c757 100644 --- a/ApplicationServices/VBDev/Signature/VBCodeSignature.vb +++ b/ApplicationServices/VBDev/Signature/VBCodeSignature.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1b37f25638311a163beee708b6f8bb00, ApplicationServices\VBDev\Signature\VBCodeSignature.vb" +#Region "Microsoft.VisualBasic::1b37f25638311a163beee708b6f8bb00, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\Signature\VBCodeSignature.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb b/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb index 109e5180..9fad13da 100644 --- a/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb +++ b/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4825eb0012b5c1f3ebc20d5daefdc2b7, ApplicationServices\VBDev\XmlDoc\Extensions\APIExtensions2.vb" +#Region "Microsoft.VisualBasic::4825eb0012b5c1f3ebc20d5daefdc2b7, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Extensions\APIExtensions2.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Extensions/VBSpecific.vb b/ApplicationServices/VBDev/XmlDoc/Extensions/VBSpecific.vb index 9cb7b455..7a26df09 100644 --- a/ApplicationServices/VBDev/XmlDoc/Extensions/VBSpecific.vb +++ b/ApplicationServices/VBDev/XmlDoc/Extensions/VBSpecific.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c2762ad3badc4447e689aa531abc5415, ApplicationServices\VBDev\XmlDoc\Extensions\VBSpecific.vb" +#Region "Microsoft.VisualBasic::c2762ad3badc4447e689aa531abc5415, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Extensions\VBSpecific.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Project.vb b/ApplicationServices/VBDev/XmlDoc/Project.vb index 933fce3e..ca526133 100644 --- a/ApplicationServices/VBDev/XmlDoc/Project.vb +++ b/ApplicationServices/VBDev/XmlDoc/Project.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::14685b62362d8b6d4e76108e94b7b3b5, ApplicationServices\VBDev\XmlDoc\Project.vb" +#Region "Microsoft.VisualBasic::14685b62362d8b6d4e76108e94b7b3b5, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Project.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/ProjectMember.vb b/ApplicationServices/VBDev/XmlDoc/ProjectMember.vb index e1d29e3c..07b1020f 100644 --- a/ApplicationServices/VBDev/XmlDoc/ProjectMember.vb +++ b/ApplicationServices/VBDev/XmlDoc/ProjectMember.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::97c5b5808964bc177799fc805f9eb683, ApplicationServices\VBDev\XmlDoc\ProjectMember.vb" +#Region "Microsoft.VisualBasic::97c5b5808964bc177799fc805f9eb683, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\ProjectMember.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb b/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb index 6797c52d..9be4a39c 100644 --- a/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb +++ b/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aa742310460cc18ff1701b360d567bc7, ApplicationServices\VBDev\XmlDoc\ProjectNamespace.vb" +#Region "Microsoft.VisualBasic::aa742310460cc18ff1701b360d567bc7, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\ProjectNamespace.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb b/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb index 6eccd146..565295eb 100644 --- a/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb +++ b/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::72583ecbe0ad701ec1f8fbc8c7be7a1c, ApplicationServices\VBDev\XmlDoc\ProjectSpace.vb" +#Region "Microsoft.VisualBasic::72583ecbe0ad701ec1f8fbc8c7be7a1c, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\ProjectSpace.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/ProjectType.vb b/ApplicationServices/VBDev/XmlDoc/ProjectType.vb index b42c3007..b4c691a7 100644 --- a/ApplicationServices/VBDev/XmlDoc/ProjectType.vb +++ b/ApplicationServices/VBDev/XmlDoc/ProjectType.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c252ce7e2743d86c472f5af9a6b501e1, ApplicationServices\VBDev\XmlDoc\ProjectType.vb" +#Region "Microsoft.VisualBasic::c252ce7e2743d86c472f5af9a6b501e1, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\ProjectType.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions.vb b/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions.vb index 8b3560d5..aa416269 100644 --- a/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions.vb +++ b/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7298a9a30a05a1c83524147a5d214f5c, ApplicationServices\VBDev\XmlDoc\Serialization\APIExtensions.vb" +#Region "Microsoft.VisualBasic::7298a9a30a05a1c83524147a5d214f5c, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Serialization\APIExtensions.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions2.vb b/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions2.vb index 4ff3c6cf..5eea4368 100644 --- a/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions2.vb +++ b/ApplicationServices/VBDev/XmlDoc/Serialization/APIExtensions2.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c9e138543849a97e4d555996abd710cf, ApplicationServices\VBDev\XmlDoc\Serialization\APIExtensions2.vb" +#Region "Microsoft.VisualBasic::c9e138543849a97e4d555996abd710cf, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Serialization\APIExtensions2.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Doc.vb b/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Doc.vb index 34619866..608ec844 100644 --- a/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Doc.vb +++ b/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Doc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5d3d1d04a1aa244b9b8318273a109441, ApplicationServices\VBDev\XmlDoc\Serialization\Models\Doc.vb" +#Region "Microsoft.VisualBasic::5d3d1d04a1aa244b9b8318273a109441, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Serialization\Models\Doc.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Member.vb b/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Member.vb index 8c2e1890..d9a98503 100644 --- a/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Member.vb +++ b/ApplicationServices/VBDev/XmlDoc/Serialization/Models/Member.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7349ed8a280f9c2257cbc7d637d3d2dc, ApplicationServices\VBDev\XmlDoc\Serialization\Models\Member.vb" +#Region "Microsoft.VisualBasic::7349ed8a280f9c2257cbc7d637d3d2dc, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Serialization\Models\Member.vb" ' Author: ' diff --git a/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb b/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb index 13bedcde..8e388da3 100644 --- a/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb +++ b/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5e5c81b520ee5bc426622c3be0d8268e, ApplicationServices\VBDev\XmlDoc\Serialization\NamespaceDoc.vb" +#Region "Microsoft.VisualBasic::5e5c81b520ee5bc426622c3be0d8268e, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\Serialization\NamespaceDoc.vb" ' Author: ' diff --git a/CommandLine/CLI/IIORedirectAbstract.vb b/CommandLine/CLI/IIORedirectAbstract.vb index 11f0cd87..41eddb19 100644 --- a/CommandLine/CLI/IIORedirectAbstract.vb +++ b/CommandLine/CLI/IIORedirectAbstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::243559093d758b5dce647e9e05713362, CommandLine\CLI\IIORedirectAbstract.vb" +#Region "Microsoft.VisualBasic::243559093d758b5dce647e9e05713362, Microsoft.VisualBasic.Core\CommandLine\CLI\IIORedirectAbstract.vb" ' Author: ' diff --git a/CommandLine/CLI/IORedirect.vb b/CommandLine/CLI/IORedirect.vb index 6c278785..fcc07f6b 100644 --- a/CommandLine/CLI/IORedirect.vb +++ b/CommandLine/CLI/IORedirect.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a3471837b8895154ee1106f6135a2fed, CommandLine\CLI\IORedirect.vb" +#Region "Microsoft.VisualBasic::a3471837b8895154ee1106f6135a2fed, Microsoft.VisualBasic.Core\CommandLine\CLI\IORedirect.vb" ' Author: ' diff --git a/CommandLine/CLI/IORedirectFile.vb b/CommandLine/CLI/IORedirectFile.vb index 2f0d60dc..f9399372 100644 --- a/CommandLine/CLI/IORedirectFile.vb +++ b/CommandLine/CLI/IORedirectFile.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c2622e56797782ff7ecee40e1c895766, CommandLine\CLI\IORedirectFile.vb" +#Region "Microsoft.VisualBasic::c2622e56797782ff7ecee40e1c895766, Microsoft.VisualBasic.Core\CommandLine\CLI\IORedirectFile.vb" ' Author: ' diff --git a/CommandLine/CLI/ProcExtensions.vb b/CommandLine/CLI/ProcExtensions.vb index 7817130c..379d03f4 100644 --- a/CommandLine/CLI/ProcExtensions.vb +++ b/CommandLine/CLI/ProcExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0c5d4db15b39642422e000842d5f6b9b, CommandLine\CLI\ProcExtensions.vb" +#Region "Microsoft.VisualBasic::0c5d4db15b39642422e000842d5f6b9b, Microsoft.VisualBasic.Core\CommandLine\CLI\ProcExtensions.vb" ' Author: ' diff --git a/CommandLine/CLI/Scripting.vb b/CommandLine/CLI/Scripting.vb index 6d72c48c..fd2551a3 100644 --- a/CommandLine/CLI/Scripting.vb +++ b/CommandLine/CLI/Scripting.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::43f3eea17d8ad201c092583195b3e1ed, CommandLine\CLI\Scripting.vb" +#Region "Microsoft.VisualBasic::43f3eea17d8ad201c092583195b3e1ed, Microsoft.VisualBasic.Core\CommandLine\CLI\Scripting.vb" ' Author: ' diff --git a/CommandLine/CLIMapper.vb b/CommandLine/CLIMapper.vb index 6b41a5be..f8e44b92 100644 --- a/CommandLine/CLIMapper.vb +++ b/CommandLine/CLIMapper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d0bd8ff98c817e8b3ab04032760e6d74, CommandLine\CLIMapper.vb" +#Region "Microsoft.VisualBasic::d0bd8ff98c817e8b3ab04032760e6d74, Microsoft.VisualBasic.Core\CommandLine\CLIMapper.vb" ' Author: ' diff --git a/CommandLine/CLITools.vb b/CommandLine/CLITools.vb index e9cd564e..40fe0e9d 100644 --- a/CommandLine/CLITools.vb +++ b/CommandLine/CLITools.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::50dde47202ca31fb123169568f81031d, CommandLine\CLITools.vb" +#Region "Microsoft.VisualBasic::117f5bb9d589f01614330c293222e0f2, Microsoft.VisualBasic.Core\CommandLine\CLITools.vb" ' Author: ' diff --git a/CommandLine/CliResCommon.vb b/CommandLine/CliResCommon.vb index bca71d3a..e41966ef 100644 --- a/CommandLine/CliResCommon.vb +++ b/CommandLine/CliResCommon.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4997b427ff7828d26117155c6bab2511, CommandLine\CliResCommon.vb" +#Region "Microsoft.VisualBasic::4997b427ff7828d26117155c6bab2511, Microsoft.VisualBasic.Core\CommandLine\CliResCommon.vb" ' Author: ' diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 5b434406..4383af7f 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d60e9df563cbc7d7961cac24ae628634, CommandLine\CommandLine.vb" +#Region "Microsoft.VisualBasic::76b4ad7b6cd2cc591aaa43081c682f68, Microsoft.VisualBasic.Core\CommandLine\CommandLine.vb" ' Author: ' diff --git a/CommandLine/InteropService/Abstract.vb b/CommandLine/InteropService/Abstract.vb index 1b0eb33d..af1b2401 100644 --- a/CommandLine/InteropService/Abstract.vb +++ b/CommandLine/InteropService/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d7497de54115f6639b4080343f28b85c, CommandLine\InteropService\Abstract.vb" +#Region "Microsoft.VisualBasic::d7497de54115f6639b4080343f28b85c, Microsoft.VisualBasic.Core\CommandLine\InteropService\Abstract.vb" ' Author: ' diff --git a/CommandLine/InteropService/CLIAbstractor.vb b/CommandLine/InteropService/CLIAbstractor.vb index 2430c820..e1f02139 100644 --- a/CommandLine/InteropService/CLIAbstractor.vb +++ b/CommandLine/InteropService/CLIAbstractor.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::620a74df1490b707ca723085e2996b2e, CommandLine\InteropService\CLIAbstractor.vb" +#Region "Microsoft.VisualBasic::620a74df1490b707ca723085e2996b2e, Microsoft.VisualBasic.Core\CommandLine\InteropService\CLIAbstractor.vb" ' Author: ' diff --git a/CommandLine/InteropService/CLIBuilder.vb b/CommandLine/InteropService/CLIBuilder.vb index c03c7d27..c8832357 100644 --- a/CommandLine/InteropService/CLIBuilder.vb +++ b/CommandLine/InteropService/CLIBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::148d340e1974785080809fd0f39de3df, CommandLine\InteropService\CLIBuilder.vb" +#Region "Microsoft.VisualBasic::148d340e1974785080809fd0f39de3df, Microsoft.VisualBasic.Core\CommandLine\InteropService\CLIBuilder.vb" ' Author: ' diff --git a/CommandLine/InteropService/InCompatible.vb b/CommandLine/InteropService/InCompatible.vb index e774579b..4b64af89 100644 --- a/CommandLine/InteropService/InCompatible.vb +++ b/CommandLine/InteropService/InCompatible.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d3381a220021d85959f81ad7dab17afc, CommandLine\InteropService\InCompatible.vb" +#Region "Microsoft.VisualBasic::d3381a220021d85959f81ad7dab17afc, Microsoft.VisualBasic.Core\CommandLine\InteropService\InCompatible.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/API.vb b/CommandLine/InteropService/SharedORM/API.vb index d87fa1ab..d7fb443f 100644 --- a/CommandLine/InteropService/SharedORM/API.vb +++ b/CommandLine/InteropService/SharedORM/API.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6016951a6b4aae9d931bc139a1a4cd19, CommandLine\InteropService\SharedORM\API.vb" +#Region "Microsoft.VisualBasic::6016951a6b4aae9d931bc139a1a4cd19, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\API.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/CLI.vb b/CommandLine/InteropService/SharedORM/CLI.vb index eefef70d..3c0ca58b 100644 --- a/CommandLine/InteropService/SharedORM/CLI.vb +++ b/CommandLine/InteropService/SharedORM/CLI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fbedf0252652f4d03e94a8db319af729, CommandLine\InteropService\SharedORM\CLI.vb" +#Region "Microsoft.VisualBasic::fbedf0252652f4d03e94a8db319af729, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\CLI.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/CodeGenerator.vb b/CommandLine/InteropService/SharedORM/CodeGenerator.vb index 53992a80..763e5dbf 100644 --- a/CommandLine/InteropService/SharedORM/CodeGenerator.vb +++ b/CommandLine/InteropService/SharedORM/CodeGenerator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dee18c385910bba9c50b797ed61de515, CommandLine\InteropService\SharedORM\CodeGenerator.vb" +#Region "Microsoft.VisualBasic::dee18c385910bba9c50b797ed61de515, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\CodeGenerator.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/PHP.vb b/CommandLine/InteropService/SharedORM/PHP.vb index b5432d45..86455773 100644 --- a/CommandLine/InteropService/SharedORM/PHP.vb +++ b/CommandLine/InteropService/SharedORM/PHP.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0288d0bb5b1e1276578f59b45c3a32af, CommandLine\InteropService\SharedORM\PHP.vb" +#Region "Microsoft.VisualBasic::0288d0bb5b1e1276578f59b45c3a32af, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\PHP.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/Perl.vb b/CommandLine/InteropService/SharedORM/Perl.vb index 32409080..22a3eb8b 100644 --- a/CommandLine/InteropService/SharedORM/Perl.vb +++ b/CommandLine/InteropService/SharedORM/Perl.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b52830da536b47a8c6e0f27c10d6a98b, CommandLine\InteropService\SharedORM\Perl.vb" +#Region "Microsoft.VisualBasic::b52830da536b47a8c6e0f27c10d6a98b, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\Perl.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/R.vb b/CommandLine/InteropService/SharedORM/R.vb index a02d6fa5..eada0559 100644 --- a/CommandLine/InteropService/SharedORM/R.vb +++ b/CommandLine/InteropService/SharedORM/R.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::372ca7f6bacc3a4cf907325fc409eaf5, CommandLine\InteropService\SharedORM\R.vb" +#Region "Microsoft.VisualBasic::372ca7f6bacc3a4cf907325fc409eaf5, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\R.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/VisualBasic.vb b/CommandLine/InteropService/SharedORM/VisualBasic.vb index 0481d008..308f954a 100644 --- a/CommandLine/InteropService/SharedORM/VisualBasic.vb +++ b/CommandLine/InteropService/SharedORM/VisualBasic.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::12fe77c4e4c9cda30cfbdc6575522baa, CommandLine\InteropService\SharedORM\VisualBasic.vb" +#Region "Microsoft.VisualBasic::12fe77c4e4c9cda30cfbdc6575522baa, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\VisualBasic.vb" ' Author: ' diff --git a/CommandLine/Interpreters/Abstract.vb b/CommandLine/Interpreters/Abstract.vb index 0d691b7b..b7dffc1a 100644 --- a/CommandLine/Interpreters/Abstract.vb +++ b/CommandLine/Interpreters/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dc46e1f7a1d006175ea1351e45e19984, CommandLine\Interpreters\Abstract.vb" +#Region "Microsoft.VisualBasic::dc46e1f7a1d006175ea1351e45e19984, Microsoft.VisualBasic.Core\CommandLine\Interpreters\Abstract.vb" ' Author: ' diff --git a/CommandLine/Interpreters/InteractiveConsole.vb b/CommandLine/Interpreters/InteractiveConsole.vb index 3dbfc8f8..1490066f 100644 --- a/CommandLine/Interpreters/InteractiveConsole.vb +++ b/CommandLine/Interpreters/InteractiveConsole.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7a2992138e9e7423d9198b9a47be833d, CommandLine\Interpreters\InteractiveConsole.vb" +#Region "Microsoft.VisualBasic::a81bd0b1b80c9a6f5b784848047b19ce, Microsoft.VisualBasic.Core\CommandLine\Interpreters\InteractiveConsole.vb" ' Author: ' diff --git a/CommandLine/Interpreters/Interpreter.vb b/CommandLine/Interpreters/Interpreter.vb index 28ce3659..3b31201b 100644 --- a/CommandLine/Interpreters/Interpreter.vb +++ b/CommandLine/Interpreters/Interpreter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dcfc8f9f59421f3383f29e83fa30780e, CommandLine\Interpreters\Interpreter.vb" +#Region "Microsoft.VisualBasic::dcfc8f9f59421f3383f29e83fa30780e, Microsoft.VisualBasic.Core\CommandLine\Interpreters\Interpreter.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/CommandHelp.vb b/CommandLine/Interpreters/View/CommandHelp.vb index 7e25e310..7508d309 100644 --- a/CommandLine/Interpreters/View/CommandHelp.vb +++ b/CommandLine/Interpreters/View/CommandHelp.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7d15e03f189cfb4385a3670b0c012f3f, CommandLine\Interpreters\View\CommandHelp.vb" +#Region "Microsoft.VisualBasic::7d15e03f189cfb4385a3670b0c012f3f, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\CommandHelp.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/ExceptionHandler.vb b/CommandLine/Interpreters/View/ExceptionHandler.vb index ecd4f92c..fd118fac 100644 --- a/CommandLine/Interpreters/View/ExceptionHandler.vb +++ b/CommandLine/Interpreters/View/ExceptionHandler.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f9bd4ed1ebd97efa821f0d22538001dd, CommandLine\Interpreters\View\ExceptionHandler.vb" +#Region "Microsoft.VisualBasic::f9bd4ed1ebd97efa821f0d22538001dd, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\ExceptionHandler.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index 0b911640..531ed444 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f32829cd8ec40319d48da8c0ab0411dd, CommandLine\Interpreters\View\ManualBuilder.vb" +#Region "Microsoft.VisualBasic::f32829cd8ec40319d48da8c0ab0411dd, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\ManualBuilder.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/SDKManual.vb b/CommandLine/Interpreters/View/SDKManual.vb index 111369ed..9f486d17 100644 --- a/CommandLine/Interpreters/View/SDKManual.vb +++ b/CommandLine/Interpreters/View/SDKManual.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fc6979b4b647ec8a171f444056ce9403, CommandLine\Interpreters\View\SDKManual.vb" +#Region "Microsoft.VisualBasic::fc6979b4b647ec8a171f444056ce9403, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\SDKManual.vb" ' Author: ' diff --git a/CommandLine/Parsers/CLIParser.vb b/CommandLine/Parsers/CLIParser.vb index e69514af..1a5d3fbc 100644 --- a/CommandLine/Parsers/CLIParser.vb +++ b/CommandLine/Parsers/CLIParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::03039aa4ca689de63604b6c9fbe15425, CommandLine\Parsers\CLIParser.vb" +#Region "Microsoft.VisualBasic::03039aa4ca689de63604b6c9fbe15425, Microsoft.VisualBasic.Core\CommandLine\Parsers\CLIParser.vb" ' Author: ' diff --git a/CommandLine/Parsers/DictionaryParser.vb b/CommandLine/Parsers/DictionaryParser.vb index 3798c8b3..4b492734 100644 --- a/CommandLine/Parsers/DictionaryParser.vb +++ b/CommandLine/Parsers/DictionaryParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ea86ff9e843facd124b362478be0bb71, CommandLine\Parsers\DictionaryParser.vb" +#Region "Microsoft.VisualBasic::ea86ff9e843facd124b362478be0bb71, Microsoft.VisualBasic.Core\CommandLine\Parsers\DictionaryParser.vb" ' Author: ' diff --git a/CommandLine/Reflection/ArgumentCollection.vb b/CommandLine/Reflection/ArgumentCollection.vb index aed22e3e..77f51b4a 100644 --- a/CommandLine/Reflection/ArgumentCollection.vb +++ b/CommandLine/Reflection/ArgumentCollection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::14e8ab7aecc38938a464dedd78d060c3, CommandLine\Reflection\ArgumentCollection.vb" +#Region "Microsoft.VisualBasic::14e8ab7aecc38938a464dedd78d060c3, Microsoft.VisualBasic.Core\CommandLine\Reflection\ArgumentCollection.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/ActiveViews.vb b/CommandLine/Reflection/Attributes/ActiveViews.vb index e7e35257..003167a9 100644 --- a/CommandLine/Reflection/Attributes/ActiveViews.vb +++ b/CommandLine/Reflection/Attributes/ActiveViews.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e61dd6f3ed4c08397368f16e7769142f, CommandLine\Reflection\Attributes\ActiveViews.vb" +#Region "Microsoft.VisualBasic::e61dd6f3ed4c08397368f16e7769142f, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\ActiveViews.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/Argument.vb b/CommandLine/Reflection/Attributes/Argument.vb index f2df4b26..e0889984 100644 --- a/CommandLine/Reflection/Attributes/Argument.vb +++ b/CommandLine/Reflection/Attributes/Argument.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::75f8ae1bb23daaa167294cbe5d4d92fc, CommandLine\Reflection\Attributes\Argument.vb" +#Region "Microsoft.VisualBasic::75f8ae1bb23daaa167294cbe5d4d92fc, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Argument.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/Attribute.vb b/CommandLine/Reflection/Attributes/Attribute.vb index c1cb0944..8f6263df 100644 --- a/CommandLine/Reflection/Attributes/Attribute.vb +++ b/CommandLine/Reflection/Attributes/Attribute.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::14ab68a159339eca4da9b94e67cc896d, CommandLine\Reflection\Attributes\Attribute.vb" +#Region "Microsoft.VisualBasic::14ab68a159339eca4da9b94e67cc896d, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Attribute.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/ExportAPI.vb b/CommandLine/Reflection/Attributes/ExportAPI.vb index 771d37b6..a0df5354 100644 --- a/CommandLine/Reflection/Attributes/ExportAPI.vb +++ b/CommandLine/Reflection/Attributes/ExportAPI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fb69fc76f81f00cb04dcaaab9410eb37, CommandLine\Reflection\Attributes\ExportAPI.vb" +#Region "Microsoft.VisualBasic::fb69fc76f81f00cb04dcaaab9410eb37, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\ExportAPI.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/Flags.vb b/CommandLine/Reflection/Attributes/Flags.vb index c54ccaee..69dc066a 100644 --- a/CommandLine/Reflection/Attributes/Flags.vb +++ b/CommandLine/Reflection/Attributes/Flags.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e6ec7bef4c88e217265d0a358da1fd20, CommandLine\Reflection\Attributes\Flags.vb" +#Region "Microsoft.VisualBasic::e6ec7bef4c88e217265d0a358da1fd20, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Flags.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/Grouping.vb b/CommandLine/Reflection/Attributes/Grouping.vb index 17f8712c..23d25d68 100644 --- a/CommandLine/Reflection/Attributes/Grouping.vb +++ b/CommandLine/Reflection/Attributes/Grouping.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e5a222b781d498a1d810a60f4396b7ea, CommandLine\Reflection\Attributes\Grouping.vb" +#Region "Microsoft.VisualBasic::e5a222b781d498a1d810a60f4396b7ea, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Grouping.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/[Namespace].vb b/CommandLine/Reflection/Attributes/[Namespace].vb index dff29133..e5ec3768 100644 --- a/CommandLine/Reflection/Attributes/[Namespace].vb +++ b/CommandLine/Reflection/Attributes/[Namespace].vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::55234b4e078ecfd7de610386fc031c73, CommandLine\Reflection\Attributes\[Namespace].vb" +#Region "Microsoft.VisualBasic::55234b4e078ecfd7de610386fc031c73, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\[Namespace].vb" ' Author: ' diff --git a/CommandLine/Reflection/CLIToken.vb b/CommandLine/Reflection/CLIToken.vb index 4aec0a90..8cbb4b5c 100644 --- a/CommandLine/Reflection/CLIToken.vb +++ b/CommandLine/Reflection/CLIToken.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dc7e39b244447c07223488c5089fa330, CommandLine\Reflection\CLIToken.vb" +#Region "Microsoft.VisualBasic::dc7e39b244447c07223488c5089fa330, Microsoft.VisualBasic.Core\CommandLine\Reflection\CLIToken.vb" ' Author: ' diff --git a/CommandLine/Reflection/CLITypes.vb b/CommandLine/Reflection/CLITypes.vb index 2cba52ca..8024d58a 100644 --- a/CommandLine/Reflection/CLITypes.vb +++ b/CommandLine/Reflection/CLITypes.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2fc1db2e6208fb90a99353505f436fe9, CommandLine\Reflection\CLITypes.vb" +#Region "Microsoft.VisualBasic::2fc1db2e6208fb90a99353505f436fe9, Microsoft.VisualBasic.Core\CommandLine\Reflection\CLITypes.vb" ' Author: ' diff --git a/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb b/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb index b3973af3..8c9a7f27 100644 --- a/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb +++ b/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a96cb85fcf17d0101fbb7e187ce62576, CommandLine\Reflection\EntryPoints\APIEntryPoint.vb" +#Region "Microsoft.VisualBasic::a96cb85fcf17d0101fbb7e187ce62576, Microsoft.VisualBasic.Core\CommandLine\Reflection\EntryPoints\APIEntryPoint.vb" ' Author: ' diff --git a/CommandLine/Reflection/EntryPoints/Delegate.vb b/CommandLine/Reflection/EntryPoints/Delegate.vb index fa07b001..3f2a258d 100644 --- a/CommandLine/Reflection/EntryPoints/Delegate.vb +++ b/CommandLine/Reflection/EntryPoints/Delegate.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::981cb8a14cca84134672790ab4bb046f, CommandLine\Reflection\EntryPoints\Delegate.vb" +#Region "Microsoft.VisualBasic::981cb8a14cca84134672790ab4bb046f, Microsoft.VisualBasic.Core\CommandLine\Reflection\EntryPoints\Delegate.vb" ' Author: ' diff --git a/CommandLine/Reflection/Grouping.vb b/CommandLine/Reflection/Grouping.vb index 14ebef1a..3ce00637 100644 --- a/CommandLine/Reflection/Grouping.vb +++ b/CommandLine/Reflection/Grouping.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9b8ec8a564ea48316af97c0e2daa02e6, CommandLine\Reflection\Grouping.vb" +#Region "Microsoft.VisualBasic::9b8ec8a564ea48316af97c0e2daa02e6, Microsoft.VisualBasic.Core\CommandLine\Reflection\Grouping.vb" ' Author: ' diff --git a/CommandLine/Reflection/RunDll.vb b/CommandLine/Reflection/RunDll.vb index 28862114..6b005eb2 100644 --- a/CommandLine/Reflection/RunDll.vb +++ b/CommandLine/Reflection/RunDll.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e89d959e6a8a1b5bfde7cb4d9886656c, CommandLine\Reflection\RunDll.vb" +#Region "Microsoft.VisualBasic::e89d959e6a8a1b5bfde7cb4d9886656c, Microsoft.VisualBasic.Core\CommandLine\Reflection\RunDll.vb" ' Author: ' diff --git a/CommandLine/Stream.vb b/CommandLine/Stream.vb index 83f67803..c6102053 100644 --- a/CommandLine/Stream.vb +++ b/CommandLine/Stream.vb @@ -1,56 +1,55 @@ -#Region "Microsoft.VisualBasic::f7090379a93984ecee32ecbba064de75, CommandLine\Stream.vb" +#Region "Microsoft.VisualBasic::1d29d822507b18e368473917fe944414, Microsoft.VisualBasic.Core\CommandLine\Stream.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 . + ' 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: + ' Summaries: -' Enum FileTypes -' -' DiskFile, MemoryFile, PipelineFile -' -' -' -' -' -' Module StreamExtensions -' -' Function: FileType, OpenForRead, OpenForWrite -' -' -' /********************************************************************************/ + ' Enum FileTypes + ' + ' DiskFile, MemoryFile, PipelineFile + ' + ' + ' + ' + ' + ' Module StreamExtensions + ' + ' Function: FileType, OpenForRead, OpenForWrite + ' + ' + ' /********************************************************************************/ #End Region Imports System.IO Imports System.IO.MemoryMappedFiles -Imports System.Security.AccessControl Namespace CommandLine diff --git a/ComponentModel/Algorithm/BinaryTree/AVLSupports.vb b/ComponentModel/Algorithm/BinaryTree/AVLSupports.vb index 9feb08e3..da449c0e 100644 --- a/ComponentModel/Algorithm/BinaryTree/AVLSupports.vb +++ b/ComponentModel/Algorithm/BinaryTree/AVLSupports.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fa8b3cc7757e3eebf57da0d645f14bb2, ComponentModel\Algorithm\BinaryTree\AVLSupports.vb" +#Region "Microsoft.VisualBasic::fa8b3cc7757e3eebf57da0d645f14bb2, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\AVLSupports.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/AVLTree.vb b/ComponentModel/Algorithm/BinaryTree/AVLTree.vb index 4aaa308d..bdc89124 100644 --- a/ComponentModel/Algorithm/BinaryTree/AVLTree.vb +++ b/ComponentModel/Algorithm/BinaryTree/AVLTree.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::81eec77cd0117693bed3fa2054025986, ComponentModel\Algorithm\BinaryTree\AVLTree.vb" +#Region "Microsoft.VisualBasic::81eec77cd0117693bed3fa2054025986, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\AVLTree.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/BinaryTree.vb b/ComponentModel/Algorithm/BinaryTree/BinaryTree.vb index c91c3169..77d21af7 100644 --- a/ComponentModel/Algorithm/BinaryTree/BinaryTree.vb +++ b/ComponentModel/Algorithm/BinaryTree/BinaryTree.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::42aa90d57a9c12fb5abb3f794d617c0a, ComponentModel\Algorithm\BinaryTree\BinaryTree.vb" +#Region "Microsoft.VisualBasic::42aa90d57a9c12fb5abb3f794d617c0a, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\BinaryTree.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/Enumerable.vb b/ComponentModel/Algorithm/BinaryTree/Enumerable.vb index a9d0b8c1..e09c30fb 100644 --- a/ComponentModel/Algorithm/BinaryTree/Enumerable.vb +++ b/ComponentModel/Algorithm/BinaryTree/Enumerable.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a7cb59891d0578f90f7f4ec63df91fd5, ComponentModel\Algorithm\BinaryTree\Enumerable.vb" +#Region "Microsoft.VisualBasic::a7cb59891d0578f90f7f4ec63df91fd5, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\Enumerable.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/NaiveBinaryTree.vb b/ComponentModel/Algorithm/BinaryTree/NaiveBinaryTree.vb index 3e7e2451..8f589236 100644 --- a/ComponentModel/Algorithm/BinaryTree/NaiveBinaryTree.vb +++ b/ComponentModel/Algorithm/BinaryTree/NaiveBinaryTree.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1cab0da9ef50f6674ce07f1b33dad9fc, ComponentModel\Algorithm\BinaryTree\NaiveBinaryTree.vb" +#Region "Microsoft.VisualBasic::1cab0da9ef50f6674ce07f1b33dad9fc, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\NaiveBinaryTree.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/RBTree/Iterator.vb b/ComponentModel/Algorithm/BinaryTree/RBTree/Iterator.vb index adab5c03..93095b5c 100644 --- a/ComponentModel/Algorithm/BinaryTree/RBTree/Iterator.vb +++ b/ComponentModel/Algorithm/BinaryTree/RBTree/Iterator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b5d416823ceb889f45ddda51bb3399da, ComponentModel\Algorithm\BinaryTree\RBTree\Iterator.vb" +#Region "Microsoft.VisualBasic::b5d416823ceb889f45ddda51bb3399da, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\RBTree\Iterator.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/RBTree/RBNode.vb b/ComponentModel/Algorithm/BinaryTree/RBTree/RBNode.vb index cb20dc22..67cf1b56 100644 --- a/ComponentModel/Algorithm/BinaryTree/RBTree/RBNode.vb +++ b/ComponentModel/Algorithm/BinaryTree/RBTree/RBNode.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9433a555ccbd8a2e99c97c7302b143e2, ComponentModel\Algorithm\BinaryTree\RBTree\RBNode.vb" +#Region "Microsoft.VisualBasic::9433a555ccbd8a2e99c97c7302b143e2, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\RBTree\RBNode.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/RBTree/RBTree.vb b/ComponentModel/Algorithm/BinaryTree/RBTree/RBTree.vb index 99362e96..a78ee94e 100644 --- a/ComponentModel/Algorithm/BinaryTree/RBTree/RBTree.vb +++ b/ComponentModel/Algorithm/BinaryTree/RBTree/RBTree.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f511fd972828adb3075654c4ee2e030f, ComponentModel\Algorithm\BinaryTree\RBTree\RBTree.vb" +#Region "Microsoft.VisualBasic::f511fd972828adb3075654c4ee2e030f, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\RBTree\RBTree.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/TreeBase.vb b/ComponentModel/Algorithm/BinaryTree/TreeBase.vb index 904bcc43..2634303d 100644 --- a/ComponentModel/Algorithm/BinaryTree/TreeBase.vb +++ b/ComponentModel/Algorithm/BinaryTree/TreeBase.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5ea4bf16488c3938884e26b6f9cf6e76, ComponentModel\Algorithm\BinaryTree\TreeBase.vb" +#Region "Microsoft.VisualBasic::5ea4bf16488c3938884e26b6f9cf6e76, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\TreeBase.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/TreeNode.vb b/ComponentModel/Algorithm/BinaryTree/TreeNode.vb index f9aed83b..9133a0ef 100644 --- a/ComponentModel/Algorithm/BinaryTree/TreeNode.vb +++ b/ComponentModel/Algorithm/BinaryTree/TreeNode.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5782b024c7e50936395593d1f04136dd, ComponentModel\Algorithm\BinaryTree\TreeNode.vb" +#Region "Microsoft.VisualBasic::5782b024c7e50936395593d1f04136dd, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\TreeNode.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/DynamicProgramming/DynamicProgramming.vb b/ComponentModel/Algorithm/DynamicProgramming/DynamicProgramming.vb index 190b8164..00cdb9a4 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/DynamicProgramming.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/DynamicProgramming.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1f506608694faa5f51d75c94347722b9, ComponentModel\Algorithm\DynamicProgramming\DynamicProgramming.vb" +#Region "Microsoft.VisualBasic::1f506608694faa5f51d75c94347722b9, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\DynamicProgramming.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/DynamicProgramming/LCS.vb b/ComponentModel/Algorithm/DynamicProgramming/LCS.vb index 202c6a3c..69b29030 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/LCS.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/LCS.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2d36972eb0db76a21d3c01728f21b71d, ComponentModel\Algorithm\DynamicProgramming\LCS.vb" +#Region "Microsoft.VisualBasic::2d36972eb0db76a21d3c01728f21b71d, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\LCS.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/DynamicProgramming/LongestCommonSubsequence.vb b/ComponentModel/Algorithm/DynamicProgramming/LongestCommonSubsequence.vb index e2e870f2..fe857e42 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/LongestCommonSubsequence.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/LongestCommonSubsequence.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1dd182cc126f1ec9add3568244450e3c, ComponentModel\Algorithm\DynamicProgramming\LongestCommonSubsequence.vb" +#Region "Microsoft.VisualBasic::1dd182cc126f1ec9add3568244450e3c, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\LongestCommonSubsequence.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb index caba5c08..41644fb4 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b6f3b5144db49c530543e62920605973, ComponentModel\Algorithm\DynamicProgramming\SCS.vb" +#Region "Microsoft.VisualBasic::b6f3b5144db49c530543e62920605973, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\SCS.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/Levenshtein/DamerauLevenshteinDistance.vb b/ComponentModel/Algorithm/Levenshtein/DamerauLevenshteinDistance.vb index d2bd69d8..1518d3a4 100644 --- a/ComponentModel/Algorithm/Levenshtein/DamerauLevenshteinDistance.vb +++ b/ComponentModel/Algorithm/Levenshtein/DamerauLevenshteinDistance.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::887d8ba8c1d4a61356a14909208dca48, ComponentModel\Algorithm\Levenshtein\DamerauLevenshteinDistance.vb" +#Region "Microsoft.VisualBasic::887d8ba8c1d4a61356a14909208dca48, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\Levenshtein\DamerauLevenshteinDistance.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb b/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb index 40850e23..c3b99eb6 100644 --- a/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb +++ b/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1b934dbc1d0d334500ccbc8997fed1dc, ComponentModel\Algorithm\Levenshtein\LevenshteinDistance.vb" +#Region "Microsoft.VisualBasic::1b934dbc1d0d334500ccbc8997fed1dc, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\Levenshtein\LevenshteinDistance.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/Levenshtein/LevenshteinModel.vb b/ComponentModel/Algorithm/Levenshtein/LevenshteinModel.vb index 38eaf36e..6182a72e 100644 --- a/ComponentModel/Algorithm/Levenshtein/LevenshteinModel.vb +++ b/ComponentModel/Algorithm/Levenshtein/LevenshteinModel.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6ac0df2fcb666d45d92a8d277e2b6fb8, ComponentModel\Algorithm\Levenshtein\LevenshteinModel.vb" +#Region "Microsoft.VisualBasic::6ac0df2fcb666d45d92a8d277e2b6fb8, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\Levenshtein\LevenshteinModel.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/Levenshtein/ResultVisualize.vb b/ComponentModel/Algorithm/Levenshtein/ResultVisualize.vb index 8150171a..72997b4b 100644 --- a/ComponentModel/Algorithm/Levenshtein/ResultVisualize.vb +++ b/ComponentModel/Algorithm/Levenshtein/ResultVisualize.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::08ea5c7237abc19bd95da3aca099d9bb, ComponentModel\Algorithm\Levenshtein\ResultVisualize.vb" +#Region "Microsoft.VisualBasic::08ea5c7237abc19bd95da3aca099d9bb, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\Levenshtein\ResultVisualize.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/base/Combination/Comb.vb b/ComponentModel/Algorithm/base/Combination/Comb.vb index 6ea9f956..58445836 100644 --- a/ComponentModel/Algorithm/base/Combination/Comb.vb +++ b/ComponentModel/Algorithm/base/Combination/Comb.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1696f908c778b7346677fded1a4d746b, ComponentModel\Algorithm\base\Combination\Comb.vb" +#Region "Microsoft.VisualBasic::1696f908c778b7346677fded1a4d746b, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\base\Combination\Comb.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/base/Combination/Combination.vb b/ComponentModel/Algorithm/base/Combination/Combination.vb index 048cd256..48f3cd54 100644 --- a/ComponentModel/Algorithm/base/Combination/Combination.vb +++ b/ComponentModel/Algorithm/base/Combination/Combination.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0c3e852a5ac5d3e681d3d88fdeea1ba6, ComponentModel\Algorithm\base\Combination\Combination.vb" +#Region "Microsoft.VisualBasic::0c3e852a5ac5d3e681d3d88fdeea1ba6, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\base\Combination\Combination.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb b/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb index cde32e88..91979827 100644 --- a/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb +++ b/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::130b7311f6a8f174fbfc81795c78adc9, ComponentModel\Algorithm\base\SlideWindow\Extensions.vb" +#Region "Microsoft.VisualBasic::130b7311f6a8f174fbfc81795c78adc9, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\base\SlideWindow\Extensions.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/base/SlideWindow/SlideWindow.vb b/ComponentModel/Algorithm/base/SlideWindow/SlideWindow.vb index 18152134..db5a4cd1 100644 --- a/ComponentModel/Algorithm/base/SlideWindow/SlideWindow.vb +++ b/ComponentModel/Algorithm/base/SlideWindow/SlideWindow.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7975f639c9878a467e69a57bf62f0424, ComponentModel\Algorithm\base\SlideWindow\SlideWindow.vb" +#Region "Microsoft.VisualBasic::7975f639c9878a467e69a57bf62f0424, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\base\SlideWindow\SlideWindow.vb" ' Author: ' diff --git a/ComponentModel/Count.vb b/ComponentModel/Count.vb index d7aa78a2..d8804d12 100644 --- a/ComponentModel/Count.vb +++ b/ComponentModel/Count.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dfbbdb353c3faead10950620e0ceb0b5, ComponentModel\Count.vb" +#Region "Microsoft.VisualBasic::dfbbdb353c3faead10950620e0ceb0b5, Microsoft.VisualBasic.Core\ComponentModel\Count.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Abstract.vb b/ComponentModel/DataSource/Abstract.vb index a52e6a02..5a14477b 100644 --- a/ComponentModel/DataSource/Abstract.vb +++ b/ComponentModel/DataSource/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9e217abf5ba3f2929fef576bfb42c6e8, ComponentModel\DataSource\Abstract.vb" +#Region "Microsoft.VisualBasic::9e217abf5ba3f2929fef576bfb42c6e8, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Abstract.vb" ' Author: ' diff --git a/ComponentModel/DataSource/DataFramework.vb b/ComponentModel/DataSource/DataFramework.vb index 70b4f100..f5522413 100644 --- a/ComponentModel/DataSource/DataFramework.vb +++ b/ComponentModel/DataSource/DataFramework.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2ffe6881ea86a4bcf64f0d7d7f8e9ec9, ComponentModel\DataSource\DataFramework.vb" +#Region "Microsoft.VisualBasic::2ffe6881ea86a4bcf64f0d7d7f8e9ec9, Microsoft.VisualBasic.Core\ComponentModel\DataSource\DataFramework.vb" ' Author: ' diff --git a/ComponentModel/DataSource/DefaultAttribute.vb b/ComponentModel/DataSource/DefaultAttribute.vb index d46101a4..20503534 100644 --- a/ComponentModel/DataSource/DefaultAttribute.vb +++ b/ComponentModel/DataSource/DefaultAttribute.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8f5dc2d2723bf368ee62ccf0148ba17d, ComponentModel\DataSource\DefaultAttribute.vb" +#Region "Microsoft.VisualBasic::8f5dc2d2723bf368ee62ccf0148ba17d, Microsoft.VisualBasic.Core\ComponentModel\DataSource\DefaultAttribute.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Iterator.vb b/ComponentModel/DataSource/Iterator.vb index 1b47dca7..6cb47453 100644 --- a/ComponentModel/DataSource/Iterator.vb +++ b/ComponentModel/DataSource/Iterator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ba69b268287687d4453b6df22cbcea97, ComponentModel\DataSource\Iterator.vb" +#Region "Microsoft.VisualBasic::ba69b268287687d4453b6df22cbcea97, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Iterator.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/Controls.vb b/ComponentModel/DataSource/Property/Controls.vb index 29e2147e..72664d97 100644 --- a/ComponentModel/DataSource/Property/Controls.vb +++ b/ComponentModel/DataSource/Property/Controls.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::653e0433987e989ce48bac0f2a3d83b6, ComponentModel\DataSource\Property\Controls.vb" +#Region "Microsoft.VisualBasic::653e0433987e989ce48bac0f2a3d83b6, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\Controls.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/DynamicProperty.vb b/ComponentModel/DataSource/Property/DynamicProperty.vb index 0f669e35..d4078a07 100644 --- a/ComponentModel/DataSource/Property/DynamicProperty.vb +++ b/ComponentModel/DataSource/Property/DynamicProperty.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::10639614f100433a4eb09a252f359a2b, ComponentModel\DataSource\Property\DynamicProperty.vb" +#Region "Microsoft.VisualBasic::10639614f100433a4eb09a252f359a2b, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\DynamicProperty.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/GenericProperty.vb b/ComponentModel/DataSource/Property/GenericProperty.vb index 39fe2a50..1e47ab10 100644 --- a/ComponentModel/DataSource/Property/GenericProperty.vb +++ b/ComponentModel/DataSource/Property/GenericProperty.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::acba7167e1e900039f16d90d328b2d31, ComponentModel\DataSource\Property\GenericProperty.vb" +#Region "Microsoft.VisualBasic::acba7167e1e900039f16d90d328b2d31, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\GenericProperty.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/IProperty.vb b/ComponentModel/DataSource/Property/IProperty.vb index 93f60c97..c63feb53 100644 --- a/ComponentModel/DataSource/Property/IProperty.vb +++ b/ComponentModel/DataSource/Property/IProperty.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9323d6cc7d0a0aa572c751ef79fd2eab, ComponentModel\DataSource\Property\IProperty.vb" +#Region "Microsoft.VisualBasic::9323d6cc7d0a0aa572c751ef79fd2eab, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\IProperty.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/NamedCollection.vb b/ComponentModel/DataSource/Property/NamedCollection.vb index 2ab55c46..85a88bd5 100644 --- a/ComponentModel/DataSource/Property/NamedCollection.vb +++ b/ComponentModel/DataSource/Property/NamedCollection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e99182a5af91e1e16afeddacac8e0b8e, ComponentModel\DataSource\Property\NamedCollection.vb" +#Region "Microsoft.VisualBasic::e99182a5af91e1e16afeddacac8e0b8e, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\NamedCollection.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/NamedValue.vb b/ComponentModel/DataSource/Property/NamedValue.vb index 392a6545..0270b080 100644 --- a/ComponentModel/DataSource/Property/NamedValue.vb +++ b/ComponentModel/DataSource/Property/NamedValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::529b3ac85939959a3564dad680f53aa1, ComponentModel\DataSource\Property\NamedValue.vb" +#Region "Microsoft.VisualBasic::529b3ac85939959a3564dad680f53aa1, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\NamedValue.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/PropertyValue.vb b/ComponentModel/DataSource/Property/PropertyValue.vb index 2c602728..a7298ed0 100644 --- a/ComponentModel/DataSource/Property/PropertyValue.vb +++ b/ComponentModel/DataSource/Property/PropertyValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8559057cd6a428b07ae9ae6e650b6295, ComponentModel\DataSource\Property\PropertyValue.vb" +#Region "Microsoft.VisualBasic::8559057cd6a428b07ae9ae6e650b6295, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\PropertyValue.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Repository/ILocalSearchHandle.vb b/ComponentModel/DataSource/Repository/ILocalSearchHandle.vb index 40282aba..62d5e03c 100644 --- a/ComponentModel/DataSource/Repository/ILocalSearchHandle.vb +++ b/ComponentModel/DataSource/Repository/ILocalSearchHandle.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::217afa2cb9160b3e9fb40fd75f7f495b, ComponentModel\DataSource\Repository\ILocalSearchHandle.vb" +#Region "Microsoft.VisualBasic::217afa2cb9160b3e9fb40fd75f7f495b, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Repository\ILocalSearchHandle.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Repository/IMatched.vb b/ComponentModel/DataSource/Repository/IMatched.vb index 8f0a0fba..61907d9e 100644 --- a/ComponentModel/DataSource/Repository/IMatched.vb +++ b/ComponentModel/DataSource/Repository/IMatched.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d68023fd62338db0f12e0a895c6091c6, ComponentModel\DataSource\Repository\IMatched.vb" +#Region "Microsoft.VisualBasic::d68023fd62338db0f12e0a895c6091c6, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Repository\IMatched.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Repository/QueryCache.vb b/ComponentModel/DataSource/Repository/QueryCache.vb index c02a08af..e54790e3 100644 --- a/ComponentModel/DataSource/Repository/QueryCache.vb +++ b/ComponentModel/DataSource/Repository/QueryCache.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::001b8cce47ecce5f7b8273fbd965f952, ComponentModel\DataSource\Repository\QueryCache.vb" +#Region "Microsoft.VisualBasic::001b8cce47ecce5f7b8273fbd965f952, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Repository\QueryCache.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Repository/Repository.vb b/ComponentModel/DataSource/Repository/Repository.vb index 56cc6257..71884d72 100644 --- a/ComponentModel/DataSource/Repository/Repository.vb +++ b/ComponentModel/DataSource/Repository/Repository.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bb2dc61814a9ef8c6094f2a3d1b9516a, ComponentModel\DataSource\Repository\Repository.vb" +#Region "Microsoft.VisualBasic::bb2dc61814a9ef8c6094f2a3d1b9516a, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Repository\Repository.vb" ' Author: ' diff --git a/ComponentModel/DataSource/SchemaMaps/BindProperty.vb b/ComponentModel/DataSource/SchemaMaps/BindProperty.vb index 89186e6f..926042e3 100644 --- a/ComponentModel/DataSource/SchemaMaps/BindProperty.vb +++ b/ComponentModel/DataSource/SchemaMaps/BindProperty.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6248876d415b08d11e14bdad794e4f3c, ComponentModel\DataSource\SchemaMaps\BindProperty.vb" +#Region "Microsoft.VisualBasic::6248876d415b08d11e14bdad794e4f3c, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\BindProperty.vb" ' Author: ' diff --git a/ComponentModel/DataSource/SchemaMaps/DataSource.vb b/ComponentModel/DataSource/SchemaMaps/DataSource.vb index 66a5023c..34612f34 100644 --- a/ComponentModel/DataSource/SchemaMaps/DataSource.vb +++ b/ComponentModel/DataSource/SchemaMaps/DataSource.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::633a486a87f1e57733543dbb7304615f, ComponentModel\DataSource\SchemaMaps\DataSource.vb" +#Region "Microsoft.VisualBasic::633a486a87f1e57733543dbb7304615f, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\DataSource.vb" ' Author: ' diff --git a/ComponentModel/DataSource/SchemaMaps/Mappings.vb b/ComponentModel/DataSource/SchemaMaps/Mappings.vb index e8b934f2..d72fc64a 100644 --- a/ComponentModel/DataSource/SchemaMaps/Mappings.vb +++ b/ComponentModel/DataSource/SchemaMaps/Mappings.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::567ee34c5b8d1cb49ffa254ecdc9d3bc, ComponentModel\DataSource\SchemaMaps\Mappings.vb" +#Region "Microsoft.VisualBasic::567ee34c5b8d1cb49ffa254ecdc9d3bc, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\Mappings.vb" ' Author: ' diff --git a/ComponentModel/DataSource/SchemaMaps/PropertyValue.vb b/ComponentModel/DataSource/SchemaMaps/PropertyValue.vb index 61e59761..15d9a3a9 100644 --- a/ComponentModel/DataSource/SchemaMaps/PropertyValue.vb +++ b/ComponentModel/DataSource/SchemaMaps/PropertyValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d8c88f2814f68448a420af814bbfb1f9, ComponentModel\DataSource\SchemaMaps\PropertyValue.vb" +#Region "Microsoft.VisualBasic::d8c88f2814f68448a420af814bbfb1f9, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\PropertyValue.vb" ' Author: ' diff --git a/ComponentModel/DataSource/SchemaMaps/SQL.vb b/ComponentModel/DataSource/SchemaMaps/SQL.vb index 8cfc0f4c..dbfd4296 100644 --- a/ComponentModel/DataSource/SchemaMaps/SQL.vb +++ b/ComponentModel/DataSource/SchemaMaps/SQL.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5b06e4396b4bda66d00a83bb75c598bd, ComponentModel\DataSource\SchemaMaps\SQL.vb" +#Region "Microsoft.VisualBasic::5b06e4396b4bda66d00a83bb75c598bd, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\SQL.vb" ' Author: ' diff --git a/ComponentModel/DataSource/SchemaMaps/Schema.vb b/ComponentModel/DataSource/SchemaMaps/Schema.vb index f455372e..2d331d8c 100644 --- a/ComponentModel/DataSource/SchemaMaps/Schema.vb +++ b/ComponentModel/DataSource/SchemaMaps/Schema.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0723d0ed2e2c569bb018511a68c9a99d, ComponentModel\DataSource\SchemaMaps\Schema.vb" +#Region "Microsoft.VisualBasic::0723d0ed2e2c569bb018511a68c9a99d, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\Schema.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Tsv.vb b/ComponentModel/DataSource/Tsv.vb index 41f50eb8..726d607d 100644 --- a/ComponentModel/DataSource/Tsv.vb +++ b/ComponentModel/DataSource/Tsv.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f64e58f8c379ac5d5e872027beeaadd4, ComponentModel\DataSource\Tsv.vb" +#Region "Microsoft.VisualBasic::f64e58f8c379ac5d5e872027beeaadd4, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Tsv.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/BitMap/HashHandle.vb b/ComponentModel/DataStructures/BitMap/HashHandle.vb index 3f3c16df..4028ca05 100644 --- a/ComponentModel/DataStructures/BitMap/HashHandle.vb +++ b/ComponentModel/DataStructures/BitMap/HashHandle.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9ab6de94b9be81c46ce96c1a2414f20f, ComponentModel\DataStructures\BitMap\HashHandle.vb" +#Region "Microsoft.VisualBasic::9ab6de94b9be81c46ce96c1a2414f20f, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\BitMap\HashHandle.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/BitMap/HashList.vb b/ComponentModel/DataStructures/BitMap/HashList.vb index 538d671a..7c3a0850 100644 --- a/ComponentModel/DataStructures/BitMap/HashList.vb +++ b/ComponentModel/DataStructures/BitMap/HashList.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d41f4036924781109ecb6eb3a959b1b5, ComponentModel\DataStructures\BitMap\HashList.vb" +#Region "Microsoft.VisualBasic::d41f4036924781109ecb6eb3a959b1b5, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\BitMap\HashList.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/BitMap/HashModel.vb b/ComponentModel/DataStructures/BitMap/HashModel.vb index a0f844fc..b55a59cb 100644 --- a/ComponentModel/DataStructures/BitMap/HashModel.vb +++ b/ComponentModel/DataStructures/BitMap/HashModel.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6454ef3a138ca347bcd3778898de75ea, ComponentModel\DataStructures\BitMap\HashModel.vb" +#Region "Microsoft.VisualBasic::6454ef3a138ca347bcd3778898de75ea, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\BitMap\HashModel.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/CapacityQueue.vb b/ComponentModel/DataStructures/CapacityQueue.vb index 5365cbc8..07af6342 100644 --- a/ComponentModel/DataStructures/CapacityQueue.vb +++ b/ComponentModel/DataStructures/CapacityQueue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3671c550d58132fc3b4056767b3e8568, ComponentModel\DataStructures\CapacityQueue.vb" +#Region "Microsoft.VisualBasic::3671c550d58132fc3b4056767b3e8568, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\CapacityQueue.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Enumerable/IEnumerable.vb b/ComponentModel/DataStructures/Enumerable/IEnumerable.vb index ac7561da..5b9ad307 100644 --- a/ComponentModel/DataStructures/Enumerable/IEnumerable.vb +++ b/ComponentModel/DataStructures/Enumerable/IEnumerable.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3eb69c5ec28321fbdb068dfd45528a54, ComponentModel\DataStructures\Enumerable\IEnumerable.vb" +#Region "Microsoft.VisualBasic::3eb69c5ec28321fbdb068dfd45528a54, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Enumerable\IEnumerable.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Enumerable/NamedValueList.vb b/ComponentModel/DataStructures/Enumerable/NamedValueList.vb index c090d0b1..a5631958 100644 --- a/ComponentModel/DataStructures/Enumerable/NamedValueList.vb +++ b/ComponentModel/DataStructures/Enumerable/NamedValueList.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b28acecbf305e4db101b0452f5ed115e, ComponentModel\DataStructures\Enumerable\NamedValueList.vb" +#Region "Microsoft.VisualBasic::b28acecbf305e4db101b0452f5ed115e, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Enumerable\NamedValueList.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/FuzzyGroup.vb b/ComponentModel/DataStructures/FuzzyGroup.vb index 06a01768..f546f14f 100644 --- a/ComponentModel/DataStructures/FuzzyGroup.vb +++ b/ComponentModel/DataStructures/FuzzyGroup.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1c1c46cbd2631aa9d993af74ef412941, ComponentModel\DataStructures\FuzzyGroup.vb" +#Region "Microsoft.VisualBasic::1c1c46cbd2631aa9d993af74ef412941, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\FuzzyGroup.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/HashDictionary.vb b/ComponentModel/DataStructures/HashDictionary.vb index 11db7cb3..a4332612 100644 --- a/ComponentModel/DataStructures/HashDictionary.vb +++ b/ComponentModel/DataStructures/HashDictionary.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::abb1f44460101a4c04d6f44e10d206a9, ComponentModel\DataStructures\HashDictionary.vb" +#Region "Microsoft.VisualBasic::abb1f44460101a4c04d6f44e10d206a9, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\HashDictionary.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/LoopArray.vb b/ComponentModel/DataStructures/LoopArray.vb index c53bdd5e..a7c6e640 100644 --- a/ComponentModel/DataStructures/LoopArray.vb +++ b/ComponentModel/DataStructures/LoopArray.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6cbca453e2ad0186dd0aa5e35dce4f3a, ComponentModel\DataStructures\LoopArray.vb" +#Region "Microsoft.VisualBasic::6cbca453e2ad0186dd0aa5e35dce4f3a, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\LoopArray.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Pointer.vb b/ComponentModel/DataStructures/Pointer.vb index 50f42923..eae93593 100644 --- a/ComponentModel/DataStructures/Pointer.vb +++ b/ComponentModel/DataStructures/Pointer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0c118f269e92d3295ecf727bc3e30ca3, ComponentModel\DataStructures\Pointer.vb" +#Region "Microsoft.VisualBasic::0c118f269e92d3295ecf727bc3e30ca3, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Pointer.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Set/BadBehaviourResponses.vb b/ComponentModel/DataStructures/Set/BadBehaviourResponses.vb index 5b8b3ebb..1da8abdc 100644 --- a/ComponentModel/DataStructures/Set/BadBehaviourResponses.vb +++ b/ComponentModel/DataStructures/Set/BadBehaviourResponses.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bc03d914d599c8998230d843a443ae88, ComponentModel\DataStructures\Set\BadBehaviourResponses.vb" +#Region "Microsoft.VisualBasic::bc03d914d599c8998230d843a443ae88, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Set\BadBehaviourResponses.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Set/Set.vb b/ComponentModel/DataStructures/Set/Set.vb index 4ff8ea6d..cc952431 100644 --- a/ComponentModel/DataStructures/Set/Set.vb +++ b/ComponentModel/DataStructures/Set/Set.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d6fc50e8d571fb7e37285a9f5e7c4828, ComponentModel\DataStructures\Set\Set.vb" +#Region "Microsoft.VisualBasic::d6fc50e8d571fb7e37285a9f5e7c4828, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Set\Set.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Set/SetAPI.vb b/ComponentModel/DataStructures/Set/SetAPI.vb index 3e586140..6e9912e1 100644 --- a/ComponentModel/DataStructures/Set/SetAPI.vb +++ b/ComponentModel/DataStructures/Set/SetAPI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1124a0f8383f649a8ceb886eabadb08e, ComponentModel\DataStructures\Set\SetAPI.vb" +#Region "Microsoft.VisualBasic::1124a0f8383f649a8ceb886eabadb08e, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Set\SetAPI.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Set/SetsExtension.vb b/ComponentModel/DataStructures/Set/SetsExtension.vb index 6ad25212..f7f6e4a2 100644 --- a/ComponentModel/DataStructures/Set/SetsExtension.vb +++ b/ComponentModel/DataStructures/Set/SetsExtension.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c8c29ac4791a14e7240181a0cec1e6df, ComponentModel\DataStructures\Set\SetsExtension.vb" +#Region "Microsoft.VisualBasic::c8c29ac4791a14e7240181a0cec1e6df, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Set\SetsExtension.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Set/StringSet.vb b/ComponentModel/DataStructures/Set/StringSet.vb index 5fc4da7b..7b7b4f9f 100644 --- a/ComponentModel/DataStructures/Set/StringSet.vb +++ b/ComponentModel/DataStructures/Set/StringSet.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::40222131056ab52cedace7de0903de1a, ComponentModel\DataStructures\Set\StringSet.vb" +#Region "Microsoft.VisualBasic::40222131056ab52cedace7de0903de1a, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Set\StringSet.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Tree/BinaryTree/Abstract.vb b/ComponentModel/DataStructures/Tree/BinaryTree/Abstract.vb index 3388d700..5cf36124 100644 --- a/ComponentModel/DataStructures/Tree/BinaryTree/Abstract.vb +++ b/ComponentModel/DataStructures/Tree/BinaryTree/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cf604f709a0ada068726574cd3cccdda, ComponentModel\DataStructures\Tree\BinaryTree\Abstract.vb" +#Region "Microsoft.VisualBasic::cf604f709a0ada068726574cd3cccdda, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Tree\BinaryTree\Abstract.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Tree/BinaryTree/Extensions.vb b/ComponentModel/DataStructures/Tree/BinaryTree/Extensions.vb index a3a79520..33c2c8fa 100644 --- a/ComponentModel/DataStructures/Tree/BinaryTree/Extensions.vb +++ b/ComponentModel/DataStructures/Tree/BinaryTree/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::02910dad45c4d59dbeeed97a2dcd1667, ComponentModel\DataStructures\Tree\BinaryTree\Extensions.vb" +#Region "Microsoft.VisualBasic::02910dad45c4d59dbeeed97a2dcd1667, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Tree\BinaryTree\Extensions.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Tree/BinaryTree/TreeNode.vb b/ComponentModel/DataStructures/Tree/BinaryTree/TreeNode.vb index ef772849..e85081e9 100644 --- a/ComponentModel/DataStructures/Tree/BinaryTree/TreeNode.vb +++ b/ComponentModel/DataStructures/Tree/BinaryTree/TreeNode.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2512e6ceaf36abffed482f292c39e523, ComponentModel\DataStructures\Tree\BinaryTree\TreeNode.vb" +#Region "Microsoft.VisualBasic::2512e6ceaf36abffed482f292c39e523, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Tree\BinaryTree\TreeNode.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Tree/ITreeNode.vb b/ComponentModel/DataStructures/Tree/ITreeNode.vb index a65e1a0e..8660804e 100644 --- a/ComponentModel/DataStructures/Tree/ITreeNode.vb +++ b/ComponentModel/DataStructures/Tree/ITreeNode.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1b6696441a2046b70e2472e46d333064, ComponentModel\DataStructures\Tree\ITreeNode.vb" +#Region "Microsoft.VisualBasic::1b6696441a2046b70e2472e46d333064, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Tree\ITreeNode.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Tree/TreeNodeBase.vb b/ComponentModel/DataStructures/Tree/TreeNodeBase.vb index a808ecc6..72aa7cdb 100644 --- a/ComponentModel/DataStructures/Tree/TreeNodeBase.vb +++ b/ComponentModel/DataStructures/Tree/TreeNodeBase.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::83acf0710495996b2d0c99f72e5d717f, ComponentModel\DataStructures\Tree\TreeNodeBase.vb" +#Region "Microsoft.VisualBasic::83acf0710495996b2d0c99f72e5d717f, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Tree\TreeNodeBase.vb" ' Author: ' diff --git a/ComponentModel/DataStructures/Trigger.vb b/ComponentModel/DataStructures/Trigger.vb index b803128b..e4d87b26 100644 --- a/ComponentModel/DataStructures/Trigger.vb +++ b/ComponentModel/DataStructures/Trigger.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ae5886bdee1b150a22ab337c8978e358, ComponentModel\DataStructures\Trigger.vb" +#Region "Microsoft.VisualBasic::ae5886bdee1b150a22ab337c8978e358, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Trigger.vb" ' Author: ' diff --git a/ComponentModel/DriverModel.vb b/ComponentModel/DriverModel.vb index aa7d7c9d..ef5c835f 100644 --- a/ComponentModel/DriverModel.vb +++ b/ComponentModel/DriverModel.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::adcad34ffc4db772e17534e416b8591c, ComponentModel\DriverModel.vb" +#Region "Microsoft.VisualBasic::adcad34ffc4db772e17534e416b8591c, Microsoft.VisualBasic.Core\ComponentModel\DriverModel.vb" ' Author: ' diff --git a/ComponentModel/File/BufferedStream.vb b/ComponentModel/File/BufferedStream.vb index 5d11e2db..9514b166 100644 --- a/ComponentModel/File/BufferedStream.vb +++ b/ComponentModel/File/BufferedStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::126a3b8b1d0672c924a7a45d0da0d8dd, ComponentModel\File\BufferedStream.vb" +#Region "Microsoft.VisualBasic::126a3b8b1d0672c924a7a45d0da0d8dd, Microsoft.VisualBasic.Core\ComponentModel\File\BufferedStream.vb" ' Author: ' diff --git a/ComponentModel/File/FileSaveHandle.vb b/ComponentModel/File/FileSaveHandle.vb index 0bb913a8..c160b3c7 100644 --- a/ComponentModel/File/FileSaveHandle.vb +++ b/ComponentModel/File/FileSaveHandle.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9da379de7a509b7f30cb035a60cf2062, ComponentModel\File\FileSaveHandle.vb" +#Region "Microsoft.VisualBasic::9da379de7a509b7f30cb035a60cf2062, Microsoft.VisualBasic.Core\ComponentModel\File\FileSaveHandle.vb" ' Author: ' diff --git a/ComponentModel/File/XmlDataModel.vb b/ComponentModel/File/XmlDataModel.vb index ebd43a32..71e5144b 100644 --- a/ComponentModel/File/XmlDataModel.vb +++ b/ComponentModel/File/XmlDataModel.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c463731b5ea4ea70468881dc9e813dba, ComponentModel\File\XmlDataModel.vb" +#Region "Microsoft.VisualBasic::c463731b5ea4ea70468881dc9e813dba, Microsoft.VisualBasic.Core\ComponentModel\File\XmlDataModel.vb" ' Author: ' diff --git a/ComponentModel/LazyLoader.vb b/ComponentModel/LazyLoader.vb index 3b896d61..bfcc0f2f 100644 --- a/ComponentModel/LazyLoader.vb +++ b/ComponentModel/LazyLoader.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5f2492c0796ad85ab891091031fad3f0, ComponentModel\LazyLoader.vb" +#Region "Microsoft.VisualBasic::5f2492c0796ad85ab891091031fad3f0, Microsoft.VisualBasic.Core\ComponentModel\LazyLoader.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Extensions.vb b/ComponentModel/Ranges/Extensions.vb index 12808836..516ed5b6 100644 --- a/ComponentModel/Ranges/Extensions.vb +++ b/ComponentModel/Ranges/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9b1e1c05c972f9fb87a019455680f7c2, ComponentModel\Ranges\Extensions.vb" +#Region "Microsoft.VisualBasic::9b1e1c05c972f9fb87a019455680f7c2, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Extensions.vb" ' Author: ' diff --git a/ComponentModel/Ranges/RangeList.vb b/ComponentModel/Ranges/RangeList.vb index 3b6b6be7..8f3c0d38 100644 --- a/ComponentModel/Ranges/RangeList.vb +++ b/ComponentModel/Ranges/RangeList.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::db823fc685023f06205b5c43d4ba9f77, ComponentModel\Ranges\RangeList.vb" +#Region "Microsoft.VisualBasic::db823fc685023f06205b5c43d4ba9f77, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeList.vb" ' Author: ' diff --git a/ComponentModel/Ranges/RangeModel/DoubleRange.vb b/ComponentModel/Ranges/RangeModel/DoubleRange.vb index 833ea88b..5b33a34a 100644 --- a/ComponentModel/Ranges/RangeModel/DoubleRange.vb +++ b/ComponentModel/Ranges/RangeModel/DoubleRange.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cb551ec303f9cd2f31b64681ea0a05db, ComponentModel\Ranges\RangeModel\DoubleRange.vb" +#Region "Microsoft.VisualBasic::d8cc465def7099c7702cb05d320c8746, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\DoubleRange.vb" ' Author: ' @@ -35,7 +35,7 @@ ' ' Properties: Length, Max, Min ' - ' Constructor: (+6 Overloads) Sub New + ' Constructor: (+7 Overloads) Sub New ' Function: Enumerate, GetEnumerator, IEnumerable_GetEnumerator, (+3 Overloads) IsInside, (+2 Overloads) IsOverlapping ' ScaleMapping, (+2 Overloads) ToString, TryParse ' Operators: *, <>, =, (+2 Overloads) Like diff --git a/ComponentModel/Ranges/RangeModel/IRanges.vb b/ComponentModel/Ranges/RangeModel/IRanges.vb index 35bfb157..9dc09d7a 100644 --- a/ComponentModel/Ranges/RangeModel/IRanges.vb +++ b/ComponentModel/Ranges/RangeModel/IRanges.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4afa0e3433c6b350276ffc1dab43fc17, ComponentModel\Ranges\RangeModel\IRanges.vb" +#Region "Microsoft.VisualBasic::4afa0e3433c6b350276ffc1dab43fc17, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\IRanges.vb" ' Author: ' diff --git a/ComponentModel/Ranges/RangeModel/IntRange.vb b/ComponentModel/Ranges/RangeModel/IntRange.vb index 6d5c5454..00e37f68 100644 --- a/ComponentModel/Ranges/RangeModel/IntRange.vb +++ b/ComponentModel/Ranges/RangeModel/IntRange.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7aaf99a205d4a67af35d7827b2a91f2f, ComponentModel\Ranges\RangeModel\IntRange.vb" +#Region "Microsoft.VisualBasic::7aaf99a205d4a67af35d7827b2a91f2f, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\IntRange.vb" ' Author: ' diff --git a/ComponentModel/Ranges/RangeModel/Range.vb b/ComponentModel/Ranges/RangeModel/Range.vb index a453d26b..6af122d6 100644 --- a/ComponentModel/Ranges/RangeModel/Range.vb +++ b/ComponentModel/Ranges/RangeModel/Range.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5358ad4da98838b9dabf00acc48c73fe, ComponentModel\Ranges\RangeModel\Range.vb" +#Region "Microsoft.VisualBasic::5358ad4da98838b9dabf00acc48c73fe, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\Range.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Relations.vb b/ComponentModel/Ranges/Relations.vb index 50e48c33..d348ff25 100644 --- a/ComponentModel/Ranges/Relations.vb +++ b/ComponentModel/Ranges/Relations.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::46642feb1338db563f29bfee8498d597, ComponentModel\Ranges\Relations.vb" +#Region "Microsoft.VisualBasic::46642feb1338db563f29bfee8498d597, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Relations.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Selector/IndexSelector.vb b/ComponentModel/Ranges/Selector/IndexSelector.vb index a5c830cb..1d3e9833 100644 --- a/ComponentModel/Ranges/Selector/IndexSelector.vb +++ b/ComponentModel/Ranges/Selector/IndexSelector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b7b6985a0997ef3768ef740897ce76e6, ComponentModel\Ranges\Selector\IndexSelector.vb" +#Region "Microsoft.VisualBasic::b7b6985a0997ef3768ef740897ce76e6, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Selector\IndexSelector.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Selector/IntTag.vb b/ComponentModel/Ranges/Selector/IntTag.vb index 9a4bad47..36c3abb0 100644 --- a/ComponentModel/Ranges/Selector/IntTag.vb +++ b/ComponentModel/Ranges/Selector/IntTag.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cad912ae1140ccfb151d96a22f387105, ComponentModel\Ranges\Selector\IntTag.vb" +#Region "Microsoft.VisualBasic::cad912ae1140ccfb151d96a22f387105, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Selector\IntTag.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Selector/NumericTagged.vb b/ComponentModel/Ranges/Selector/NumericTagged.vb index bdd72779..7fd0f9cd 100644 --- a/ComponentModel/Ranges/Selector/NumericTagged.vb +++ b/ComponentModel/Ranges/Selector/NumericTagged.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5fe28d8fe19788ad638c9172a49963b1, ComponentModel\Ranges\Selector\NumericTagged.vb" +#Region "Microsoft.VisualBasic::5fe28d8fe19788ad638c9172a49963b1, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Selector\NumericTagged.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Selector/SelectorExtensions.vb b/ComponentModel/Ranges/Selector/SelectorExtensions.vb index afcf445f..8439d486 100644 --- a/ComponentModel/Ranges/Selector/SelectorExtensions.vb +++ b/ComponentModel/Ranges/Selector/SelectorExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::15939da101ac28942dc583364c4fdc73, ComponentModel\Ranges\Selector\SelectorExtensions.vb" +#Region "Microsoft.VisualBasic::15939da101ac28942dc583364c4fdc73, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Selector\SelectorExtensions.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Unit.vb b/ComponentModel/Ranges/Unit.vb index b8120b84..2cb69d3a 100644 --- a/ComponentModel/Ranges/Unit.vb +++ b/ComponentModel/Ranges/Unit.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ddbfb5a6571bfb21e8d67c68844b81ff, ComponentModel\Ranges\Unit.vb" +#Region "Microsoft.VisualBasic::ddbfb5a6571bfb21e8d67c68844b81ff, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Unit.vb" ' Author: ' diff --git a/ComponentModel/RelayCommand.vb b/ComponentModel/RelayCommand.vb index 4959a7a8..dcd23384 100644 --- a/ComponentModel/RelayCommand.vb +++ b/ComponentModel/RelayCommand.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4b561929ac8aa841e80923efc6860ee8, ComponentModel\RelayCommand.vb" +#Region "Microsoft.VisualBasic::4b561929ac8aa841e80923efc6860ee8, Microsoft.VisualBasic.Core\ComponentModel\RelayCommand.vb" ' Author: ' diff --git a/ComponentModel/Settings/ConfigEngine.vb b/ComponentModel/Settings/ConfigEngine.vb index 7e78fd18..8a5bd7ee 100644 --- a/ComponentModel/Settings/ConfigEngine.vb +++ b/ComponentModel/Settings/ConfigEngine.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fb94b88579b5a80cf463c333ca85e8ea, ComponentModel\Settings\ConfigEngine.vb" +#Region "Microsoft.VisualBasic::fb94b88579b5a80cf463c333ca85e8ea, Microsoft.VisualBasic.Core\ComponentModel\Settings\ConfigEngine.vb" ' Author: ' diff --git a/ComponentModel/Settings/DataModels/BindMapping.vb b/ComponentModel/Settings/DataModels/BindMapping.vb index c3d96343..5b81f047 100644 --- a/ComponentModel/Settings/DataModels/BindMapping.vb +++ b/ComponentModel/Settings/DataModels/BindMapping.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ef3317fb5e61d1d32694c9f58aec294d, ComponentModel\Settings\DataModels\BindMapping.vb" +#Region "Microsoft.VisualBasic::ef3317fb5e61d1d32694c9f58aec294d, Microsoft.VisualBasic.Core\ComponentModel\Settings\DataModels\BindMapping.vb" ' Author: ' diff --git a/ComponentModel/Settings/DataModels/ModelBase.vb b/ComponentModel/Settings/DataModels/ModelBase.vb index 7b965744..e08a12b3 100644 --- a/ComponentModel/Settings/DataModels/ModelBase.vb +++ b/ComponentModel/Settings/DataModels/ModelBase.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4e460ae58064f52b4031d38acbaac7c1, ComponentModel\Settings\DataModels\ModelBase.vb" +#Region "Microsoft.VisualBasic::4e460ae58064f52b4031d38acbaac7c1, Microsoft.VisualBasic.Core\ComponentModel\Settings\DataModels\ModelBase.vb" ' Author: ' diff --git a/ComponentModel/Settings/DataModels/ProfileItem.vb b/ComponentModel/Settings/DataModels/ProfileItem.vb index 3083bc4b..696c6a52 100644 --- a/ComponentModel/Settings/DataModels/ProfileItem.vb +++ b/ComponentModel/Settings/DataModels/ProfileItem.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c9dcb5e3f47f6ca3fbd2267da011ed69, ComponentModel\Settings\DataModels\ProfileItem.vb" +#Region "Microsoft.VisualBasic::c9dcb5e3f47f6ca3fbd2267da011ed69, Microsoft.VisualBasic.Core\ComponentModel\Settings\DataModels\ProfileItem.vb" ' Author: ' diff --git a/ComponentModel/Settings/DataModels/ProfileTable.vb b/ComponentModel/Settings/DataModels/ProfileTable.vb index a6100d3f..1b8e8b44 100644 --- a/ComponentModel/Settings/DataModels/ProfileTable.vb +++ b/ComponentModel/Settings/DataModels/ProfileTable.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::25116c411d3081067fe2931bf057c3b6, ComponentModel\Settings\DataModels\ProfileTable.vb" +#Region "Microsoft.VisualBasic::25116c411d3081067fe2931bf057c3b6, Microsoft.VisualBasic.Core\ComponentModel\Settings\DataModels\ProfileTable.vb" ' Author: ' diff --git a/ComponentModel/Settings/Inf/ClassMapper.vb b/ComponentModel/Settings/Inf/ClassMapper.vb index 5fab7416..9cbca35d 100644 --- a/ComponentModel/Settings/Inf/ClassMapper.vb +++ b/ComponentModel/Settings/Inf/ClassMapper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fc9722d3dead7ea1fe31aeab80c665a3, ComponentModel\Settings\Inf\ClassMapper.vb" +#Region "Microsoft.VisualBasic::fc9722d3dead7ea1fe31aeab80c665a3, Microsoft.VisualBasic.Core\ComponentModel\Settings\Inf\ClassMapper.vb" ' Author: ' diff --git a/ComponentModel/Settings/Inf/INIProfile.vb b/ComponentModel/Settings/Inf/INIProfile.vb index 68a8e2bf..66b630e2 100644 --- a/ComponentModel/Settings/Inf/INIProfile.vb +++ b/ComponentModel/Settings/Inf/INIProfile.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cd7b0b8cf190022f2edd465c920b58e3, ComponentModel\Settings\Inf\INIProfile.vb" +#Region "Microsoft.VisualBasic::cd7b0b8cf190022f2edd465c920b58e3, Microsoft.VisualBasic.Core\ComponentModel\Settings\Inf\INIProfile.vb" ' Author: ' diff --git a/ComponentModel/Settings/Inf/IOProvider.vb b/ComponentModel/Settings/Inf/IOProvider.vb index cc98fe1e..88fc5914 100644 --- a/ComponentModel/Settings/Inf/IOProvider.vb +++ b/ComponentModel/Settings/Inf/IOProvider.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3d3eb3705667b82881bcc847fca2a15a, ComponentModel\Settings\Inf\IOProvider.vb" +#Region "Microsoft.VisualBasic::3d3eb3705667b82881bcc847fca2a15a, Microsoft.VisualBasic.Core\ComponentModel\Settings\Inf\IOProvider.vb" ' Author: ' diff --git a/ComponentModel/Settings/Inf/IniFile.vb b/ComponentModel/Settings/Inf/IniFile.vb index 53f653b5..a0c98547 100644 --- a/ComponentModel/Settings/Inf/IniFile.vb +++ b/ComponentModel/Settings/Inf/IniFile.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::136f0568fcde1a437db9944c1b3c978f, ComponentModel\Settings\Inf\IniFile.vb" +#Region "Microsoft.VisualBasic::136f0568fcde1a437db9944c1b3c978f, Microsoft.VisualBasic.Core\ComponentModel\Settings\Inf\IniFile.vb" ' Author: ' diff --git a/ComponentModel/Settings/Inf/Section.vb b/ComponentModel/Settings/Inf/Section.vb index 8fd6633d..2cb3d604 100644 --- a/ComponentModel/Settings/Inf/Section.vb +++ b/ComponentModel/Settings/Inf/Section.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d9ba2514d25c6d20d89e7697a06f554f, ComponentModel\Settings\Inf\Section.vb" +#Region "Microsoft.VisualBasic::d9ba2514d25c6d20d89e7697a06f554f, Microsoft.VisualBasic.Core\ComponentModel\Settings\Inf\Section.vb" ' Author: ' diff --git a/ComponentModel/Settings/Inf/Serialization.vb b/ComponentModel/Settings/Inf/Serialization.vb index d57198bb..2ed35789 100644 --- a/ComponentModel/Settings/Inf/Serialization.vb +++ b/ComponentModel/Settings/Inf/Serialization.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4c4bc00b15ec114103b991207f7ba1bd, ComponentModel\Settings\Inf\Serialization.vb" +#Region "Microsoft.VisualBasic::4c4bc00b15ec114103b991207f7ba1bd, Microsoft.VisualBasic.Core\ComponentModel\Settings\Inf\Serialization.vb" ' Author: ' diff --git a/ComponentModel/Settings/Settings.vb b/ComponentModel/Settings/Settings.vb index e60394ae..1e7f801d 100644 --- a/ComponentModel/Settings/Settings.vb +++ b/ComponentModel/Settings/Settings.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5da60dbd3e007a0efc48dec6e821a958, ComponentModel\Settings\Settings.vb" +#Region "Microsoft.VisualBasic::5da60dbd3e007a0efc48dec6e821a958, Microsoft.VisualBasic.Core\ComponentModel\Settings\Settings.vb" ' Author: ' diff --git a/ComponentModel/Settings/SimpleConfig.vb b/ComponentModel/Settings/SimpleConfig.vb index 01847031..3bd15fc9 100644 --- a/ComponentModel/Settings/SimpleConfig.vb +++ b/ComponentModel/Settings/SimpleConfig.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a33e499722e8f82ca55ee720a1cf47ca, ComponentModel\Settings\SimpleConfig.vb" +#Region "Microsoft.VisualBasic::a33e499722e8f82ca55ee720a1cf47ca, Microsoft.VisualBasic.Core\ComponentModel\Settings\SimpleConfig.vb" ' Author: ' diff --git a/ComponentModel/SingletonHolder.vb b/ComponentModel/SingletonHolder.vb index 69028ece..5dd58011 100644 --- a/ComponentModel/SingletonHolder.vb +++ b/ComponentModel/SingletonHolder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::923d8969616415108d9842f4375482e3, ComponentModel\SingletonHolder.vb" +#Region "Microsoft.VisualBasic::923d8969616415108d9842f4375482e3, Microsoft.VisualBasic.Core\ComponentModel\SingletonHolder.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/BucketDictionary.vb b/ComponentModel/System.Collections.Generic/BucketDictionary.vb index 542b20ef..e29a1e83 100644 --- a/ComponentModel/System.Collections.Generic/BucketDictionary.vb +++ b/ComponentModel/System.Collections.Generic/BucketDictionary.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3833795011a6ed46058df56330aca07e, ComponentModel\System.Collections.Generic\BucketDictionary.vb" +#Region "Microsoft.VisualBasic::3833795011a6ed46058df56330aca07e, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\BucketDictionary.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index b85b037a..41295f48 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::54e85494a04f696bb8540d6846ed52dc, ComponentModel\System.Collections.Generic\IndexOf.vb" +#Region "Microsoft.VisualBasic::54e85494a04f696bb8540d6846ed52dc, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/KeyDictionary.vb b/ComponentModel/System.Collections.Generic/KeyDictionary.vb index 14891a9d..d765df8c 100644 --- a/ComponentModel/System.Collections.Generic/KeyDictionary.vb +++ b/ComponentModel/System.Collections.Generic/KeyDictionary.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::236e26fa514031145c6e91dcd119e08b, ComponentModel\System.Collections.Generic\KeyDictionary.vb" +#Region "Microsoft.VisualBasic::236e26fa514031145c6e91dcd119e08b, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\KeyDictionary.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/MapsHelper.vb b/ComponentModel/System.Collections.Generic/MapsHelper.vb index c7603454..5c3bd7d0 100644 --- a/ComponentModel/System.Collections.Generic/MapsHelper.vb +++ b/ComponentModel/System.Collections.Generic/MapsHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::92731cf4f0f1ec25a156c62baa4adfb4, ComponentModel\System.Collections.Generic\MapsHelper.vb" +#Region "Microsoft.VisualBasic::92731cf4f0f1ec25a156c62baa4adfb4, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\MapsHelper.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/PriorityQueue/Abstract.vb b/ComponentModel/System.Collections.Generic/PriorityQueue/Abstract.vb index cd1c0cfc..2fb25647 100644 --- a/ComponentModel/System.Collections.Generic/PriorityQueue/Abstract.vb +++ b/ComponentModel/System.Collections.Generic/PriorityQueue/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bca0d86dd22bc409d262feb73d47f50b, ComponentModel\System.Collections.Generic\PriorityQueue\Abstract.vb" +#Region "Microsoft.VisualBasic::bca0d86dd22bc409d262feb73d47f50b, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\PriorityQueue\Abstract.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/PriorityQueue/BinaryPriorityQueue.vb b/ComponentModel/System.Collections.Generic/PriorityQueue/BinaryPriorityQueue.vb index b05a98d3..3a3a94e2 100644 --- a/ComponentModel/System.Collections.Generic/PriorityQueue/BinaryPriorityQueue.vb +++ b/ComponentModel/System.Collections.Generic/PriorityQueue/BinaryPriorityQueue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7ea121c6ee5b5da0ea643b7db0334da4, ComponentModel\System.Collections.Generic\PriorityQueue\BinaryPriorityQueue.vb" +#Region "Microsoft.VisualBasic::7ea121c6ee5b5da0ea643b7db0334da4, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\PriorityQueue\BinaryPriorityQueue.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/PriorityQueue/PairingHeap.vb b/ComponentModel/System.Collections.Generic/PriorityQueue/PairingHeap.vb index 6a5ada95..095546ab 100644 --- a/ComponentModel/System.Collections.Generic/PriorityQueue/PairingHeap.vb +++ b/ComponentModel/System.Collections.Generic/PriorityQueue/PairingHeap.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c73bfb90554e5410139e2ebb022e563b, ComponentModel\System.Collections.Generic\PriorityQueue\PairingHeap.vb" +#Region "Microsoft.VisualBasic::c73bfb90554e5410139e2ebb022e563b, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\PriorityQueue\PairingHeap.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb b/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb index 108740bc..f2964bcf 100644 --- a/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb +++ b/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5ace0d2cf316361ee4908b71b18ba6dd, ComponentModel\System.Collections.Generic\PriorityQueue\PriorityQueue.vb" +#Region "Microsoft.VisualBasic::5ace0d2cf316361ee4908b71b18ba6dd, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\PriorityQueue\PriorityQueue.vb" ' Author: ' diff --git a/ComponentModel/TimeSpan.vb b/ComponentModel/TimeSpan.vb index 87ed3d71..ba03c6a0 100644 --- a/ComponentModel/TimeSpan.vb +++ b/ComponentModel/TimeSpan.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cdf4edfa1d484a1bfe9c77f0aab04e58, ComponentModel\TimeSpan.vb" +#Region "Microsoft.VisualBasic::cdf4edfa1d484a1bfe9c77f0aab04e58, Microsoft.VisualBasic.Core\ComponentModel\TimeSpan.vb" ' Author: ' diff --git a/ComponentModel/Uid.vb b/ComponentModel/Uid.vb index a19b5c18..b742e174 100644 --- a/ComponentModel/Uid.vb +++ b/ComponentModel/Uid.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c5dec718721c6b50c72a06dfd4dbecbb, ComponentModel\Uid.vb" +#Region "Microsoft.VisualBasic::c5dec718721c6b50c72a06dfd4dbecbb, Microsoft.VisualBasic.Core\ComponentModel\Uid.vb" ' Author: ' diff --git a/ComponentModel/ValuePair/Binding.vb b/ComponentModel/ValuePair/Binding.vb index f25ece17..d61adddd 100644 --- a/ComponentModel/ValuePair/Binding.vb +++ b/ComponentModel/ValuePair/Binding.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::00ff821a099908e75295b177c069fae6, ComponentModel\ValuePair\Binding.vb" +#Region "Microsoft.VisualBasic::00ff821a099908e75295b177c069fae6, Microsoft.VisualBasic.Core\ComponentModel\ValuePair\Binding.vb" ' Author: ' diff --git a/ComponentModel/ValuePair/GenericAbstract.vb b/ComponentModel/ValuePair/GenericAbstract.vb index d51be0f1..0d2c23da 100644 --- a/ComponentModel/ValuePair/GenericAbstract.vb +++ b/ComponentModel/ValuePair/GenericAbstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6bac3abad158dee19713f863974f75ae, ComponentModel\ValuePair\GenericAbstract.vb" +#Region "Microsoft.VisualBasic::6bac3abad158dee19713f863974f75ae, Microsoft.VisualBasic.Core\ComponentModel\ValuePair\GenericAbstract.vb" ' Author: ' diff --git a/ComponentModel/ValuePair/NamedTuple.vb b/ComponentModel/ValuePair/NamedTuple.vb index 8d1e8789..d130a5e0 100644 --- a/ComponentModel/ValuePair/NamedTuple.vb +++ b/ComponentModel/ValuePair/NamedTuple.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7fcc9d024b07357353ddd681a28a6080, ComponentModel\ValuePair\NamedTuple.vb" +#Region "Microsoft.VisualBasic::7fcc9d024b07357353ddd681a28a6080, Microsoft.VisualBasic.Core\ComponentModel\ValuePair\NamedTuple.vb" ' Author: ' diff --git a/ComponentModel/ValuePair/TagData/FactorValue.vb b/ComponentModel/ValuePair/TagData/FactorValue.vb index cbc8d25c..89c59733 100644 --- a/ComponentModel/ValuePair/TagData/FactorValue.vb +++ b/ComponentModel/ValuePair/TagData/FactorValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e5f6f962adb352ccd0e7877755b9c8e5, ComponentModel\ValuePair\TagData\FactorValue.vb" +#Region "Microsoft.VisualBasic::e5f6f962adb352ccd0e7877755b9c8e5, Microsoft.VisualBasic.Core\ComponentModel\ValuePair\TagData\FactorValue.vb" ' Author: ' diff --git a/ComponentModel/ValuePair/TagData/Indexing.vb b/ComponentModel/ValuePair/TagData/Indexing.vb index 6d13c9ea..dbcbe560 100644 --- a/ComponentModel/ValuePair/TagData/Indexing.vb +++ b/ComponentModel/ValuePair/TagData/Indexing.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5fde000ea39b59dbe36acf5e98f7f01c, ComponentModel\ValuePair\TagData\Indexing.vb" +#Region "Microsoft.VisualBasic::5fde000ea39b59dbe36acf5e98f7f01c, Microsoft.VisualBasic.Core\ComponentModel\ValuePair\TagData\Indexing.vb" ' Author: ' diff --git a/ComponentModel/ValuePair/TagData/LineValue.vb b/ComponentModel/ValuePair/TagData/LineValue.vb index b52c57dd..5d360bc0 100644 --- a/ComponentModel/ValuePair/TagData/LineValue.vb +++ b/ComponentModel/ValuePair/TagData/LineValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ed5ba19c67abf11edf0e3844aef51abf, ComponentModel\ValuePair\TagData\LineValue.vb" +#Region "Microsoft.VisualBasic::ed5ba19c67abf11edf0e3844aef51abf, Microsoft.VisualBasic.Core\ComponentModel\ValuePair\TagData\LineValue.vb" ' Author: ' diff --git a/ComponentModel/ValuePair/TagData/TagData.vb b/ComponentModel/ValuePair/TagData/TagData.vb index c27abb60..f0671277 100644 --- a/ComponentModel/ValuePair/TagData/TagData.vb +++ b/ComponentModel/ValuePair/TagData/TagData.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::68b027c2426ee954592b66c111ef89b7, ComponentModel\ValuePair\TagData\TagData.vb" +#Region "Microsoft.VisualBasic::68b027c2426ee954592b66c111ef89b7, Microsoft.VisualBasic.Core\ComponentModel\ValuePair\TagData\TagData.vb" ' Author: ' diff --git a/Extensions/CodeDOM/CodeDOM.vb b/Extensions/CodeDOM/CodeDOM.vb index 78161526..8ef9260d 100644 --- a/Extensions/CodeDOM/CodeDOM.vb +++ b/Extensions/CodeDOM/CodeDOM.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e99753ec5166b18cdaceb4e0fe015449, Extensions\CodeDOM\CodeDOM.vb" +#Region "Microsoft.VisualBasic::e99753ec5166b18cdaceb4e0fe015449, Microsoft.VisualBasic.Core\Extensions\CodeDOM\CodeDOM.vb" ' Author: ' diff --git a/Extensions/CodeDOM/CodeDOMExpressions.vb b/Extensions/CodeDOM/CodeDOMExpressions.vb index cd9acd26..741aa79b 100644 --- a/Extensions/CodeDOM/CodeDOMExpressions.vb +++ b/Extensions/CodeDOM/CodeDOMExpressions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::062abf9170cbd65288b462d737aac04f, Extensions\CodeDOM\CodeDOMExpressions.vb" +#Region "Microsoft.VisualBasic::062abf9170cbd65288b462d737aac04f, Microsoft.VisualBasic.Core\Extensions\CodeDOM\CodeDOMExpressions.vb" ' Author: ' diff --git a/Extensions/CodeDOM/CodeHelper.vb b/Extensions/CodeDOM/CodeHelper.vb index 4335d072..dd753341 100644 --- a/Extensions/CodeDOM/CodeHelper.vb +++ b/Extensions/CodeDOM/CodeHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a932a3b98d366ee02de011c3b4c836eb, Extensions\CodeDOM\CodeHelper.vb" +#Region "Microsoft.VisualBasic::a932a3b98d366ee02de011c3b4c836eb, Microsoft.VisualBasic.Core\Extensions\CodeDOM\CodeHelper.vb" ' Author: ' diff --git a/Extensions/CodeDOM/References.vb b/Extensions/CodeDOM/References.vb index 8c5ec881..608a95fd 100644 --- a/Extensions/CodeDOM/References.vb +++ b/Extensions/CodeDOM/References.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::17fb9b3d17c8919d3b11a0521564013d, Extensions\CodeDOM\References.vb" +#Region "Microsoft.VisualBasic::17fb9b3d17c8919d3b11a0521564013d, Microsoft.VisualBasic.Core\Extensions\CodeDOM\References.vb" ' Author: ' diff --git a/Extensions/CodeDOM/VBC.vb b/Extensions/CodeDOM/VBC.vb index 4b7415d1..9e36fdf7 100644 --- a/Extensions/CodeDOM/VBC.vb +++ b/Extensions/CodeDOM/VBC.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6a37b6f937164793150a19d2d292c16e, Extensions\CodeDOM\VBC.vb" +#Region "Microsoft.VisualBasic::6a37b6f937164793150a19d2d292c16e, Microsoft.VisualBasic.Core\Extensions\CodeDOM\VBC.vb" ' Author: ' diff --git a/Extensions/Collection/AnonymousTypeHelper.vb b/Extensions/Collection/AnonymousTypeHelper.vb index ec031a88..95234b01 100644 --- a/Extensions/Collection/AnonymousTypeHelper.vb +++ b/Extensions/Collection/AnonymousTypeHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d4f476bccb1fc043519be1073163b50f, Extensions\Collection\AnonymousTypeHelper.vb" +#Region "Microsoft.VisualBasic::d4f476bccb1fc043519be1073163b50f, Microsoft.VisualBasic.Core\Extensions\Collection\AnonymousTypeHelper.vb" ' Author: ' diff --git a/Extensions/Collection/BucketExtensions.vb b/Extensions/Collection/BucketExtensions.vb index 92ce560f..bb2caa22 100644 --- a/Extensions/Collection/BucketExtensions.vb +++ b/Extensions/Collection/BucketExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b2874cf966dde9b3b6b71e903cf32a2d, Extensions\Collection\BucketExtensions.vb" +#Region "Microsoft.VisualBasic::b2874cf966dde9b3b6b71e903cf32a2d, Microsoft.VisualBasic.Core\Extensions\Collection\BucketExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/ByteStreamExtensions.vb b/Extensions/Collection/ByteStreamExtensions.vb index 62a4040f..270f23e1 100644 --- a/Extensions/Collection/ByteStreamExtensions.vb +++ b/Extensions/Collection/ByteStreamExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8d13c139900788629b8facfbad71157c, Extensions\Collection\ByteStreamExtensions.vb" +#Region "Microsoft.VisualBasic::8d13c139900788629b8facfbad71157c, Microsoft.VisualBasic.Core\Extensions\Collection\ByteStreamExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/Enumerable.vb b/Extensions/Collection/Enumerable.vb index 9f4208ba..1f9412ce 100644 --- a/Extensions/Collection/Enumerable.vb +++ b/Extensions/Collection/Enumerable.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1dd37d36153684f17defa3b71c50f41e, Extensions\Collection\Enumerable.vb" +#Region "Microsoft.VisualBasic::1dd37d36153684f17defa3b71c50f41e, Microsoft.VisualBasic.Core\Extensions\Collection\Enumerable.vb" ' Author: ' diff --git a/Extensions/Collection/IsNullOrEmptyExtensions.vb b/Extensions/Collection/IsNullOrEmptyExtensions.vb index 6285b43a..bf7e1c6a 100644 --- a/Extensions/Collection/IsNullOrEmptyExtensions.vb +++ b/Extensions/Collection/IsNullOrEmptyExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d5e16014c313463cfdc1db5fb83d1bfd, Extensions\Collection\IsNullOrEmptyExtensions.vb" +#Region "Microsoft.VisualBasic::d5e16014c313463cfdc1db5fb83d1bfd, Microsoft.VisualBasic.Core\Extensions\Collection\IsNullOrEmptyExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index 1c5e4446..70d703ba 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::be6da859a70b35c56d45b6240422e30a, Extensions\Collection\KeyValuePair.vb" +#Region "Microsoft.VisualBasic::4c026d261e64952d9a7ef92a273c04ed, Microsoft.VisualBasic.Core\Extensions\Collection\KeyValuePair.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Enumeration.vb b/Extensions/Collection/Linq/Enumeration.vb index 8595ea92..943040f6 100644 --- a/Extensions/Collection/Linq/Enumeration.vb +++ b/Extensions/Collection/Linq/Enumeration.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c3aab7de20209777ad612db67e2ee059, Extensions\Collection\Linq\Enumeration.vb" +#Region "Microsoft.VisualBasic::c3aab7de20209777ad612db67e2ee059, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Enumeration.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Iterator.vb b/Extensions/Collection/Linq/Iterator.vb index 3dd2993d..a5b8e00a 100644 --- a/Extensions/Collection/Linq/Iterator.vb +++ b/Extensions/Collection/Linq/Iterator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4f967b32a35764690c19ec884768c35f, Extensions\Collection\Linq\Iterator.vb" +#Region "Microsoft.VisualBasic::4f967b32a35764690c19ec884768c35f, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Iterator.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Linq.vb b/Extensions/Collection/Linq/Linq.vb index 2a60c781..5d25e920 100644 --- a/Extensions/Collection/Linq/Linq.vb +++ b/Extensions/Collection/Linq/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::157301c28eb348f8edfe58d6477fadcb, Extensions\Collection\Linq\Linq.vb" +#Region "Microsoft.VisualBasic::157301c28eb348f8edfe58d6477fadcb, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Linq.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/NumericSequence.vb b/Extensions/Collection/Linq/NumericSequence.vb index 6e069998..251a7f37 100644 --- a/Extensions/Collection/Linq/NumericSequence.vb +++ b/Extensions/Collection/Linq/NumericSequence.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::95155070099b2ba9b2814538e446dacd, Extensions\Collection\Linq\NumericSequence.vb" +#Region "Microsoft.VisualBasic::95155070099b2ba9b2814538e446dacd, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\NumericSequence.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Pipeline.vb b/Extensions/Collection/Linq/Pipeline.vb index c6c80776..0dc6ae80 100644 --- a/Extensions/Collection/Linq/Pipeline.vb +++ b/Extensions/Collection/Linq/Pipeline.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d9677feaaf50ab1429a4c83031821160, Extensions\Collection\Linq\Pipeline.vb" +#Region "Microsoft.VisualBasic::d9677feaaf50ab1429a4c83031821160, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Pipeline.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/SeqValue.vb b/Extensions/Collection/Linq/SeqValue.vb index 248e9ca3..79b054fc 100644 --- a/Extensions/Collection/Linq/SeqValue.vb +++ b/Extensions/Collection/Linq/SeqValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::14c04f9e275fa69452350d6e3f26a155, Extensions\Collection\Linq\SeqValue.vb" +#Region "Microsoft.VisualBasic::14c04f9e275fa69452350d6e3f26a155, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\SeqValue.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/SetValue.vb b/Extensions/Collection/Linq/SetValue.vb index b142496c..2a748cb9 100644 --- a/Extensions/Collection/Linq/SetValue.vb +++ b/Extensions/Collection/Linq/SetValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fb23f87e901dbe3b09902ba28ad2c6d1, Extensions\Collection\Linq\SetValue.vb" +#Region "Microsoft.VisualBasic::fb23f87e901dbe3b09902ba28ad2c6d1, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\SetValue.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Takes.vb b/Extensions/Collection/Linq/Takes.vb index e01736a0..9ebe722d 100644 --- a/Extensions/Collection/Linq/Takes.vb +++ b/Extensions/Collection/Linq/Takes.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5bb371dabfa029b99aea6eec5d9d3744, Extensions\Collection\Linq\Takes.vb" +#Region "Microsoft.VisualBasic::5bb371dabfa029b99aea6eec5d9d3744, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Takes.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/VectorAssertExtensions.vb b/Extensions/Collection/Linq/VectorAssertExtensions.vb index 7ccee9f1..e83463a1 100644 --- a/Extensions/Collection/Linq/VectorAssertExtensions.vb +++ b/Extensions/Collection/Linq/VectorAssertExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2aa1d595aa123f2c055f05a31040cfd1, Extensions\Collection\Linq\VectorAssertExtensions.vb" +#Region "Microsoft.VisualBasic::2aa1d595aa123f2c055f05a31040cfd1, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\VectorAssertExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/VectorAssertor.vb b/Extensions/Collection/Linq/VectorAssertor.vb index 2dd79d1a..789ab6fe 100644 --- a/Extensions/Collection/Linq/VectorAssertor.vb +++ b/Extensions/Collection/Linq/VectorAssertor.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::730427f4a9abf5b32dc2a672b92d2ec2, Extensions\Collection\Linq\VectorAssertor.vb" +#Region "Microsoft.VisualBasic::730427f4a9abf5b32dc2a672b92d2ec2, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\VectorAssertor.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Which.vb b/Extensions/Collection/Linq/Which.vb index 7f784a34..d7138e8a 100644 --- a/Extensions/Collection/Linq/Which.vb +++ b/Extensions/Collection/Linq/Which.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f46156ba68fd9ebc213a08670dd4b462, Extensions\Collection\Linq\Which.vb" +#Region "Microsoft.VisualBasic::f46156ba68fd9ebc213a08670dd4b462, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Which.vb" ' Author: ' diff --git a/Extensions/Collection/ListExtensions.vb b/Extensions/Collection/ListExtensions.vb index abc6da4f..ea6d3345 100644 --- a/Extensions/Collection/ListExtensions.vb +++ b/Extensions/Collection/ListExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b8f5d35527c282e7618a88f09171b0a6, Extensions\Collection\ListExtensions.vb" +#Region "Microsoft.VisualBasic::b8f5d35527c282e7618a88f09171b0a6, Microsoft.VisualBasic.Core\Extensions\Collection\ListExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/Matrix.vb b/Extensions/Collection/Matrix.vb index 78915507..d004ff26 100644 --- a/Extensions/Collection/Matrix.vb +++ b/Extensions/Collection/Matrix.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::44bec93731efa49cd5c9e88b17824d27, Extensions\Collection\Matrix.vb" +#Region "Microsoft.VisualBasic::44bec93731efa49cd5c9e88b17824d27, Microsoft.VisualBasic.Core\Extensions\Collection\Matrix.vb" ' Author: ' diff --git a/Extensions/Collection/Vector.vb b/Extensions/Collection/Vector.vb index 78e6f118..afe4638e 100644 --- a/Extensions/Collection/Vector.vb +++ b/Extensions/Collection/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::30a099d1490b4b86e4a02b1e6d2f963d, Extensions\Collection\Vector.vb" +#Region "Microsoft.VisualBasic::30a099d1490b4b86e4a02b1e6d2f963d, Microsoft.VisualBasic.Core\Extensions\Collection\Vector.vb" ' Author: ' diff --git a/Extensions/Doc/LargeTextFile.vb b/Extensions/Doc/LargeTextFile.vb index 23bc1a97..fb41ff5e 100644 --- a/Extensions/Doc/LargeTextFile.vb +++ b/Extensions/Doc/LargeTextFile.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::35b98f098b8ac4571c78e8ce214c30ae, Extensions\Doc\LargeTextFile.vb" +#Region "Microsoft.VisualBasic::35b98f098b8ac4571c78e8ce214c30ae, Microsoft.VisualBasic.Core\Extensions\Doc\LargeTextFile.vb" ' Author: ' diff --git a/Extensions/Doc/PartitionedStream.vb b/Extensions/Doc/PartitionedStream.vb index cd88c5cc..46741d35 100644 --- a/Extensions/Doc/PartitionedStream.vb +++ b/Extensions/Doc/PartitionedStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::349dba59af30a71bbdc1a237da4f671c, Extensions\Doc\PartitionedStream.vb" +#Region "Microsoft.VisualBasic::349dba59af30a71bbdc1a237da4f671c, Microsoft.VisualBasic.Core\Extensions\Doc\PartitionedStream.vb" ' Author: ' diff --git a/Extensions/Doc/Text.vb b/Extensions/Doc/Text.vb index 57ad61c3..d550be5b 100644 --- a/Extensions/Doc/Text.vb +++ b/Extensions/Doc/Text.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::400f086acc384a348306716fc505f3ed, Extensions\Doc\Text.vb" +#Region "Microsoft.VisualBasic::400f086acc384a348306716fc505f3ed, Microsoft.VisualBasic.Core\Extensions\Doc\Text.vb" ' Author: ' diff --git a/Extensions/Doc/XmlExtensions.vb b/Extensions/Doc/XmlExtensions.vb index 55282148..f8f3308c 100644 --- a/Extensions/Doc/XmlExtensions.vb +++ b/Extensions/Doc/XmlExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0f0a1457babe6094d042d9534c9a9e52, Extensions\Doc\XmlExtensions.vb" +#Region "Microsoft.VisualBasic::0f0a1457babe6094d042d9534c9a9e52, Microsoft.VisualBasic.Core\Extensions\Doc\XmlExtensions.vb" ' Author: ' diff --git a/Extensions/Extensions.vb b/Extensions/Extensions.vb index bcee97b6..21783d4a 100644 --- a/Extensions/Extensions.vb +++ b/Extensions/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6433d6d8b6a514a8f1ff9c7a7624890b, Extensions\Extensions.vb" +#Region "Microsoft.VisualBasic::6433d6d8b6a514a8f1ff9c7a7624890b, Microsoft.VisualBasic.Core\Extensions\Extensions.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/Extensions.vb b/Extensions/IO/Extensions/Extensions.vb index 5d85db69..9d06c36b 100644 --- a/Extensions/IO/Extensions/Extensions.vb +++ b/Extensions/IO/Extensions/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dd2a158234e426a88e2e3a25a1b611e3, Extensions\IO\Extensions\Extensions.vb" +#Region "Microsoft.VisualBasic::dd2a158234e426a88e2e3a25a1b611e3, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\Extensions.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/IO.vb b/Extensions/IO/Extensions/IO.vb index e4c02a74..b1a8aee6 100644 --- a/Extensions/IO/Extensions/IO.vb +++ b/Extensions/IO/Extensions/IO.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2fc962b5cafdc719056489d0069a2859, Extensions\IO\Extensions\IO.vb" +#Region "Microsoft.VisualBasic::2fc962b5cafdc719056489d0069a2859, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\IO.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/NetFile.vb b/Extensions/IO/Extensions/NetFile.vb index b2865384..cbf0f52d 100644 --- a/Extensions/IO/Extensions/NetFile.vb +++ b/Extensions/IO/Extensions/NetFile.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::765d3616374e97c0d4ce0e6392c22f29, Extensions\IO\Extensions\NetFile.vb" +#Region "Microsoft.VisualBasic::765d3616374e97c0d4ce0e6392c22f29, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\NetFile.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/PathExtensions.vb b/Extensions/IO/Extensions/PathExtensions.vb index 0d12b012..59d2a59f 100644 --- a/Extensions/IO/Extensions/PathExtensions.vb +++ b/Extensions/IO/Extensions/PathExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4f5d0dea545dc27fb96d0c4b194c8f5d, Extensions\IO\Extensions\PathExtensions.vb" +#Region "Microsoft.VisualBasic::4f5d0dea545dc27fb96d0c4b194c8f5d, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\PathExtensions.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/SerializationIO.vb b/Extensions/IO/Extensions/SerializationIO.vb index ff85316a..f04597ff 100644 --- a/Extensions/IO/Extensions/SerializationIO.vb +++ b/Extensions/IO/Extensions/SerializationIO.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f289b2fab36ed193256bcd8c3ed7652c, Extensions\IO\Extensions\SerializationIO.vb" +#Region "Microsoft.VisualBasic::f289b2fab36ed193256bcd8c3ed7652c, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\SerializationIO.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/StreamHelper.vb b/Extensions/IO/Extensions/StreamHelper.vb index a3b6d356..c77a3bc0 100644 --- a/Extensions/IO/Extensions/StreamHelper.vb +++ b/Extensions/IO/Extensions/StreamHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0e0b7f03fe5774e8e50fcc26f1552a74, Extensions\IO\Extensions\StreamHelper.vb" +#Region "Microsoft.VisualBasic::0e0b7f03fe5774e8e50fcc26f1552a74, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\StreamHelper.vb" ' Author: ' diff --git a/Extensions/IO/IOStream.vb b/Extensions/IO/IOStream.vb index 6929be00..01101353 100644 --- a/Extensions/IO/IOStream.vb +++ b/Extensions/IO/IOStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2c8ada758c08c77859df0312c0e4ba02, Extensions\IO\IOStream.vb" +#Region "Microsoft.VisualBasic::2c8ada758c08c77859df0312c0e4ba02, Microsoft.VisualBasic.Core\Extensions\IO\IOStream.vb" ' Author: ' diff --git a/Extensions/IO/Path/CopyDirectory.vb b/Extensions/IO/Path/CopyDirectory.vb index bd5c2917..ea8a536a 100644 --- a/Extensions/IO/Path/CopyDirectory.vb +++ b/Extensions/IO/Path/CopyDirectory.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b62bde2bf71d64669151efc2987e6471, Extensions\IO\Path\CopyDirectory.vb" +#Region "Microsoft.VisualBasic::b62bde2bf71d64669151efc2987e6471, Microsoft.VisualBasic.Core\Extensions\IO\Path\CopyDirectory.vb" ' Author: ' diff --git a/Extensions/IO/Path/Directory.vb b/Extensions/IO/Path/Directory.vb index 1498ccf2..4117f3ab 100644 --- a/Extensions/IO/Path/Directory.vb +++ b/Extensions/IO/Path/Directory.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::63cbc4dd9aec4e57d75e98e7437fe50d, Extensions\IO\Path\Directory.vb" +#Region "Microsoft.VisualBasic::63cbc4dd9aec4e57d75e98e7437fe50d, Microsoft.VisualBasic.Core\Extensions\IO\Path\Directory.vb" ' Author: ' diff --git a/Extensions/IO/Path/Extensions.vb b/Extensions/IO/Path/Extensions.vb index d37541bf..98b692b2 100644 --- a/Extensions/IO/Path/Extensions.vb +++ b/Extensions/IO/Path/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1b9aad55631216c0693df3837adeb35e, Extensions\IO\Path\Extensions.vb" +#Region "Microsoft.VisualBasic::1b9aad55631216c0693df3837adeb35e, Microsoft.VisualBasic.Core\Extensions\IO\Path\Extensions.vb" ' Author: ' diff --git a/Extensions/IO/Path/Includes.vb b/Extensions/IO/Path/Includes.vb index b5a88cb2..018e4f35 100644 --- a/Extensions/IO/Path/Includes.vb +++ b/Extensions/IO/Path/Includes.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b7202c8182af67db8c9484cd28e50bfd, Extensions\IO\Path\Includes.vb" +#Region "Microsoft.VisualBasic::b7202c8182af67db8c9484cd28e50bfd, Microsoft.VisualBasic.Core\Extensions\IO\Path\Includes.vb" ' Author: ' diff --git a/Extensions/IO/Path/PathMatch.vb b/Extensions/IO/Path/PathMatch.vb index f2922f9d..e3dac1cf 100644 --- a/Extensions/IO/Path/PathMatch.vb +++ b/Extensions/IO/Path/PathMatch.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::61ebdc47db0f1d4716597be0889e90ec, Extensions\IO\Path\PathMatch.vb" +#Region "Microsoft.VisualBasic::61ebdc47db0f1d4716597be0889e90ec, Microsoft.VisualBasic.Core\Extensions\IO\Path\PathMatch.vb" ' Author: ' diff --git a/Extensions/IO/Path/ProgramPathSearchTool.vb b/Extensions/IO/Path/ProgramPathSearchTool.vb index d06da59d..a0297175 100644 --- a/Extensions/IO/Path/ProgramPathSearchTool.vb +++ b/Extensions/IO/Path/ProgramPathSearchTool.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::69ea48bcfccd3737ab9c2660a4589dd6, Extensions\IO\Path\ProgramPathSearchTool.vb" +#Region "Microsoft.VisualBasic::69ea48bcfccd3737ab9c2660a4589dd6, Microsoft.VisualBasic.Core\Extensions\IO\Path\ProgramPathSearchTool.vb" ' Author: ' diff --git a/Extensions/IO/Path/TemporaryEnvironment.vb b/Extensions/IO/Path/TemporaryEnvironment.vb index 83ea6023..d811054c 100644 --- a/Extensions/IO/Path/TemporaryEnvironment.vb +++ b/Extensions/IO/Path/TemporaryEnvironment.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::652e836aa26b48201bf557c4ff71967b, Extensions\IO\Path\TemporaryEnvironment.vb" +#Region "Microsoft.VisualBasic::652e836aa26b48201bf557c4ff71967b, Microsoft.VisualBasic.Core\Extensions\IO\Path\TemporaryEnvironment.vb" ' Author: ' diff --git a/Extensions/IO/SymLinker/HardLink.vb b/Extensions/IO/SymLinker/HardLink.vb index f7df0460..0bef0d4a 100644 --- a/Extensions/IO/SymLinker/HardLink.vb +++ b/Extensions/IO/SymLinker/HardLink.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::11141ac6b69c11c3cc556ac585589f7e, Extensions\IO\SymLinker\HardLink.vb" +#Region "Microsoft.VisualBasic::11141ac6b69c11c3cc556ac585589f7e, Microsoft.VisualBasic.Core\Extensions\IO\SymLinker\HardLink.vb" ' Author: ' diff --git a/Extensions/IO/SymLinker/JunctionPoint.vb b/Extensions/IO/SymLinker/JunctionPoint.vb index 1d1d64a6..b41aff6b 100644 --- a/Extensions/IO/SymLinker/JunctionPoint.vb +++ b/Extensions/IO/SymLinker/JunctionPoint.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::45cba76eb3740ed7b4fc2419ff4ccfe9, Extensions\IO\SymLinker\JunctionPoint.vb" +#Region "Microsoft.VisualBasic::45cba76eb3740ed7b4fc2419ff4ccfe9, Microsoft.VisualBasic.Core\Extensions\IO\SymLinker\JunctionPoint.vb" ' Author: ' diff --git a/Extensions/IO/SymLinker/SymbolicLink.vb b/Extensions/IO/SymLinker/SymbolicLink.vb index a0d2f178..a2576ee2 100644 --- a/Extensions/IO/SymLinker/SymbolicLink.vb +++ b/Extensions/IO/SymLinker/SymbolicLink.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3657912b74e191d47455cc60f5792cc7, Extensions\IO\SymLinker\SymbolicLink.vb" +#Region "Microsoft.VisualBasic::3657912b74e191d47455cc60f5792cc7, Microsoft.VisualBasic.Core\Extensions\IO\SymLinker\SymbolicLink.vb" ' Author: ' diff --git a/Extensions/Image/Bitmap/BitmapBuffer.vb b/Extensions/Image/Bitmap/BitmapBuffer.vb index 93042349..2552b8b2 100644 --- a/Extensions/Image/Bitmap/BitmapBuffer.vb +++ b/Extensions/Image/Bitmap/BitmapBuffer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1a312091558bad2f52a060f5e955bf87, Extensions\Image\Bitmap\BitmapBuffer.vb" +#Region "Microsoft.VisualBasic::1a312091558bad2f52a060f5e955bf87, Microsoft.VisualBasic.Core\Extensions\Image\Bitmap\BitmapBuffer.vb" ' Author: ' diff --git a/Extensions/Image/Bitmap/BitmapScale.vb b/Extensions/Image/Bitmap/BitmapScale.vb index e32a4ffc..3cd3f3d3 100644 --- a/Extensions/Image/Bitmap/BitmapScale.vb +++ b/Extensions/Image/Bitmap/BitmapScale.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8558b2fb94b68822f62a8bb63df7db18, Extensions\Image\Bitmap\BitmapScale.vb" +#Region "Microsoft.VisualBasic::8558b2fb94b68822f62a8bb63df7db18, Microsoft.VisualBasic.Core\Extensions\Image\Bitmap\BitmapScale.vb" ' Author: ' diff --git a/Extensions/Image/Bitmap/Effects.vb b/Extensions/Image/Bitmap/Effects.vb index 2f3627ef..c502a806 100644 --- a/Extensions/Image/Bitmap/Effects.vb +++ b/Extensions/Image/Bitmap/Effects.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::06ec40e2ebe79f96f8ab8b90ec897f42, Extensions\Image\Bitmap\Effects.vb" +#Region "Microsoft.VisualBasic::06ec40e2ebe79f96f8ab8b90ec897f42, Microsoft.VisualBasic.Core\Extensions\Image\Bitmap\Effects.vb" ' Author: ' diff --git a/Extensions/Image/Bitmap/Utils.vb b/Extensions/Image/Bitmap/Utils.vb index fc337fd5..1c681e2a 100644 --- a/Extensions/Image/Bitmap/Utils.vb +++ b/Extensions/Image/Bitmap/Utils.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b2be756d6700b2f582a7f0b902cbff76, Extensions\Image\Bitmap\Utils.vb" +#Region "Microsoft.VisualBasic::b2be756d6700b2f582a7f0b902cbff76, Microsoft.VisualBasic.Core\Extensions\Image\Bitmap\Utils.vb" ' Author: ' diff --git a/Extensions/Image/Colors/ColorCube.vb b/Extensions/Image/Colors/ColorCube.vb index 254c89b6..d08011f5 100644 --- a/Extensions/Image/Colors/ColorCube.vb +++ b/Extensions/Image/Colors/ColorCube.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fd36d3ab4ddefc487b00cea0e137e762, Extensions\Image\Colors\ColorCube.vb" +#Region "Microsoft.VisualBasic::fd36d3ab4ddefc487b00cea0e137e762, Microsoft.VisualBasic.Core\Extensions\Image\Colors\ColorCube.vb" ' Author: ' diff --git a/Extensions/Image/Colors/ColorMap.vb b/Extensions/Image/Colors/ColorMap.vb index 9698cd20..69633f51 100644 --- a/Extensions/Image/Colors/ColorMap.vb +++ b/Extensions/Image/Colors/ColorMap.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e7063b31bfaa6a47452dfdac198c6b7a, Extensions\Image\Colors\ColorMap.vb" +#Region "Microsoft.VisualBasic::cba66bc5764906a8c76972e977bc71f2, Microsoft.VisualBasic.Core\Extensions\Image\Colors\ColorMap.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Module ColorMapsExtensions ' - ' Function: (+2 Overloads) ColorSequence + ' Function: (+2 Overloads) ColorSequence, IsBlackOrWhite ' Delegate Function ' ' diff --git a/Extensions/Image/Colors/CytoscapeColor.vb b/Extensions/Image/Colors/CytoscapeColor.vb index 3df82ff0..f5d46142 100644 --- a/Extensions/Image/Colors/CytoscapeColor.vb +++ b/Extensions/Image/Colors/CytoscapeColor.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aebebc4ce521646ce5bd60853ad3a50c, Extensions\Image\Colors\CytoscapeColor.vb" +#Region "Microsoft.VisualBasic::aebebc4ce521646ce5bd60853ad3a50c, Microsoft.VisualBasic.Core\Extensions\Image\Colors\CytoscapeColor.vb" ' Author: ' diff --git a/Extensions/Image/Colors/GDIColors.vb b/Extensions/Image/Colors/GDIColors.vb index ca80ed1e..7a8be460 100644 --- a/Extensions/Image/Colors/GDIColors.vb +++ b/Extensions/Image/Colors/GDIColors.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::016bef5581fc7390f7a604ca047bcbdd, Extensions\Image\Colors\GDIColors.vb" +#Region "Microsoft.VisualBasic::016bef5581fc7390f7a604ca047bcbdd, Microsoft.VisualBasic.Core\Extensions\Image\Colors\GDIColors.vb" ' Author: ' diff --git a/Extensions/Image/Colors/HSLColor.vb b/Extensions/Image/Colors/HSLColor.vb index 331e2466..1073b2dd 100644 --- a/Extensions/Image/Colors/HSLColor.vb +++ b/Extensions/Image/Colors/HSLColor.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::45855f7d800a11f96a3687251100b5fa, Extensions\Image\Colors\HSLColor.vb" +#Region "Microsoft.VisualBasic::45855f7d800a11f96a3687251100b5fa, Microsoft.VisualBasic.Core\Extensions\Image\Colors\HSLColor.vb" ' Author: ' diff --git a/Extensions/Image/Colors/HexColor.vb b/Extensions/Image/Colors/HexColor.vb index d39a37ff..c61a0b6a 100644 --- a/Extensions/Image/Colors/HexColor.vb +++ b/Extensions/Image/Colors/HexColor.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ef41705e254d691dbb8f24e0267176a3, Extensions\Image\Colors\HexColor.vb" +#Region "Microsoft.VisualBasic::ef41705e254d691dbb8f24e0267176a3, Microsoft.VisualBasic.Core\Extensions\Image\Colors\HexColor.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/FontFace.vb b/Extensions/Image/GDI+/FontFace.vb index 7f3988d1..59bb4d2a 100644 --- a/Extensions/Image/GDI+/FontFace.vb +++ b/Extensions/Image/GDI+/FontFace.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::196f606a0eab968477bea059d0ec3ace, Extensions\Image\GDI+\FontFace.vb" +#Region "Microsoft.VisualBasic::196f606a0eab968477bea059d0ec3ace, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\FontFace.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/GDICanvas.vb b/Extensions/Image/GDI+/GDICanvas.vb index 7f15d963..ee676b8f 100644 --- a/Extensions/Image/GDI+/GDICanvas.vb +++ b/Extensions/Image/GDI+/GDICanvas.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ec414b409ccfae2670da0d33969d8b8b, Extensions\Image\GDI+\GDICanvas.vb" +#Region "Microsoft.VisualBasic::ec414b409ccfae2670da0d33969d8b8b, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\GDICanvas.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/Graphics2D.vb b/Extensions/Image/GDI+/Graphics2D.vb index 7a98339d..b899ecb8 100644 --- a/Extensions/Image/GDI+/Graphics2D.vb +++ b/Extensions/Image/GDI+/Graphics2D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9b690cd5e7f1be5c84ee19be5d0532b1, Extensions\Image\GDI+\Graphics2D.vb" +#Region "Microsoft.VisualBasic::9b690cd5e7f1be5c84ee19be5d0532b1, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Graphics2D.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/GraphicsExtensions.vb b/Extensions/Image/GDI+/GraphicsExtensions.vb index e9d8a624..cc3630ff 100644 --- a/Extensions/Image/GDI+/GraphicsExtensions.vb +++ b/Extensions/Image/GDI+/GraphicsExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dcfdfa610e8d4062f28ff78bce86805c, Extensions\Image\GDI+\GraphicsExtensions.vb" +#Region "Microsoft.VisualBasic::dcfdfa610e8d4062f28ff78bce86805c, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\GraphicsExtensions.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/Interface.vb b/Extensions/Image/GDI+/Interface.vb index e5ad9bcf..7f95c848 100644 --- a/Extensions/Image/GDI+/Interface.vb +++ b/Extensions/Image/GDI+/Interface.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2f63e51e93c6d27b742043386c10d5bd, Extensions\Image\GDI+\Interface.vb" +#Region "Microsoft.VisualBasic::2f63e51e93c6d27b742043386c10d5bd, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Interface.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/Layouts/Abstract.vb b/Extensions/Image/GDI+/Layouts/Abstract.vb index b85b6719..79472db8 100644 --- a/Extensions/Image/GDI+/Layouts/Abstract.vb +++ b/Extensions/Image/GDI+/Layouts/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8e6a85756b8c22b42bc9fa0cfce08b6b, Extensions\Image\GDI+\Layouts\Abstract.vb" +#Region "Microsoft.VisualBasic::8e6a85756b8c22b42bc9fa0cfce08b6b, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Layouts\Abstract.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/Layouts/ColaExtensions.vb b/Extensions/Image/GDI+/Layouts/ColaExtensions.vb index 0b58d53c..8c00e6cc 100644 --- a/Extensions/Image/GDI+/Layouts/ColaExtensions.vb +++ b/Extensions/Image/GDI+/Layouts/ColaExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::52d1fd2850cb177372a640f45ef31dbe, Extensions\Image\GDI+\Layouts\ColaExtensions.vb" +#Region "Microsoft.VisualBasic::52d1fd2850cb177372a640f45ef31dbe, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Layouts\ColaExtensions.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/Layouts/Point2D.vb b/Extensions/Image/GDI+/Layouts/Point2D.vb index 2577b60a..f6dbb1d3 100644 --- a/Extensions/Image/GDI+/Layouts/Point2D.vb +++ b/Extensions/Image/GDI+/Layouts/Point2D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fd2474b995447806862f811aef5684ff, Extensions\Image\GDI+\Layouts\Point2D.vb" +#Region "Microsoft.VisualBasic::fd2474b995447806862f811aef5684ff, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Layouts\Point2D.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/Layouts/Rectangle2D.vb b/Extensions/Image/GDI+/Layouts/Rectangle2D.vb index 85c5ab12..11c44d4c 100644 --- a/Extensions/Image/GDI+/Layouts/Rectangle2D.vb +++ b/Extensions/Image/GDI+/Layouts/Rectangle2D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::36e514099caeeb4140f6a8ab98e877ea, Extensions\Image\GDI+\Layouts\Rectangle2D.vb" +#Region "Microsoft.VisualBasic::36e514099caeeb4140f6a8ab98e877ea, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Layouts\Rectangle2D.vb" ' Author: ' diff --git a/Extensions/Image/ImageFormat.vb b/Extensions/Image/ImageFormat.vb index 5bfb3b75..d664d60b 100644 --- a/Extensions/Image/ImageFormat.vb +++ b/Extensions/Image/ImageFormat.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c57640bb26193712eea10857990983d5, Extensions\Image\ImageFormat.vb" +#Region "Microsoft.VisualBasic::c57640bb26193712eea10857990983d5, Microsoft.VisualBasic.Core\Extensions\Image\ImageFormat.vb" ' Author: ' diff --git a/Extensions/Image/Math/GeomTransform.vb b/Extensions/Image/Math/GeomTransform.vb index a8f814e7..f734d691 100644 --- a/Extensions/Image/Math/GeomTransform.vb +++ b/Extensions/Image/Math/GeomTransform.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::11501b66fa7bf72a5a64efd475ccad78, Extensions\Image\Math\GeomTransform.vb" +#Region "Microsoft.VisualBasic::ee4aaadfff928a88ce98216f467dc3a6, Microsoft.VisualBasic.Core\Extensions\Image\Math\GeomTransform.vb" ' Author: ' diff --git a/Extensions/Image/Math/GeometryMath.vb b/Extensions/Image/Math/GeometryMath.vb index 845ef978..7a704a2a 100644 --- a/Extensions/Image/Math/GeometryMath.vb +++ b/Extensions/Image/Math/GeometryMath.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::75fcb2ed92ecb1f1f378a569027e730a, Extensions\Image\Math\GeometryMath.vb" +#Region "Microsoft.VisualBasic::75fcb2ed92ecb1f1f378a569027e730a, Microsoft.VisualBasic.Core\Extensions\Image\Math\GeometryMath.vb" ' Author: ' diff --git a/Extensions/Image/Math/Models/Line.vb b/Extensions/Image/Math/Models/Line.vb index 04bfcd26..714abac6 100644 --- a/Extensions/Image/Math/Models/Line.vb +++ b/Extensions/Image/Math/Models/Line.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d95835778349348f609695497b663a28, Extensions\Image\Math\Models\Line.vb" +#Region "Microsoft.VisualBasic::d95835778349348f609695497b663a28, Microsoft.VisualBasic.Core\Extensions\Image\Math\Models\Line.vb" ' Author: ' diff --git a/Extensions/Image/Math/Models/PolarPoint.vb b/Extensions/Image/Math/Models/PolarPoint.vb index 9e224a9c..9d1846bd 100644 --- a/Extensions/Image/Math/Models/PolarPoint.vb +++ b/Extensions/Image/Math/Models/PolarPoint.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b00ccfe620212184b72ad7e8ea8c600f, Extensions\Image\Math\Models\PolarPoint.vb" +#Region "Microsoft.VisualBasic::b00ccfe620212184b72ad7e8ea8c600f, Microsoft.VisualBasic.Core\Extensions\Image\Math\Models\PolarPoint.vb" ' Author: ' diff --git a/Extensions/Image/Math/Models/Polygon.vb b/Extensions/Image/Math/Models/Polygon.vb index 1c41d825..4f1d1f77 100644 --- a/Extensions/Image/Math/Models/Polygon.vb +++ b/Extensions/Image/Math/Models/Polygon.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bc27bc9c60f7442636caa239ab5ce94f, Extensions\Image\Math\Models\Polygon.vb" +#Region "Microsoft.VisualBasic::bc27bc9c60f7442636caa239ab5ce94f, Microsoft.VisualBasic.Core\Extensions\Image\Math\Models\Polygon.vb" ' Author: ' diff --git a/Extensions/Image/Math/Models/Vector2D.vb b/Extensions/Image/Math/Models/Vector2D.vb index da45dc8e..0fd0ad9f 100644 --- a/Extensions/Image/Math/Models/Vector2D.vb +++ b/Extensions/Image/Math/Models/Vector2D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::69ceea95906ed80e045120aa58ab0bf6, Extensions\Image\Math\Models\Vector2D.vb" +#Region "Microsoft.VisualBasic::69ceea95906ed80e045120aa58ab0bf6, Microsoft.VisualBasic.Core\Extensions\Image\Math\Models\Vector2D.vb" ' Author: ' diff --git a/Extensions/Image/Math/Polygon2D.vb b/Extensions/Image/Math/Polygon2D.vb index ea8f8cd7..8199af50 100644 --- a/Extensions/Image/Math/Polygon2D.vb +++ b/Extensions/Image/Math/Polygon2D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3de1704040fc26424f9297c075be7162, Extensions\Image\Math\Polygon2D.vb" +#Region "Microsoft.VisualBasic::3de1704040fc26424f9297c075be7162, Microsoft.VisualBasic.Core\Extensions\Image\Math\Polygon2D.vb" ' Author: ' diff --git a/Extensions/Image/Math/VectorMath2D.vb b/Extensions/Image/Math/VectorMath2D.vb index 41f53394..67bea3d6 100644 --- a/Extensions/Image/Math/VectorMath2D.vb +++ b/Extensions/Image/Math/VectorMath2D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5d5f0bd2478a6e520928f570ff53c5b5, Extensions\Image\Math\VectorMath2D.vb" +#Region "Microsoft.VisualBasic::5d5f0bd2478a6e520928f570ff53c5b5, Microsoft.VisualBasic.Core\Extensions\Image\Math\VectorMath2D.vb" ' Author: ' diff --git a/Extensions/Image/PointF3D.vb b/Extensions/Image/PointF3D.vb index bfa1a312..1a7eb28d 100644 --- a/Extensions/Image/PointF3D.vb +++ b/Extensions/Image/PointF3D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b70ed42a2afa9a49564dac1214e5d1c3, Extensions\Image\PointF3D.vb" +#Region "Microsoft.VisualBasic::b70ed42a2afa9a49564dac1214e5d1c3, Microsoft.VisualBasic.Core\Extensions\Image\PointF3D.vb" ' Author: ' diff --git a/Extensions/Image/TiffWriter.vb b/Extensions/Image/TiffWriter.vb index 3a876be4..95c6f6a1 100644 --- a/Extensions/Image/TiffWriter.vb +++ b/Extensions/Image/TiffWriter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::03ff858003686cc92d3eab5acd654e71, Extensions\Image\TiffWriter.vb" +#Region "Microsoft.VisualBasic::03ff858003686cc92d3eab5acd654e71, Microsoft.VisualBasic.Core\Extensions\Image\TiffWriter.vb" ' Author: ' diff --git a/Extensions/Image/Wmf.vb b/Extensions/Image/Wmf.vb index 55609e12..31444317 100644 --- a/Extensions/Image/Wmf.vb +++ b/Extensions/Image/Wmf.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::eadbd4efb1d726b1fd5f590f37e528e8, Extensions\Image\Wmf.vb" +#Region "Microsoft.VisualBasic::eadbd4efb1d726b1fd5f590f37e528e8, Microsoft.VisualBasic.Core\Extensions\Image\Wmf.vb" ' Author: ' diff --git a/Extensions/Math/Correlations/Beta.vb b/Extensions/Math/Correlations/Beta.vb index e4490781..a6cbb4d5 100644 --- a/Extensions/Math/Correlations/Beta.vb +++ b/Extensions/Math/Correlations/Beta.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::10435732b5abf83eaebf8ff01a0c3905, Extensions\Math\Correlations\Beta.vb" +#Region "Microsoft.VisualBasic::10435732b5abf83eaebf8ff01a0c3905, Microsoft.VisualBasic.Core\Extensions\Math\Correlations\Beta.vb" ' Author: ' diff --git a/Extensions/Math/Correlations/Correlations.vb b/Extensions/Math/Correlations/Correlations.vb index 961d7f9d..2616d176 100644 --- a/Extensions/Math/Correlations/Correlations.vb +++ b/Extensions/Math/Correlations/Correlations.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9c11dc0f1c9e9d6407961c01820bf2f7, Extensions\Math\Correlations\Correlations.vb" +#Region "Microsoft.VisualBasic::9c11dc0f1c9e9d6407961c01820bf2f7, Microsoft.VisualBasic.Core\Extensions\Math\Correlations\Correlations.vb" ' Author: ' diff --git a/Extensions/Math/Correlations/Ranking.vb b/Extensions/Math/Correlations/Ranking.vb index aa9611ca..16ac7663 100644 --- a/Extensions/Math/Correlations/Ranking.vb +++ b/Extensions/Math/Correlations/Ranking.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a525089530604eb2b0647ab829289f61, Extensions\Math\Correlations\Ranking.vb" +#Region "Microsoft.VisualBasic::a525089530604eb2b0647ab829289f61, Microsoft.VisualBasic.Core\Extensions\Math\Correlations\Ranking.vb" ' Author: ' diff --git a/Extensions/Math/Correlations/Ranks.vb b/Extensions/Math/Correlations/Ranks.vb index 6f2a3d57..62ecd33c 100644 --- a/Extensions/Math/Correlations/Ranks.vb +++ b/Extensions/Math/Correlations/Ranks.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e1202199871dd4ca34776ef09c46824e, Extensions\Math\Correlations\Ranks.vb" +#Region "Microsoft.VisualBasic::e1202199871dd4ca34776ef09c46824e, Microsoft.VisualBasic.Core\Extensions\Math\Correlations\Ranks.vb" ' Author: ' diff --git a/Extensions/Math/Correlations/Scripting.vb b/Extensions/Math/Correlations/Scripting.vb index db1cdc60..4da8ef9e 100644 --- a/Extensions/Math/Correlations/Scripting.vb +++ b/Extensions/Math/Correlations/Scripting.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::529ef937f9a73e22edebef9c23f1bcd8, Extensions\Math\Correlations\Scripting.vb" +#Region "Microsoft.VisualBasic::529ef937f9a73e22edebef9c23f1bcd8, Microsoft.VisualBasic.Core\Extensions\Math\Correlations\Scripting.vb" ' Author: ' diff --git a/Extensions/Math/Information/Entropy.vb b/Extensions/Math/Information/Entropy.vb index baa4e193..928782c9 100644 --- a/Extensions/Math/Information/Entropy.vb +++ b/Extensions/Math/Information/Entropy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d08fd8dfce6d983445bbe9711dc16bb2, Extensions\Math\Information\Entropy.vb" +#Region "Microsoft.VisualBasic::d08fd8dfce6d983445bbe9711dc16bb2, Microsoft.VisualBasic.Core\Extensions\Math\Information\Entropy.vb" ' Author: ' diff --git a/Extensions/Math/Information/UncheckHelpers.vb b/Extensions/Math/Information/UncheckHelpers.vb index 59c38239..0fb3f751 100644 --- a/Extensions/Math/Information/UncheckHelpers.vb +++ b/Extensions/Math/Information/UncheckHelpers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dae89f686d7e481105d44408dc3ba7fc, Extensions\Math\Information\UncheckHelpers.vb" +#Region "Microsoft.VisualBasic::dae89f686d7e481105d44408dc3ba7fc, Microsoft.VisualBasic.Core\Extensions\Math\Information\UncheckHelpers.vb" ' Author: ' diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb index adf7994e..f2aa08ea 100644 --- a/Extensions/Math/Math.vb +++ b/Extensions/Math/Math.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::23bfca6cd869b18336b2081c03ddf765, Extensions\Math\Math.vb" +#Region "Microsoft.VisualBasic::a78043e2ca4b07b5ae17fe82b1266711, Microsoft.VisualBasic.Core\Extensions\Math\Math.vb" ' Author: ' diff --git a/Extensions/Math/Matrix.vb b/Extensions/Math/Matrix.vb index 7b018dd7..f63e9c35 100644 --- a/Extensions/Math/Matrix.vb +++ b/Extensions/Math/Matrix.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ed6b97fc29c5ecafbbde6e0d4dc667ac, Extensions\Math\Matrix.vb" +#Region "Microsoft.VisualBasic::ed6b97fc29c5ecafbbde6e0d4dc667ac, Microsoft.VisualBasic.Core\Extensions\Math\Matrix.vb" ' Author: ' diff --git a/Extensions/Math/NumberEqualityComparer.vb b/Extensions/Math/NumberEqualityComparer.vb index 53adb497..0aa0872d 100644 --- a/Extensions/Math/NumberEqualityComparer.vb +++ b/Extensions/Math/NumberEqualityComparer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::965f8261f361f9602ad3e77e53d3e9bf, Extensions\Math\NumberEqualityComparer.vb" +#Region "Microsoft.VisualBasic::965f8261f361f9602ad3e77e53d3e9bf, Microsoft.VisualBasic.Core\Extensions\Math\NumberEqualityComparer.vb" ' Author: ' diff --git a/Extensions/Math/NumberGroups.vb b/Extensions/Math/NumberGroups.vb index 6e14f7c7..68b49f1c 100644 --- a/Extensions/Math/NumberGroups.vb +++ b/Extensions/Math/NumberGroups.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::216ff4ffa99cd78ad8f9ef7b6d573ef7, Extensions\Math\NumberGroups.vb" +#Region "Microsoft.VisualBasic::216ff4ffa99cd78ad8f9ef7b6d573ef7, Microsoft.VisualBasic.Core\Extensions\Math\NumberGroups.vb" ' Author: ' diff --git a/Extensions/Math/NumeralSystem.vb b/Extensions/Math/NumeralSystem.vb index 239a3e28..481af322 100644 --- a/Extensions/Math/NumeralSystem.vb +++ b/Extensions/Math/NumeralSystem.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::19de6bd9898c3ec432f52570db8e30c0, Extensions\Math\NumeralSystem.vb" +#Region "Microsoft.VisualBasic::19de6bd9898c3ec432f52570db8e30c0, Microsoft.VisualBasic.Core\Extensions\Math\NumeralSystem.vb" ' Author: ' diff --git a/Extensions/Math/Percentage.vb b/Extensions/Math/Percentage.vb index a6fd49d8..b4ecd057 100644 --- a/Extensions/Math/Percentage.vb +++ b/Extensions/Math/Percentage.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ade59e8aaf858a06d9158fc9af56f6d3, Extensions\Math\Percentage.vb" +#Region "Microsoft.VisualBasic::ade59e8aaf858a06d9158fc9af56f6d3, Microsoft.VisualBasic.Core\Extensions\Math\Percentage.vb" ' Author: ' diff --git a/Extensions/Math/Random/PreciseRandom.vb b/Extensions/Math/Random/PreciseRandom.vb index da34cde7..1e8769ca 100644 --- a/Extensions/Math/Random/PreciseRandom.vb +++ b/Extensions/Math/Random/PreciseRandom.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4dc58ec87bf71221dcd6afe624e304dd, Extensions\Math\Random\PreciseRandom.vb" +#Region "Microsoft.VisualBasic::4dc58ec87bf71221dcd6afe624e304dd, Microsoft.VisualBasic.Core\Extensions\Math\Random\PreciseRandom.vb" ' Author: ' diff --git a/Extensions/Math/Random/RandomExtensions.vb b/Extensions/Math/Random/RandomExtensions.vb index 588a666c..030d552d 100644 --- a/Extensions/Math/Random/RandomExtensions.vb +++ b/Extensions/Math/Random/RandomExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::23125e54ed41d0d8b8d5e7bbc8e95b48, Extensions\Math\Random\RandomExtensions.vb" +#Region "Microsoft.VisualBasic::23125e54ed41d0d8b8d5e7bbc8e95b48, Microsoft.VisualBasic.Core\Extensions\Math\Random\RandomExtensions.vb" ' Author: ' diff --git a/Extensions/Math/Random/RandomRange.vb b/Extensions/Math/Random/RandomRange.vb index f85512b8..61f886f7 100644 --- a/Extensions/Math/Random/RandomRange.vb +++ b/Extensions/Math/Random/RandomRange.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::92cd1e9d62c2894f83fd807be2e68a70, Extensions\Math\Random\RandomRange.vb" +#Region "Microsoft.VisualBasic::92cd1e9d62c2894f83fd807be2e68a70, Microsoft.VisualBasic.Core\Extensions\Math\Random\RandomRange.vb" ' Author: ' diff --git a/Extensions/Math/ScaleMaps.vb b/Extensions/Math/ScaleMaps.vb index 608b8fa9..fe3827fa 100644 --- a/Extensions/Math/ScaleMaps.vb +++ b/Extensions/Math/ScaleMaps.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::73b4d08a79c43310c72940a2aad735e0, Extensions\Math\ScaleMaps.vb" +#Region "Microsoft.VisualBasic::73b4d08a79c43310c72940a2aad735e0, Microsoft.VisualBasic.Core\Extensions\Math\ScaleMaps.vb" ' Author: ' diff --git a/Extensions/Math/ScientificNotation.vb b/Extensions/Math/ScientificNotation.vb index 310aa6c3..8882a4af 100644 --- a/Extensions/Math/ScientificNotation.vb +++ b/Extensions/Math/ScientificNotation.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::81dc3bbe4b63f750c4ac4b1effa1ee76, Extensions\Math\ScientificNotation.vb" +#Region "Microsoft.VisualBasic::81dc3bbe4b63f750c4ac4b1effa1ee76, Microsoft.VisualBasic.Core\Extensions\Math\ScientificNotation.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Average.vb b/Extensions/Math/StatisticsMathExtensions/Average.vb index 19c6f090..ca081970 100644 --- a/Extensions/Math/StatisticsMathExtensions/Average.vb +++ b/Extensions/Math/StatisticsMathExtensions/Average.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4c8b3e8db9275b8503a5616f91739596, Extensions\Math\StatisticsMathExtensions\Average.vb" +#Region "Microsoft.VisualBasic::4c8b3e8db9275b8503a5616f91739596, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Average.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/DataSample.vb b/Extensions/Math/StatisticsMathExtensions/DataSample.vb index 6a1f45d9..e7933ee1 100644 --- a/Extensions/Math/StatisticsMathExtensions/DataSample.vb +++ b/Extensions/Math/StatisticsMathExtensions/DataSample.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c65c956e6b69aef4f24bfefc78b583b4, Extensions\Math\StatisticsMathExtensions\DataSample.vb" +#Region "Microsoft.VisualBasic::c65c956e6b69aef4f24bfefc78b583b4, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\DataSample.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/CPOLLicense.vb b/Extensions/Math/StatisticsMathExtensions/Linq/CPOLLicense.vb index d9975555..5d7cdd0c 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/CPOLLicense.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/CPOLLicense.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4449e50ebab5d68ae6a22af3e6da7fe0, Extensions\Math\StatisticsMathExtensions\Linq\CPOLLicense.vb" +#Region "Microsoft.VisualBasic::4449e50ebab5d68ae6a22af3e6da7fe0, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\CPOLLicense.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsCovariance.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsCovariance.vb index efa706d4..03c4d26f 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsCovariance.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsCovariance.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::707b5f73e947c80a4efc25ff8b059224, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsCovariance.vb" +#Region "Microsoft.VisualBasic::707b5f73e947c80a4efc25ff8b059224, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsCovariance.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb index 7a4ffd2f..e9c104cc 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::483cde5ad46acf2c65ce1061000bb57f, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsMedian.vb" +#Region "Microsoft.VisualBasic::483cde5ad46acf2c65ce1061000bb57f, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsMedian.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMode.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMode.vb index cfc529ee..bd336c57 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMode.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMode.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cf3653266a2d5fbc7a5e79254b26f529, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsMode.vb" +#Region "Microsoft.VisualBasic::cf3653266a2d5fbc7a5e79254b26f529, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsMode.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsPearson.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsPearson.vb index c599c6c6..c973403f 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsPearson.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsPearson.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d6059623b0d92ef82787b5e78f36de7c, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsPearson.vb" +#Region "Microsoft.VisualBasic::d6059623b0d92ef82787b5e78f36de7c, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsPearson.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsRange.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsRange.vb index 3be48b5f..7666ea8f 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsRange.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsRange.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3cbbbd091c6e8bf2f0bc42c9da7fd035, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsRange.vb" +#Region "Microsoft.VisualBasic::3cbbbd091c6e8bf2f0bc42c9da7fd035, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsRange.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviation.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviation.vb index 9e66ee6a..9c3e0cb3 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviation.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviation.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::018201163638d7ddfa7332a512a0ffcb, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsStandardDeviation.vb" +#Region "Microsoft.VisualBasic::018201163638d7ddfa7332a512a0ffcb, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsStandardDeviation.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviationP.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviationP.vb index 07252886..66966827 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviationP.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsStandardDeviationP.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d977f07e7fc1a94b17764fb2c3698c7f, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsStandardDeviationP.vb" +#Region "Microsoft.VisualBasic::d977f07e7fc1a94b17764fb2c3698c7f, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsStandardDeviationP.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVariance.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVariance.vb index 58962d7e..a94617b7 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVariance.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVariance.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::53ee1938cc549f8ae6442f02659fabb9, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsVariance.vb" +#Region "Microsoft.VisualBasic::53ee1938cc549f8ae6442f02659fabb9, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsVariance.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVarianceP.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVarianceP.vb index f3a8c91d..b4d7d447 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVarianceP.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsVarianceP.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::473e67c72806d54d9b38834ee8ef01b7, Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsVarianceP.vb" +#Region "Microsoft.VisualBasic::473e67c72806d54d9b38834ee8ef01b7, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsVarianceP.vb" ' Author: ' diff --git a/Extensions/Math/Trigonometric/Arctan.vb b/Extensions/Math/Trigonometric/Arctan.vb index fc2fd943..4dc10f26 100644 --- a/Extensions/Math/Trigonometric/Arctan.vb +++ b/Extensions/Math/Trigonometric/Arctan.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fbb2ea48f2dd4d815304d189f668b4b9, Extensions\Math\Trigonometric\Arctan.vb" +#Region "Microsoft.VisualBasic::fbb2ea48f2dd4d815304d189f668b4b9, Microsoft.VisualBasic.Core\Extensions\Math\Trigonometric\Arctan.vb" ' Author: ' diff --git a/Extensions/Math/Trigonometric/Trigonometric.vb b/Extensions/Math/Trigonometric/Trigonometric.vb index 09e36354..035bd017 100644 --- a/Extensions/Math/Trigonometric/Trigonometric.vb +++ b/Extensions/Math/Trigonometric/Trigonometric.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9c312da426a7a5ef34abc056584b4c24, Extensions\Math\Trigonometric\Trigonometric.vb" +#Region "Microsoft.VisualBasic::9c312da426a7a5ef34abc056584b4c24, Microsoft.VisualBasic.Core\Extensions\Math\Trigonometric\Trigonometric.vb" ' Author: ' diff --git a/Extensions/Math/Trigonometric/Trigonometric2.vb b/Extensions/Math/Trigonometric/Trigonometric2.vb index a13c6a1d..ee514ee8 100644 --- a/Extensions/Math/Trigonometric/Trigonometric2.vb +++ b/Extensions/Math/Trigonometric/Trigonometric2.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b040327637042e7f47b204fa6b7081ca, Extensions\Math\Trigonometric\Trigonometric2.vb" +#Region "Microsoft.VisualBasic::b040327637042e7f47b204fa6b7081ca, Microsoft.VisualBasic.Core\Extensions\Math\Trigonometric\Trigonometric2.vb" ' Author: ' diff --git a/Extensions/Reflection/Delegate/DataValue.vb b/Extensions/Reflection/Delegate/DataValue.vb index ce34020e..e3eb6320 100644 --- a/Extensions/Reflection/Delegate/DataValue.vb +++ b/Extensions/Reflection/Delegate/DataValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b30abc77680cb9b03a1d97e1db20865c, Extensions\Reflection\Delegate\DataValue.vb" +#Region "Microsoft.VisualBasic::b30abc77680cb9b03a1d97e1db20865c, Microsoft.VisualBasic.Core\Extensions\Reflection\Delegate\DataValue.vb" ' Author: ' diff --git a/Extensions/Reflection/Delegate/DelegateFactory.vb b/Extensions/Reflection/Delegate/DelegateFactory.vb index 75acef56..146b9847 100644 --- a/Extensions/Reflection/Delegate/DelegateFactory.vb +++ b/Extensions/Reflection/Delegate/DelegateFactory.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7de3b38abe167002542f089ac0bcd767, Extensions\Reflection\Delegate\DelegateFactory.vb" +#Region "Microsoft.VisualBasic::7de3b38abe167002542f089ac0bcd767, Microsoft.VisualBasic.Core\Extensions\Reflection\Delegate\DelegateFactory.vb" ' Author: ' diff --git a/Extensions/Reflection/Delegate/TypeExtensions.vb b/Extensions/Reflection/Delegate/TypeExtensions.vb index a65a9c76..1799f0d7 100644 --- a/Extensions/Reflection/Delegate/TypeExtensions.vb +++ b/Extensions/Reflection/Delegate/TypeExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4c14fe4af8015f616f7a75846f1e2621, Extensions\Reflection\Delegate\TypeExtensions.vb" +#Region "Microsoft.VisualBasic::4c14fe4af8015f616f7a75846f1e2621, Microsoft.VisualBasic.Core\Extensions\Reflection\Delegate\TypeExtensions.vb" ' Author: ' diff --git a/Extensions/Reflection/Marshal/IntPtr(Of T).vb b/Extensions/Reflection/Marshal/IntPtr(Of T).vb index f57af36c..d417d248 100644 --- a/Extensions/Reflection/Marshal/IntPtr(Of T).vb +++ b/Extensions/Reflection/Marshal/IntPtr(Of T).vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2a26dbda2dc9895f13a06b22986b2042, Extensions\Reflection\Marshal\IntPtr(Of T).vb" +#Region "Microsoft.VisualBasic::2a26dbda2dc9895f13a06b22986b2042, Microsoft.VisualBasic.Core\Extensions\Reflection\Marshal\IntPtr(Of T).vb" ' Author: ' diff --git a/Extensions/Reflection/Marshal/MarshalExtensions.vb b/Extensions/Reflection/Marshal/MarshalExtensions.vb index ef8fd4b9..66d5d467 100644 --- a/Extensions/Reflection/Marshal/MarshalExtensions.vb +++ b/Extensions/Reflection/Marshal/MarshalExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a810b6c4ba107323a3ec2d0a908a1d7c, Extensions\Reflection\Marshal\MarshalExtensions.vb" +#Region "Microsoft.VisualBasic::a810b6c4ba107323a3ec2d0a908a1d7c, Microsoft.VisualBasic.Core\Extensions\Reflection\Marshal\MarshalExtensions.vb" ' Author: ' diff --git a/Extensions/Reflection/Marshal/Pointer(Of T).vb b/Extensions/Reflection/Marshal/Pointer(Of T).vb index d6077bc9..d22835db 100644 --- a/Extensions/Reflection/Marshal/Pointer(Of T).vb +++ b/Extensions/Reflection/Marshal/Pointer(Of T).vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7dd5c1d2fee57d6554f72f09efdc32fe, Extensions\Reflection\Marshal\Pointer(Of T).vb" +#Region "Microsoft.VisualBasic::7dd5c1d2fee57d6554f72f09efdc32fe, Microsoft.VisualBasic.Core\Extensions\Reflection\Marshal\Pointer(Of T).vb" ' Author: ' diff --git a/Extensions/Reflection/Marshal/Pointers.vb b/Extensions/Reflection/Marshal/Pointers.vb index e17c55ee..6f3907a3 100644 --- a/Extensions/Reflection/Marshal/Pointers.vb +++ b/Extensions/Reflection/Marshal/Pointers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f13ea8556ad8d7833dfbd328e3818857, Extensions\Reflection\Marshal\Pointers.vb" +#Region "Microsoft.VisualBasic::f13ea8556ad8d7833dfbd328e3818857, Microsoft.VisualBasic.Core\Extensions\Reflection\Marshal\Pointers.vb" ' Author: ' diff --git a/Extensions/Reflection/Methods.vb b/Extensions/Reflection/Methods.vb index ba825ee9..de8755af 100644 --- a/Extensions/Reflection/Methods.vb +++ b/Extensions/Reflection/Methods.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::965a865aa28a8655735ad083bc1825d6, Extensions\Reflection\Methods.vb" +#Region "Microsoft.VisualBasic::965a865aa28a8655735ad083bc1825d6, Microsoft.VisualBasic.Core\Extensions\Reflection\Methods.vb" ' Author: ' diff --git a/Extensions/Reflection/Parameters/ParamLogUtility.vb b/Extensions/Reflection/Parameters/ParamLogUtility.vb index db18e872..ce95450f 100644 --- a/Extensions/Reflection/Parameters/ParamLogUtility.vb +++ b/Extensions/Reflection/Parameters/ParamLogUtility.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e65ac0e10a02ece50ebe67cb3f1cabe6, Extensions\Reflection\Parameters\ParamLogUtility.vb" +#Region "Microsoft.VisualBasic::e65ac0e10a02ece50ebe67cb3f1cabe6, Microsoft.VisualBasic.Core\Extensions\Reflection\Parameters\ParamLogUtility.vb" ' Author: ' diff --git a/Extensions/Reflection/Parameters/Simple.vb b/Extensions/Reflection/Parameters/Simple.vb index 264939bf..327a73cb 100644 --- a/Extensions/Reflection/Parameters/Simple.vb +++ b/Extensions/Reflection/Parameters/Simple.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::07f5fac2f3041e7e554f2117d54e25ca, Extensions\Reflection\Parameters\Simple.vb" +#Region "Microsoft.VisualBasic::07f5fac2f3041e7e554f2117d54e25ca, Microsoft.VisualBasic.Core\Extensions\Reflection\Parameters\Simple.vb" ' Author: ' diff --git a/Extensions/Reflection/Reflection.vb b/Extensions/Reflection/Reflection.vb index 9982b53e..9c90c54e 100644 --- a/Extensions/Reflection/Reflection.vb +++ b/Extensions/Reflection/Reflection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ebfa022563deab9de813e238f25b4f23, Extensions\Reflection\Reflection.vb" +#Region "Microsoft.VisualBasic::ebfa022563deab9de813e238f25b4f23, Microsoft.VisualBasic.Core\Extensions\Reflection\Reflection.vb" ' Author: ' diff --git a/Extensions/Security/AES.vb b/Extensions/Security/AES.vb index c9ac77aa..4f2c8743 100644 --- a/Extensions/Security/AES.vb +++ b/Extensions/Security/AES.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e5cfa890b656e93e3a8988f76e1e286f, Extensions\Security\AES.vb" +#Region "Microsoft.VisualBasic::e5cfa890b656e93e3a8988f76e1e286f, Microsoft.VisualBasic.Core\Extensions\Security\AES.vb" ' Author: ' diff --git a/Extensions/Security/Md5.vb b/Extensions/Security/Md5.vb index a704ec6f..a238d0c0 100644 --- a/Extensions/Security/Md5.vb +++ b/Extensions/Security/Md5.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ced60d52179f290950843cd79cc35712, Extensions\Security\Md5.vb" +#Region "Microsoft.VisualBasic::ced60d52179f290950843cd79cc35712, Microsoft.VisualBasic.Core\Extensions\Security\Md5.vb" ' Author: ' diff --git a/Extensions/Security/Md5HashProvider.vb b/Extensions/Security/Md5HashProvider.vb index 855a2c99..cbc08f3b 100644 --- a/Extensions/Security/Md5HashProvider.vb +++ b/Extensions/Security/Md5HashProvider.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c81fb0eed5a2e47aa2f57020a9833ef1, Extensions\Security\Md5HashProvider.vb" +#Region "Microsoft.VisualBasic::c81fb0eed5a2e47aa2f57020a9833ef1, Microsoft.VisualBasic.Core\Extensions\Security\Md5HashProvider.vb" ' Author: ' diff --git a/Extensions/Security/RSACrypto.vb b/Extensions/Security/RSACrypto.vb index cef763b7..9b6a5e6b 100644 --- a/Extensions/Security/RSACrypto.vb +++ b/Extensions/Security/RSACrypto.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1396ba92c7a38baee7781ef0e8edcfde, Extensions\Security\RSACrypto.vb" +#Region "Microsoft.VisualBasic::1396ba92c7a38baee7781ef0e8edcfde, Microsoft.VisualBasic.Core\Extensions\Security\RSACrypto.vb" ' Author: ' diff --git a/Extensions/Security/SHA.vb b/Extensions/Security/SHA.vb index 481c7de2..c6850276 100644 --- a/Extensions/Security/SHA.vb +++ b/Extensions/Security/SHA.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aea2365815cc6204399888e7186c27d2, Extensions\Security\SHA.vb" +#Region "Microsoft.VisualBasic::aea2365815cc6204399888e7186c27d2, Microsoft.VisualBasic.Core\Extensions\Security\SHA.vb" ' Author: ' diff --git a/Extensions/Security/SecurityString.vb b/Extensions/Security/SecurityString.vb index 1734da3a..eed10004 100644 --- a/Extensions/Security/SecurityString.vb +++ b/Extensions/Security/SecurityString.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::67498866d7291c11b4ffbe7bd2c92b51, Extensions\Security\SecurityString.vb" +#Region "Microsoft.VisualBasic::67498866d7291c11b4ffbe7bd2c92b51, Microsoft.VisualBasic.Core\Extensions\Security\SecurityString.vb" ' Author: ' diff --git a/Extensions/Security/TripleDES.vb b/Extensions/Security/TripleDES.vb index 9817bad0..56195b41 100644 --- a/Extensions/Security/TripleDES.vb +++ b/Extensions/Security/TripleDES.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d65684dc5d5f8fecadfeac41e2e710a2, Extensions\Security\TripleDES.vb" +#Region "Microsoft.VisualBasic::d65684dc5d5f8fecadfeac41e2e710a2, Microsoft.VisualBasic.Core\Extensions\Security\TripleDES.vb" ' Author: ' diff --git a/Extensions/StringHelpers/NumericFormatHelper.vb b/Extensions/StringHelpers/NumericFormatHelper.vb index d3d89728..6e202837 100644 --- a/Extensions/StringHelpers/NumericFormatHelper.vb +++ b/Extensions/StringHelpers/NumericFormatHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a359fde6d498a5fec0ea6c460f1721da, Extensions\StringHelpers\NumericFormatHelper.vb" +#Region "Microsoft.VisualBasic::a359fde6d498a5fec0ea6c460f1721da, Microsoft.VisualBasic.Core\Extensions\StringHelpers\NumericFormatHelper.vb" ' Author: ' diff --git a/Extensions/StringHelpers/Parser.vb b/Extensions/StringHelpers/Parser.vb index 9d27980f..ef5e8453 100644 --- a/Extensions/StringHelpers/Parser.vb +++ b/Extensions/StringHelpers/Parser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6d9e795c16a7e95236a1ca93281c82df, Extensions\StringHelpers\Parser.vb" +#Region "Microsoft.VisualBasic::6d9e795c16a7e95236a1ca93281c82df, Microsoft.VisualBasic.Core\Extensions\StringHelpers\Parser.vb" ' Author: ' diff --git a/Extensions/StringHelpers/RegexExtensions.vb b/Extensions/StringHelpers/RegexExtensions.vb index 03737515..6f758fea 100644 --- a/Extensions/StringHelpers/RegexExtensions.vb +++ b/Extensions/StringHelpers/RegexExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aa49e490c8c60fa3ba033227e6dda9df, Extensions\StringHelpers\RegexExtensions.vb" +#Region "Microsoft.VisualBasic::aa49e490c8c60fa3ba033227e6dda9df, Microsoft.VisualBasic.Core\Extensions\StringHelpers\RegexExtensions.vb" ' Author: ' diff --git a/Extensions/StringHelpers/StrUtils.vb b/Extensions/StringHelpers/StrUtils.vb index 6e338200..886d3e05 100644 --- a/Extensions/StringHelpers/StrUtils.vb +++ b/Extensions/StringHelpers/StrUtils.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5098038090a60f6bce70f3fd3e6523d3, Extensions\StringHelpers\StrUtils.vb" +#Region "Microsoft.VisualBasic::5098038090a60f6bce70f3fd3e6523d3, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StrUtils.vb" ' Author: ' diff --git a/Extensions/StringHelpers/StringBuilders.vb b/Extensions/StringHelpers/StringBuilders.vb index 2296a30a..88660f85 100644 --- a/Extensions/StringHelpers/StringBuilders.vb +++ b/Extensions/StringHelpers/StringBuilders.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::26c3c2ec1dbdcd6fa55e11b18a4a62a9, Extensions\StringHelpers\StringBuilders.vb" +#Region "Microsoft.VisualBasic::26c3c2ec1dbdcd6fa55e11b18a4a62a9, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringBuilders.vb" ' Author: ' diff --git a/Extensions/StringHelpers/StringHelpers.vb b/Extensions/StringHelpers/StringHelpers.vb index 7fdf576a..9c421aee 100644 --- a/Extensions/StringHelpers/StringHelpers.vb +++ b/Extensions/StringHelpers/StringHelpers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0b305f8c8e7602eaebe3fd0e05001ea4, Extensions\StringHelpers\StringHelpers.vb" +#Region "Microsoft.VisualBasic::42c260defee96d57ffa4cc4a3720c325, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringHelpers.vb" ' Author: ' diff --git a/Extensions/Trinity/Expression.vb b/Extensions/Trinity/Expression.vb index 5dfeb08d..68de06b2 100644 --- a/Extensions/Trinity/Expression.vb +++ b/Extensions/Trinity/Expression.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::252bfaa89ee13252e7c43a4b3ae4f611, Extensions\Trinity\Expression.vb" +#Region "Microsoft.VisualBasic::252bfaa89ee13252e7c43a4b3ae4f611, Microsoft.VisualBasic.Core\Extensions\Trinity\Expression.vb" ' Author: ' diff --git a/Extensions/Trinity/Extensions.vb b/Extensions/Trinity/Extensions.vb index 41d4f263..ae4ba85a 100644 --- a/Extensions/Trinity/Extensions.vb +++ b/Extensions/Trinity/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ebc0acb27e6002bb75c2f03711b0f9ac, Extensions\Trinity\Extensions.vb" +#Region "Microsoft.VisualBasic::ebc0acb27e6002bb75c2f03711b0f9ac, Microsoft.VisualBasic.Core\Extensions\Trinity\Extensions.vb" ' Author: ' diff --git a/Extensions/Trinity/NLP/TextTokens.vb b/Extensions/Trinity/NLP/TextTokens.vb index b69a9898..4aa11111 100644 --- a/Extensions/Trinity/NLP/TextTokens.vb +++ b/Extensions/Trinity/NLP/TextTokens.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::db9f5269029f591c99930ac9cf93e10f, Extensions\Trinity\NLP\TextTokens.vb" +#Region "Microsoft.VisualBasic::db9f5269029f591c99930ac9cf93e10f, Microsoft.VisualBasic.Core\Extensions\Trinity\NLP\TextTokens.vb" ' Author: ' diff --git a/Extensions/Trinity/Word.vb b/Extensions/Trinity/Word.vb index 8bfade62..19c72033 100644 --- a/Extensions/Trinity/Word.vb +++ b/Extensions/Trinity/Word.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d50d0ba2fcaaee407553abd3d8e34a41, Extensions\Trinity\Word.vb" +#Region "Microsoft.VisualBasic::d50d0ba2fcaaee407553abd3d8e34a41, Microsoft.VisualBasic.Core\Extensions\Trinity\Word.vb" ' Author: ' diff --git a/Extensions/Trinity/WordClass.vb b/Extensions/Trinity/WordClass.vb index facc1808..85d80c99 100644 --- a/Extensions/Trinity/WordClass.vb +++ b/Extensions/Trinity/WordClass.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5723dc4e4812a32ed1a2cb43dabb24e9, Extensions\Trinity\WordClass.vb" +#Region "Microsoft.VisualBasic::5723dc4e4812a32ed1a2cb43dabb24e9, Microsoft.VisualBasic.Core\Extensions\Trinity\WordClass.vb" ' Author: ' diff --git a/Extensions/ValueTypes/DateTimeHelper.vb b/Extensions/ValueTypes/DateTimeHelper.vb index e230d658..5a1253bb 100644 --- a/Extensions/ValueTypes/DateTimeHelper.vb +++ b/Extensions/ValueTypes/DateTimeHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::40239572853fd7e8fbe27bf6f2d221e9, Extensions\ValueTypes\DateTimeHelper.vb" +#Region "Microsoft.VisualBasic::17be44db88f7f8fc129508f218ce2cd5, Microsoft.VisualBasic.Core\Extensions\ValueTypes\DateTimeHelper.vb" ' Author: ' @@ -37,7 +37,7 @@ ' ' Constructor: (+1 Overloads) Sub New ' Function: DateSeq, FillDateZero, FromUnixTimeStamp, GetMonthInteger, IsEmpty - ' ReadableElapsedTime, UnixTimeStamp, YYMMDD + ' ReadableElapsedTime, ToDate, UnixTimeStamp, YYMMDD ' ' ' /********************************************************************************/ diff --git a/Extensions/ValueTypes/RangeExtensions.vb b/Extensions/ValueTypes/RangeExtensions.vb index 93dda6f1..b69ca807 100644 --- a/Extensions/ValueTypes/RangeExtensions.vb +++ b/Extensions/ValueTypes/RangeExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b1d0cec8228de1019b9c7e5945b6c7ef, Extensions\ValueTypes\RangeExtensions.vb" +#Region "Microsoft.VisualBasic::b1d0cec8228de1019b9c7e5945b6c7ef, Microsoft.VisualBasic.Core\Extensions\ValueTypes\RangeExtensions.vb" ' Author: ' diff --git a/Extensions/ValueTypes/TimeSpanScale.vb b/Extensions/ValueTypes/TimeSpanScale.vb index 4936e71d..0dc8e401 100644 --- a/Extensions/ValueTypes/TimeSpanScale.vb +++ b/Extensions/ValueTypes/TimeSpanScale.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f15c3bec8897be389b15949bd09eb9f2, Extensions\ValueTypes\TimeSpanScale.vb" +#Region "Microsoft.VisualBasic::f15c3bec8897be389b15949bd09eb9f2, Microsoft.VisualBasic.Core\Extensions\ValueTypes\TimeSpanScale.vb" ' Author: ' diff --git a/Extensions/WebServices/HTTP_RFC.vb b/Extensions/WebServices/HTTP_RFC.vb index be5eed4a..ffbcbe96 100644 --- a/Extensions/WebServices/HTTP_RFC.vb +++ b/Extensions/WebServices/HTTP_RFC.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::61425b732450b4a9e6446347bd269581, Extensions\WebServices\HTTP_RFC.vb" +#Region "Microsoft.VisualBasic::61425b732450b4a9e6446347bd269581, Microsoft.VisualBasic.Core\Extensions\WebServices\HTTP_RFC.vb" ' Author: ' diff --git a/Extensions/WebServices/HttpGet.vb b/Extensions/WebServices/HttpGet.vb index 6b8b3197..d6ac4fe7 100644 --- a/Extensions/WebServices/HttpGet.vb +++ b/Extensions/WebServices/HttpGet.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::994b1956aa075a24286a1fac61a9418f, Extensions\WebServices\HttpGet.vb" +#Region "Microsoft.VisualBasic::994b1956aa075a24286a1fac61a9418f, Microsoft.VisualBasic.Core\Extensions\WebServices\HttpGet.vb" ' Author: ' diff --git a/Extensions/WebServices/NetResponse.vb b/Extensions/WebServices/NetResponse.vb index 3a46dfe6..1433e7e4 100644 --- a/Extensions/WebServices/NetResponse.vb +++ b/Extensions/WebServices/NetResponse.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d9badf946a5bcbeb6e6e350feeddc3c9, Extensions\WebServices\NetResponse.vb" +#Region "Microsoft.VisualBasic::d9badf946a5bcbeb6e6e350feeddc3c9, Microsoft.VisualBasic.Core\Extensions\WebServices\NetResponse.vb" ' Author: ' diff --git a/Extensions/WebServices/RequestBuilder.vb b/Extensions/WebServices/RequestBuilder.vb index e2f125f3..39a2557b 100644 --- a/Extensions/WebServices/RequestBuilder.vb +++ b/Extensions/WebServices/RequestBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::07a4c9b714d10ef5926958918c39880c, Extensions\WebServices\RequestBuilder.vb" +#Region "Microsoft.VisualBasic::07a4c9b714d10ef5926958918c39880c, Microsoft.VisualBasic.Core\Extensions\WebServices\RequestBuilder.vb" ' Author: ' diff --git a/Extensions/WebServices/WebResult.vb b/Extensions/WebServices/WebResult.vb index e44ac16d..b2ee3b3b 100644 --- a/Extensions/WebServices/WebResult.vb +++ b/Extensions/WebServices/WebResult.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d445cef547ce840494d44dac58c9d12e, Extensions\WebServices\WebResult.vb" +#Region "Microsoft.VisualBasic::d445cef547ce840494d44dac58c9d12e, Microsoft.VisualBasic.Core\Extensions\WebServices\WebResult.vb" ' Author: ' diff --git a/Extensions/WebServices/WebServiceUtils.vb b/Extensions/WebServices/WebServiceUtils.vb index e1eeb7f7..ba2e93df 100644 --- a/Extensions/WebServices/WebServiceUtils.vb +++ b/Extensions/WebServices/WebServiceUtils.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4d5d5bef8e9a9b6e863af14d8d486dff, Extensions\WebServices\WebServiceUtils.vb" +#Region "Microsoft.VisualBasic::4d5d5bef8e9a9b6e863af14d8d486dff, Microsoft.VisualBasic.Core\Extensions\WebServices\WebServiceUtils.vb" ' Author: ' diff --git a/Extensions/Webpage.vb b/Extensions/Webpage.vb index 732b65c8..0afbb7c9 100644 --- a/Extensions/Webpage.vb +++ b/Extensions/Webpage.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7f378b24487000a1815b02881967f9ad, Extensions\Webpage.vb" +#Region "Microsoft.VisualBasic::7f378b24487000a1815b02881967f9ad, Microsoft.VisualBasic.Core\Extensions\Webpage.vb" ' Author: ' diff --git a/Extensions/Win32API.vb b/Extensions/Win32API.vb index 4adfa1a7..6d945afa 100644 --- a/Extensions/Win32API.vb +++ b/Extensions/Win32API.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6f903f8ae677be928cbb9e50da4bd1a5, Extensions\Win32API.vb" +#Region "Microsoft.VisualBasic::6f903f8ae677be928cbb9e50da4bd1a5, Microsoft.VisualBasic.Core\Extensions\Win32API.vb" ' Author: ' diff --git a/LICENSE.vb b/LICENSE.vb index 0456dd2a..83e11e7a 100644 --- a/LICENSE.vb +++ b/LICENSE.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b19316480e931dee2d07a353e91503b0, LICENSE.vb" +#Region "Microsoft.VisualBasic::b19316480e931dee2d07a353e91503b0, Microsoft.VisualBasic.Core\LICENSE.vb" ' Author: ' diff --git a/Language/API.vb b/Language/API.vb index 7f001b73..468cef5b 100644 --- a/Language/API.vb +++ b/Language/API.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::35147e4ef5eebdda84d0e0611a618835, Language\API.vb" +#Region "Microsoft.VisualBasic::35147e4ef5eebdda84d0e0611a618835, Microsoft.VisualBasic.Core\Language\API.vb" ' Author: ' diff --git a/Language/Language/C/CFormatProvider.vb b/Language/Language/C/CFormatProvider.vb index 2fe1a353..590e8e65 100644 --- a/Language/Language/C/CFormatProvider.vb +++ b/Language/Language/C/CFormatProvider.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::abc29bef6478452ab678c9fd162e74ab, Language\Language\C\CFormatProvider.vb" +#Region "Microsoft.VisualBasic::abc29bef6478452ab678c9fd162e74ab, Microsoft.VisualBasic.Core\Language\Language\C\CFormatProvider.vb" ' Author: ' diff --git a/Language/Language/C/CString.vb b/Language/Language/C/CString.vb index 4a97d073..c2400173 100644 --- a/Language/Language/C/CString.vb +++ b/Language/Language/C/CString.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8c4126108cd7df654e82d4655d86ef8f, Language\Language\C\CString.vb" +#Region "Microsoft.VisualBasic::8c4126108cd7df654e82d4655d86ef8f, Microsoft.VisualBasic.Core\Language\Language\C\CString.vb" ' Author: ' diff --git a/Language/Language/C/File.vb b/Language/Language/C/File.vb index 0b9ec078..bb48ae9e 100644 --- a/Language/Language/C/File.vb +++ b/Language/Language/C/File.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b2460ab5907996636f333af293e0c332, Language\Language\C\File.vb" +#Region "Microsoft.VisualBasic::b2460ab5907996636f333af293e0c332, Microsoft.VisualBasic.Core\Language\Language\C\File.vb" ' Author: ' diff --git a/Language/Language/C/RandomNumbers.vb b/Language/Language/C/RandomNumbers.vb index 5f1a2a8c..de826892 100644 --- a/Language/Language/C/RandomNumbers.vb +++ b/Language/Language/C/RandomNumbers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::86bf442bb41ea4eee0d47035b9175240, Language\Language\C\RandomNumbers.vb" +#Region "Microsoft.VisualBasic::86bf442bb41ea4eee0d47035b9175240, Microsoft.VisualBasic.Core\Language\Language\C\RandomNumbers.vb" ' Author: ' diff --git a/Language/Language/C/Vector.vb b/Language/Language/C/Vector.vb index 41957905..67c46c9f 100644 --- a/Language/Language/C/Vector.vb +++ b/Language/Language/C/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5f4f9cddb13ef03d682594b7938ebda9, Language\Language\C\Vector.vb" +#Region "Microsoft.VisualBasic::5f4f9cddb13ef03d682594b7938ebda9, Microsoft.VisualBasic.Core\Language\Language\C\Vector.vb" ' Author: ' diff --git a/Language/Language/Java/Arrays.vb b/Language/Language/Java/Arrays.vb index fbf71aa5..9afced8d 100644 --- a/Language/Language/Java/Arrays.vb +++ b/Language/Language/Java/Arrays.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::82520ba44d3e3aca83a3bf08a8ba3429, Language\Language\Java\Arrays.vb" +#Region "Microsoft.VisualBasic::53f12267d3eb14849418e9e159656e6b, Microsoft.VisualBasic.Core\Language\Language\Java\Arrays.vb" ' Author: ' diff --git a/Language/Language/Java/Collections.vb b/Language/Language/Java/Collections.vb index c041b32a..0dc58ac9 100644 --- a/Language/Language/Java/Collections.vb +++ b/Language/Language/Java/Collections.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::05ed8542e0bde23290ea9842fb090118, Language\Language\Java\Collections.vb" +#Region "Microsoft.VisualBasic::05ed8542e0bde23290ea9842fb090118, Microsoft.VisualBasic.Core\Language\Language\Java\Collections.vb" ' Author: ' diff --git a/Language/Language/Java/JavaMath.vb b/Language/Language/Java/JavaMath.vb index 19393eea..a69bf347 100644 --- a/Language/Language/Java/JavaMath.vb +++ b/Language/Language/Java/JavaMath.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c3596bb305a11d1630b4a5182304e5eb, Language\Language\Java\JavaMath.vb" +#Region "Microsoft.VisualBasic::c3596bb305a11d1630b4a5182304e5eb, Microsoft.VisualBasic.Core\Language\Language\Java\JavaMath.vb" ' Author: ' diff --git a/Language/Language/Java/Line2D.vb b/Language/Language/Java/Line2D.vb index 9ff18653..f3f4e98c 100644 --- a/Language/Language/Java/Line2D.vb +++ b/Language/Language/Java/Line2D.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f8438b50cf0c35b3c4604bac41fcce12, Language\Language\Java\Line2D.vb" +#Region "Microsoft.VisualBasic::f8438b50cf0c35b3c4604bac41fcce12, Microsoft.VisualBasic.Core\Language\Language\Java\Line2D.vb" ' Author: ' diff --git a/Language/Language/Java/LogTricks.vb b/Language/Language/Java/LogTricks.vb index d96f8119..a320bad1 100644 --- a/Language/Language/Java/LogTricks.vb +++ b/Language/Language/Java/LogTricks.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9b5bb278e9cc7e9e483c1e377eaae6ea, Language\Language\Java\LogTricks.vb" +#Region "Microsoft.VisualBasic::9b5bb278e9cc7e9e483c1e377eaae6ea, Microsoft.VisualBasic.Core\Language\Language\Java\LogTricks.vb" ' Author: ' diff --git a/Language/Language/Java/MathUtils.vb b/Language/Language/Java/MathUtils.vb index f60d9a4f..246f1d48 100644 --- a/Language/Language/Java/MathUtils.vb +++ b/Language/Language/Java/MathUtils.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b0b81c7bf726d3d5a37a601762bcb6d0, Language\Language\Java\MathUtils.vb" +#Region "Microsoft.VisualBasic::b0b81c7bf726d3d5a37a601762bcb6d0, Microsoft.VisualBasic.Core\Language\Language\Java\MathUtils.vb" ' Author: ' diff --git a/Language/Language/Java/MersenneTwisterFast.vb b/Language/Language/Java/MersenneTwisterFast.vb index cfbe82bf..03e71e78 100644 --- a/Language/Language/Java/MersenneTwisterFast.vb +++ b/Language/Language/Java/MersenneTwisterFast.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ff44d6c535633fec44e72f9a62a7eeaf, Language\Language\Java\MersenneTwisterFast.vb" +#Region "Microsoft.VisualBasic::ff44d6c535633fec44e72f9a62a7eeaf, Microsoft.VisualBasic.Core\Language\Language\Java\MersenneTwisterFast.vb" ' Author: ' diff --git a/Language/Language/Java/NamespaceDoc.vb b/Language/Language/Java/NamespaceDoc.vb index dcc5e8d0..1e2cd3e1 100644 --- a/Language/Language/Java/NamespaceDoc.vb +++ b/Language/Language/Java/NamespaceDoc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::778fade6af9fcd57355c0a28a9bad6b0, Language\Language\Java\NamespaceDoc.vb" +#Region "Microsoft.VisualBasic::778fade6af9fcd57355c0a28a9bad6b0, Microsoft.VisualBasic.Core\Language\Language\Java\NamespaceDoc.vb" ' Author: ' diff --git a/Language/Language/Java/Reflection.vb b/Language/Language/Java/Reflection.vb index 850da96d..d24d6920 100644 --- a/Language/Language/Java/Reflection.vb +++ b/Language/Language/Java/Reflection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::20be5e5db69eaa44a3037b9727dc487a, Language\Language\Java\Reflection.vb" +#Region "Microsoft.VisualBasic::20be5e5db69eaa44a3037b9727dc487a, Microsoft.VisualBasic.Core\Language\Language\Java\Reflection.vb" ' Author: ' diff --git a/Language/Language/Perl/Tools.vb b/Language/Language/Perl/Tools.vb index 387a9ce5..2cbd3f28 100644 --- a/Language/Language/Perl/Tools.vb +++ b/Language/Language/Perl/Tools.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1e21ab1839f3e8e938e3801e9aaa66f8, Language\Language\Perl\Tools.vb" +#Region "Microsoft.VisualBasic::1e21ab1839f3e8e938e3801e9aaa66f8, Microsoft.VisualBasic.Core\Language\Language\Perl\Tools.vb" ' Author: ' diff --git a/Language/Language/Perl/die.vb b/Language/Language/Perl/die.vb index f64ccf2d..7ec934f1 100644 --- a/Language/Language/Perl/die.vb +++ b/Language/Language/Perl/die.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a7a8fff568ee72cb38ef07d77677d424, Language\Language\Perl\die.vb" +#Region "Microsoft.VisualBasic::a7a8fff568ee72cb38ef07d77677d424, Microsoft.VisualBasic.Core\Language\Language\Perl\die.vb" ' Author: ' diff --git a/Language/Language/Python/Array.vb b/Language/Language/Python/Array.vb index 2a071e76..feaae1f8 100644 --- a/Language/Language/Python/Array.vb +++ b/Language/Language/Python/Array.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::446508712398d6c99193d23c063b824e, Language\Language\Python\Array.vb" +#Region "Microsoft.VisualBasic::446508712398d6c99193d23c063b824e, Microsoft.VisualBasic.Core\Language\Language\Python\Array.vb" ' Author: ' diff --git a/Language/Language/Python/Collection.vb b/Language/Language/Python/Collection.vb index 1bc494c7..733efbae 100644 --- a/Language/Language/Python/Collection.vb +++ b/Language/Language/Python/Collection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::66694617b20c7369b1e33346e177bfe2, Language\Language\Python\Collection.vb" +#Region "Microsoft.VisualBasic::66694617b20c7369b1e33346e177bfe2, Microsoft.VisualBasic.Core\Language\Language\Python\Collection.vb" ' Author: ' diff --git a/Language/Language/Python/NamedTuple.vb b/Language/Language/Python/NamedTuple.vb index 4b697ab5..3e3c830f 100644 --- a/Language/Language/Python/NamedTuple.vb +++ b/Language/Language/Python/NamedTuple.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6cd06372a0ab61fdc6935b640899b086, Language\Language\Python\NamedTuple.vb" +#Region "Microsoft.VisualBasic::6cd06372a0ab61fdc6935b640899b086, Microsoft.VisualBasic.Core\Language\Language\Python\NamedTuple.vb" ' Author: ' diff --git a/Language/Language/Python/NamespaceDoc.vb b/Language/Language/Python/NamespaceDoc.vb index 9403a0a3..6d922ea8 100644 --- a/Language/Language/Python/NamespaceDoc.vb +++ b/Language/Language/Python/NamespaceDoc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dd41909ac7af4e0011cea5f18d0bc056, Language\Language\Python\NamespaceDoc.vb" +#Region "Microsoft.VisualBasic::dd41909ac7af4e0011cea5f18d0bc056, Microsoft.VisualBasic.Core\Language\Language\Python\NamespaceDoc.vb" ' Author: ' diff --git a/Language/Language/Python/Regexp.vb b/Language/Language/Python/Regexp.vb index 9b6761b3..c6640889 100644 --- a/Language/Language/Python/Regexp.vb +++ b/Language/Language/Python/Regexp.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ab30b487b449be23e5a9d0953d89542f, Language\Language\Python\Regexp.vb" +#Region "Microsoft.VisualBasic::ab30b487b449be23e5a9d0953d89542f, Microsoft.VisualBasic.Core\Language\Language\Python\Regexp.vb" ' Author: ' diff --git a/Language/Language/UnixBash/Cowsay.vb b/Language/Language/UnixBash/Cowsay.vb index ce374ebb..111ca097 100644 --- a/Language/Language/UnixBash/Cowsay.vb +++ b/Language/Language/UnixBash/Cowsay.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5fd474cee93bf8f6967bce44e951e500, Language\Language\UnixBash\Cowsay.vb" +#Region "Microsoft.VisualBasic::5fd474cee93bf8f6967bce44e951e500, Microsoft.VisualBasic.Core\Language\Language\UnixBash\Cowsay.vb" ' Author: ' diff --git a/Language/Language/UnixBash/FileSystem/File.vb b/Language/Language/UnixBash/FileSystem/File.vb index 148841f6..f7698897 100644 --- a/Language/Language/UnixBash/FileSystem/File.vb +++ b/Language/Language/UnixBash/FileSystem/File.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d04e821c6beb24a5aa6bb3f5d9ec50dc, Language\Language\UnixBash\FileSystem\File.vb" +#Region "Microsoft.VisualBasic::d04e821c6beb24a5aa6bb3f5d9ec50dc, Microsoft.VisualBasic.Core\Language\Language\UnixBash\FileSystem\File.vb" ' Author: ' diff --git a/Language/Language/UnixBash/FileSystem/PathMapper.vb b/Language/Language/UnixBash/FileSystem/PathMapper.vb index 02c3bfc8..7a951345 100644 --- a/Language/Language/UnixBash/FileSystem/PathMapper.vb +++ b/Language/Language/UnixBash/FileSystem/PathMapper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a607bc785b695f6fd2a7934d8db2e268, Language\Language\UnixBash\FileSystem\PathMapper.vb" +#Region "Microsoft.VisualBasic::a607bc785b695f6fd2a7934d8db2e268, Microsoft.VisualBasic.Core\Language\Language\UnixBash\FileSystem\PathMapper.vb" ' Author: ' diff --git a/Language/Language/UnixBash/PS1.vb b/Language/Language/UnixBash/PS1.vb index 51dd1167..74ab8985 100644 --- a/Language/Language/UnixBash/PS1.vb +++ b/Language/Language/UnixBash/PS1.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fe79dc9907f00af89005ab4d3bed2e97, Language\Language\UnixBash\PS1.vb" +#Region "Microsoft.VisualBasic::fe79dc9907f00af89005ab4d3bed2e97, Microsoft.VisualBasic.Core\Language\Language\UnixBash\PS1.vb" ' Author: ' diff --git a/Language/Language/UnixBash/Shell/Text/Grep.vb b/Language/Language/UnixBash/Shell/Text/Grep.vb index ee96a988..54b44900 100644 --- a/Language/Language/UnixBash/Shell/Text/Grep.vb +++ b/Language/Language/UnixBash/Shell/Text/Grep.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::813c516d5a093dbc9b6a6e40cb8f72be, Language\Language\UnixBash\Shell\Text\Grep.vb" +#Region "Microsoft.VisualBasic::813c516d5a093dbc9b6a6e40cb8f72be, Microsoft.VisualBasic.Core\Language\Language\UnixBash\Shell\Text\Grep.vb" ' Author: ' diff --git a/Language/Language/UnixBash/Shell/ls.vb b/Language/Language/UnixBash/Shell/ls.vb index aea2c6fd..58f8ce88 100644 --- a/Language/Language/UnixBash/Shell/ls.vb +++ b/Language/Language/UnixBash/Shell/ls.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2f6029f7d263e9acd500eab48089d79d, Language\Language\UnixBash\Shell\ls.vb" +#Region "Microsoft.VisualBasic::2f6029f7d263e9acd500eab48089d79d, Microsoft.VisualBasic.Core\Language\Language\UnixBash\Shell\ls.vb" ' Author: ' diff --git a/Language/Language/UnixBash/Shell/rm.vb b/Language/Language/UnixBash/Shell/rm.vb index bf54f307..8c17dad2 100644 --- a/Language/Language/UnixBash/Shell/rm.vb +++ b/Language/Language/UnixBash/Shell/rm.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ed5c63b298fc2b051b5de076932172ae, Language\Language\UnixBash\Shell\rm.vb" +#Region "Microsoft.VisualBasic::ed5c63b298fc2b051b5de076932172ae, Microsoft.VisualBasic.Core\Language\Language\UnixBash\Shell\rm.vb" ' Author: ' diff --git a/Language/Language/UnixBash/Shell/tree.vb b/Language/Language/UnixBash/Shell/tree.vb index d6656f9d..e1dbfa81 100644 --- a/Language/Language/UnixBash/Shell/tree.vb +++ b/Language/Language/UnixBash/Shell/tree.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d28ff8281acb4bbd422c6407b62ff6a6, Language\Language\UnixBash\Shell\tree.vb" +#Region "Microsoft.VisualBasic::d28ff8281acb4bbd422c6407b62ff6a6, Microsoft.VisualBasic.Core\Language\Language\UnixBash\Shell\tree.vb" ' Author: ' diff --git a/Language/Language/UnixBash/ShellSyntax.vb b/Language/Language/UnixBash/ShellSyntax.vb index 38a0784b..3f0a92bf 100644 --- a/Language/Language/UnixBash/ShellSyntax.vb +++ b/Language/Language/UnixBash/ShellSyntax.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::eb3f13228b6371778f3e0d31ab01245d, Language\Language\UnixBash\ShellSyntax.vb" +#Region "Microsoft.VisualBasic::eb3f13228b6371778f3e0d31ab01245d, Microsoft.VisualBasic.Core\Language\Language\UnixBash\ShellSyntax.vb" ' Author: ' diff --git a/Language/Linq/Assert/AssertEqualsExtensions.vb b/Language/Linq/Assert/AssertEqualsExtensions.vb index b1184c82..870962b1 100644 --- a/Language/Linq/Assert/AssertEqualsExtensions.vb +++ b/Language/Linq/Assert/AssertEqualsExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::acb3f4c657693f3f83734bd80f7d14ff, Language\Linq\Assert\AssertEqualsExtensions.vb" +#Region "Microsoft.VisualBasic::acb3f4c657693f3f83734bd80f7d14ff, Microsoft.VisualBasic.Core\Language\Linq\Assert\AssertEqualsExtensions.vb" ' Author: ' diff --git a/Language/Linq/Assert/VectorAssert.vb b/Language/Linq/Assert/VectorAssert.vb index f601d2f6..197589dd 100644 --- a/Language/Linq/Assert/VectorAssert.vb +++ b/Language/Linq/Assert/VectorAssert.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bd2f9068b0a8fd7a0b42615034d55cae, Language\Linq\Assert\VectorAssert.vb" +#Region "Microsoft.VisualBasic::bd2f9068b0a8fd7a0b42615034d55cae, Microsoft.VisualBasic.Core\Language\Linq\Assert\VectorAssert.vb" ' Author: ' diff --git a/Language/Linq/Indexer.vb b/Language/Linq/Indexer.vb index d43b3882..5d8ca1bb 100644 --- a/Language/Linq/Indexer.vb +++ b/Language/Linq/Indexer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a4340f380698df28410faf9ff7a6a08f, Language\Linq\Indexer.vb" +#Region "Microsoft.VisualBasic::a4340f380698df28410faf9ff7a6a08f, Microsoft.VisualBasic.Core\Language\Linq\Indexer.vb" ' Author: ' diff --git a/Language/Linq/LanguageExtensions.vb b/Language/Linq/LanguageExtensions.vb index df8b4413..990cb94d 100644 --- a/Language/Linq/LanguageExtensions.vb +++ b/Language/Linq/LanguageExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b09890ca24056e526d08a965c88bf3e6, Language\Linq\LanguageExtensions.vb" +#Region "Microsoft.VisualBasic::b09890ca24056e526d08a965c88bf3e6, Microsoft.VisualBasic.Core\Language\Linq\LanguageExtensions.vb" ' Author: ' diff --git a/Language/Linq/Linq.vb b/Language/Linq/Linq.vb index cb2a768b..8f8a0af8 100644 --- a/Language/Linq/Linq.vb +++ b/Language/Linq/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bdb9cc942f7123775b83eb9ecf8cd4d5, Language\Linq\Linq.vb" +#Region "Microsoft.VisualBasic::bdb9cc942f7123775b83eb9ecf8cd4d5, Microsoft.VisualBasic.Core\Language\Linq\Linq.vb" ' Author: ' diff --git a/Language/Linq/List.vb b/Language/Linq/List.vb index 90e555bb..7f02f567 100644 --- a/Language/Linq/List.vb +++ b/Language/Linq/List.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::37bad5ffc0bc7a6f5ab3e6ee6f903a3b, Language\Linq\List.vb" +#Region "Microsoft.VisualBasic::37bad5ffc0bc7a6f5ab3e6ee6f903a3b, Microsoft.VisualBasic.Core\Language\Linq\List.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/BooleanVector.vb b/Language/Linq/Vectorization/BooleanVector.vb index 5fdd69eb..14ece308 100644 --- a/Language/Linq/Vectorization/BooleanVector.vb +++ b/Language/Linq/Vectorization/BooleanVector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1d82c1b4fe9db7f573466bf1aedd0a1a, Language\Linq\Vectorization\BooleanVector.vb" +#Region "Microsoft.VisualBasic::1d82c1b4fe9db7f573466bf1aedd0a1a, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\BooleanVector.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/Extensions.vb b/Language/Linq/Vectorization/Extensions.vb index 2bde327e..420e319d 100644 --- a/Language/Linq/Vectorization/Extensions.vb +++ b/Language/Linq/Vectorization/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3c4353d24abf909ca2603923128841d9, Language\Linq\Vectorization\Extensions.vb" +#Region "Microsoft.VisualBasic::3c4353d24abf909ca2603923128841d9, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\Extensions.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/SchemaProvider.vb b/Language/Linq/Vectorization/SchemaProvider.vb index 7b34204e..7ee122c9 100644 --- a/Language/Linq/Vectorization/SchemaProvider.vb +++ b/Language/Linq/Vectorization/SchemaProvider.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c544f50f316b66eab1c81133873f716f, Language\Linq\Vectorization\SchemaProvider.vb" +#Region "Microsoft.VisualBasic::c544f50f316b66eab1c81133873f716f, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\SchemaProvider.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/StringVector.vb b/Language/Linq/Vectorization/StringVector.vb index 6fccb23a..25790c10 100644 --- a/Language/Linq/Vectorization/StringVector.vb +++ b/Language/Linq/Vectorization/StringVector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::621eabfe57bd52ef167a5dc0ece568d4, Language\Linq\Vectorization\StringVector.vb" +#Region "Microsoft.VisualBasic::621eabfe57bd52ef167a5dc0ece568d4, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\StringVector.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/Strings.vb b/Language/Linq/Vectorization/Strings.vb index 52ad14e3..c65bff41 100644 --- a/Language/Linq/Vectorization/Strings.vb +++ b/Language/Linq/Vectorization/Strings.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5922be49c16581d2f9acb65ba92610e2, Language\Linq\Vectorization\Strings.vb" +#Region "Microsoft.VisualBasic::5922be49c16581d2f9acb65ba92610e2, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\Strings.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/Vector.vb b/Language/Linq/Vectorization/Vector.vb index 746645e9..7d6fa130 100644 --- a/Language/Linq/Vectorization/Vector.vb +++ b/Language/Linq/Vectorization/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2321c4bfd9b582b8e1392039335ce8aa, Language\Linq\Vectorization\Vector.vb" +#Region "Microsoft.VisualBasic::2321c4bfd9b582b8e1392039335ce8aa, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\Vector.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/VectorShadows.vb b/Language/Linq/Vectorization/VectorShadows.vb index 60038bfb..d7f9f131 100644 --- a/Language/Linq/Vectorization/VectorShadows.vb +++ b/Language/Linq/Vectorization/VectorShadows.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::132bcc16d970a6deeae3a85e3aada97a, Language\Linq\Vectorization\VectorShadows.vb" +#Region "Microsoft.VisualBasic::132bcc16d970a6deeae3a85e3aada97a, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\VectorShadows.vb" ' Author: ' diff --git a/Language/NamespaceDoc.vb b/Language/NamespaceDoc.vb index 217e1292..77f2352c 100644 --- a/Language/NamespaceDoc.vb +++ b/Language/NamespaceDoc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fd5bb925a1381c5e591ded0c65e564de, Language\NamespaceDoc.vb" +#Region "Microsoft.VisualBasic::fd5bb925a1381c5e591ded0c65e564de, Microsoft.VisualBasic.Core\Language\NamespaceDoc.vb" ' Author: ' diff --git a/Language/Runtime.vb b/Language/Runtime.vb index 463715d4..23709cb2 100644 --- a/Language/Runtime.vb +++ b/Language/Runtime.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::07b523fb539260b7cd01bff7c4c2311e, Language\Runtime.vb" +#Region "Microsoft.VisualBasic::07b523fb539260b7cd01bff7c4c2311e, Microsoft.VisualBasic.Core\Language\Runtime.vb" ' Author: ' diff --git a/Language/StringHelpers.vb b/Language/StringHelpers.vb index fbc131d3..9a461a3d 100644 --- a/Language/StringHelpers.vb +++ b/Language/StringHelpers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::024d215f06ecc1b4e0d2dc2c071b4650, Language\StringHelpers.vb" +#Region "Microsoft.VisualBasic::024d215f06ecc1b4e0d2dc2c071b4650, Microsoft.VisualBasic.Core\Language\StringHelpers.vb" ' Author: ' diff --git a/Language/Value/ByRefValueExtensions.vb b/Language/Value/ByRefValueExtensions.vb index 1d3d97a9..91fb9740 100644 --- a/Language/Value/ByRefValueExtensions.vb +++ b/Language/Value/ByRefValueExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bb1ee2643f8913577fc3056a8b97d978, Language\Value\ByRefValueExtensions.vb" +#Region "Microsoft.VisualBasic::bb1ee2643f8913577fc3056a8b97d978, Microsoft.VisualBasic.Core\Language\Value\ByRefValueExtensions.vb" ' Author: ' diff --git a/Language/Value/CharStream.vb b/Language/Value/CharStream.vb index c4419fb2..b2b18224 100644 --- a/Language/Value/CharStream.vb +++ b/Language/Value/CharStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::24b13cc75929d945706caddec5b92b1f, Language\Value\CharStream.vb" +#Region "Microsoft.VisualBasic::24b13cc75929d945706caddec5b92b1f, Microsoft.VisualBasic.Core\Language\Value\CharStream.vb" ' Author: ' diff --git a/Language/Value/Clones.vb b/Language/Value/Clones.vb index 778e2499..131edc56 100644 --- a/Language/Value/Clones.vb +++ b/Language/Value/Clones.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a379a2f5bc31ccee1e43102f7af78524, Language\Value\Clones.vb" +#Region "Microsoft.VisualBasic::a379a2f5bc31ccee1e43102f7af78524, Microsoft.VisualBasic.Core\Language\Value\Clones.vb" ' Author: ' diff --git a/Language/Value/DefaultValue/BooleanAssert.vb b/Language/Value/DefaultValue/BooleanAssert.vb index d69bdfc9..74d1922e 100644 --- a/Language/Value/DefaultValue/BooleanAssert.vb +++ b/Language/Value/DefaultValue/BooleanAssert.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::58d239073c2fbc6b9a91ef3df001b58e, Language\Value\DefaultValue\BooleanAssert.vb" +#Region "Microsoft.VisualBasic::58d239073c2fbc6b9a91ef3df001b58e, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\BooleanAssert.vb" ' Author: ' diff --git a/Language/Value/DefaultValue/Default.vb b/Language/Value/DefaultValue/Default.vb index 7b191d9b..c7723140 100644 --- a/Language/Value/DefaultValue/Default.vb +++ b/Language/Value/DefaultValue/Default.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7215eacef6da5d9f4c3c795ae8d23869, Language\Value\DefaultValue\Default.vb" +#Region "Microsoft.VisualBasic::7215eacef6da5d9f4c3c795ae8d23869, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\Default.vb" ' Author: ' diff --git a/Language/Value/DefaultValue/DefaultExtensions.vb b/Language/Value/DefaultValue/DefaultExtensions.vb index 579a8f7d..63413f81 100644 --- a/Language/Value/DefaultValue/DefaultExtensions.vb +++ b/Language/Value/DefaultValue/DefaultExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ffe3c76b2706ef78a83bb46534112e17, Language\Value\DefaultValue\DefaultExtensions.vb" +#Region "Microsoft.VisualBasic::ffe3c76b2706ef78a83bb46534112e17, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\DefaultExtensions.vb" ' Author: ' diff --git a/Language/Value/DefaultValue/DefaultString.vb b/Language/Value/DefaultValue/DefaultString.vb index c21c910d..ce2183d6 100644 --- a/Language/Value/DefaultValue/DefaultString.vb +++ b/Language/Value/DefaultValue/DefaultString.vb @@ -1,46 +1,47 @@ -#Region "Microsoft.VisualBasic::c0c300c7751c675905ed4b93e9c9d6f8, Language\Value\DefaultValue\DefaultString.vb" +#Region "Microsoft.VisualBasic::5ca5c1f9db52baab7c86e4e7f6602e0c, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\DefaultString.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 . + ' 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: + ' Summaries: -' Structure DefaultString -' -' Properties: DefaultValue, IsEmpty, IsTrue -' -' Constructor: (+1 Overloads) Sub New -' Function: assertIsNothing, LoadJson, LoadXml, ReadAllLines, ToString -' Operators: (+2 Overloads) IsFalse, (+2 Overloads) IsTrue, (+8 Overloads) Or -' -' -' /********************************************************************************/ + ' Structure DefaultString + ' + ' Properties: DefaultValue, IsEmpty, IsTrue + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: assertIsNothing, Base64Decode, LoadJson, LoadXml, ReadAllLines + ' ToString + ' Operators: (+2 Overloads) IsFalse, (+2 Overloads) IsTrue, (+8 Overloads) Or + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Language/Value/Numeric/Numeric.vb b/Language/Value/Numeric/Numeric.vb index abb56fa4..f1178018 100644 --- a/Language/Value/Numeric/Numeric.vb +++ b/Language/Value/Numeric/Numeric.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7d518f5ec49de56f51b664ee075e4808, Language\Value\Numeric\Numeric.vb" +#Region "Microsoft.VisualBasic::7d518f5ec49de56f51b664ee075e4808, Microsoft.VisualBasic.Core\Language\Value\Numeric\Numeric.vb" ' Author: ' diff --git a/Language/Value/Numeric/VBDouble.vb b/Language/Value/Numeric/VBDouble.vb index 6974f97a..b70a99be 100644 --- a/Language/Value/Numeric/VBDouble.vb +++ b/Language/Value/Numeric/VBDouble.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::261c52e3b65221fb2fe8e065d9c6d7e1, Language\Value\Numeric\VBDouble.vb" +#Region "Microsoft.VisualBasic::261c52e3b65221fb2fe8e065d9c6d7e1, Microsoft.VisualBasic.Core\Language\Value\Numeric\VBDouble.vb" ' Author: ' diff --git a/Language/Value/Numeric/VBInteger.vb b/Language/Value/Numeric/VBInteger.vb index 62201430..b3eab893 100644 --- a/Language/Value/Numeric/VBInteger.vb +++ b/Language/Value/Numeric/VBInteger.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f8ecacf552b36759cf81b824b85b5923, Language\Value\Numeric\VBInteger.vb" +#Region "Microsoft.VisualBasic::f8ecacf552b36759cf81b824b85b5923, Microsoft.VisualBasic.Core\Language\Value\Numeric\VBInteger.vb" ' Author: ' diff --git a/Language/Value/Pointer.vb b/Language/Value/Pointer.vb index 37cf846e..c8644f7a 100644 --- a/Language/Value/Pointer.vb +++ b/Language/Value/Pointer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ef16285bcf1dd1e43c4720a98796fe49, Language\Value\Pointer.vb" +#Region "Microsoft.VisualBasic::ef16285bcf1dd1e43c4720a98796fe49, Microsoft.VisualBasic.Core\Language\Value\Pointer.vb" ' Author: ' diff --git a/Language/Value/Value.vb b/Language/Value/Value.vb index 9d1d2a4b..405b37f0 100644 --- a/Language/Value/Value.vb +++ b/Language/Value/Value.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0b90476016445e61712b1eaa6b985953, Language\Value\Value.vb" +#Region "Microsoft.VisualBasic::0b90476016445e61712b1eaa6b985953, Microsoft.VisualBasic.Core\Language\Value\Value.vb" ' Author: ' diff --git a/Language/Value/Variant.vb b/Language/Value/Variant.vb index 3c0017c1..eb713307 100644 --- a/Language/Value/Variant.vb +++ b/Language/Value/Variant.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1c359fd556368c605b8a301ca9e1d2d2, Language\Value\Variant.vb" +#Region "Microsoft.VisualBasic::1c359fd556368c605b8a301ca9e1d2d2, Microsoft.VisualBasic.Core\Language\Value\Variant.vb" ' Author: ' diff --git a/Language/Value/var.vb b/Language/Value/var.vb index 231b5fd9..15a53044 100644 --- a/Language/Value/var.vb +++ b/Language/Value/var.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::27579ccb20e6051398794740ba47a9a7, Language\Value\var.vb" +#Region "Microsoft.VisualBasic::27579ccb20e6051398794740ba47a9a7, Microsoft.VisualBasic.Core\Language\Value\var.vb" ' Author: ' diff --git a/My/File.vb b/My/File.vb index d6a5c6c3..39b53f56 100644 --- a/My/File.vb +++ b/My/File.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::02b80c6918fe4a22a9d16e6a9f216b54, My\File.vb" +#Region "Microsoft.VisualBasic::02b80c6918fe4a22a9d16e6a9f216b54, Microsoft.VisualBasic.Core\My\File.vb" ' Author: ' diff --git a/My/InnerQueue.vb b/My/InnerQueue.vb index 6f7d316c..5eeb4a7c 100644 --- a/My/InnerQueue.vb +++ b/My/InnerQueue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1110699dc4dd396363970e2d12d42435, My\InnerQueue.vb" +#Region "Microsoft.VisualBasic::1110699dc4dd396363970e2d12d42435, Microsoft.VisualBasic.Core\My\InnerQueue.vb" ' Author: ' diff --git a/My/JavaScript/ES6/Map.vb b/My/JavaScript/ES6/Map.vb index 24e85fb7..32fd980d 100644 --- a/My/JavaScript/ES6/Map.vb +++ b/My/JavaScript/ES6/Map.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d778ee5d576e999a44c42696c94281f5, My\JavaScript\ES6\Map.vb" +#Region "Microsoft.VisualBasic::d778ee5d576e999a44c42696c94281f5, Microsoft.VisualBasic.Core\My\JavaScript\ES6\Map.vb" ' Author: ' diff --git a/My/JavaScript/JavaScriptObject.vb b/My/JavaScript/JavaScriptObject.vb index c86a2aff..30b5c868 100644 --- a/My/JavaScript/JavaScriptObject.vb +++ b/My/JavaScript/JavaScriptObject.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::19bfdec5cef80f52096f361a1993ed21, My\JavaScript\JavaScriptObject.vb" +#Region "Microsoft.VisualBasic::19bfdec5cef80f52096f361a1993ed21, Microsoft.VisualBasic.Core\My\JavaScript\JavaScriptObject.vb" ' Author: ' diff --git a/My/JavaScript/Linq.vb b/My/JavaScript/Linq.vb index df3f4cbb..427b6a94 100644 --- a/My/JavaScript/Linq.vb +++ b/My/JavaScript/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::07bb13fb4b1929e273c991396589819c, My\JavaScript\Linq.vb" +#Region "Microsoft.VisualBasic::07bb13fb4b1929e273c991396589819c, Microsoft.VisualBasic.Core\My\JavaScript\Linq.vb" ' Author: ' diff --git a/My/JavaScript/UnionType.vb b/My/JavaScript/UnionType.vb index bea34715..e4c1a66b 100644 --- a/My/JavaScript/UnionType.vb +++ b/My/JavaScript/UnionType.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::02a6b956c15a6bc900237956efeeadbb, My\JavaScript\UnionType.vb" +#Region "Microsoft.VisualBasic::02a6b956c15a6bc900237956efeeadbb, Microsoft.VisualBasic.Core\My\JavaScript\UnionType.vb" ' Author: ' diff --git a/My/LinuxRunHelper.vb b/My/LinuxRunHelper.vb index 48cfdf2a..ec397f07 100644 --- a/My/LinuxRunHelper.vb +++ b/My/LinuxRunHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b3a106c39670fb151d62b3b32d984b29, My\LinuxRunHelper.vb" +#Region "Microsoft.VisualBasic::b3a106c39670fb151d62b3b32d984b29, Microsoft.VisualBasic.Core\My\LinuxRunHelper.vb" ' Author: ' diff --git a/My/Log4VB.vb b/My/Log4VB.vb index 6d5bd276..a8d3a85b 100644 --- a/My/Log4VB.vb +++ b/My/Log4VB.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2047894333de18074bc2425ea5d699dc, My\Log4VB.vb" +#Region "Microsoft.VisualBasic::2047894333de18074bc2425ea5d699dc, Microsoft.VisualBasic.Core\My\Log4VB.vb" ' Author: ' diff --git a/NamespaceDoc.vb b/NamespaceDoc.vb index 287b0b5c..11465db4 100644 --- a/NamespaceDoc.vb +++ b/NamespaceDoc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::06f7567a419911201c422bd50b0f261a, NamespaceDoc.vb" +#Region "Microsoft.VisualBasic::06f7567a419911201c422bd50b0f261a, Microsoft.VisualBasic.Core\NamespaceDoc.vb" ' Author: ' diff --git a/Net/Abstract.vb b/Net/Abstract.vb index b9c5d054..ebbddcb2 100644 --- a/Net/Abstract.vb +++ b/Net/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a491bd98f891310b14cf4957ddae8936, Net\Abstract.vb" +#Region "Microsoft.VisualBasic::287d2bd71c6f3b8c3d072d4d519edb8f, Microsoft.VisualBasic.Core\Net\Abstract.vb" ' Author: ' @@ -35,6 +35,9 @@ ' ' ' + ' Delegate Function + ' + ' ' Delegate Sub ' ' @@ -49,7 +52,9 @@ ' ' Interface IDataRequestHandler ' - ' Properties: Responsehandler + ' Properties: ResponseHandler + ' + ' ' ' ' diff --git a/Net/DomainName.vb b/Net/DomainName.vb index dc3b2313..dc97e121 100644 --- a/Net/DomainName.vb +++ b/Net/DomainName.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::20eb6a49be8a01b85cb9eda823ee0cd1, Net\DomainName.vb" +#Region "Microsoft.VisualBasic::20eb6a49be8a01b85cb9eda823ee0cd1, Microsoft.VisualBasic.Core\Net\DomainName.vb" ' Author: ' diff --git a/Net/DomainParser.vb b/Net/DomainParser.vb index 615b790c..a45e3fe8 100644 --- a/Net/DomainParser.vb +++ b/Net/DomainParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::702658a0f3035fd8221dbcb9eb5490c9, Net\DomainParser.vb" +#Region "Microsoft.VisualBasic::702658a0f3035fd8221dbcb9eb5490c9, Microsoft.VisualBasic.Core\Net\DomainParser.vb" ' Author: ' diff --git a/Net/HTTP/DataURI.vb b/Net/HTTP/DataURI.vb index f92e351e..580ca441 100644 --- a/Net/HTTP/DataURI.vb +++ b/Net/HTTP/DataURI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::30ac82b8e9a5ffa17467b35f518157d4, Net\HTTP\DataURI.vb" +#Region "Microsoft.VisualBasic::30ac82b8e9a5ffa17467b35f518157d4, Microsoft.VisualBasic.Core\Net\HTTP\DataURI.vb" ' Author: ' diff --git a/Net/HTTP/Multipart.vb b/Net/HTTP/Multipart.vb index f04a632c..705c99dc 100644 --- a/Net/HTTP/Multipart.vb +++ b/Net/HTTP/Multipart.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5b37ca2ecbcbc5969c0b2eb7bdb64de2, Net\HTTP\Multipart.vb" +#Region "Microsoft.VisualBasic::5b37ca2ecbcbc5969c0b2eb7bdb64de2, Microsoft.VisualBasic.Core\Net\HTTP\Multipart.vb" ' Author: ' diff --git a/Net/HTTP/Stream/Base64Codec.vb b/Net/HTTP/Stream/Base64Codec.vb index a4a139e1..df0e89f9 100644 --- a/Net/HTTP/Stream/Base64Codec.vb +++ b/Net/HTTP/Stream/Base64Codec.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c4564c7c78443f22803f7e0ea3c20472, Net\HTTP\Stream\Base64Codec.vb" +#Region "Microsoft.VisualBasic::c4564c7c78443f22803f7e0ea3c20472, Microsoft.VisualBasic.Core\Net\HTTP\Stream\Base64Codec.vb" ' Author: ' diff --git a/Net/HTTP/Stream/GZStream.vb b/Net/HTTP/Stream/GZStream.vb index da179453..2b333baf 100644 --- a/Net/HTTP/Stream/GZStream.vb +++ b/Net/HTTP/Stream/GZStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ec105b39efee699fc535c65d9f0f9b44, Net\HTTP\Stream\GZStream.vb" +#Region "Microsoft.VisualBasic::ec105b39efee699fc535c65d9f0f9b44, Microsoft.VisualBasic.Core\Net\HTTP\Stream\GZStream.vb" ' Author: ' diff --git a/Net/HTTP/Stream/ZipStream.vb b/Net/HTTP/Stream/ZipStream.vb index e53b5183..597d6ab1 100644 --- a/Net/HTTP/Stream/ZipStream.vb +++ b/Net/HTTP/Stream/ZipStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2bc81f82cf1a26d06e4d18edad34ebe8, Net\HTTP\Stream\ZipStream.vb" +#Region "Microsoft.VisualBasic::2bc81f82cf1a26d06e4d18edad34ebe8, Microsoft.VisualBasic.Core\Net\HTTP\Stream\ZipStream.vb" ' Author: ' diff --git a/Net/HTTP/UserAgent.vb b/Net/HTTP/UserAgent.vb index 863780b6..cd7e417b 100644 --- a/Net/HTTP/UserAgent.vb +++ b/Net/HTTP/UserAgent.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9f885f72728f8313eadd537fcae2fb4e, Net\HTTP\UserAgent.vb" +#Region "Microsoft.VisualBasic::9f885f72728f8313eadd537fcae2fb4e, Microsoft.VisualBasic.Core\Net\HTTP\UserAgent.vb" ' Author: ' diff --git a/Net/HTTP/sitemap.xml.vb b/Net/HTTP/sitemap.xml.vb index f75152ce..f9b18325 100644 --- a/Net/HTTP/sitemap.xml.vb +++ b/Net/HTTP/sitemap.xml.vb @@ -1,60 +1,60 @@ -#Region "Microsoft.VisualBasic::5a099b4ca8a8b710b5c0b912588cd2dc, Net\HTTP\sitemap.xml.vb" +#Region "Microsoft.VisualBasic::4bc7d87b1c2b8387d9a23a207a33af6b, Microsoft.VisualBasic.Core\Net\HTTP\sitemap.xml.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 . + ' 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: + ' Summaries: -' Class sitemap -' -' Properties: urls -' -' Function: ToString -' Structure url -' -' Properties: changefreq, lastmod, loc, priority -' -' Function: ToString -' -' Enum changefreqs -' -' always, daily, hourly, monthly, never -' weekly, yearly -' -' -' -' -' -' Function: (+2 Overloads) Save, ScanAllFiles -' -' -' /********************************************************************************/ + ' Class sitemap + ' + ' Properties: urls + ' + ' Function: ToString + ' Structure url + ' + ' Properties: changefreq, lastmod, loc, priority + ' + ' Function: ToString + ' + ' Enum changefreqs + ' + ' always, daily, hourly, monthly, never + ' weekly, yearly + ' + ' + ' + ' + ' + ' Function: (+2 Overloads) Save, ScanAllFiles + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Net/MIME/ContentType.vb b/Net/MIME/ContentType.vb index 2d299e44..9abe71fb 100644 --- a/Net/MIME/ContentType.vb +++ b/Net/MIME/ContentType.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::05811d12baae321f2a46bf4ec36ad30a, Net\MIME\ContentType.vb" +#Region "Microsoft.VisualBasic::05811d12baae321f2a46bf4ec36ad30a, Microsoft.VisualBasic.Core\Net\MIME\ContentType.vb" ' Author: ' diff --git a/Net/MIME/MIME.vb b/Net/MIME/MIME.vb index 0aa00c93..721ca4d2 100644 --- a/Net/MIME/MIME.vb +++ b/Net/MIME/MIME.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::57c15c7a6904d026effc96807ea2f0e2, Net\MIME\MIME.vb" +#Region "Microsoft.VisualBasic::57c15c7a6904d026effc96807ea2f0e2, Microsoft.VisualBasic.Core\Net\MIME\MIME.vb" ' Author: ' diff --git a/Net/PingUtility.vb b/Net/PingUtility.vb index efc34c09..0376456b 100644 --- a/Net/PingUtility.vb +++ b/Net/PingUtility.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ffe7f62e8c3ac70f7bf03ef730c54013, Net\PingUtility.vb" +#Region "Microsoft.VisualBasic::ffe7f62e8c3ac70f7bf03ef730c54013, Microsoft.VisualBasic.Core\Net\PingUtility.vb" ' Author: ' diff --git a/Net/PortMapping.vb b/Net/PortMapping.vb index 0faa7ef0..19e3d976 100644 --- a/Net/PortMapping.vb +++ b/Net/PortMapping.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6d9161140ee90f4abb7f8668c65da11d, Net\PortMapping.vb" +#Region "Microsoft.VisualBasic::6d9161140ee90f4abb7f8668c65da11d, Microsoft.VisualBasic.Core\Net\PortMapping.vb" ' Author: ' diff --git a/Net/Protocol/Abstract.vb b/Net/Protocol/Abstract.vb index 14950a28..b122da40 100644 --- a/Net/Protocol/Abstract.vb +++ b/Net/Protocol/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6f35238d4e079cd2d617b33b2fcecd44, Net\Protocol\Abstract.vb" +#Region "Microsoft.VisualBasic::6f35238d4e079cd2d617b33b2fcecd44, Microsoft.VisualBasic.Core\Net\Protocol\Abstract.vb" ' Author: ' diff --git a/Net/Protocol/IVerifySession.vb b/Net/Protocol/IVerifySession.vb index 5fb78fd1..d762d4eb 100644 --- a/Net/Protocol/IVerifySession.vb +++ b/Net/Protocol/IVerifySession.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5b32dfee69476e40543c71e3742dca5b, Net\Protocol\IVerifySession.vb" +#Region "Microsoft.VisualBasic::5b32dfee69476e40543c71e3742dca5b, Microsoft.VisualBasic.Core\Net\Protocol\IVerifySession.vb" ' Author: ' diff --git a/Net/Protocol/Reflection/AppMgr.vb b/Net/Protocol/Reflection/AppMgr.vb index 25aca76d..890d6857 100644 --- a/Net/Protocol/Reflection/AppMgr.vb +++ b/Net/Protocol/Reflection/AppMgr.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d39cd878fc06a992f1453c699e3e6462, Net\Protocol\Reflection\AppMgr.vb" +#Region "Microsoft.VisualBasic::d39cd878fc06a992f1453c699e3e6462, Microsoft.VisualBasic.Core\Net\Protocol\Reflection\AppMgr.vb" ' Author: ' diff --git a/Net/Protocol/Reflection/Protocol.vb b/Net/Protocol/Reflection/Protocol.vb index afa15881..60225239 100644 --- a/Net/Protocol/Reflection/Protocol.vb +++ b/Net/Protocol/Reflection/Protocol.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::bcfdaad7954d579a41f1d3687a4428d0, Net\Protocol\Reflection\Protocol.vb" +#Region "Microsoft.VisualBasic::bcfdaad7954d579a41f1d3687a4428d0, Microsoft.VisualBasic.Core\Net\Protocol\Reflection\Protocol.vb" ' Author: ' diff --git a/Net/Protocol/Reflection/ProtocolHandler.vb b/Net/Protocol/Reflection/ProtocolHandler.vb index cca3c3ea..176e59ba 100644 --- a/Net/Protocol/Reflection/ProtocolHandler.vb +++ b/Net/Protocol/Reflection/ProtocolHandler.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e9fc2b90e6ed847e0a43175fe081b3d1, Net\Protocol\Reflection\ProtocolHandler.vb" +#Region "Microsoft.VisualBasic::d883b5e7df0927d02a228167bb2da654, Microsoft.VisualBasic.Core\Net\Protocol\Reflection\ProtocolHandler.vb" ' Author: ' diff --git a/Net/Protocol/Reflection/ProtocolInvoker.vb b/Net/Protocol/Reflection/ProtocolInvoker.vb index 0931dda5..6b7cb9bd 100644 --- a/Net/Protocol/Reflection/ProtocolInvoker.vb +++ b/Net/Protocol/Reflection/ProtocolInvoker.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aa6e139f0db4826a5ae49e31cb42da81, Net\Protocol\Reflection\ProtocolInvoker.vb" +#Region "Microsoft.VisualBasic::aa6e139f0db4826a5ae49e31cb42da81, Microsoft.VisualBasic.Core\Net\Protocol\Reflection\ProtocolInvoker.vb" ' Author: ' diff --git a/Net/Protocol/RequestStream.vb b/Net/Protocol/RequestStream.vb index 2e9262cf..d7e5f1f8 100644 --- a/Net/Protocol/RequestStream.vb +++ b/Net/Protocol/RequestStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::539d950c873adce9a9ea57f42b522067, Net\Protocol\RequestStream.vb" +#Region "Microsoft.VisualBasic::539d950c873adce9a9ea57f42b522067, Microsoft.VisualBasic.Core\Net\Protocol\RequestStream.vb" ' Author: ' diff --git a/Net/Protocol/Streams/Array.vb b/Net/Protocol/Streams/Array.vb index 0bf7497b..d489abbe 100644 --- a/Net/Protocol/Streams/Array.vb +++ b/Net/Protocol/Streams/Array.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8dcdad0544c0dcbd970947f165bb2ae4, Net\Protocol\Streams\Array.vb" +#Region "Microsoft.VisualBasic::8dcdad0544c0dcbd970947f165bb2ae4, Microsoft.VisualBasic.Core\Net\Protocol\Streams\Array.vb" ' Author: ' diff --git a/Net/Protocol/Streams/ArrayAbstract.vb b/Net/Protocol/Streams/ArrayAbstract.vb index 6f134651..5ae7da5e 100644 --- a/Net/Protocol/Streams/ArrayAbstract.vb +++ b/Net/Protocol/Streams/ArrayAbstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::caea15ee86f20fc11ef8717b7b145706, Net\Protocol\Streams\ArrayAbstract.vb" +#Region "Microsoft.VisualBasic::caea15ee86f20fc11ef8717b7b145706, Microsoft.VisualBasic.Core\Net\Protocol\Streams\ArrayAbstract.vb" ' Author: ' diff --git a/Net/Protocol/Streams/ArrayBase.vb b/Net/Protocol/Streams/ArrayBase.vb index 6395085d..67f5e265 100644 --- a/Net/Protocol/Streams/ArrayBase.vb +++ b/Net/Protocol/Streams/ArrayBase.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b7ceedf73869affc6ffd0357bff5e945, Net\Protocol\Streams\ArrayBase.vb" +#Region "Microsoft.VisualBasic::b7ceedf73869affc6ffd0357bff5e945, Microsoft.VisualBasic.Core\Net\Protocol\Streams\ArrayBase.vb" ' Author: ' diff --git a/Net/Protocol/Streams/String.vb b/Net/Protocol/Streams/String.vb index 5d75c070..ebd6efe0 100644 --- a/Net/Protocol/Streams/String.vb +++ b/Net/Protocol/Streams/String.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::910ee6437347dc3d1bb75b508f99c772, Net\Protocol\Streams\String.vb" +#Region "Microsoft.VisualBasic::910ee6437347dc3d1bb75b508f99c772, Microsoft.VisualBasic.Core\Net\Protocol\Streams\String.vb" ' Author: ' diff --git a/Net/Protocol/Streams/VarArray.vb b/Net/Protocol/Streams/VarArray.vb index 3820ea03..34fd6804 100644 --- a/Net/Protocol/Streams/VarArray.vb +++ b/Net/Protocol/Streams/VarArray.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::294d3d421637bd5c010bdb8742d4cec3, Net\Protocol\Streams\VarArray.vb" +#Region "Microsoft.VisualBasic::294d3d421637bd5c010bdb8742d4cec3, Microsoft.VisualBasic.Core\Net\Protocol\Streams\VarArray.vb" ' Author: ' diff --git a/Net/TCPExtensions.vb b/Net/TCPExtensions.vb index ca8cf312..790288c8 100644 --- a/Net/TCPExtensions.vb +++ b/Net/TCPExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ff05fb0b3da4b5b58b11bd4c7a53a712, Net\TCPExtensions.vb" +#Region "Microsoft.VisualBasic::ff05fb0b3da4b5b58b11bd4c7a53a712, Microsoft.VisualBasic.Core\Net\TCPExtensions.vb" ' Author: ' diff --git a/Net/Tcp/IPTools/AddressEnumerator.vb b/Net/Tcp/IPTools/AddressEnumerator.vb index b66a9816..2815ed12 100644 --- a/Net/Tcp/IPTools/AddressEnumerator.vb +++ b/Net/Tcp/IPTools/AddressEnumerator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8f8c6151177cfe095a53de8901e19930, Net\Tcp\IPTools\AddressEnumerator.vb" +#Region "Microsoft.VisualBasic::8f8c6151177cfe095a53de8901e19930, Microsoft.VisualBasic.Core\Net\Tcp\IPTools\AddressEnumerator.vb" ' Author: ' diff --git a/Net/Tcp/IPTools/IPEndPoint.vb b/Net/Tcp/IPTools/IPEndPoint.vb index e0e14d7f..5efd842c 100644 --- a/Net/Tcp/IPTools/IPEndPoint.vb +++ b/Net/Tcp/IPTools/IPEndPoint.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6e47a19b6cb16f9d2375a56a2da21154, Net\Tcp\IPTools\IPEndPoint.vb" +#Region "Microsoft.VisualBasic::6e47a19b6cb16f9d2375a56a2da21154, Microsoft.VisualBasic.Core\Net\Tcp\IPTools\IPEndPoint.vb" ' Author: ' diff --git a/Net/Tcp/IPTools/LAN.vb b/Net/Tcp/IPTools/LAN.vb index 2968a497..b3d8b116 100644 --- a/Net/Tcp/IPTools/LAN.vb +++ b/Net/Tcp/IPTools/LAN.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::35d325d3625c8644eac5a0c27067b109, Net\Tcp\IPTools\LAN.vb" +#Region "Microsoft.VisualBasic::35d325d3625c8644eac5a0c27067b109, Microsoft.VisualBasic.Core\Net\Tcp\IPTools\LAN.vb" ' Author: ' diff --git a/Net/Tcp/Persistent/Protocols/POST.vb b/Net/Tcp/Persistent/Protocols/POST.vb index 9c7f7208..78159bed 100644 --- a/Net/Tcp/Persistent/Protocols/POST.vb +++ b/Net/Tcp/Persistent/Protocols/POST.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::81a311b09af8a1f3611b7f61feafbe52, Net\Tcp\Persistent\Protocols\POST.vb" +#Region "Microsoft.VisualBasic::81a311b09af8a1f3611b7f61feafbe52, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\Protocols\POST.vb" ' Author: ' diff --git a/Net/Tcp/Persistent/Protocols/Protocol.vb b/Net/Tcp/Persistent/Protocols/Protocol.vb index fa2c69e6..e9b1e044 100644 --- a/Net/Tcp/Persistent/Protocols/Protocol.vb +++ b/Net/Tcp/Persistent/Protocols/Protocol.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::758cc9918a9da55982bf9c28321da545, Net\Tcp\Persistent\Protocols\Protocol.vb" +#Region "Microsoft.VisualBasic::758cc9918a9da55982bf9c28321da545, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\Protocols\Protocol.vb" ' Author: ' diff --git a/Net/Tcp/Persistent/Socket/ServicesSocket.vb b/Net/Tcp/Persistent/Socket/ServicesSocket.vb index f1653f12..0458777d 100644 --- a/Net/Tcp/Persistent/Socket/ServicesSocket.vb +++ b/Net/Tcp/Persistent/Socket/ServicesSocket.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fd61864e5140a82759af576fe66257e1, Net\Tcp\Persistent\Socket\ServicesSocket.vb" +#Region "Microsoft.VisualBasic::fd61864e5140a82759af576fe66257e1, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\Socket\ServicesSocket.vb" ' Author: ' diff --git a/Net/Tcp/Persistent/Socket/TcpClient.vb b/Net/Tcp/Persistent/Socket/TcpClient.vb index 38ec3506..185a3504 100644 --- a/Net/Tcp/Persistent/Socket/TcpClient.vb +++ b/Net/Tcp/Persistent/Socket/TcpClient.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a9d1acc8aab86173495a5352fb6373f4, Net\Tcp\Persistent\Socket\TcpClient.vb" +#Region "Microsoft.VisualBasic::0d5887b9e22b6c438eae8da8f0f4884f, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\Socket\TcpClient.vb" ' Author: ' diff --git a/Net/Tcp/Persistent/Socket/WorkSocket.vb b/Net/Tcp/Persistent/Socket/WorkSocket.vb index 8291d2cc..5d9fb89f 100644 --- a/Net/Tcp/Persistent/Socket/WorkSocket.vb +++ b/Net/Tcp/Persistent/Socket/WorkSocket.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d2c9a815a23622c9e4141f970511d85b, Net\Tcp\Persistent\Socket\WorkSocket.vb" +#Region "Microsoft.VisualBasic::10cce9d76897118ee60637cf9e3747da, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\Socket\WorkSocket.vb" ' Author: ' diff --git a/Net/Tcp/Persistent/TcpClient.vb b/Net/Tcp/Persistent/TcpClient.vb index 09f57c66..694d7c8e 100644 --- a/Net/Tcp/Persistent/TcpClient.vb +++ b/Net/Tcp/Persistent/TcpClient.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6bbf1c6413415d517ef1517de25bfa27, Net\Tcp\Persistent\TcpClient.vb" +#Region "Microsoft.VisualBasic::6bbf1c6413415d517ef1517de25bfa27, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\TcpClient.vb" ' Author: ' diff --git a/Net/Tcp/Persistent/TcpSynchronizationServicesSocket.vb b/Net/Tcp/Persistent/TcpSynchronizationServicesSocket.vb index 4e651a6b..08e6f789 100644 --- a/Net/Tcp/Persistent/TcpSynchronizationServicesSocket.vb +++ b/Net/Tcp/Persistent/TcpSynchronizationServicesSocket.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0fab89507788ada7b43732bcda0dfbc1, Net\Tcp\Persistent\TcpSynchronizationServicesSocket.vb" +#Region "Microsoft.VisualBasic::0fab89507788ada7b43732bcda0dfbc1, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\TcpSynchronizationServicesSocket.vb" ' Author: ' diff --git a/Net/Tcp/StateObject.vb b/Net/Tcp/StateObject.vb index 210e82c8..7e758bae 100644 --- a/Net/Tcp/StateObject.vb +++ b/Net/Tcp/StateObject.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f904cc12c9573031dc19c48f2dbceff8, Net\Tcp\StateObject.vb" +#Region "Microsoft.VisualBasic::e9f030b2f16f184bddf132eb9efd5724, Microsoft.VisualBasic.Core\Net\Tcp\StateObject.vb" ' Author: ' diff --git a/Net/Tcp/TCPExtensions.vb b/Net/Tcp/TCPExtensions.vb index 714ad9a0..9506f27a 100644 --- a/Net/Tcp/TCPExtensions.vb +++ b/Net/Tcp/TCPExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ac78e0e3b6b7dba2c2fa4a4acad57024, Net\Tcp\TCPExtensions.vb" +#Region "Microsoft.VisualBasic::ac78e0e3b6b7dba2c2fa4a4acad57024, Microsoft.VisualBasic.Core\Net\Tcp\TCPExtensions.vb" ' Author: ' diff --git a/Net/Tcp/TcpAsynchronousServicesSocket.vb b/Net/Tcp/TcpAsynchronousServicesSocket.vb index 35c0666f..cf9f79e4 100644 --- a/Net/Tcp/TcpAsynchronousServicesSocket.vb +++ b/Net/Tcp/TcpAsynchronousServicesSocket.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3edeb3097882714663b70c353bbe36be, Net\Tcp\TcpAsynchronousServicesSocket.vb" +#Region "Microsoft.VisualBasic::3edeb3097882714663b70c353bbe36be, Microsoft.VisualBasic.Core\Net\Tcp\TcpAsynchronousServicesSocket.vb" ' Author: ' diff --git a/Net/Tcp/TcpRequest.vb b/Net/Tcp/TcpRequest.vb index 03173f96..b48e1220 100644 --- a/Net/Tcp/TcpRequest.vb +++ b/Net/Tcp/TcpRequest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1be3e946ad55ffa176526dc9a2f4699f, Net\Tcp\TcpRequest.vb" +#Region "Microsoft.VisualBasic::1bccba128c0a261d17fe23f3ccffc941, Microsoft.VisualBasic.Core\Net\Tcp\TcpRequest.vb" ' Author: ' @@ -36,14 +36,11 @@ ' Properties: LocalIPAddress ' ' Constructor: (+4 Overloads) Sub New - ' Function: LocalConnection, OperationTimeOut, (+2 Overloads) SendMessage, ToString - ' Delegate Function ' - ' Function: (+4 Overloads) SendMessage - ' - ' Sub: __send, ConnectCallback, (+2 Overloads) Dispose, Receive, ReceiveCallback - ' SendCallback + ' Function: LocalConnection, OperationTimeOut, (+6 Overloads) SendMessage, ToString ' + ' Sub: __send, ConnectCallback, (+2 Overloads) Dispose, Receive, ReceiveCallback + ' SendCallback ' ' ' /********************************************************************************/ diff --git a/Net/Tcp/TcpServicesSocket.vb b/Net/Tcp/TcpServicesSocket.vb index cf89f1b5..1727650c 100644 --- a/Net/Tcp/TcpServicesSocket.vb +++ b/Net/Tcp/TcpServicesSocket.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::616f0712cde4c97f32239f8fd30ed126, Net\Tcp\TcpServicesSocket.vb" +#Region "Microsoft.VisualBasic::9f480709d70a6e517457954ef02b6176, Microsoft.VisualBasic.Core\Net\Tcp\TcpServicesSocket.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Class TcpServicesSocket ' - ' Properties: IsShutdown, LocalPort, Responsehandler, Running + ' Properties: IsShutdown, LocalPort, ResponseHandler, Running ' ' Constructor: (+2 Overloads) Sub New ' diff --git a/Net/TcpClient.vb b/Net/TcpClient.vb index dcfb00c7..3303c573 100644 --- a/Net/TcpClient.vb +++ b/Net/TcpClient.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::375a4cb017640027d375913eac94e87e, Net\TcpClient.vb" +#Region "Microsoft.VisualBasic::375a4cb017640027d375913eac94e87e, Microsoft.VisualBasic.Core\Net\TcpClient.vb" ' Author: ' diff --git a/Net/TcpServer.vb b/Net/TcpServer.vb index 7bef6b4f..ccce58f8 100644 --- a/Net/TcpServer.vb +++ b/Net/TcpServer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b0584f8ecab066252fddf83e4bcdaf65, Net\TcpServer.vb" +#Region "Microsoft.VisualBasic::b0584f8ecab066252fddf83e4bcdaf65, Microsoft.VisualBasic.Core\Net\TcpServer.vb" ' Author: ' diff --git a/Net/wGetTools.vb b/Net/wGetTools.vb index b43de020..804618d4 100644 --- a/Net/wGetTools.vb +++ b/Net/wGetTools.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d123268ab48cb110ebd63048c445139e, Net\wGetTools.vb" +#Region "Microsoft.VisualBasic::d123268ab48cb110ebd63048c445139e, Microsoft.VisualBasic.Core\Net\wGetTools.vb" ' Author: ' diff --git a/Scripting/Abstract.vb b/Scripting/Abstract.vb index 716946ec..629f8a62 100644 --- a/Scripting/Abstract.vb +++ b/Scripting/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::581c915f18cd405a60353097d42aa234, Scripting\Abstract.vb" +#Region "Microsoft.VisualBasic::581c915f18cd405a60353097d42aa234, Microsoft.VisualBasic.Core\Scripting\Abstract.vb" ' Author: ' diff --git a/Scripting/Actives.vb b/Scripting/Actives.vb index f17496f3..4db6c9fe 100644 --- a/Scripting/Actives.vb +++ b/Scripting/Actives.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cf2d4a9335521ac19fb87b0859d735d6, Scripting\Actives.vb" +#Region "Microsoft.VisualBasic::cf2d4a9335521ac19fb87b0859d735d6, Microsoft.VisualBasic.Core\Scripting\Actives.vb" ' Author: ' diff --git a/Scripting/Expressions/Aggregate.vb b/Scripting/Expressions/Aggregate.vb index c95a2e1b..c809470b 100644 --- a/Scripting/Expressions/Aggregate.vb +++ b/Scripting/Expressions/Aggregate.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::10c538a5029327a24db621be937c1762, Scripting\Expressions\Aggregate.vb" +#Region "Microsoft.VisualBasic::10c538a5029327a24db621be937c1762, Microsoft.VisualBasic.Core\Scripting\Expressions\Aggregate.vb" ' Author: ' diff --git a/Scripting/Expressions/ArrayIndex.vb b/Scripting/Expressions/ArrayIndex.vb index 55fb7cbb..4f3aa14d 100644 --- a/Scripting/Expressions/ArrayIndex.vb +++ b/Scripting/Expressions/ArrayIndex.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2b6226b1eef6db682e0798b5b09dee22, Scripting\Expressions\ArrayIndex.vb" +#Region "Microsoft.VisualBasic::2b6226b1eef6db682e0798b5b09dee22, Microsoft.VisualBasic.Core\Scripting\Expressions\ArrayIndex.vb" ' Author: ' diff --git a/Scripting/Expressions/Selector.vb b/Scripting/Expressions/Selector.vb index 647eee81..6b34e56b 100644 --- a/Scripting/Expressions/Selector.vb +++ b/Scripting/Expressions/Selector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9cd796ead2b6eec2ebc29c8a427c84e4, Scripting\Expressions\Selector.vb" +#Region "Microsoft.VisualBasic::9cd796ead2b6eec2ebc29c8a427c84e4, Microsoft.VisualBasic.Core\Scripting\Expressions\Selector.vb" ' Author: ' diff --git a/Scripting/Expressions/StringInterpolation.vb b/Scripting/Expressions/StringInterpolation.vb index bfdd820b..20ee0e15 100644 --- a/Scripting/Expressions/StringInterpolation.vb +++ b/Scripting/Expressions/StringInterpolation.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7aa365d9fe12cfeb3d5af60dae796238, Scripting\Expressions\StringInterpolation.vb" +#Region "Microsoft.VisualBasic::7aa365d9fe12cfeb3d5af60dae796238, Microsoft.VisualBasic.Core\Scripting\Expressions\StringInterpolation.vb" ' Author: ' diff --git a/Scripting/ExternalCall.vb b/Scripting/ExternalCall.vb index 1e854d9f..11b3df0a 100644 --- a/Scripting/ExternalCall.vb +++ b/Scripting/ExternalCall.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1472354ab6a5d2b672d99b8df06c3298, Scripting\ExternalCall.vb" +#Region "Microsoft.VisualBasic::1472354ab6a5d2b672d99b8df06c3298, Microsoft.VisualBasic.Core\Scripting\ExternalCall.vb" ' Author: ' diff --git a/Scripting/InputHandler.vb b/Scripting/InputHandler.vb index 0d4be1da..8f9951c4 100644 --- a/Scripting/InputHandler.vb +++ b/Scripting/InputHandler.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::977e2800b5b5a1a01e74f93e04fd092e, Scripting\InputHandler.vb" +#Region "Microsoft.VisualBasic::977e2800b5b5a1a01e74f93e04fd092e, Microsoft.VisualBasic.Core\Scripting\InputHandler.vb" ' Author: ' diff --git a/Scripting/MetaData/Author.vb b/Scripting/MetaData/Author.vb index 6b62388c..64af73c7 100644 --- a/Scripting/MetaData/Author.vb +++ b/Scripting/MetaData/Author.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::789706b42533a1753c01bc35b32bdc75, Scripting\MetaData\Author.vb" +#Region "Microsoft.VisualBasic::789706b42533a1753c01bc35b32bdc75, Microsoft.VisualBasic.Core\Scripting\MetaData\Author.vb" ' Author: ' diff --git a/Scripting/MetaData/Cite.vb b/Scripting/MetaData/Cite.vb index e5dd2748..989b70af 100644 --- a/Scripting/MetaData/Cite.vb +++ b/Scripting/MetaData/Cite.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7832f705d2d954f961650e5493d73356, Scripting\MetaData\Cite.vb" +#Region "Microsoft.VisualBasic::7832f705d2d954f961650e5493d73356, Microsoft.VisualBasic.Core\Scripting\MetaData\Cite.vb" ' Author: ' diff --git a/Scripting/MetaData/EntryPointMetaData.vb b/Scripting/MetaData/EntryPointMetaData.vb index 74c8006b..6f44f938 100644 --- a/Scripting/MetaData/EntryPointMetaData.vb +++ b/Scripting/MetaData/EntryPointMetaData.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::776b8416ea8cd286200447e3e5c93cf2, Scripting\MetaData\EntryPointMetaData.vb" +#Region "Microsoft.VisualBasic::776b8416ea8cd286200447e3e5c93cf2, Microsoft.VisualBasic.Core\Scripting\MetaData\EntryPointMetaData.vb" ' Author: ' diff --git a/Scripting/MetaData/MetaAPI.vb b/Scripting/MetaData/MetaAPI.vb index 388a5d5a..12778ce6 100644 --- a/Scripting/MetaData/MetaAPI.vb +++ b/Scripting/MetaData/MetaAPI.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a4ac39b554ee308d53f58010efa121b0, Scripting\MetaData\MetaAPI.vb" +#Region "Microsoft.VisualBasic::a4ac39b554ee308d53f58010efa121b0, Microsoft.VisualBasic.Core\Scripting\MetaData\MetaAPI.vb" ' Author: ' diff --git a/Scripting/MetaData/Namespace.vb b/Scripting/MetaData/Namespace.vb index 7a6fe15f..bea26973 100644 --- a/Scripting/MetaData/Namespace.vb +++ b/Scripting/MetaData/Namespace.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dfcf0da1a93b0d25fe5e7ea1d5c01443, Scripting\MetaData\Namespace.vb" +#Region "Microsoft.VisualBasic::dfcf0da1a93b0d25fe5e7ea1d5c01443, Microsoft.VisualBasic.Core\Scripting\MetaData\Namespace.vb" ' Author: ' diff --git a/Scripting/MetaData/Parameter.vb b/Scripting/MetaData/Parameter.vb index 0d5d8c18..988f9d15 100644 --- a/Scripting/MetaData/Parameter.vb +++ b/Scripting/MetaData/Parameter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0e079b2e518e7715ae5eabe2b0754b2f, Scripting\MetaData\Parameter.vb" +#Region "Microsoft.VisualBasic::0e079b2e518e7715ae5eabe2b0754b2f, Microsoft.VisualBasic.Core\Scripting\MetaData\Parameter.vb" ' Author: ' diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index 527f2af3..3616359b 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -1,50 +1,50 @@ -#Region "Microsoft.VisualBasic::d8bc1d00cad0b167ad1d2d6d37f66594, Scripting\MetaData\Type.vb" +#Region "Microsoft.VisualBasic::4704838d4c3268f9e6edc6b4bfa1f379, Microsoft.VisualBasic.Core\Scripting\MetaData\Type.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 . + ' 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: + ' Summaries: -' Class TypeInfo -' -' Properties: assm, FullIdentity, SystemKnownType -' -' Constructor: (+2 Overloads) Sub New -' -' Function: [GetType], LoadAssembly, ToString -' -' Sub: __infoParser -' -' Operators: <>, = -' -' -' /********************************************************************************/ + ' Class TypeInfo + ' + ' Properties: assm, fullIdentity, isSystemKnownType + ' + ' Constructor: (+2 Overloads) Sub New + ' + ' Function: [GetType], LoadAssembly, ToString + ' + ' Sub: doInfoParser + ' + ' Operators: <>, = + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Scripting/Runtime/BinaryOperator.vb b/Scripting/Runtime/BinaryOperator.vb index ce7e2328..e22f522a 100644 --- a/Scripting/Runtime/BinaryOperator.vb +++ b/Scripting/Runtime/BinaryOperator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b78c275b4a9348fc00ecfb15990c859c, Scripting\Runtime\BinaryOperator.vb" +#Region "Microsoft.VisualBasic::b78c275b4a9348fc00ecfb15990c859c, Microsoft.VisualBasic.Core\Scripting\Runtime\BinaryOperator.vb" ' Author: ' diff --git a/Scripting/Runtime/CType/Abstract.vb b/Scripting/Runtime/CType/Abstract.vb index 95325f71..ed29eaab 100644 --- a/Scripting/Runtime/CType/Abstract.vb +++ b/Scripting/Runtime/CType/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1771c61acba8743dfc6cd73f25951ffe, Scripting\Runtime\CType\Abstract.vb" +#Region "Microsoft.VisualBasic::1771c61acba8743dfc6cd73f25951ffe, Microsoft.VisualBasic.Core\Scripting\Runtime\CType\Abstract.vb" ' Author: ' diff --git a/Scripting/Runtime/CType/CastStringVector.vb b/Scripting/Runtime/CType/CastStringVector.vb index 0fef2c62..bde91072 100644 --- a/Scripting/Runtime/CType/CastStringVector.vb +++ b/Scripting/Runtime/CType/CastStringVector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cbfc9d45158f9faf061600d8c2b85dc1, Scripting\Runtime\CType\CastStringVector.vb" +#Region "Microsoft.VisualBasic::cbfc9d45158f9faf061600d8c2b85dc1, Microsoft.VisualBasic.Core\Scripting\Runtime\CType\CastStringVector.vb" ' Author: ' diff --git a/Scripting/Runtime/CType/Casting.vb b/Scripting/Runtime/CType/Casting.vb index 1d674ef5..e2f57bb9 100644 --- a/Scripting/Runtime/CType/Casting.vb +++ b/Scripting/Runtime/CType/Casting.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::af24e82510b8a39d20f747cdfe82dcc2, Scripting\Runtime\CType\Casting.vb" +#Region "Microsoft.VisualBasic::a2dbb7f7f5cc1b7b5e1415174a8f12f2, Microsoft.VisualBasic.Core\Scripting\Runtime\CType\Casting.vb" ' Author: ' diff --git a/Scripting/Runtime/CType/Narrowing.vb b/Scripting/Runtime/CType/Narrowing.vb index d25231ca..735395aa 100644 --- a/Scripting/Runtime/CType/Narrowing.vb +++ b/Scripting/Runtime/CType/Narrowing.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::96e0d4846115dc8f43e0df5a09783e90, Scripting\Runtime\CType\Narrowing.vb" +#Region "Microsoft.VisualBasic::96e0d4846115dc8f43e0df5a09783e90, Microsoft.VisualBasic.Core\Scripting\Runtime\CType\Narrowing.vb" ' Author: ' diff --git a/Scripting/Runtime/CType/NumberConversionRoutines.vb b/Scripting/Runtime/CType/NumberConversionRoutines.vb index fdd8afef..1838eb2c 100644 --- a/Scripting/Runtime/CType/NumberConversionRoutines.vb +++ b/Scripting/Runtime/CType/NumberConversionRoutines.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::973866bc4205b47afed7a64437872819, Scripting\Runtime\CType\NumberConversionRoutines.vb" +#Region "Microsoft.VisualBasic::973866bc4205b47afed7a64437872819, Microsoft.VisualBasic.Core\Scripting\Runtime\CType\NumberConversionRoutines.vb" ' Author: ' diff --git a/Scripting/Runtime/Extensions.vb b/Scripting/Runtime/Extensions.vb index 1c240f73..52642bad 100644 --- a/Scripting/Runtime/Extensions.vb +++ b/Scripting/Runtime/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9cbaca763259aab24b01598384794733, Scripting\Runtime\Extensions.vb" +#Region "Microsoft.VisualBasic::9cbaca763259aab24b01598384794733, Microsoft.VisualBasic.Core\Scripting\Runtime\Extensions.vb" ' Author: ' diff --git a/Scripting/Runtime/OverloadsFunction.vb b/Scripting/Runtime/OverloadsFunction.vb index 055365a3..0558acff 100644 --- a/Scripting/Runtime/OverloadsFunction.vb +++ b/Scripting/Runtime/OverloadsFunction.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9d6786f72ebfd4475e7c88b79cf84fb0, Scripting\Runtime\OverloadsFunction.vb" +#Region "Microsoft.VisualBasic::9d6786f72ebfd4475e7c88b79cf84fb0, Microsoft.VisualBasic.Core\Scripting\Runtime\OverloadsFunction.vb" ' Author: ' diff --git a/Scripting/Runtime/Where.vb b/Scripting/Runtime/Where.vb index c1aea691..ac4296a8 100644 --- a/Scripting/Runtime/Where.vb +++ b/Scripting/Runtime/Where.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fe0e195744016013d6bc30ab975104cc, Scripting\Runtime\Where.vb" +#Region "Microsoft.VisualBasic::fe0e195744016013d6bc30ab975104cc, Microsoft.VisualBasic.Core\Scripting\Runtime\Where.vb" ' Author: ' diff --git a/Scripting/ScriptBuilder.vb b/Scripting/ScriptBuilder.vb index 6ece432a..fb26c36a 100644 --- a/Scripting/ScriptBuilder.vb +++ b/Scripting/ScriptBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::908470f45463846915ce79b98171a7fc, Scripting\ScriptBuilder.vb" +#Region "Microsoft.VisualBasic::908470f45463846915ce79b98171a7fc, Microsoft.VisualBasic.Core\Scripting\ScriptBuilder.vb" ' Author: ' diff --git a/Scripting/TextGrepScriptEngine.vb b/Scripting/TextGrepScriptEngine.vb index 6089ab98..800f4fdd 100644 --- a/Scripting/TextGrepScriptEngine.vb +++ b/Scripting/TextGrepScriptEngine.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1f3e77cee1487311faf5ba5ef90dcc0f, Scripting\TextGrepScriptEngine.vb" +#Region "Microsoft.VisualBasic::1f3e77cee1487311faf5ba5ef90dcc0f, Microsoft.VisualBasic.Core\Scripting\TextGrepScriptEngine.vb" ' Author: ' diff --git a/Scripting/TokenIcer/LangModels/Func.vb b/Scripting/TokenIcer/LangModels/Func.vb index 574d106a..1eb86edc 100644 --- a/Scripting/TokenIcer/LangModels/Func.vb +++ b/Scripting/TokenIcer/LangModels/Func.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d5519a2c49b159bbff5ad5c5d19d303a, Scripting\TokenIcer\LangModels\Func.vb" +#Region "Microsoft.VisualBasic::d5519a2c49b159bbff5ad5c5d19d303a, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\Func.vb" ' Author: ' diff --git a/Scripting/TokenIcer/LangModels/OperatorExpression.vb b/Scripting/TokenIcer/LangModels/OperatorExpression.vb index fae85f0f..e6b26cdd 100644 --- a/Scripting/TokenIcer/LangModels/OperatorExpression.vb +++ b/Scripting/TokenIcer/LangModels/OperatorExpression.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b7264459fc432f41ff7af91c66598588, Scripting\TokenIcer\LangModels\OperatorExpression.vb" +#Region "Microsoft.VisualBasic::b7264459fc432f41ff7af91c66598588, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\OperatorExpression.vb" ' Author: ' diff --git a/Scripting/TokenIcer/LangModels/PeekToken.vb b/Scripting/TokenIcer/LangModels/PeekToken.vb index e2240262..4e40292b 100644 --- a/Scripting/TokenIcer/LangModels/PeekToken.vb +++ b/Scripting/TokenIcer/LangModels/PeekToken.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e933c535623377918a8c6a0f6d714d80, Scripting\TokenIcer\LangModels\PeekToken.vb" +#Region "Microsoft.VisualBasic::e933c535623377918a8c6a0f6d714d80, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\PeekToken.vb" ' Author: ' diff --git a/Scripting/TokenIcer/LangModels/StackTokens(Of Tokens).vb b/Scripting/TokenIcer/LangModels/StackTokens(Of Tokens).vb index ef0544c2..1c9744b2 100644 --- a/Scripting/TokenIcer/LangModels/StackTokens(Of Tokens).vb +++ b/Scripting/TokenIcer/LangModels/StackTokens(Of Tokens).vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::69c1bc07585ea9155b404592040ec672, Scripting\TokenIcer\LangModels\StackTokens(Of Tokens).vb" +#Region "Microsoft.VisualBasic::69c1bc07585ea9155b404592040ec672, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\StackTokens(Of Tokens).vb" ' Author: ' diff --git a/Scripting/TokenIcer/LangModels/Token.vb b/Scripting/TokenIcer/LangModels/Token.vb index a5c35839..fb085be7 100644 --- a/Scripting/TokenIcer/LangModels/Token.vb +++ b/Scripting/TokenIcer/LangModels/Token.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7fffce487e1390b4d89c80f247130cc2, Scripting\TokenIcer\LangModels\Token.vb" +#Region "Microsoft.VisualBasic::7fffce487e1390b4d89c80f247130cc2, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\Token.vb" ' Author: ' diff --git a/Scripting/TokenIcer/ParserCommon.vb b/Scripting/TokenIcer/ParserCommon.vb index 81f7b636..01757911 100644 --- a/Scripting/TokenIcer/ParserCommon.vb +++ b/Scripting/TokenIcer/ParserCommon.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b37eed7c0470ebe61929c8d31badae1c, Scripting\TokenIcer\ParserCommon.vb" +#Region "Microsoft.VisualBasic::b37eed7c0470ebe61929c8d31badae1c, Microsoft.VisualBasic.Core\Scripting\TokenIcer\ParserCommon.vb" ' Author: ' diff --git a/Scripting/TokenIcer/Prefix.vb b/Scripting/TokenIcer/Prefix.vb index 6d37a352..78e83ec4 100644 --- a/Scripting/TokenIcer/Prefix.vb +++ b/Scripting/TokenIcer/Prefix.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::15fc77159c2eab47d16a458c8b95cfcb, Scripting\TokenIcer\Prefix.vb" +#Region "Microsoft.VisualBasic::15fc77159c2eab47d16a458c8b95cfcb, Microsoft.VisualBasic.Core\Scripting\TokenIcer\Prefix.vb" ' Author: ' diff --git a/Scripting/TokenIcer/StackParser.vb b/Scripting/TokenIcer/StackParser.vb index 1cf47d6d..37116c96 100644 --- a/Scripting/TokenIcer/StackParser.vb +++ b/Scripting/TokenIcer/StackParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::abe9626741aeb1516607af3f6d1a4a8c, Scripting\TokenIcer\StackParser.vb" +#Region "Microsoft.VisualBasic::abe9626741aeb1516607af3f6d1a4a8c, Microsoft.VisualBasic.Core\Scripting\TokenIcer\StackParser.vb" ' Author: ' diff --git a/Scripting/TokenIcer/TokenParser.vb b/Scripting/TokenIcer/TokenParser.vb index b5e50670..e3741ad7 100644 --- a/Scripting/TokenIcer/TokenParser.vb +++ b/Scripting/TokenIcer/TokenParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9479e4d351638c81379704163fe558e6, Scripting\TokenIcer\TokenParser.vb" +#Region "Microsoft.VisualBasic::9479e4d351638c81379704163fe558e6, Microsoft.VisualBasic.Core\Scripting\TokenIcer\TokenParser.vb" ' Author: ' diff --git a/Scripting/VisualBasic/Extensions.vb b/Scripting/VisualBasic/Extensions.vb index 70d992d2..dd50162a 100644 --- a/Scripting/VisualBasic/Extensions.vb +++ b/Scripting/VisualBasic/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::831cd1364b87f86a7f5eeb3b6068327e, Scripting\VisualBasic\Extensions.vb" +#Region "Microsoft.VisualBasic::831cd1364b87f86a7f5eeb3b6068327e, Microsoft.VisualBasic.Core\Scripting\VisualBasic\Extensions.vb" ' Author: ' diff --git a/Scripting/VisualBasic/KeywordProcessor.vb b/Scripting/VisualBasic/KeywordProcessor.vb index 111be2f4..c0cd5245 100644 --- a/Scripting/VisualBasic/KeywordProcessor.vb +++ b/Scripting/VisualBasic/KeywordProcessor.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::04b70b48eab1dafca8861e45bd5803df, Scripting\VisualBasic\KeywordProcessor.vb" +#Region "Microsoft.VisualBasic::e3def9fdd143b474305f796dd8a75cfb, Microsoft.VisualBasic.Core\Scripting\VisualBasic\KeywordProcessor.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Class KeywordProcessor ' - ' Properties: Words + ' Properties: TokenWords ' ' Constructor: (+1 Overloads) Sub New ' Function: AutoEscapeVBKeyword diff --git a/Scripting/VisualBasic/VBLanguage.vb b/Scripting/VisualBasic/VBLanguage.vb index b31e6e1d..91308f57 100644 --- a/Scripting/VisualBasic/VBLanguage.vb +++ b/Scripting/VisualBasic/VBLanguage.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4a6c949f8bd03b2b1555e857dfed4bca, Scripting\VisualBasic\VBLanguage.vb" +#Region "Microsoft.VisualBasic::4a6c949f8bd03b2b1555e857dfed4bca, Microsoft.VisualBasic.Core\Scripting\VisualBasic\VBLanguage.vb" ' Author: ' diff --git a/Serialization/Abstract.vb b/Serialization/Abstract.vb index e307a56e..73d3e1b6 100644 --- a/Serialization/Abstract.vb +++ b/Serialization/Abstract.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0d1b251284fda7fe774793bd92fae0ee, Serialization\Abstract.vb" +#Region "Microsoft.VisualBasic::0d1b251284fda7fe774793bd92fae0ee, Microsoft.VisualBasic.Core\Serialization\Abstract.vb" ' Author: ' diff --git a/Serialization/BinaryDumping/BinaryReader.vb b/Serialization/BinaryDumping/BinaryReader.vb index 1b7d88b3..514ed09c 100644 --- a/Serialization/BinaryDumping/BinaryReader.vb +++ b/Serialization/BinaryDumping/BinaryReader.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::72c30d405799c84b5d94d83c62d7948d, Serialization\BinaryDumping\BinaryReader.vb" +#Region "Microsoft.VisualBasic::72c30d405799c84b5d94d83c62d7948d, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\BinaryReader.vb" ' Author: ' diff --git a/Serialization/BinaryDumping/BinaryWriter.vb b/Serialization/BinaryDumping/BinaryWriter.vb index 9713920e..336b1f1d 100644 --- a/Serialization/BinaryDumping/BinaryWriter.vb +++ b/Serialization/BinaryDumping/BinaryWriter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0b191b9ac322c3bf2a7b7b816ba148a0, Serialization\BinaryDumping\BinaryWriter.vb" +#Region "Microsoft.VisualBasic::0b191b9ac322c3bf2a7b7b816ba148a0, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\BinaryWriter.vb" ' Author: ' diff --git a/Serialization/BinaryDumping/Buffer.vb b/Serialization/BinaryDumping/Buffer.vb index 77f24e47..4f2fb519 100644 --- a/Serialization/BinaryDumping/Buffer.vb +++ b/Serialization/BinaryDumping/Buffer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::edd83d4783e00dc7011b4047766dd73f, Serialization\BinaryDumping\Buffer.vb" +#Region "Microsoft.VisualBasic::edd83d4783e00dc7011b4047766dd73f, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\Buffer.vb" ' Author: ' diff --git a/Serialization/BinaryDumping/StructFormatter.vb b/Serialization/BinaryDumping/StructFormatter.vb index 282dc359..ea1939e1 100644 --- a/Serialization/BinaryDumping/StructFormatter.vb +++ b/Serialization/BinaryDumping/StructFormatter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::643441f00248ad1e5d3cf531e26528f1, Serialization\BinaryDumping\StructFormatter.vb" +#Region "Microsoft.VisualBasic::643441f00248ad1e5d3cf531e26528f1, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\StructFormatter.vb" ' Author: ' diff --git a/Serialization/BinaryDumping/StructSerializer.vb b/Serialization/BinaryDumping/StructSerializer.vb index e1582470..8badf041 100644 --- a/Serialization/BinaryDumping/StructSerializer.vb +++ b/Serialization/BinaryDumping/StructSerializer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::29053b400a3a14f972760567b564efce, Serialization\BinaryDumping\StructSerializer.vb" +#Region "Microsoft.VisualBasic::29053b400a3a14f972760567b564efce, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\StructSerializer.vb" ' Author: ' diff --git a/Serialization/ConfigMappings/Attributes.vb b/Serialization/ConfigMappings/Attributes.vb index 02e32706..4a4c56da 100644 --- a/Serialization/ConfigMappings/Attributes.vb +++ b/Serialization/ConfigMappings/Attributes.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::eefc2f44fbac7a267e0e359d83213b50, Serialization\ConfigMappings\Attributes.vb" +#Region "Microsoft.VisualBasic::eefc2f44fbac7a267e0e359d83213b50, Microsoft.VisualBasic.Core\Serialization\ConfigMappings\Attributes.vb" ' Author: ' diff --git a/Serialization/ConfigMappings/ConfigurationMappings.vb b/Serialization/ConfigMappings/ConfigurationMappings.vb index 965ad15e..66ad49b4 100644 --- a/Serialization/ConfigMappings/ConfigurationMappings.vb +++ b/Serialization/ConfigMappings/ConfigurationMappings.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5ecd2229c267c6f208a59d6c70edc280, Serialization\ConfigMappings\ConfigurationMappings.vb" +#Region "Microsoft.VisualBasic::5ecd2229c267c6f208a59d6c70edc280, Microsoft.VisualBasic.Core\Serialization\ConfigMappings\ConfigurationMappings.vb" ' Author: ' diff --git a/Serialization/ConfigMappings/DynamicsConfiguration.vb b/Serialization/ConfigMappings/DynamicsConfiguration.vb index 3012c9e8..fa49d722 100644 --- a/Serialization/ConfigMappings/DynamicsConfiguration.vb +++ b/Serialization/ConfigMappings/DynamicsConfiguration.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::62eeaf8e27a3cb53c7e82e79da5c4304, Serialization\ConfigMappings\DynamicsConfiguration.vb" +#Region "Microsoft.VisualBasic::62eeaf8e27a3cb53c7e82e79da5c4304, Microsoft.VisualBasic.Core\Serialization\ConfigMappings\DynamicsConfiguration.vb" ' Author: ' diff --git a/Serialization/Controls/Contrls.vb b/Serialization/Controls/Contrls.vb index 483ca037..de6bbaa7 100644 --- a/Serialization/Controls/Contrls.vb +++ b/Serialization/Controls/Contrls.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8ed2f8e34c36d88c77f3237525a5e88e, Serialization\Controls\Contrls.vb" +#Region "Microsoft.VisualBasic::8ed2f8e34c36d88c77f3237525a5e88e, Microsoft.VisualBasic.Core\Serialization\Controls\Contrls.vb" ' Author: ' diff --git a/Serialization/DumpData/DumpData.vb b/Serialization/DumpData/DumpData.vb index d8ae7b59..91c0435d 100644 --- a/Serialization/DumpData/DumpData.vb +++ b/Serialization/DumpData/DumpData.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9004d0f648faadf51b3390b67a180512, Serialization\DumpData\DumpData.vb" +#Region "Microsoft.VisualBasic::9004d0f648faadf51b3390b67a180512, Microsoft.VisualBasic.Core\Serialization\DumpData\DumpData.vb" ' Author: ' diff --git a/Serialization/DumpData/DumpNode.vb b/Serialization/DumpData/DumpNode.vb index 02ad25e4..c2fe3596 100644 --- a/Serialization/DumpData/DumpNode.vb +++ b/Serialization/DumpData/DumpNode.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d0f2f77a01e83aa65f0fb79975f1dd5d, Serialization\DumpData\DumpNode.vb" +#Region "Microsoft.VisualBasic::d0f2f77a01e83aa65f0fb79975f1dd5d, Microsoft.VisualBasic.Core\Serialization\DumpData\DumpNode.vb" ' Author: ' diff --git a/Serialization/ICloneable.vb b/Serialization/ICloneable.vb index 7a3f912e..6cf66c52 100644 --- a/Serialization/ICloneable.vb +++ b/Serialization/ICloneable.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::273da05431d41f4560295a7f7996af28, Serialization\ICloneable.vb" +#Region "Microsoft.VisualBasic::273da05431d41f4560295a7f7996af28, Microsoft.VisualBasic.Core\Serialization\ICloneable.vb" ' Author: ' diff --git a/Serialization/JSON/AnonymousJSON.vb b/Serialization/JSON/AnonymousJSON.vb index 21d36438..97263676 100644 --- a/Serialization/JSON/AnonymousJSON.vb +++ b/Serialization/JSON/AnonymousJSON.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::85970f575669d31dd25b44f3643abf94, Serialization\JSON\AnonymousJSON.vb" +#Region "Microsoft.VisualBasic::85970f575669d31dd25b44f3643abf94, Microsoft.VisualBasic.Core\Serialization\JSON\AnonymousJSON.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/FormatterScopeState.vb b/Serialization/JSON/Formatter/FormatterScopeState.vb index d93c4859..e9ca2fbe 100644 --- a/Serialization/JSON/Formatter/FormatterScopeState.vb +++ b/Serialization/JSON/Formatter/FormatterScopeState.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2f41f4c5c4d2398be38343660afc9b67, Serialization\JSON\Formatter\FormatterScopeState.vb" +#Region "Microsoft.VisualBasic::2f41f4c5c4d2398be38343660afc9b67, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\FormatterScopeState.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/ICharacterStrategy.vb b/Serialization/JSON/Formatter/ICharacterStrategy.vb index 480904c4..00edce80 100644 --- a/Serialization/JSON/Formatter/ICharacterStrategy.vb +++ b/Serialization/JSON/Formatter/ICharacterStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5af56f2dc28939b61c9be6a21c70e9ab, Serialization\JSON\Formatter\ICharacterStrategy.vb" +#Region "Microsoft.VisualBasic::5af56f2dc28939b61c9be6a21c70e9ab, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\ICharacterStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/JsonFormatterInternal.vb b/Serialization/JSON/Formatter/JsonFormatterInternal.vb index ea512ef0..f00f337c 100644 --- a/Serialization/JSON/Formatter/JsonFormatterInternal.vb +++ b/Serialization/JSON/Formatter/JsonFormatterInternal.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::82a6e9e2ddd3af5595828b70a1e6a6a9, Serialization\JSON\Formatter\JsonFormatterInternal.vb" +#Region "Microsoft.VisualBasic::82a6e9e2ddd3af5595828b70a1e6a6a9, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\JsonFormatterInternal.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/JsonFormatterStrategyContext.vb b/Serialization/JSON/Formatter/JsonFormatterStrategyContext.vb index 9ece7077..75016b6f 100644 --- a/Serialization/JSON/Formatter/JsonFormatterStrategyContext.vb +++ b/Serialization/JSON/Formatter/JsonFormatterStrategyContext.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::60e9cc85d88a634488df990b70e6a31a, Serialization\JSON\Formatter\JsonFormatterStrategyContext.vb" +#Region "Microsoft.VisualBasic::60e9cc85d88a634488df990b70e6a31a, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\JsonFormatterStrategyContext.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/CloseBracketStrategy.vb b/Serialization/JSON/Formatter/Strategies/CloseBracketStrategy.vb index c0c7d600..979b1fd8 100644 --- a/Serialization/JSON/Formatter/Strategies/CloseBracketStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/CloseBracketStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6e505faee304339630f6b3e462d36b90, Serialization\JSON\Formatter\Strategies\CloseBracketStrategy.vb" +#Region "Microsoft.VisualBasic::6e505faee304339630f6b3e462d36b90, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\CloseBracketStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/CloseSquareBracketStrategy.vb b/Serialization/JSON/Formatter/Strategies/CloseSquareBracketStrategy.vb index a7e33d15..8d597ccf 100644 --- a/Serialization/JSON/Formatter/Strategies/CloseSquareBracketStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/CloseSquareBracketStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9a90389d755caca5ca64fb98d74cd0c7, Serialization\JSON\Formatter\Strategies\CloseSquareBracketStrategy.vb" +#Region "Microsoft.VisualBasic::9a90389d755caca5ca64fb98d74cd0c7, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\CloseSquareBracketStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/ColonCharacterStrategy.vb b/Serialization/JSON/Formatter/Strategies/ColonCharacterStrategy.vb index 2c19976f..37efa67a 100644 --- a/Serialization/JSON/Formatter/Strategies/ColonCharacterStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/ColonCharacterStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::95f725c3216ea3db06f0ede28f2d80fd, Serialization\JSON\Formatter\Strategies\ColonCharacterStrategy.vb" +#Region "Microsoft.VisualBasic::95f725c3216ea3db06f0ede28f2d80fd, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\ColonCharacterStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/CommaCharacterStrategy.vb b/Serialization/JSON/Formatter/Strategies/CommaCharacterStrategy.vb index bc6806b6..08b2d856 100644 --- a/Serialization/JSON/Formatter/Strategies/CommaCharacterStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/CommaCharacterStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0b971f95937a975d61ec82a40a5de12a, Serialization\JSON\Formatter\Strategies\CommaCharacterStrategy.vb" +#Region "Microsoft.VisualBasic::0b971f95937a975d61ec82a40a5de12a, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\CommaCharacterStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/DefaultCharacterStrategy.vb b/Serialization/JSON/Formatter/Strategies/DefaultCharacterStrategy.vb index fa17e9f6..83a78e86 100644 --- a/Serialization/JSON/Formatter/Strategies/DefaultCharacterStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/DefaultCharacterStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0ebbcc66232061388db6b453151835f8, Serialization\JSON\Formatter\Strategies\DefaultCharacterStrategy.vb" +#Region "Microsoft.VisualBasic::0ebbcc66232061388db6b453151835f8, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\DefaultCharacterStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/DoubleQuoteStrategy.vb b/Serialization/JSON/Formatter/Strategies/DoubleQuoteStrategy.vb index d6acb9f8..ea8a791f 100644 --- a/Serialization/JSON/Formatter/Strategies/DoubleQuoteStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/DoubleQuoteStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d813ef73df179417ef25e8c374add697, Serialization\JSON\Formatter\Strategies\DoubleQuoteStrategy.vb" +#Region "Microsoft.VisualBasic::d813ef73df179417ef25e8c374add697, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\DoubleQuoteStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/OpenBracketStrategy.vb b/Serialization/JSON/Formatter/Strategies/OpenBracketStrategy.vb index 92e8e524..994cfee3 100644 --- a/Serialization/JSON/Formatter/Strategies/OpenBracketStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/OpenBracketStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::62911fb29da7d1bdb416d84f3f84045c, Serialization\JSON\Formatter\Strategies\OpenBracketStrategy.vb" +#Region "Microsoft.VisualBasic::62911fb29da7d1bdb416d84f3f84045c, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\OpenBracketStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/OpenSquareBracketStrategy.vb b/Serialization/JSON/Formatter/Strategies/OpenSquareBracketStrategy.vb index 6459d031..a6ddb459 100644 --- a/Serialization/JSON/Formatter/Strategies/OpenSquareBracketStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/OpenSquareBracketStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::957d2d7580674b7f43a4e520abcac7b0, Serialization\JSON\Formatter\Strategies\OpenSquareBracketStrategy.vb" +#Region "Microsoft.VisualBasic::957d2d7580674b7f43a4e520abcac7b0, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\OpenSquareBracketStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/SingleQuoteStrategy.vb b/Serialization/JSON/Formatter/Strategies/SingleQuoteStrategy.vb index 42eb4aa1..1b28b167 100644 --- a/Serialization/JSON/Formatter/Strategies/SingleQuoteStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/SingleQuoteStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5499279945bfc4639c1313a474eebe5c, Serialization\JSON\Formatter\Strategies\SingleQuoteStrategy.vb" +#Region "Microsoft.VisualBasic::5499279945bfc4639c1313a474eebe5c, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\SingleQuoteStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/Formatter/Strategies/SkipWhileNotInStringStrategy.vb b/Serialization/JSON/Formatter/Strategies/SkipWhileNotInStringStrategy.vb index 863d1976..680e0150 100644 --- a/Serialization/JSON/Formatter/Strategies/SkipWhileNotInStringStrategy.vb +++ b/Serialization/JSON/Formatter/Strategies/SkipWhileNotInStringStrategy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9ae3f74d01beece56f19fb285cf49d22, Serialization\JSON\Formatter\Strategies\SkipWhileNotInStringStrategy.vb" +#Region "Microsoft.VisualBasic::9ae3f74d01beece56f19fb285cf49d22, Microsoft.VisualBasic.Core\Serialization\JSON\Formatter\Strategies\SkipWhileNotInStringStrategy.vb" ' Author: ' diff --git a/Serialization/JSON/JsonFormatter.vb b/Serialization/JSON/JsonFormatter.vb index 93a49642..60efae1b 100644 --- a/Serialization/JSON/JsonFormatter.vb +++ b/Serialization/JSON/JsonFormatter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::18caaeaecae432ae59ba5c9891b0b90d, Serialization\JSON\JsonFormatter.vb" +#Region "Microsoft.VisualBasic::18caaeaecae432ae59ba5c9891b0b90d, Microsoft.VisualBasic.Core\Serialization\JSON\JsonFormatter.vb" ' Author: ' diff --git a/Serialization/JSON/JsonSerialization.vb b/Serialization/JSON/JsonSerialization.vb index d4f6726c..f6350b6b 100644 --- a/Serialization/JSON/JsonSerialization.vb +++ b/Serialization/JSON/JsonSerialization.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::143777c791dfc55b96e82f8fcc5ba0e4, Serialization\JSON\JsonSerialization.vb" +#Region "Microsoft.VisualBasic::143777c791dfc55b96e82f8fcc5ba0e4, Microsoft.VisualBasic.Core\Serialization\JSON\JsonSerialization.vb" ' Author: ' diff --git a/Serialization/JSON/SchemaProvider/Extensions.vb b/Serialization/JSON/SchemaProvider/Extensions.vb index 85ca59b6..5077e1aa 100644 --- a/Serialization/JSON/SchemaProvider/Extensions.vb +++ b/Serialization/JSON/SchemaProvider/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5b97c0c24c82bb75cea4baf0ca36af81, Serialization\JSON\SchemaProvider\Extensions.vb" +#Region "Microsoft.VisualBasic::5b97c0c24c82bb75cea4baf0ca36af81, Microsoft.VisualBasic.Core\Serialization\JSON\SchemaProvider\Extensions.vb" ' Author: ' diff --git a/Serialization/JSON/SchemaProvider/Markdown.vb b/Serialization/JSON/SchemaProvider/Markdown.vb index 2e8f6d56..4192c1f5 100644 --- a/Serialization/JSON/SchemaProvider/Markdown.vb +++ b/Serialization/JSON/SchemaProvider/Markdown.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f7d000e655eeff168dfa4f42e4248053, Serialization\JSON\SchemaProvider\Markdown.vb" +#Region "Microsoft.VisualBasic::f7d000e655eeff168dfa4f42e4248053, Microsoft.VisualBasic.Core\Serialization\JSON\SchemaProvider\Markdown.vb" ' Author: ' diff --git a/Serialization/JSON/SchemaProvider/Schema.vb b/Serialization/JSON/SchemaProvider/Schema.vb index 9bfe1c78..98ff2b7e 100644 --- a/Serialization/JSON/SchemaProvider/Schema.vb +++ b/Serialization/JSON/SchemaProvider/Schema.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0b71e24fa0391addb7022cf3116ed3d6, Serialization\JSON\SchemaProvider\Schema.vb" +#Region "Microsoft.VisualBasic::0b71e24fa0391addb7022cf3116ed3d6, Microsoft.VisualBasic.Core\Serialization\JSON\SchemaProvider\Schema.vb" ' Author: ' diff --git a/Serialization/JSON/SchemaProvider/VisualBasicCode.vb b/Serialization/JSON/SchemaProvider/VisualBasicCode.vb index 4a511d4c..3ef9db9e 100644 --- a/Serialization/JSON/SchemaProvider/VisualBasicCode.vb +++ b/Serialization/JSON/SchemaProvider/VisualBasicCode.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::34772121fa5dae00b402fe80c9a84c16, Serialization\JSON\SchemaProvider\VisualBasicCode.vb" +#Region "Microsoft.VisualBasic::34772121fa5dae00b402fe80c9a84c16, Microsoft.VisualBasic.Core\Serialization\JSON\SchemaProvider\VisualBasicCode.vb" ' Author: ' diff --git a/Serialization/ShadowsCopy.vb b/Serialization/ShadowsCopy.vb index 480af9c9..14f6ff64 100644 --- a/Serialization/ShadowsCopy.vb +++ b/Serialization/ShadowsCopy.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e1ca747bde173dcbf510af436c988de4, Serialization\ShadowsCopy.vb" +#Region "Microsoft.VisualBasic::e1ca747bde173dcbf510af436c988de4, Microsoft.VisualBasic.Core\Serialization\ShadowsCopy.vb" ' Author: ' diff --git a/Text/ASCII.vb b/Text/ASCII.vb index fab8928b..9d5cd7f4 100644 --- a/Text/ASCII.vb +++ b/Text/ASCII.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f95d6aa886006fbd587e8bdb6fd181a5, Text\ASCII.vb" +#Region "Microsoft.VisualBasic::f95d6aa886006fbd587e8bdb6fd181a5, Microsoft.VisualBasic.Core\Text\ASCII.vb" ' Author: ' diff --git a/Text/GreekAlphabets.vb b/Text/GreekAlphabets.vb index f22476f5..104c112b 100644 --- a/Text/GreekAlphabets.vb +++ b/Text/GreekAlphabets.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::50606af3773d9b3a413b90aa75fbec3a, Text\GreekAlphabets.vb" +#Region "Microsoft.VisualBasic::50606af3773d9b3a413b90aa75fbec3a, Microsoft.VisualBasic.Core\Text\GreekAlphabets.vb" ' Author: ' diff --git a/Text/IO/EncodingHelper.vb b/Text/IO/EncodingHelper.vb index b70985dc..3f0db18d 100644 --- a/Text/IO/EncodingHelper.vb +++ b/Text/IO/EncodingHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c7deacbacbe45ff501aee967090fc664, Text\IO\EncodingHelper.vb" +#Region "Microsoft.VisualBasic::c7deacbacbe45ff501aee967090fc664, Microsoft.VisualBasic.Core\Text\IO\EncodingHelper.vb" ' Author: ' diff --git a/Text/IO/GB2312.vb b/Text/IO/GB2312.vb index 2f8d543c..1d049a99 100644 --- a/Text/IO/GB2312.vb +++ b/Text/IO/GB2312.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fb497ff03dedbdde88190d1619339ad6, Text\IO\GB2312.vb" +#Region "Microsoft.VisualBasic::fb497ff03dedbdde88190d1619339ad6, Microsoft.VisualBasic.Core\Text\IO\GB2312.vb" ' Author: ' diff --git a/Text/IO/TextFileEncodingDetector.vb b/Text/IO/TextFileEncodingDetector.vb index c7914334..06c9bc2a 100644 --- a/Text/IO/TextFileEncodingDetector.vb +++ b/Text/IO/TextFileEncodingDetector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0965289e3eaf0038712d540a7382413e, Text\IO\TextFileEncodingDetector.vb" +#Region "Microsoft.VisualBasic::0965289e3eaf0038712d540a7382413e, Microsoft.VisualBasic.Core\Text\IO\TextFileEncodingDetector.vb" ' Author: ' diff --git a/Text/IO/UnbufferedStringReader.vb b/Text/IO/UnbufferedStringReader.vb index 02f2157b..ec86ae55 100644 --- a/Text/IO/UnbufferedStringReader.vb +++ b/Text/IO/UnbufferedStringReader.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b79e4afc046df4d4e13ceb4c18f7d9f7, Text\IO\UnbufferedStringReader.vb" +#Region "Microsoft.VisualBasic::b79e4afc046df4d4e13ceb4c18f7d9f7, Microsoft.VisualBasic.Core\Text\IO\UnbufferedStringReader.vb" ' Author: ' diff --git a/Text/LogFile.vb b/Text/LogFile.vb index 93c99288..2ba14226 100644 --- a/Text/LogFile.vb +++ b/Text/LogFile.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::924fc1b8663c4354b3c9e32903e8a169, Text\LogFile.vb" +#Region "Microsoft.VisualBasic::924fc1b8663c4354b3c9e32903e8a169, Microsoft.VisualBasic.Core\Text\LogFile.vb" ' Author: ' diff --git a/Text/Paragraph.vb b/Text/Paragraph.vb index 575fac03..a2f0af5a 100644 --- a/Text/Paragraph.vb +++ b/Text/Paragraph.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d9963abdb1cd9050ffd80f3c10d220fc, Text\Paragraph.vb" +#Region "Microsoft.VisualBasic::d9963abdb1cd9050ffd80f3c10d220fc, Microsoft.VisualBasic.Core\Text\Paragraph.vb" ' Author: ' diff --git a/Text/Parser/CharEnumerator.vb b/Text/Parser/CharEnumerator.vb index 6b10e2c5..7a9d6d3e 100644 --- a/Text/Parser/CharEnumerator.vb +++ b/Text/Parser/CharEnumerator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9419b8655e218d4b7f1b8f381fa51413, Text\Parser\CharEnumerator.vb" +#Region "Microsoft.VisualBasic::9419b8655e218d4b7f1b8f381fa51413, Microsoft.VisualBasic.Core\Text\Parser\CharEnumerator.vb" ' Author: ' diff --git a/Text/Parser/FormattedParser.vb b/Text/Parser/FormattedParser.vb index 65958a7d..095e960a 100644 --- a/Text/Parser/FormattedParser.vb +++ b/Text/Parser/FormattedParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b444ddca74dd29280e23f69fbfa34375, Text\Parser\FormattedParser.vb" +#Region "Microsoft.VisualBasic::b444ddca74dd29280e23f69fbfa34375, Microsoft.VisualBasic.Core\Text\Parser\FormattedParser.vb" ' Author: ' diff --git a/Text/Parser/HtmlParser/HtmlStrips.vb b/Text/Parser/HtmlParser/HtmlStrips.vb index 2812aaed..5e6dc2f1 100644 --- a/Text/Parser/HtmlParser/HtmlStrips.vb +++ b/Text/Parser/HtmlParser/HtmlStrips.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::28fd81d6ba14428fc2014e6d4c719427, Text\Parser\HtmlParser\HtmlStrips.vb" +#Region "Microsoft.VisualBasic::28fd81d6ba14428fc2014e6d4c719427, Microsoft.VisualBasic.Core\Text\Parser\HtmlParser\HtmlStrips.vb" ' Author: ' diff --git a/Text/Parser/HtmlParser/Table.vb b/Text/Parser/HtmlParser/Table.vb index ddba2b8c..63e50e77 100644 --- a/Text/Parser/HtmlParser/Table.vb +++ b/Text/Parser/HtmlParser/Table.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3b8d61b2e49b24f41dbcb2d1e65263b8, Text\Parser\HtmlParser\Table.vb" +#Region "Microsoft.VisualBasic::3b8d61b2e49b24f41dbcb2d1e65263b8, Microsoft.VisualBasic.Core\Text\Parser\HtmlParser\Table.vb" ' Author: ' diff --git a/Text/Parser/HtmlParser/TagAttributeParser.vb b/Text/Parser/HtmlParser/TagAttributeParser.vb index 7fbf48cb..cb9cc5c1 100644 --- a/Text/Parser/HtmlParser/TagAttributeParser.vb +++ b/Text/Parser/HtmlParser/TagAttributeParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::77ba6865a0d027987d269c889094aaa4, Text\Parser\HtmlParser\TagAttributeParser.vb" +#Region "Microsoft.VisualBasic::77ba6865a0d027987d269c889094aaa4, Microsoft.VisualBasic.Core\Text\Parser\HtmlParser\TagAttributeParser.vb" ' Author: ' diff --git a/Text/Parser/ParserValue.vb b/Text/Parser/ParserValue.vb index 5450d174..e3b55732 100644 --- a/Text/Parser/ParserValue.vb +++ b/Text/Parser/ParserValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8519c474dae0675eaed9795c2967db95, Text\Parser\ParserValue.vb" +#Region "Microsoft.VisualBasic::8519c474dae0675eaed9795c2967db95, Microsoft.VisualBasic.Core\Text\Parser\ParserValue.vb" ' Author: ' diff --git a/Text/Parser/TryParse.vb b/Text/Parser/TryParse.vb index 4bcc8cbf..3f3744ae 100644 --- a/Text/Parser/TryParse.vb +++ b/Text/Parser/TryParse.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f55b44ccaca05d1edae7551d0b6e9456, Text\Parser\TryParse.vb" +#Region "Microsoft.VisualBasic::f55b44ccaca05d1edae7551d0b6e9456, Microsoft.VisualBasic.Core\Text\Parser\TryParse.vb" ' Author: ' diff --git a/Text/Patterns/Regexp.vb b/Text/Patterns/Regexp.vb index 7f292aaa..dfb515f3 100644 --- a/Text/Patterns/Regexp.vb +++ b/Text/Patterns/Regexp.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5797b66d3a24dd047b09d5c1418b8bb9, Text\Patterns\Regexp.vb" +#Region "Microsoft.VisualBasic::5797b66d3a24dd047b09d5c1418b8bb9, Microsoft.VisualBasic.Core\Text\Patterns\Regexp.vb" ' Author: ' diff --git a/Text/Patterns/Wildcards.vb b/Text/Patterns/Wildcards.vb index 3637f341..9ed3e3e5 100644 --- a/Text/Patterns/Wildcards.vb +++ b/Text/Patterns/Wildcards.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3e2e47467413833e6181b7ac1c226ab6, Text\Patterns\Wildcards.vb" +#Region "Microsoft.VisualBasic::3e2e47467413833e6181b7ac1c226ab6, Microsoft.VisualBasic.Core\Text\Patterns\Wildcards.vb" ' Author: ' diff --git a/Text/SearchEngine/TextIndexing/TextIndexing.vb b/Text/SearchEngine/TextIndexing/TextIndexing.vb index 65148fac..f30d0f29 100644 --- a/Text/SearchEngine/TextIndexing/TextIndexing.vb +++ b/Text/SearchEngine/TextIndexing/TextIndexing.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ca3d0e340bd2f56ece58e491d6b679e9, Text\SearchEngine\TextIndexing\TextIndexing.vb" +#Region "Microsoft.VisualBasic::ca3d0e340bd2f56ece58e491d6b679e9, Microsoft.VisualBasic.Core\Text\SearchEngine\TextIndexing\TextIndexing.vb" ' Author: ' diff --git a/Text/SearchEngine/TextIndexing/TextSegment.vb b/Text/SearchEngine/TextIndexing/TextSegment.vb index 83e9e461..048a5fbb 100644 --- a/Text/SearchEngine/TextIndexing/TextSegment.vb +++ b/Text/SearchEngine/TextIndexing/TextSegment.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f4d500803df92a3b5f6a6b9bd64382f3, Text\SearchEngine\TextIndexing\TextSegment.vb" +#Region "Microsoft.VisualBasic::f4d500803df92a3b5f6a6b9bd64382f3, Microsoft.VisualBasic.Core\Text\SearchEngine\TextIndexing\TextSegment.vb" ' Author: ' diff --git a/Text/Splitter.vb b/Text/Splitter.vb index f175b177..d626732b 100644 --- a/Text/Splitter.vb +++ b/Text/Splitter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6b898c3fa80c86901715a9b05fc767f6, Text\Splitter.vb" +#Region "Microsoft.VisualBasic::6b898c3fa80c86901715a9b05fc767f6, Microsoft.VisualBasic.Core\Text\Splitter.vb" ' Author: ' diff --git a/Text/StringSimilarity/IEqualityComparer.vb b/Text/StringSimilarity/IEqualityComparer.vb index 07e504eb..0c8f491e 100644 --- a/Text/StringSimilarity/IEqualityComparer.vb +++ b/Text/StringSimilarity/IEqualityComparer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fd599c599567b68ab309e181369d7838, Text\StringSimilarity\IEqualityComparer.vb" +#Region "Microsoft.VisualBasic::fd599c599567b68ab309e181369d7838, Microsoft.VisualBasic.Core\Text\StringSimilarity\IEqualityComparer.vb" ' Author: ' diff --git a/Text/StringSimilarity/Levenshtein/Extensions.vb b/Text/StringSimilarity/Levenshtein/Extensions.vb index c310cba0..e1c5e916 100644 --- a/Text/StringSimilarity/Levenshtein/Extensions.vb +++ b/Text/StringSimilarity/Levenshtein/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::05d9ecdacf1a7d59575c150f068399d1, Text\StringSimilarity\Levenshtein\Extensions.vb" +#Region "Microsoft.VisualBasic::05d9ecdacf1a7d59575c150f068399d1, Microsoft.VisualBasic.Core\Text\StringSimilarity\Levenshtein\Extensions.vb" ' Author: ' diff --git a/Text/StringSimilarity/Levenshtein/LevenshteinString.vb b/Text/StringSimilarity/Levenshtein/LevenshteinString.vb index 5e551554..4aa65fc6 100644 --- a/Text/StringSimilarity/Levenshtein/LevenshteinString.vb +++ b/Text/StringSimilarity/Levenshtein/LevenshteinString.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::414e29f5596cf5bd5a370c34dea2a9f8, Text\StringSimilarity\Levenshtein\LevenshteinString.vb" +#Region "Microsoft.VisualBasic::414e29f5596cf5bd5a370c34dea2a9f8, Microsoft.VisualBasic.Core\Text\StringSimilarity\Levenshtein\LevenshteinString.vb" ' Author: ' diff --git a/Text/StringSimilarity/Similarity.vb b/Text/StringSimilarity/Similarity.vb index 19b74749..f03d5042 100644 --- a/Text/StringSimilarity/Similarity.vb +++ b/Text/StringSimilarity/Similarity.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::32953287387cab420d7a37cc9605becc, Text\StringSimilarity\Similarity.vb" +#Region "Microsoft.VisualBasic::32953287387cab420d7a37cc9605becc, Microsoft.VisualBasic.Core\Text\StringSimilarity\Similarity.vb" ' Author: ' diff --git a/Text/TextEncodings.vb b/Text/TextEncodings.vb index 3d722002..1f02a153 100644 --- a/Text/TextEncodings.vb +++ b/Text/TextEncodings.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9609db91e7dcf90e1fe5a0b6e6717d36, Text\TextEncodings.vb" +#Region "Microsoft.VisualBasic::9609db91e7dcf90e1fe5a0b6e6717d36, Microsoft.VisualBasic.Core\Text\TextEncodings.vb" ' Author: ' diff --git a/Text/Xml/Extensions.vb b/Text/Xml/Extensions.vb index d549b6a9..5cf9a6c8 100644 --- a/Text/Xml/Extensions.vb +++ b/Text/Xml/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ebc08c7215ce057a4b1d3326309dfea7, Text\Xml\Extensions.vb" +#Region "Microsoft.VisualBasic::ebc08c7215ce057a4b1d3326309dfea7, Microsoft.VisualBasic.Core\Text\Xml\Extensions.vb" ' Author: ' diff --git a/Text/Xml/HtmlBuilder.vb b/Text/Xml/HtmlBuilder.vb index f797c928..b421656f 100644 --- a/Text/Xml/HtmlBuilder.vb +++ b/Text/Xml/HtmlBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::584aaf4fa61d02a3e35c8ff0c57f3e71, Text\Xml\HtmlBuilder.vb" +#Region "Microsoft.VisualBasic::584aaf4fa61d02a3e35c8ff0c57f3e71, Microsoft.VisualBasic.Core\Text\Xml\HtmlBuilder.vb" ' Author: ' diff --git a/Text/Xml/Linq/DataSetWriter.vb b/Text/Xml/Linq/DataSetWriter.vb index 17385db5..a3e5d647 100644 --- a/Text/Xml/Linq/DataSetWriter.vb +++ b/Text/Xml/Linq/DataSetWriter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4163d25a941abd54ad3dde258c4285d0, Text\Xml\Linq\DataSetWriter.vb" +#Region "Microsoft.VisualBasic::4163d25a941abd54ad3dde258c4285d0, Microsoft.VisualBasic.Core\Text\Xml\Linq\DataSetWriter.vb" ' Author: ' diff --git a/Text/Xml/Linq/DeserializeHandler.vb b/Text/Xml/Linq/DeserializeHandler.vb index 82c24410..39762d56 100644 --- a/Text/Xml/Linq/DeserializeHandler.vb +++ b/Text/Xml/Linq/DeserializeHandler.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::27e001b80e444b8c1062b34d12be842e, Text\Xml\Linq\DeserializeHandler.vb" +#Region "Microsoft.VisualBasic::27e001b80e444b8c1062b34d12be842e, Microsoft.VisualBasic.Core\Text\Xml\Linq\DeserializeHandler.vb" ' Author: ' diff --git a/Text/Xml/Linq/Entity.vb b/Text/Xml/Linq/Entity.vb index 865b1f16..e69ba46b 100644 --- a/Text/Xml/Linq/Entity.vb +++ b/Text/Xml/Linq/Entity.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7f907f2072d9c4db9369402874903414, Text\Xml\Linq\Entity.vb" +#Region "Microsoft.VisualBasic::7f907f2072d9c4db9369402874903414, Microsoft.VisualBasic.Core\Text\Xml\Linq\Entity.vb" ' Author: ' diff --git a/Text/Xml/Linq/Linq.vb b/Text/Xml/Linq/Linq.vb index 44cb39ad..8a64f01b 100644 --- a/Text/Xml/Linq/Linq.vb +++ b/Text/Xml/Linq/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::980ad65c68f3d1fc423a63e0fcefe3de, Text\Xml\Linq\Linq.vb" +#Region "Microsoft.VisualBasic::980ad65c68f3d1fc423a63e0fcefe3de, Microsoft.VisualBasic.Core\Text\Xml\Linq\Linq.vb" ' Author: ' diff --git a/Text/Xml/Linq/NodeIterator.vb b/Text/Xml/Linq/NodeIterator.vb index 7f8fd9b3..9cde8428 100644 --- a/Text/Xml/Linq/NodeIterator.vb +++ b/Text/Xml/Linq/NodeIterator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a105e1a3b491012a57d3acb07d226bf8, Text\Xml\Linq\NodeIterator.vb" +#Region "Microsoft.VisualBasic::a105e1a3b491012a57d3acb07d226bf8, Microsoft.VisualBasic.Core\Text\Xml\Linq\NodeIterator.vb" ' Author: ' diff --git a/Text/Xml/Models/Coordinate.vb b/Text/Xml/Models/Coordinate.vb index 6d4f8878..d8ab6747 100644 --- a/Text/Xml/Models/Coordinate.vb +++ b/Text/Xml/Models/Coordinate.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e437f1e97ae03e2ffad19a618184450d, Text\Xml\Models\Coordinate.vb" +#Region "Microsoft.VisualBasic::e437f1e97ae03e2ffad19a618184450d, Microsoft.VisualBasic.Core\Text\Xml\Models\Coordinate.vb" ' Author: ' diff --git a/Text/Xml/Models/Href.vb b/Text/Xml/Models/Href.vb index ff5a001d..4f61926b 100644 --- a/Text/Xml/Models/Href.vb +++ b/Text/Xml/Models/Href.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::08c37d07e12bcd1b14d7abbe21a4729f, Text\Xml\Models\Href.vb" +#Region "Microsoft.VisualBasic::08c37d07e12bcd1b14d7abbe21a4729f, Microsoft.VisualBasic.Core\Text\Xml\Models\Href.vb" ' Author: ' diff --git a/Text/Xml/Models/ListOf.vb b/Text/Xml/Models/ListOf.vb index cf791861..44a376b0 100644 --- a/Text/Xml/Models/ListOf.vb +++ b/Text/Xml/Models/ListOf.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e2f15bb49db3b01391718957a00a0b37, Text\Xml\Models\ListOf.vb" +#Region "Microsoft.VisualBasic::e2f15bb49db3b01391718957a00a0b37, Microsoft.VisualBasic.Core\Text\Xml\Models\ListOf.vb" ' Author: ' diff --git a/Text/Xml/Models/Sequence.vb b/Text/Xml/Models/Sequence.vb index ec4ff579..1f619a0e 100644 --- a/Text/Xml/Models/Sequence.vb +++ b/Text/Xml/Models/Sequence.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::023e62024aa46f51d84770b70a446c3f, Text\Xml\Models\Sequence.vb" +#Region "Microsoft.VisualBasic::023e62024aa46f51d84770b70a446c3f, Microsoft.VisualBasic.Core\Text\Xml\Models\Sequence.vb" ' Author: ' diff --git a/Text/Xml/Models/StringValue.vb b/Text/Xml/Models/StringValue.vb index af67d951..1303821a 100644 --- a/Text/Xml/Models/StringValue.vb +++ b/Text/Xml/Models/StringValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e8744a6c59f7de0ab8941bd85c4a625f, Text\Xml\Models\StringValue.vb" +#Region "Microsoft.VisualBasic::e8744a6c59f7de0ab8941bd85c4a625f, Microsoft.VisualBasic.Core\Text\Xml\Models\StringValue.vb" ' Author: ' diff --git a/Text/Xml/Models/ValueTuples/Extensions.vb b/Text/Xml/Models/ValueTuples/Extensions.vb index 97d05ce0..47cf76e5 100644 --- a/Text/Xml/Models/ValueTuples/Extensions.vb +++ b/Text/Xml/Models/ValueTuples/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::794b4edb08ff634d8c164504a01c6ff0, Text\Xml\Models\ValueTuples\Extensions.vb" +#Region "Microsoft.VisualBasic::794b4edb08ff634d8c164504a01c6ff0, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\Extensions.vb" ' Author: ' diff --git a/Text/Xml/Models/ValueTuples/NamedValues.vb b/Text/Xml/Models/ValueTuples/NamedValues.vb index 2ebbace3..cde24253 100644 --- a/Text/Xml/Models/ValueTuples/NamedValues.vb +++ b/Text/Xml/Models/ValueTuples/NamedValues.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::47511b485a69bd473a64458aede8c0ce, Text\Xml\Models\ValueTuples\NamedValues.vb" +#Region "Microsoft.VisualBasic::47511b485a69bd473a64458aede8c0ce, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\NamedValues.vb" ' Author: ' diff --git a/Text/Xml/Models/ValueTuples/ValuePair.vb b/Text/Xml/Models/ValueTuples/ValuePair.vb index fb83703e..16472286 100644 --- a/Text/Xml/Models/ValueTuples/ValuePair.vb +++ b/Text/Xml/Models/ValueTuples/ValuePair.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::797fff98dcd673f44f853ce792bece13, Text\Xml\Models\ValueTuples\ValuePair.vb" +#Region "Microsoft.VisualBasic::797fff98dcd673f44f853ce792bece13, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\ValuePair.vb" ' Author: ' diff --git a/Text/Xml/Models/Vector.vb b/Text/Xml/Models/Vector.vb index 19612150..c3cf2565 100644 --- a/Text/Xml/Models/Vector.vb +++ b/Text/Xml/Models/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4f0214ae618650f3a99c95a879d49d42, Text\Xml\Models\Vector.vb" +#Region "Microsoft.VisualBasic::4f0214ae618650f3a99c95a879d49d42, Microsoft.VisualBasic.Core\Text\Xml\Models\Vector.vb" ' Author: ' diff --git a/Text/Xml/OpenXml/Content_Types.vb b/Text/Xml/OpenXml/Content_Types.vb index d32b90a3..db331e12 100644 --- a/Text/Xml/OpenXml/Content_Types.vb +++ b/Text/Xml/OpenXml/Content_Types.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7cd16e63540b8754b215831f05c7c152, Text\Xml\OpenXml\Content_Types.vb" +#Region "Microsoft.VisualBasic::7cd16e63540b8754b215831f05c7c152, Microsoft.VisualBasic.Core\Text\Xml\OpenXml\Content_Types.vb" ' Author: ' diff --git a/Text/Xml/Serialization/XmlComment.vb b/Text/Xml/Serialization/XmlComment.vb index fe8a6df2..29ad720e 100644 --- a/Text/Xml/Serialization/XmlComment.vb +++ b/Text/Xml/Serialization/XmlComment.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2ea8673eecd4a8bbd78db8d5c2f814ff, Text\Xml\Serialization\XmlComment.vb" +#Region "Microsoft.VisualBasic::2ea8673eecd4a8bbd78db8d5c2f814ff, Microsoft.VisualBasic.Core\Text\Xml\Serialization\XmlComment.vb" ' Author: ' diff --git a/Text/Xml/XmlBuilder.vb b/Text/Xml/XmlBuilder.vb index d502673c..fab10e19 100644 --- a/Text/Xml/XmlBuilder.vb +++ b/Text/Xml/XmlBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fd2ff3f1a3c166dddb91f6a45c9e7cd4, Text\Xml\XmlBuilder.vb" +#Region "Microsoft.VisualBasic::fd2ff3f1a3c166dddb91f6a45c9e7cd4, Microsoft.VisualBasic.Core\Text\Xml\XmlBuilder.vb" ' Author: ' diff --git a/Text/Xml/XmlDeclaration.vb b/Text/Xml/XmlDeclaration.vb index a891985b..42c641b9 100644 --- a/Text/Xml/XmlDeclaration.vb +++ b/Text/Xml/XmlDeclaration.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::27027b5df5b26c037d3512bb2a33963e, Text\Xml\XmlDeclaration.vb" +#Region "Microsoft.VisualBasic::27027b5df5b26c037d3512bb2a33963e, Microsoft.VisualBasic.Core\Text\Xml\XmlDeclaration.vb" ' Author: ' diff --git a/Text/Xml/XmlDoc.vb b/Text/Xml/XmlDoc.vb index f6c330c1..a27f1f0e 100644 --- a/Text/Xml/XmlDoc.vb +++ b/Text/Xml/XmlDoc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4ae207281fa3fb4e0208111d9c26bab6, Text\Xml\XmlDoc.vb" +#Region "Microsoft.VisualBasic::4ae207281fa3fb4e0208111d9c26bab6, Microsoft.VisualBasic.Core\Text\Xml\XmlDoc.vb" ' Author: ' diff --git a/Text/Xml/XmlEntity.vb b/Text/Xml/XmlEntity.vb index 07656aba..eb2ffb19 100644 --- a/Text/Xml/XmlEntity.vb +++ b/Text/Xml/XmlEntity.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9b9645bb8773172eea5a3d00bf68067a, Text\Xml\XmlEntity.vb" +#Region "Microsoft.VisualBasic::9b9645bb8773172eea5a3d00bf68067a, Microsoft.VisualBasic.Core\Text\Xml\XmlEntity.vb" ' Author: ' diff --git a/Text/Xml/Xmlns.vb b/Text/Xml/Xmlns.vb index 14bbd5c8..a81083fa 100644 --- a/Text/Xml/Xmlns.vb +++ b/Text/Xml/Xmlns.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f102d5b8bfab1c9bab600e58f1abd72e, Text\Xml\Xmlns.vb" +#Region "Microsoft.VisualBasic::f102d5b8bfab1c9bab600e58f1abd72e, Microsoft.VisualBasic.Core\Text\Xml\Xmlns.vb" ' Author: ' diff --git a/test/LinqExpressiontest.vb b/test/LinqExpressiontest.vb index 1a6f55ba..b73c1dce 100644 --- a/test/LinqExpressiontest.vb +++ b/test/LinqExpressiontest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1cd618d84602bb5e02f7e78ba29bf818, test\LinqExpressiontest.vb" +#Region "Microsoft.VisualBasic::1cd618d84602bb5e02f7e78ba29bf818, Microsoft.VisualBasic.Core\test\LinqExpressiontest.vb" ' Author: ' diff --git a/test/Module1.vb b/test/Module1.vb index dc4c74e6..5e38101f 100644 --- a/test/Module1.vb +++ b/test/Module1.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4943544b9dbbfa61d047f49d765bd551, test\Module1.vb" +#Region "Microsoft.VisualBasic::4943544b9dbbfa61d047f49d765bd551, Microsoft.VisualBasic.Core\test\Module1.vb" ' Author: ' diff --git a/test/TypeTest.vb b/test/TypeTest.vb index fd887978..28d3b097 100644 --- a/test/TypeTest.vb +++ b/test/TypeTest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::75917d1f7b9e3ef81aad687b788cae2e, test\TypeTest.vb" +#Region "Microsoft.VisualBasic::75917d1f7b9e3ef81aad687b788cae2e, Microsoft.VisualBasic.Core\test\TypeTest.vb" ' Author: ' diff --git a/test/htmlParserTest.vb b/test/htmlParserTest.vb index 5f221e7b..4aba4324 100644 --- a/test/htmlParserTest.vb +++ b/test/htmlParserTest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::07fd10d466b3e3e3a5c170394dbee05a, test\htmlParserTest.vb" +#Region "Microsoft.VisualBasic::07fd10d466b3e3e3a5c170394dbee05a, Microsoft.VisualBasic.Core\test\htmlParserTest.vb" ' Author: ' diff --git a/test/math_test.vb b/test/math_test.vb index 6a3aaa57..38ef1735 100644 --- a/test/math_test.vb +++ b/test/math_test.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3f0388c7a7e97814d6da346ffdd87ddb, test\math_test.vb" +#Region "Microsoft.VisualBasic::3f0388c7a7e97814d6da346ffdd87ddb, Microsoft.VisualBasic.Core\test\math_test.vb" ' Author: ' diff --git a/test/numberParserTest.vb b/test/numberParserTest.vb index ee17f6a4..6ed26e04 100644 --- a/test/numberParserTest.vb +++ b/test/numberParserTest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1c807892e94cf5a85a1978080727ee91, test\numberParserTest.vb" +#Region "Microsoft.VisualBasic::1c807892e94cf5a85a1978080727ee91, Microsoft.VisualBasic.Core\test\numberParserTest.vb" ' Author: ' From 3e14b8942906ecd44ad57eef3aeeb5b37218e3e4 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 29 Jul 2019 02:06:58 +0800 Subject: [PATCH 010/104] compare value equals use like operator --- Language/Value/Value.vb | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/Language/Value/Value.vb b/Language/Value/Value.vb index 405b37f0..27829c9e 100644 --- a/Language/Value/Value.vb +++ b/Language/Value/Value.vb @@ -305,5 +305,15 @@ Namespace Language Public Shared Operator >=(value As Value(Of T), o As T) As T Throw New NotSupportedException End Operator + + Public Shared Operator Like(ref As Value(Of T), val As T) As Boolean + If ref Is Nothing OrElse Not ref.HasValue Then + Return val Is Nothing + ElseIf val Is Nothing Then + Return False + Else + Return ref.Value.Equals(val) + End If + End Operator End Class End Namespace From 9abe05ab5ec7ba12a48364552f3a4eb34dcd3429 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 3 Aug 2019 21:27:17 +0800 Subject: [PATCH 011/104] Update TcpServicesSocket.vb code style improvements of the serivces handler --- Net/Tcp/TcpServicesSocket.vb | 48 +++++++++++++++++++++--------------- 1 file changed, 28 insertions(+), 20 deletions(-) diff --git a/Net/Tcp/TcpServicesSocket.vb b/Net/Tcp/TcpServicesSocket.vb index 1727650c..a86e91eb 100644 --- a/Net/Tcp/TcpServicesSocket.vb +++ b/Net/Tcp/TcpServicesSocket.vb @@ -178,6 +178,33 @@ Namespace Net.Tcp ''' ''' Public Function Run(localEndPoint As TcpEndPoint) As Integer Implements IServicesSocket.Run + Dim callback As AsyncCallback + + Call startSocket(localEndPoint) + + While Not Me.disposedValue + If _threadEndAccept Then + _threadEndAccept = False + + callback = New AsyncCallback(AddressOf AcceptCallback) + + Try + ' Free 之后可能会出现空引用错误，则忽略掉这个错误，退出线程 + Call _servicesSocket.BeginAccept(callback, _servicesSocket) + Catch ex As Exception + Call App.LogException(ex) + End Try + End If + + Call Thread.Sleep(1) + End While + + _Running = False + + Return 0 + End Function + + Private Sub startSocket(localEndPoint As TcpEndPoint) _LocalPort = localEndPoint.Port ' Create a TCP/IP socket. _servicesSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) @@ -204,26 +231,7 @@ Namespace Net.Tcp _threadEndAccept = True _Running = True - - While Not Me.disposedValue - If _threadEndAccept Then - _threadEndAccept = False - - Dim callback As New AsyncCallback(AddressOf AcceptCallback) - Try - Call _servicesSocket.BeginAccept(callback, _servicesSocket) ' Free 之后可能会出现空引用错误，则忽略掉这个错误，退出线程 - Catch ex As Exception - Call App.LogException(ex) - End Try - End If - - Call Thread.Sleep(1) - End While - - _Running = False - - Return 0 - End Function + End Sub Public ReadOnly Property Running As Boolean = False Implements IServicesSocket.IsRunning From 3ed62ffc367b890dc27938a79984554d9ffacd19 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 3 Aug 2019 21:28:16 +0800 Subject: [PATCH 012/104] code style improvements of the commandline helper --- 47-dotnet_Microsoft.VisualBasic.vbproj | 2 + ApplicationServices/App.vb | 24 +-- CommandLine/CLITools.vb | 82 ++++---- CommandLine/CommandLine.vb | 46 ++--- CommandLine/GitBashEnvironment.vb | 79 ++++++++ CommandLine/InteropService/SharedORM/API.vb | 2 +- .../InteropService/SharedORM/CodeGenerator.vb | 2 +- .../InteropService/SharedORM/VisualBasic.vb | 4 +- ComponentModel/DataSource/DataFramework.vb | 45 +++-- ComponentModel/DataSource/Iterator.vb | 10 +- .../DataSource/Property/PropertyValue.vb | 24 ++- .../DataSource/SchemaMaps/BindProperty.vb | 24 +-- ComponentModel/DataSource/TypeCaster.vb | 143 +++++++++++++ .../System.Collections.Generic/IndexOf.vb | 18 ++ Extensions/Reflection/Delegate/DataValue.vb | 8 +- Extensions/Reflection/Reflection.vb | 188 ++++++++++-------- Serialization/BinaryDumping/BinaryWriter.vb | 116 ++++++----- Serialization/BinaryDumping/Buffer.vb | 7 + Text/Xml/Models/ValueTuples/NamedValues.vb | 14 ++ 19 files changed, 563 insertions(+), 275 deletions(-) create mode 100644 CommandLine/GitBashEnvironment.vb create mode 100644 ComponentModel/DataSource/TypeCaster.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 951872c4..0ca76b44 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -998,6 +998,7 @@ + @@ -1015,6 +1016,7 @@ + diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 2a566198..dee299c7 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -194,7 +194,7 @@ Public Module App ''' Gets the command-line arguments for this . ''' ''' Gets the command-line arguments for this process. - Public ReadOnly Property CommandLine As CommandLine.CommandLine = __cli() + Public ReadOnly Property CommandLine As CommandLine.CommandLine = GitBashEnvironment.GetCLIArgs() ''' ''' Get argument value from . @@ -223,28 +223,8 @@ Public Module App Return CommandLine(name) End Function - ''' - ''' Enable .NET application running from git bash terminal - ''' - Const gitBash$ = "C:/Program Files/Git" - - ''' - ''' Makes compatibility with git bash: = ``C:/Program Files/Git`` - ''' - ''' - Private Function __cli() As CommandLine.CommandLine - ' 第一个参数为应用程序的文件路径，不需要 - Dim tokens$() = - Environment.GetCommandLineArgs _ - .Skip(1) _ - .Select(Function(t) t.Replace(gitBash, "")) _ - .ToArray - Dim cliString$ = tokens.JoinBy(" ") - Dim cli = CLITools.TryParse(tokens, False, cliString) - Return cli - End Function - Public ReadOnly Property Github As String = LICENSE.githubURL + Public ReadOnly Property RunningInGitBash As Boolean = GitBashEnvironment.isRunningOnGitBash() ''' ''' Returns the argument portion of the used to start Visual Basic or diff --git a/CommandLine/CLITools.vb b/CommandLine/CLITools.vb index 40fe0e9d..e2b4a10d 100644 --- a/CommandLine/CLITools.vb +++ b/CommandLine/CLITools.vb @@ -1,46 +1,46 @@ #Region "Microsoft.VisualBasic::117f5bb9d589f01614330c293222e0f2, Microsoft.VisualBasic.Core\CommandLine\CLITools.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 . +' 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: +' Summaries: - ' Module CLITools - ' - ' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals - ' GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join, makesureQuot - ' Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix, (+3 Overloads) TryParse - ' - ' Sub: tupleParser - ' - ' - ' /********************************************************************************/ +' Module CLITools +' +' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals +' GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join, makesureQuot +' Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix, (+3 Overloads) TryParse +' +' Sub: tupleParser +' +' +' /********************************************************************************/ #End Region @@ -226,6 +226,8 @@ Namespace CommandLine If tokens.Length = 0 Then Return New CommandLine + Else + tokens = tokens.fixWindowsNetworkDirectory.ToArray End If Dim bools$() = tokens _ @@ -248,9 +250,9 @@ Namespace CommandLine End If If tokens.Length > 1 Then - cli.__arguments = tokens.Skip(1).ToArray.CreateParameterValues(False) + cli.arguments = tokens.Skip(1).ToArray.CreateParameterValues(False) - Dim Dk As String() = __checkKeyDuplicated(cli.__arguments) + Dim Dk As String() = __checkKeyDuplicated(cli.arguments) If Not duplicatedAllows AndAlso Not Dk.IsNullOrEmpty Then Dim Key$ = String.Join(", ", Dk) @@ -530,7 +532,7 @@ Namespace CommandLine Return New CommandLine With { .Name = name, - .__arguments = parameters, + .arguments = parameters, .Tokens = tokens.Join(bFlags).ToArray, .BoolFlags = bFlags.SafeQuery.ToArray } @@ -573,7 +575,7 @@ Namespace CommandLine End If Next - For Each arg As NamedValue(Of String) In args1.__arguments + For Each arg As NamedValue(Of String) In args1.arguments Dim value2 As String = args2(arg.Name) If Not String.Equals(value2, arg.Value, StringComparison.OrdinalIgnoreCase) Then diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 4383af7f..1615a573 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -88,7 +88,7 @@ Namespace CommandLine Implements ICollection(Of NamedValue(Of String)) Implements INamedValue - Friend __arguments As New List(Of NamedValue(Of String)) + Friend arguments As New List(Of NamedValue(Of String)) ''' ''' 原始的命令行字符串 ''' @@ -129,7 +129,7 @@ Namespace CommandLine Public ReadOnly Property ParameterList As NamedValue(Of String)() Get - Return __arguments.ToArray + Return arguments.ToArray End Get End Property @@ -140,7 +140,7 @@ Namespace CommandLine Public ReadOnly Property Keys As String() Get - Return __arguments.Select(Function(v) v.Name).ToArray + Return arguments.Select(Function(v) v.Name).ToArray End Get End Property @@ -213,7 +213,7 @@ Namespace CommandLine Default Public ReadOnly Property Item(paramName As String) As DefaultString Get Dim LQuery As NamedValue(Of String) = - __arguments _ + arguments _ .Where(Function(x) Return String.Equals(x.Name, paramName, StringComparison.OrdinalIgnoreCase) OrElse String.Equals(x.Name.Trim("\", "/", "-"), paramName, StringComparison.OrdinalIgnoreCase) @@ -313,15 +313,15 @@ Namespace CommandLine Call sb.AppendLine("---------------------------------------------------------") Call sb.AppendLine() - If __arguments.Count = 0 Then + If arguments.Count = 0 Then Call sb.AppendLine("No parameter was define in this commandline.") Return sb.ToString End If Dim MaxSwitchName As Integer = (From item As NamedValue(Of String) - In __arguments + In arguments Select Len(item.Name)).Max - For Each sw As NamedValue(Of String) In __arguments + For Each sw As NamedValue(Of String) In arguments Call sb.AppendLine($" {sw.Name} {New String(" "c, MaxSwitchName - Len(sw.Name))}= ""{sw.Value}"";") Next @@ -394,7 +394,7 @@ Namespace CommandLine Dim LQuery = LinqAPI.DefaultFirst(Of Integer) _ _ () <= From para As NamedValue(Of String) - In Me.__arguments ' 名称都是没有处理过的 + In Me.arguments ' 名称都是没有处理过的 Where String.Equals(namer, para.Name, StringComparison.OrdinalIgnoreCase) Select 100 @@ -685,9 +685,9 @@ Namespace CommandLine Dim i% = LinqAPI.DefaultFirst(Of Integer)(-1) _ _ <= From entry As NamedValue(Of String) - In Me.__arguments + In Me.arguments Where String.Equals(parameter, entry.Name, StringComparison.OrdinalIgnoreCase) - Select __arguments.IndexOf(entry) + Select arguments.IndexOf(entry) Return i End Function @@ -775,7 +775,7 @@ Namespace CommandLine ''' ''' Public Iterator Function GetEnumerator() As IEnumerator(Of NamedValue(Of String)) Implements IEnumerable(Of NamedValue(Of String)).GetEnumerator - Dim source As New List(Of NamedValue(Of String))(Me.__arguments) + Dim source As New List(Of NamedValue(Of String))(Me.arguments) If Not Me.BoolFlags.IsNullOrEmpty Then source += From name As String @@ -799,7 +799,7 @@ Namespace CommandLine ''' Public Sub Add(item As NamedValue(Of String)) Implements ICollection(Of NamedValue(Of String)).Add - Call __arguments.Add(item) + Call arguments.Add(item) End Sub ''' @@ -818,10 +818,10 @@ Namespace CommandLine } If Not allowDuplicated Then - For i As Integer = 0 To __arguments.Count - 1 - With __arguments(i) + For i As Integer = 0 To arguments.Count - 1 + With arguments(i) If .Name.TextEquals(key) Then - __arguments(i) = item + arguments(i) = item Return End If End With @@ -830,7 +830,7 @@ Namespace CommandLine ' 没有查找到需要被替换掉的下标，则直接在下面的代码之中进行添加 End If - __arguments += item + arguments += item End Sub ''' @@ -839,7 +839,7 @@ Namespace CommandLine ''' Public Sub Clear() Implements ICollection(Of NamedValue(Of String)).Clear - Call __arguments.Clear() + Call arguments.Clear() End Sub ''' @@ -851,7 +851,7 @@ Namespace CommandLine Dim LQuery% = LinqAPI.DefaultFirst(-1) _ _ <= From obj As NamedValue(Of String) - In Me.__arguments + In Me.arguments Where String.Equals(obj.Name, item.Name, StringComparison.OrdinalIgnoreCase) Select 100 @@ -860,7 +860,7 @@ Namespace CommandLine Public Sub CopyTo(array() As NamedValue(Of String), arrayIndex As Integer) Implements ICollection(Of NamedValue(Of String)).CopyTo - Call __arguments.ToArray.CopyTo(array, arrayIndex) + Call arguments.ToArray.CopyTo(array, arrayIndex) End Sub ''' @@ -872,7 +872,7 @@ Namespace CommandLine Public ReadOnly Property Count As Integer Implements ICollection(Of NamedValue(Of String)).Count Get - Return Me.__arguments.Count + Return Me.arguments.Count End Get End Property @@ -892,14 +892,14 @@ Namespace CommandLine Dim LQuery = LinqAPI.DefaultFirst(Of NamedValue(Of String)) _ _ () <= From obj As NamedValue(Of String) - In Me.__arguments + In Me.arguments Where String.Equals(obj.Name, paramName, StringComparison.OrdinalIgnoreCase) Select obj If LQuery.IsEmpty Then Return False Else - Call __arguments.Remove(LQuery) + Call arguments.Remove(LQuery) Return True End If End Function @@ -926,7 +926,7 @@ Namespace CommandLine Dim list As New List(Of NamedValue(Of String)) list += From arg As NamedValue(Of String) - In __arguments.SafeQuery + In arguments.SafeQuery Select New NamedValue(Of String) With { .Name = arg.Name, .Value = arg.Value diff --git a/CommandLine/GitBashEnvironment.vb b/CommandLine/GitBashEnvironment.vb new file mode 100644 index 00000000..865b1cee --- /dev/null +++ b/CommandLine/GitBashEnvironment.vb @@ -0,0 +1,79 @@ +Imports System.Runtime.CompilerServices +Imports System.Text.RegularExpressions + +Namespace CommandLine + + ''' + ''' Git bash environment helper module + ''' + Module GitBashEnvironment + + ''' + ''' Enable .NET application running from git bash terminal + ''' + Const gitBash$ = "C:/Program Files/Git" + + ''' + ''' Makes compatibility with git bash: = ``C:/Program Files/Git`` + ''' + ''' + Public Function GetCLIArgs() As CommandLine + ' 第一个参数为应用程序的文件路径，不需要 + Dim args$() = Environment.GetCommandLineArgs + Dim tokens$() = args _ + .Skip(1) _ + .Select(Function(t) t.Replace(gitBash, "")) _ + .ToArray + Dim cliString$ = tokens.JoinBy(" ") + Dim cli = CLITools.TryParse(tokens, False, cliString) + + Return cli + End Function + + Friend Function isRunningOnGitBash() As Boolean + Return Environment.GetCommandLineArgs.Any(Function(a) InStr(a, gitBash) > 0) + End Function + + ''' + ''' (\\)192.168.1.239\blablabla + ''' 前面的两个斜杠可能被预处理的时候被清除掉了 + ''' 所以在这里只匹配IP地址和后面的路径部分 + ''' + Const BrokenWindowsNetworkDirectoryPattern = "\d+(\.\d+){3}\.+" + Const WindowsNetworkDirectoryPattern = "\\{2}" & BrokenWindowsNetworkDirectoryPattern + + + Public Iterator Function fixWindowsNetworkDirectory(tokens As String()) As IEnumerable(Of String) + Dim trim$ + Dim matchBroken$ + + For Each token As String In tokens + If App.IsMicrosoftPlatform AndAlso App.RunningInGitBash Then + ' 只针对Windows环境中的git bash环境进行修复 + ' 因为gitbash会对\进行转义 + ' 所以 \\192.168.1.239 之类的网络路径会被强制转义为 \192.168.1.239 即当前驱动器的某一个文件夹 + If token.IsPattern(WindowsNetworkDirectoryPattern) Then + ' 已经是一个完整的路径了，直接返回 + Yield token + Else + trim = token.TrimStart("\"c) + matchBroken = trim.Match(BrokenWindowsNetworkDirectoryPattern, RegexOptions.Singleline) + + If trim <> token AndAlso InStr(trim, matchBroken) = 1 Then + Yield "\\" & trim + Else + ' 这不是一个网络路径 + ' 则不需要进行修复 + ' 直接返回原始的字符串即可 + Yield token + End If + End If + Else + ' 不是运行于gitbash之上的 + ' 不需要修补，直接返回 + Yield token + End If + Next + End Function + End Module +End Namespace \ No newline at end of file diff --git a/CommandLine/InteropService/SharedORM/API.vb b/CommandLine/InteropService/SharedORM/API.vb index d7fb443f..50430d4c 100644 --- a/CommandLine/InteropService/SharedORM/API.vb +++ b/CommandLine/InteropService/SharedORM/API.vb @@ -107,7 +107,7 @@ Namespace CommandLine.InteropService.SharedORM Dim model As New CommandLine With { .Name = name, - .__arguments = params.AsList, + .arguments = params.AsList, .BoolFlags = booleans _ .SafeQuery _ .Select(AddressOf LCase) _ diff --git a/CommandLine/InteropService/SharedORM/CodeGenerator.vb b/CommandLine/InteropService/SharedORM/CodeGenerator.vb index 763e5dbf..20a5ef0b 100644 --- a/CommandLine/InteropService/SharedORM/CodeGenerator.vb +++ b/CommandLine/InteropService/SharedORM/CodeGenerator.vb @@ -99,7 +99,7 @@ Namespace CommandLine.InteropService.SharedORM .cliCommandArgvs = api.Name, .SingleValue = api.Name, .Tokens = {api.Name}, - .__arguments = New List(Of NamedValue(Of String)) + .arguments = New List(Of NamedValue(Of String)) } Call $"{api.EntryPointFullName(relativePath:=True)} is nothing!".Warning Else diff --git a/CommandLine/InteropService/SharedORM/VisualBasic.vb b/CommandLine/InteropService/SharedORM/VisualBasic.vb index 308f954a..14c07927 100644 --- a/CommandLine/InteropService/SharedORM/VisualBasic.vb +++ b/CommandLine/InteropService/SharedORM/VisualBasic.vb @@ -200,7 +200,7 @@ Namespace CommandLine.InteropService.SharedORM Dim out As New List(Of String) Dim param$ - If API.__arguments = 1 AndAlso API.__arguments(Scan0).Name.StringEmpty Then + If API.arguments = 1 AndAlso API.arguments(Scan0).Name.StringEmpty Then ' /command out += $"term As String" Else @@ -260,7 +260,7 @@ Namespace CommandLine.InteropService.SharedORM Dim CLI As New StringBuilder Dim vbcode$ - If Api.__arguments = 1 AndAlso Api.__arguments(Scan0).Name.StringEmpty Then + If Api.arguments = 1 AndAlso Api.arguments(Scan0).Name.StringEmpty Then ' /command vbcode = " Call CLI.Append($""{term}"")" CLI.AppendLine(vbcode) diff --git a/ComponentModel/DataSource/DataFramework.vb b/ComponentModel/DataSource/DataFramework.vb index f5522413..fd00870a 100644 --- a/ComponentModel/DataSource/DataFramework.vb +++ b/ComponentModel/DataSource/DataFramework.vb @@ -240,6 +240,11 @@ Namespace ComponentModel.DataSourceModel ''' Object methods. ''' ''' + ''' + ''' 在这个和Scripting命名空间下的基础类型的判断不一样 + ''' 在这里只会判断.NET框架中的基础类型 + ''' 在Scripting命名空间下的基础类型,是规定为所有包含有类型和字符串值之间的隐式转换的类型 + ''' Public ReadOnly Property StringBuilders As New Dictionary(Of Type, IStringBuilder) From { _ {GetType(String), Function(s) If(s Is Nothing, "", CStr(s))}, @@ -319,7 +324,7 @@ Namespace ComponentModel.DataSourceModel ''' ''' Public Function CreateObject(Of T)(source As IEnumerable(Of T)) As DataTable - Dim columns = __initSchema(GetType(T)) + Dim columns = ParseSchemaInternal(GetType(T)) Dim table As New DataTable Dim type As Type @@ -348,17 +353,16 @@ Namespace ComponentModel.DataSourceModel ''' Retrive data from a specific datatable object.(从目标数据表中获取数据) ''' ''' - ''' + ''' ''' ''' - Public Function GetValue(Of T)(DataTable As DataTable) As T() - Dim Columns = __initSchema(GetType(T)) - Dim rtvlData As T() = New T(DataTable.Rows.Count - 1) {} + Public Function GetValue(Of T)(dataTable As DataTable) As T() + Dim Columns = ParseSchemaInternal(GetType(T)) + Dim rtvlData As T() = New T(dataTable.Rows.Count - 1) {} Dim i As Integer = 0 - Dim Schema As List(Of KeyValuePair(Of Integer, PropertyInfo)) = - New List(Of KeyValuePair(Of Integer, PropertyInfo)) - For Each column As DataColumn In DataTable.Columns + Dim schema As List(Of KeyValuePair(Of Integer, PropertyInfo)) = New List(Of KeyValuePair(Of Integer, PropertyInfo)) + For Each column As DataColumn In dataTable.Columns Dim LQuery As BindProperty(Of DataFrameColumnAttribute) = LinqAPI.DefaultFirst(Of BindProperty(Of DataFrameColumnAttribute)) <= From schemaColumn As BindProperty(Of DataFrameColumnAttribute) @@ -367,13 +371,13 @@ Namespace ComponentModel.DataSourceModel Select schemaColumn If Not LQuery.IsNull Then - Call Schema.Add(New KeyValuePair(Of Integer, PropertyInfo)(column.Ordinal, LQuery.member)) + Call schema.Add(New KeyValuePair(Of Integer, PropertyInfo)(column.Ordinal, LQuery.member)) End If Next - For Each row As DataRow In DataTable.Rows + For Each row As DataRow In dataTable.Rows Dim obj As T = Activator.CreateInstance(Of T)() - For Each column In Schema + For Each column In schema Dim value = row.Item(column.Key) If IsDBNull(value) OrElse value Is Nothing Then Continue For @@ -387,10 +391,10 @@ Namespace ComponentModel.DataSourceModel Return rtvlData End Function - Private Function __initSchema(type As Type) As Dictionary(Of String, BindProperty(Of DataFrameColumnAttribute)) + Private Function ParseSchemaInternal(type As Type) As Dictionary(Of String, BindProperty(Of DataFrameColumnAttribute)) Dim dataType As Type = GetType(DataFrameColumnAttribute) Dim props As PropertyInfo() = type.GetProperties - Dim Columns = (From [property] As PropertyInfo + Dim columns = (From [property] As PropertyInfo In props Let attrs As Object() = [property].GetCustomAttributes(dataType, True) Where Not attrs.IsNullOrEmpty @@ -398,26 +402,29 @@ Namespace ComponentModel.DataSourceModel DirectCast(attrs.First, DataFrameColumnAttribute), [property] Order By colMaps.Index Ascending).AsList - For Each column In Columns + For Each column In columns If String.IsNullOrEmpty(column.colMaps.Name) Then Call column.colMaps.SetNameValue(column.property.Name) End If Next Dim unIndexColumn = (From col - In Columns + In columns Where col.colMaps.Index <= 0 Select col ' 未建立索引的对象按照名称排序 Order By col.colMaps.Name Ascending).ToArray ' 由于在后面会涉及到修改list对象，所以在这里使用ToArray来隔绝域list的关系，避免出现冲突 + ' 将未建立索引的对象放置到列表的最末尾 For Each col In unIndexColumn - Call Columns.Remove(col) - Call Columns.Add(col) '将未建立索引的对象放置到列表的最末尾 + Call columns.Remove(col) + Call columns.Add(col) Next - Return Columns.ToDictionary( + Return columns.ToDictionary( Function(x) x.colMaps.Name, - Function(x) New BindProperty(Of DataFrameColumnAttribute)(x.colMaps, x.property)) + Function(x) + Return New BindProperty(Of DataFrameColumnAttribute)(x.colMaps, x.property) + End Function) End Function End Module End Namespace diff --git a/ComponentModel/DataSource/Iterator.vb b/ComponentModel/DataSource/Iterator.vb index 6cb47453..49fdc964 100644 --- a/ComponentModel/DataSource/Iterator.vb +++ b/ComponentModel/DataSource/Iterator.vb @@ -55,7 +55,6 @@ Imports System.Runtime.CompilerServices Imports System.Threading -Imports System.Threading.Thread Namespace ComponentModel.DataSourceModel @@ -123,7 +122,8 @@ Namespace ComponentModel.DataSourceModel _started = True ' Single thread safely - For Each x As Object In _source ' 单线程安全 + ' 单线程安全 + For Each x As Object In _source Call receiveDone.WaitOne() Call receiveDone.Reset() @@ -151,7 +151,8 @@ Namespace ComponentModel.DataSourceModel ''' Sets the enumerator to its initial position, which is before the first element in the collection. ''' Public Sub Reset() Implements IEnumerator.Reset - If Not _forEach Is Nothing Then ' 终止这条线程然后再新建 + If Not _forEach Is Nothing Then + ' 终止这条线程然后再新建 Call _forEach.Abort() End If @@ -173,7 +174,8 @@ Namespace ComponentModel.DataSourceModel ''' true if the enumerator was successfully advanced to the next element; false if the enumerator has passed the end of the collection. ''' Public Function MoveNext() As Boolean Implements IEnumerator.MoveNext - If ReadDone Then ' 在移动之前已经读取完毕了 + If ReadDone Then + ' 在移动之前已经读取完毕了 _Current = Nothing Return False End If diff --git a/ComponentModel/DataSource/Property/PropertyValue.vb b/ComponentModel/DataSource/Property/PropertyValue.vb index a7298ed0..7cfd3f3e 100644 --- a/ComponentModel/DataSource/Property/PropertyValue.vb +++ b/ComponentModel/DataSource/Property/PropertyValue.vb @@ -58,8 +58,8 @@ Namespace ComponentModel.DataSourceModel ''' Public Class PropertyValue(Of T) : Inherits Value(Of T) - ReadOnly __get As Func(Of T) - ReadOnly __set As Action(Of T) + ReadOnly handleGet As Func(Of T) + ReadOnly handleSet As Action(Of T) ''' ''' The Extension property value. @@ -67,13 +67,15 @@ Namespace ComponentModel.DataSourceModel ''' Public Overrides Property value As T Get - Return __get() + Return handleGet() End Get Set(value As T) - MyBase.value = value + MyBase.Value = value - If Not __set Is Nothing Then - Call __set(value) ' 因为在初始化的时候会对这个属性赋值，但是set没有被初始化，所以会出错，在这里加了一个if判断来避免空引用的错误 + If Not handleSet Is Nothing Then + ' 因为在初始化的时候会对这个属性赋值，但是set没有被初始化， + ' 所以会出错， 在这里加了一个if判断来避免空引用的错误 + Call handleSet(value) End If End Set End Property @@ -90,16 +92,16 @@ Namespace ComponentModel.DataSourceModel ''' 请勿使用函数，否则会出现栈空间溢出 ''' 请勿使用方法，否则会出现栈空间溢出 Sub New([get] As Func(Of T), [set] As Action(Of T)) - __get = [get] - __set = [set] + handleGet = [get] + handleSet = [set] End Sub ''' ''' Tag property value.(默认是将数据写入到基本类型的值之中) ''' Sub New() - __get = Function() MyBase.value - __set = Sub(v) MyBase.value = v + handleGet = Function() MyBase.Value + handleSet = Sub(v) MyBase.Value = v End Sub ''' @@ -108,7 +110,7 @@ Namespace ComponentModel.DataSourceModel ''' ''' Public Function SetValue(value As T) As DynamicPropertyBase(Of T) - Call __set(value) + Call handleSet(value) Return obj End Function diff --git a/ComponentModel/DataSource/SchemaMaps/BindProperty.vb b/ComponentModel/DataSource/SchemaMaps/BindProperty.vb index 926042e3..32fb8b57 100644 --- a/ComponentModel/DataSource/SchemaMaps/BindProperty.vb +++ b/ComponentModel/DataSource/SchemaMaps/BindProperty.vb @@ -74,8 +74,8 @@ Namespace ComponentModel.DataSourceModel.SchemaMaps Dim field As T Dim name As String - ReadOnly __setValue As Action(Of Object, Object) - ReadOnly __getValue As Func(Of Object, Object) + Friend ReadOnly handleSetValue As Action(Of Object, Object) + Friend ReadOnly handleGetValue As Func(Of Object, Object) #Region "Property List" @@ -140,8 +140,8 @@ Namespace ComponentModel.DataSourceModel.SchemaMaps ' Compile the property get/set as the delegate With prop - __setValue = AddressOf prop.SetValue ' .DeclaringType.PropertySet(.Name) - __getValue = AddressOf prop.GetValue ' .DeclaringType.PropertyGet(.Name) + handleSetValue = AddressOf prop.SetValue ' .DeclaringType.PropertySet(.Name) + handleGetValue = AddressOf prop.GetValue ' .DeclaringType.PropertyGet(.Name) End With End Sub @@ -170,8 +170,8 @@ Namespace ComponentModel.DataSourceModel.SchemaMaps End If With field - __setValue = AddressOf field.SetValue ' .DeclaringType.FieldSet(.Name) - __getValue = AddressOf field.GetValue ' .DeclaringType.FieldGet(.Name) + handleSetValue = AddressOf field.SetValue ' .DeclaringType.FieldSet(.Name) + handleGetValue = AddressOf field.GetValue ' .DeclaringType.FieldGet(.Name) End With End Sub @@ -190,10 +190,10 @@ Namespace ComponentModel.DataSourceModel.SchemaMaps End If With field - __setValue = Sub(a, b) - Throw New ReadOnlyException - End Sub - __getValue = Function(obj) method.Invoke(obj, {}) + handleSetValue = Sub(a, b) + Throw New ReadOnlyException + End Sub + handleGetValue = Function(obj) method.Invoke(obj, {}) End With End Sub @@ -233,7 +233,7 @@ Namespace ComponentModel.DataSourceModel.SchemaMaps Public Sub SetValue(obj As Object, value As Object) Implements IProperty.SetValue ' 2017-6-26 目前value参数为空值的话，会报错，故而在这里添加了一个If分支判断 If value IsNot Nothing Then - Call __setValue(obj, value) + Call handleSetValue(obj, value) End If End Sub @@ -270,7 +270,7 @@ Namespace ComponentModel.DataSourceModel.SchemaMaps ''' Public Function GetValue(x As Object) As Object Implements IProperty.GetValue - Return __getValue(x) + Return handleGetValue(x) End Function ''' diff --git a/ComponentModel/DataSource/TypeCaster.vb b/ComponentModel/DataSource/TypeCaster.vb new file mode 100644 index 00000000..6f52d192 --- /dev/null +++ b/ComponentModel/DataSource/TypeCaster.vb @@ -0,0 +1,143 @@ +Imports System.Runtime.CompilerServices +Imports System.Runtime.InteropServices +Imports System.Text +Imports Microsoft.VisualBasic.Text + +Namespace ComponentModel.DataSourceModel.Caster + + Public Module Extensions + + ReadOnly typeCaster As New Dictionary(Of Type, ITypeCaster) From { + New StringCaster, New IntegerCaster, New DoubleCaster, New DateCaster + } + + + Private Sub Add(table As Dictionary(Of Type, ITypeCaster), caster As ITypeCaster) + Call table.Add(caster.type, caster) + End Sub + + + + Public Function GetBytes(type As Type) As Func(Of Object, Byte()) + Return AddressOf typeCaster(type).GetBytes + End Function + + + + Public Function GetString(type As Type) As Func(Of Object, String) + Return AddressOf typeCaster(type).GetString + End Function + + + + Public Function ToObject(type As Type) As Func(Of Byte(), Object) + Return AddressOf typeCaster(type).ToObject + End Function + + + + Public Function ParseObject(type As Type) As Func(Of String, Object) + Return AddressOf typeCaster(type).ParseObject + End Function + End Module + + Public Interface ITypeCaster + + ReadOnly Property type As Type + + Function GetBytes(value As Object) As Byte() + Function GetString(value As Object) As String + Function ToObject(bytes As Byte()) As Object + Function ParseObject(str As String) As Object + End Interface + + Public MustInherit Class TypeCaster(Of T) : Implements ITypeCaster + + Public ReadOnly Property sizeOf As Integer = Marshal.SizeOf(type) + Public ReadOnly Property type As Type = GetType(T) Implements ITypeCaster.type + + Public MustOverride Function GetBytes(value As Object) As Byte() Implements ITypeCaster.GetBytes + Public MustOverride Function GetString(value As Object) As String Implements ITypeCaster.GetString + Public MustOverride Function ToObject(bytes As Byte()) As Object Implements ITypeCaster.ToObject + Public MustOverride Function ParseObject(str As String) As Object Implements ITypeCaster.ParseObject + + End Class + + Public Class StringCaster : Inherits TypeCaster(Of String) + + ReadOnly utf8 As Encoding = Encodings.UTF8WithoutBOM.CodePage + + Public Overrides Function GetBytes(value As Object) As Byte() + Return utf8.GetBytes(DirectCast(value, String)) + End Function + + Public Overrides Function GetString(value As Object) As String + Return value + End Function + + Public Overrides Function ToObject(bytes() As Byte) As Object + Return utf8.GetString(bytes, Scan0, bytes.Length) + End Function + + Public Overrides Function ParseObject(str As String) As Object + Return str + End Function + End Class + + Public Class IntegerCaster : Inherits TypeCaster(Of Integer) + + Public Overrides Function GetBytes(value As Object) As Byte() + Return BitConverter.GetBytes(DirectCast(value, Integer)) + End Function + + Public Overrides Function GetString(value As Object) As String + Return DirectCast(value, Integer).ToString + End Function + + Public Overrides Function ToObject(bytes() As Byte) As Object + Return BitConverter.ToInt32(bytes, Scan0) + End Function + + Public Overrides Function ParseObject(str As String) As Object + Return Integer.Parse(str) + End Function + End Class + + Public Class DoubleCaster : Inherits TypeCaster(Of Double) + + Public Overrides Function GetBytes(value As Object) As Byte() + Return BitConverter.GetBytes(DirectCast(value, Double)) + End Function + + Public Overrides Function GetString(value As Object) As String + Return DirectCast(value, Double).ToString + End Function + + Public Overrides Function ToObject(bytes() As Byte) As Object + Return BitConverter.ToDouble(bytes, Scan0) + End Function + + Public Overrides Function ParseObject(str As String) As Object + Return Double.Parse(str) + End Function + End Class + + Public Class DateCaster : Inherits TypeCaster(Of Date) + + Public Overrides Function GetBytes(value As Object) As Byte() + Return BitConverter.GetBytes(DirectCast(value, Date).ToBinary) + End Function + + Public Overrides Function GetString(value As Object) As String + Return DirectCast(value, Date).ToString + End Function + + Public Overrides Function ToObject(bytes() As Byte) As Object + Return Date.FromBinary(BitConverter.ToInt64(bytes, Scan0)) + End Function + + Public Overrides Function ParseObject(str As String) As Object + Return Date.Parse(str) + End Function + End Class +End Namespace \ No newline at end of file diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index 41295f48..cfcb4974 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -297,6 +297,24 @@ Namespace ComponentModel.Collection Return list + index.Objects End Operator + ''' + ''' Delete items from source and then returns the new modify index collection + ''' + ''' + ''' + ''' + Public Shared Operator -(index As Index(Of T), list As List(Of T)) As Index(Of T) + Dim table = index.maps + + For Each item As T In list + If table.ContainsKey(item) Then + Call table.Remove(item) + End If + Next + + Return New Index(Of T)(table.Keys) + End Operator + ''' ''' is one of the element in ''' diff --git a/Extensions/Reflection/Delegate/DataValue.vb b/Extensions/Reflection/Delegate/DataValue.vb index e3eb6320..1622811e 100644 --- a/Extensions/Reflection/Delegate/DataValue.vb +++ b/Extensions/Reflection/Delegate/DataValue.vb @@ -91,7 +91,7 @@ Namespace Emit.Delegates Dim vector As Array = Array.CreateInstance([property].Type, data.Length) For i As Integer = 0 To data.Length - 1 - Call vector.SetValue([property].__getValue(data(i)), i) + Call vector.SetValue([property].handleGetValue(data(i)), i) Next Return vector @@ -108,13 +108,13 @@ Namespace Emit.Delegates If value Is Nothing Then For Each x In data - Call [property].__setValue(x, Nothing) + Call [property].handleSetValue(x, Nothing) Next ElseIf array Is Nothing Then ' 不是一个集合 Dim v As Object = value For Each x As T In data - Call [property].__setValue(x, v) + Call [property].handleSetValue(x, v) Next Else Dim vector = array.As(Of Object).ToArray @@ -123,7 +123,7 @@ Namespace Emit.Delegates Throw New InvalidExpressionException(DimNotAgree$) End If For i As Integer = 0 To data.Length - 1 - Call [property].__setValue(data(i), vector(i)) + Call [property].handleSetValue(data(i), vector(i)) Next End If End Set diff --git a/Extensions/Reflection/Reflection.vb b/Extensions/Reflection/Reflection.vb index 9c90c54e..a28b2039 100644 --- a/Extensions/Reflection/Reflection.vb +++ b/Extensions/Reflection/Reflection.vb @@ -53,6 +53,7 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ApplicationServices Imports Microsoft.VisualBasic.ApplicationServices.Development Imports Microsoft.VisualBasic.CommandLine.Reflection +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Emit.Delegates Imports Microsoft.VisualBasic.FileIO Imports Microsoft.VisualBasic.Language @@ -149,25 +150,11 @@ Public Module EmitReflection ''' by a ``StreamReader()``. ''' Public Sub RunApp(app As String, Optional CLI As String = "", Optional cs As Boolean = False) - Dim bufs As Byte() = app.GetMapPath.ReadBinary ' Works on both local file or network file. + ' Works on both local file or network file. + Dim bufs As Byte() = app.GetMapPath.ReadBinary Try - Dim assm As Assembly = Assembly.Load(bufs) ' or assm = Reflection.Assembly.Load(New WebClient().DownloadData("https://....")) - Dim method As MethodInfo = assm.EntryPoint - - If (Not method Is Nothing) Then - Dim o As Object = assm.CreateInstance(method.Name) - - If String.IsNullOrEmpty(CLI) Then - Dim null As Object() = If(cs, {Nothing}, Nothing) - Call method.Invoke(o, null) - Else - ' if your app receives parameters - Call method.Invoke(o, New Object() {CommandLine.GetTokens(CLI)}) - End If - Else - Throw New NullReferenceException($"'{app}' No App Entry Point was found!") - End If + Call bufs.runAppInternal(CLI, isCsApp:=cs) Catch ex As Exception ex = New Exception("CLI:=" & CLI, ex) ex = New Exception("app:=" & app, ex) @@ -178,6 +165,27 @@ Public Module EmitReflection End Try End Sub + + Private Sub runAppInternal(app As Byte(), cli$, isCsApp As Boolean) + ' or assm = Reflection.Assembly.Load(New WebClient().DownloadData("https://....")) + Dim assm As Assembly = Assembly.Load(app) + Dim method As MethodInfo = assm.EntryPoint + Dim null As Object() = If(isCsApp, {Nothing}, Nothing) + + If (Not method Is Nothing) Then + Dim o As Object = assm.CreateInstance(method.Name) + + If String.IsNullOrEmpty(cli) Then + Call method.Invoke(o, null) + Else + ' if your app receives parameters + Call method.Invoke(o, New Object() {CommandLine.GetTokens(cli)}) + End If + Else + Throw New NullReferenceException($"'{app}' No App Entry Point was found!") + End If + End Sub + #Region "IsNumericType" ''' ''' Determines whether the specified value is of numeric type. @@ -223,6 +231,8 @@ Public Module EmitReflection Dim mBase As MethodInfo = (From m As MethodInfo In methods Where String.Equals([nameOf], m.Name) Select m).FirstOrDefault + Dim APIExport As ExportAPIAttribute + If mBase Is Nothing Then NULL: If Not strict Then Return [nameOf] @@ -230,7 +240,8 @@ NULL: If Not strict Then Return "" End If Else - Dim APIExport As ExportAPIAttribute = mBase.GetCustomAttribute(Of ExportAPIAttribute) + APIExport = mBase.GetCustomAttribute(Of ExportAPIAttribute) + If APIExport Is Nothing Then GoTo NULL Else @@ -359,15 +370,16 @@ NULL: If Not strict Then ''' ''' 目标类型是不是VisualBasic之中的``Module``模块类型？ ''' - ''' + ''' ''' - Public Function IsModule(typeDef As Type) As Boolean - If typeDef.Name.IndexOf("$") > -1 OrElse typeDef.Name.IndexOf("`") > -1 Then - Return False ' 匿名类型 + Public Function IsModule(type As Type) As Boolean + If type.Name.IndexOf("$") > -1 OrElse type.Name.IndexOf("`") > -1 Then + ' 匿名类型 + Return False End If - Return typeDef.IsClass + Return type.IsClass End Function ''' @@ -376,29 +388,28 @@ NULL: If Not strict Then ''' ''' ''' - ''' 使用System.NameOf()操作符来获取 + ''' 使用System.NameOf()操作符来获取 ''' - Public Function [Get](Of T, TProperty)(collection As ICollection(Of T), Name As String, Optional TrimNull As Boolean = True) As TProperty() - Dim Type As Type = GetType(T) - Dim Properties = (From p In Type.GetProperties(BindingFlags.Public Or BindingFlags.Instance) - Where String.Equals(p.Name, Name) - Select p).ToArray - If Properties.IsNullOrEmpty Then + Public Function [Get](Of T, TProperty)(collection As ICollection(Of T), name As String, Optional trimNull As Boolean = True) As TProperty() + Dim properties = DataFramework.Schema(Of T)(PropertyAccess.Readable, nonIndex:=True) + + If properties.IsNullOrEmpty OrElse Not properties.ContainsKey(name) Then Return New TProperty() {} End If - Dim [Property] As PropertyInfo = Properties.First + Dim [property] As PropertyInfo = properties(name) Dim resultBuffer As TProperty() + Dim LQuery = From obj As T In collection.AsParallel + Let value As Object = [property].GetValue(obj, Nothing) + Let cast = If(value Is Nothing, Nothing, DirectCast(value, TProperty)) + Select cast - If TrimNull Then - resultBuffer = (From obj As T In collection.AsParallel - Let value As Object = [Property].GetValue(obj, Nothing) - Where Not value Is Nothing - Select DirectCast(value, TProperty)).ToArray + If trimNull Then + resultBuffer = LQuery _ + .Where(Function(item) Not item Is Nothing) _ + .ToArray Else - resultBuffer = (From obj As T In collection.AsParallel - Let value As Object = [Property].GetValue(obj, Nothing) - Select If(value Is Nothing, Nothing, DirectCast(value, TProperty))).ToArray + resultBuffer = LQuery.ToArray End If Return resultBuffer @@ -466,8 +477,7 @@ NULL: If Not strict Then ''' ''' Public Function Description(Of T)() As String - Dim typeRef As Type = GetType(T) - Return typeRef.Description + Return GetType(T).Description End Function ''' @@ -476,13 +486,13 @@ NULL: If Not strict Then ''' ''' - Public Function Description(typeRef As Type) As String - Dim CustomAttrs As Object() = typeRef.GetCustomAttributes(GetType(DescriptionAttribute), inherit:=False) + Public Function Description(type As Type) As String + Dim customAttrs As Object() = type.GetCustomAttributes(GetType(DescriptionAttribute), inherit:=False) - If Not CustomAttrs.IsNullOrEmpty Then - Return CType(CustomAttrs(Scan0), DescriptionAttribute).Description + If Not customAttrs.IsNullOrEmpty Then + Return CType(customAttrs(Scan0), DescriptionAttribute).Description Else - Return typeRef.Name + Return type.Name End If End Function @@ -527,9 +537,7 @@ NULL: If Not strict Then ''' ''' Public Function Description(m As MemberInfo, Optional default$ = Nothing) As String - Dim customAttrs() = m.GetCustomAttributes( - GetType(DescriptionAttribute), - inherit:=False) + Dim customAttrs() = m.GetCustomAttributes(GetType(DescriptionAttribute), inherit:=False) If Not customAttrs.IsNullOrEmpty Then Return DirectCast(customAttrs(Scan0), DescriptionAttribute).Description @@ -571,19 +579,21 @@ NULL: If Not strict Then End Function ''' - ''' Enumerate all of the enum values in the specific type data.(只允许枚举类型，其他的都返回空集合) + ''' Enumerate all of the enum values in the specific type data. + ''' (只允许枚举类型，其他的都返回空集合) ''' ''' 泛型类型约束只允许枚举类型，其他的都返回空集合 ''' Public Function Enums(Of T As Structure)() As T() - Dim EnumType As Type = GetType(T) - If Not EnumType.IsInheritsFrom(GetType(System.Enum)) Then + Dim enumType As Type = GetType(T) + + If Not enumType.IsInheritsFrom(GetType(System.Enum)) Then Return Nothing End If Dim EnumValues As Object() = Scripting _ - .CastArray(Of System.Enum)(EnumType.GetEnumValues) _ + .CastArray(Of System.Enum)(enumType.GetEnumValues) _ .Select(Of Object)(Function(ar) Return DirectCast(ar, Object) End Function) _ @@ -591,6 +601,7 @@ NULL: If Not strict Then Dim values As T() = EnumValues _ .Select(Of T)(Function([enum]) DirectCast([enum], T)) _ .ToArray + Return values End Function @@ -653,19 +664,21 @@ NULL: If Not strict Then Public Function GetValue(Type As Type, obj As Object, Name As String) As Object Try - Return __getValue(Type, obj, Name) + Return getValueInternal(Type, obj, Name) Catch ex As Exception Return App.LogException(ex, $"{GetType(Extensions).FullName}::{NameOf(GetValue)}") End Try End Function - Private Function __getValue(Type As Type, obj As Object, Name As String) As Object - Dim [property] = Type.GetProperty(Name, BindingFlags.Public Or BindingFlags.Instance) + Private Function getValueInternal(type As Type, obj As Object, Name As String) As Object + Dim [property] = type.GetProperty(Name, BindingFlags.Public Or BindingFlags.Instance) + If [property] Is Nothing Then Return Nothing + Else + Dim value = [property].GetValue(obj, Nothing) + Return value End If - Dim value = [property].GetValue(obj, Nothing) - Return value End Function ''' @@ -688,36 +701,34 @@ NULL: If Not strict Then ''' ''' Try convert the type specific collection data type into a generic enumerable collection data type.(尝试将目标集合类型转换为通用的枚举集合类型) ''' - ''' The type specific collection data type.(特定类型的集合对象类型，当然也可以是泛型类型) + ''' The type specific collection data type.(特定类型的集合对象类型，当然也可以是泛型类型) ''' If the target data type is not a collection data type then the original data type will be returns and the function displays a warning message. ''' ''' - Public Function Collection2GenericIEnumerable( - Type As Type, - Optional DebuggerMessage As Boolean = True) As Type + Public Function Collection2GenericIEnumerable(type As Type, Optional showDebugMsg As Boolean = True) As Type - If Array.IndexOf(Type.GetInterfaces, GetType(IEnumerable)) = -1 Then -EXIT_: If DebuggerMessage Then Call $"[WARN] Target type ""{Type.FullName}"" is not a collection type!".__DEBUG_ECHO - Return Type + If Array.IndexOf(type.GetInterfaces, GetType(IEnumerable)) = -1 Then +EXIT_: If showDebugMsg Then Call $"[WARN] Target type ""{type.FullName}"" is not a collection type!".__DEBUG_ECHO + Return type End If - Dim GenericType As Type = GetType(Generic.IEnumerable(Of )) 'Type.GetType("System.Collections.Generic.IEnumerable") - Dim ElementType As Type = Type.GetElementType + Dim genericType As Type = GetType(Generic.IEnumerable(Of )) 'Type.GetType("System.Collections.Generic.IEnumerable") + Dim elementType As Type = type.GetElementType - If ElementType Is Nothing Then - Dim Generics = Type.GenericTypeArguments + If elementType Is Nothing Then + Dim generics = type.GenericTypeArguments - If Generics.IsNullOrEmpty Then + If generics.IsNullOrEmpty Then GoTo EXIT_ Else - ElementType = Generics(Scan0) + elementType = generics(Scan0) End If End If - GenericType = GenericType.MakeGenericType({ElementType}) + genericType = genericType.MakeGenericType({elementType}) - Return GenericType + Return genericType End Function #End If @@ -826,10 +837,10 @@ EXIT_: If DebuggerMessage Then Call $"[WARN] Target type ""{Type.FullName}" ''' ''' Public Function GetAttribute(Of T As Attribute)([Property] As PropertyInfo) As T - Dim Attributes As Object() = [Property].GetCustomAttributes(GetType(T), True) + Dim attrs As Object() = [Property].GetCustomAttributes(GetType(T), True) - If Not Attributes Is Nothing AndAlso Attributes.Length = 1 Then - Dim CustomAttr As T = CType(Attributes(0), T) + If Not attrs Is Nothing AndAlso attrs.Length = 1 Then + Dim CustomAttr As T = CType(attrs(0), T) If Not CustomAttr Is Nothing Then Return CustomAttr @@ -846,16 +857,27 @@ EXIT_: If DebuggerMessage Then Call $"[WARN] Target type ""{Type.FullName}" ''' ''' 构造函数里面的参数信息 ''' - Public Function CreateObject(Of T)(args As Object(), - Optional throwEx As Boolean = True, - Optional caller As String = "") As T + ''' + + Public Function CreateObject(Of T)(args As Object(), Optional throwEx As Boolean = True, Optional caller As String = "") As T + Return GetType(T).CreateObject(args, throwEx, caller) + End Function + + + Public Function CreateObject(type As Type, args As Object(), Optional throwEx As Boolean = True, Optional caller$ = Nothing) As Object Try - Dim obj As Object = - Activator.CreateInstance(GetType(T), args) - Return DirectCast(obj, T) + Dim obj As Object = Activator.CreateInstance(type, args) + + If obj Is Nothing Then + Return Nothing + Else + Return obj + End If Catch ex As Exception Dim params As String() = args _ - .Select(Function(x) x.GetType.FullName & " ==> " & GetObjectJson(x, x.GetType)) _ + .Select(Function(a) + Return a.GetType.FullName & " => " & GetObjectJson(a.GetType, a) + End Function) _ .ToArray ex = New Exception(String.Join(vbCrLf, params), ex) ex = New Exception("@" & caller, ex) diff --git a/Serialization/BinaryDumping/BinaryWriter.vb b/Serialization/BinaryDumping/BinaryWriter.vb index 336b1f1d..de51019a 100644 --- a/Serialization/BinaryDumping/BinaryWriter.vb +++ b/Serialization/BinaryDumping/BinaryWriter.vb @@ -1,82 +1,92 @@ #Region "Microsoft.VisualBasic::0b191b9ac322c3bf2a7b7b816ba148a0, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\BinaryWriter.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 . +' 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: +' Summaries: - ' Module BinaryWriter - ' - ' Function: __serialize, GetReadProperty, (+2 Overloads) Serialization - ' - ' - ' /********************************************************************************/ +' Module BinaryWriter +' +' Function: __serialize, GetReadProperty, (+2 Overloads) Serialization +' +' +' /********************************************************************************/ #End Region Imports System.Reflection Imports System.Runtime.CompilerServices +Imports System.Text +Imports Microsoft.VisualBasic.ComponentModel.Collection +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel +Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Text Namespace Serialization.BinaryDumping Public Module BinaryWriter - Public Function Serialization(Of T)(obj As T) As Byte() - Dim type As Type = GetType(T) - Return Serialization(obj, type).ToArray + ReadOnly utf8 As Encoding = Encodings.UTF8WithoutBOM.CodePage + + + + Public Function Serialization(Of T)(obj As T) As Byte() + Return Serialization(obj, GetType(T)).ToArray End Function + Public Function Serialization(obj As Object, type As Type) As List(Of Byte) - Dim visited As New List(Of Object) - Dim readProps As PropertyInfo() = type.GetReadProperty + ' 为了解决对象之间的循环引用的问题 + Return serializeInternal(obj, type, New Index(Of Object)) + End Function + + Private Function serializeInternal(obj As Object, type As Type, ByRef visited As Index(Of Object)) As List(Of Byte) + Dim readProps As Dictionary(Of String, PropertyInfo) = DataFramework.Schema(type, PropertyAccess.Readable,, nonIndex:=True) Dim buffer As New List(Of Byte) + Dim value As Object - For Each prop As PropertyInfo In readProps + For Each prop As KeyValuePair(Of String, PropertyInfo) In readProps + type = prop.Value.PropertyType + value = prop.Value.GetValue(obj, Nothing) + If DataFramework.IsPrimitive(type) Then + ' 基础类型,直接写入数据 + buffer += Caster.GetBytes(type)(value) + ElseIf type.IsArray Then + + Else + ' is a complex object + buffer += serializeInternal(value, type, visited + value) + End If Next Return buffer End Function - - - Public Function GetReadProperty(type As Type) As PropertyInfo() - Dim LQuery = (From p As PropertyInfo - In type.GetProperties(BindingFlags.Public Or BindingFlags.Instance) - Where p.CanRead AndAlso - p.GetIndexParameters.IsNullOrEmpty - Select p).ToArray - Return LQuery - End Function - - Private Function __serialize(obj As Object, type As Type, ByRef visited As List(Of Object)) As List(Of Byte) - Dim readProps As PropertyInfo() = type.GetReadProperty - Throw New NotImplementedException - End Function End Module End Namespace diff --git a/Serialization/BinaryDumping/Buffer.vb b/Serialization/BinaryDumping/Buffer.vb index 4f2fb519..259d2248 100644 --- a/Serialization/BinaryDumping/Buffer.vb +++ b/Serialization/BinaryDumping/Buffer.vb @@ -62,6 +62,13 @@ Imports Microsoft.VisualBasic.Net.Protocols Namespace Serialization.BinaryDumping + ''' + ''' A biffer object with byte length prefix + ''' + ''' + ''' 如果是类似于Memory map file的数据流,由于Memory map file的预分配大小可能会大于实际的数据大小 + ''' 所以会需要使用一个长度的prefix来保证数据可以被正确读取,反序列化 + ''' Public Structure Buffer : Implements ISerializable Dim Length As Long diff --git a/Text/Xml/Models/ValueTuples/NamedValues.vb b/Text/Xml/Models/ValueTuples/NamedValues.vb index cde24253..39341876 100644 --- a/Text/Xml/Models/ValueTuples/NamedValues.vb +++ b/Text/Xml/Models/ValueTuples/NamedValues.vb @@ -112,8 +112,22 @@ Namespace Text.Xml.Models ''' Public Structure [Property] : Implements INamedValue + ''' + ''' The property name + ''' + ''' Public Property name As String Implements INamedValue.Key + + ''' + ''' The property value in text string type + ''' + ''' Public Property value As String + + ''' + ''' Data annotation comment. + ''' + ''' Public Property comment As String From eef73997331b750d5d9748763557c82d1c003c2f Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 4 Aug 2019 22:25:57 +0800 Subject: [PATCH 013/104] update sourc file headers --- ApplicationServices/App.vb | 21 +++--- CommandLine/CLITools.vb | 74 +++++++++---------- CommandLine/CommandLine.vb | 2 +- CommandLine/GitBashEnvironment.vb | 46 +++++++++++- CommandLine/InteropService/SharedORM/API.vb | 2 +- .../InteropService/SharedORM/CodeGenerator.vb | 2 +- .../InteropService/SharedORM/VisualBasic.vb | 2 +- ComponentModel/DataSource/DataFramework.vb | 6 +- ComponentModel/DataSource/Iterator.vb | 2 +- .../DataSource/Property/PropertyValue.vb | 2 +- .../DataSource/SchemaMaps/BindProperty.vb | 2 +- ComponentModel/DataSource/TypeCaster.vb | 74 ++++++++++++++++++- .../System.Collections.Generic/IndexOf.vb | 4 +- Extensions/Reflection/Delegate/DataValue.vb | 2 +- Extensions/Reflection/Reflection.vb | 14 ++-- Language/Value/Value.vb | 4 +- Net/Tcp/TcpServicesSocket.vb | 4 +- Serialization/BinaryDumping/BinaryWriter.vb | 66 ++++++++--------- Serialization/BinaryDumping/Buffer.vb | 2 +- Text/Xml/Models/ValueTuples/NamedValues.vb | 2 +- 20 files changed, 222 insertions(+), 111 deletions(-) diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index dee299c7..9ae277c8 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::11d59e8cf799bd8b63b30b390b05215b, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" +#Region "Microsoft.VisualBasic::ed4057f3d45b6a99718b0c840eed4f72, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" ' Author: ' @@ -39,19 +39,18 @@ ' InputFile, IsConsoleApp, IsMicrosoftPlatform, LocalData, LocalDataTemp ' LogErrDIR, NanoTime, NextTempName, OutFile, PID ' Platform, PreviousDirectory, Process, ProductName, ProductProgramData - ' ProductSharedDIR, ProductSharedTemp, References, Running, RunTimeDirectory - ' StartTime, StartupDirectory, StdErr, StdOut, SysTemp - ' UnixTimeStamp, UserHOME, Version + ' ProductSharedDIR, ProductSharedTemp, References, Running, RunningInGitBash + ' RunTimeDirectory, StartTime, StartupDirectory, StdErr, StdOut + ' SysTemp, UnixTimeStamp, UserHOME, Version ' ' Constructor: (+1 Overloads) Sub New ' - ' Function: __cli, __isMicrosoftPlatform, __listFiles, __sysTEMP, (+2 Overloads) Argument - ' BugsFormatter, CLICode, ElapsedMilliseconds, Exit, finalizeCLI - ' FormatTime, GenerateTemp, (+2 Overloads) GetAppLocalData, GetAppSysTempFile, GetAppVariables - ' GetFile, GetNextUniqueName, GetProductSharedDIR, GetProductSharedTemp, GetTempFile - ' GetVariable, (+3 Overloads) LogException, NullDevice, (+10 Overloads) RunCLI, RunCLIInternal - ' SelfFolk, SelfFolks, Shell, tempCode, TemporaryEnvironment - ' TraceBugs + ' Function: __isMicrosoftPlatform, __listFiles, __sysTEMP, (+2 Overloads) Argument, BugsFormatter + ' CLICode, ElapsedMilliseconds, Exit, finalizeCLI, FormatTime + ' GenerateTemp, (+2 Overloads) GetAppLocalData, GetAppSysTempFile, GetAppVariables, GetFile + ' GetNextUniqueName, GetProductSharedDIR, GetProductSharedTemp, GetTempFile, GetVariable + ' (+3 Overloads) LogException, NullDevice, (+10 Overloads) RunCLI, RunCLIInternal, SelfFolk + ' SelfFolks, Shell, tempCode, TemporaryEnvironment, TraceBugs ' ' Sub: __GCThreadInvoke, __removesTEMP, AddExitCleanHook, FlushMemory, Free ' JoinVariable, (+2 Overloads) JoinVariables, Pause, (+2 Overloads) println, RunAsAdmin diff --git a/CommandLine/CLITools.vb b/CommandLine/CLITools.vb index e2b4a10d..b7fd25eb 100644 --- a/CommandLine/CLITools.vb +++ b/CommandLine/CLITools.vb @@ -1,46 +1,46 @@ -#Region "Microsoft.VisualBasic::117f5bb9d589f01614330c293222e0f2, Microsoft.VisualBasic.Core\CommandLine\CLITools.vb" +#Region "Microsoft.VisualBasic::c88f1ab496a70fade4cc8cca8f21437b, Microsoft.VisualBasic.Core\CommandLine\CLITools.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 . + ' 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: + ' Summaries: -' Module CLITools -' -' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals -' GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join, makesureQuot -' Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix, (+3 Overloads) TryParse -' -' Sub: tupleParser -' -' -' /********************************************************************************/ + ' Module CLITools + ' + ' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals + ' GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join, makesureQuot + ' Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix, (+3 Overloads) TryParse + ' + ' Sub: tupleParser + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 1615a573..3163516e 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::76b4ad7b6cd2cc591aaa43081c682f68, Microsoft.VisualBasic.Core\CommandLine\CommandLine.vb" +#Region "Microsoft.VisualBasic::701651c437185ea1c4b37eee558bf437, Microsoft.VisualBasic.Core\CommandLine\CommandLine.vb" ' Author: ' diff --git a/CommandLine/GitBashEnvironment.vb b/CommandLine/GitBashEnvironment.vb index 865b1cee..890b849d 100644 --- a/CommandLine/GitBashEnvironment.vb +++ b/CommandLine/GitBashEnvironment.vb @@ -1,4 +1,46 @@ -Imports System.Runtime.CompilerServices +#Region "Microsoft.VisualBasic::3316b60d2b6fca48289500673c3e55e7, Microsoft.VisualBasic.Core\CommandLine\GitBashEnvironment.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: + + ' Module GitBashEnvironment + ' + ' Function: fixWindowsNetworkDirectory, GetCLIArgs, isRunningOnGitBash + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Runtime.CompilerServices Imports System.Text.RegularExpressions Namespace CommandLine @@ -76,4 +118,4 @@ Namespace CommandLine Next End Function End Module -End Namespace \ No newline at end of file +End Namespace diff --git a/CommandLine/InteropService/SharedORM/API.vb b/CommandLine/InteropService/SharedORM/API.vb index 50430d4c..9fa64993 100644 --- a/CommandLine/InteropService/SharedORM/API.vb +++ b/CommandLine/InteropService/SharedORM/API.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6016951a6b4aae9d931bc139a1a4cd19, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\API.vb" +#Region "Microsoft.VisualBasic::5cd88ee07e972e5bb1a7c6ea90754f54, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\API.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/CodeGenerator.vb b/CommandLine/InteropService/SharedORM/CodeGenerator.vb index 20a5ef0b..181b1756 100644 --- a/CommandLine/InteropService/SharedORM/CodeGenerator.vb +++ b/CommandLine/InteropService/SharedORM/CodeGenerator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dee18c385910bba9c50b797ed61de515, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\CodeGenerator.vb" +#Region "Microsoft.VisualBasic::9f7ca69490a4b9091c58e6698b7c17bf, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\CodeGenerator.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/VisualBasic.vb b/CommandLine/InteropService/SharedORM/VisualBasic.vb index 14c07927..e129c7a7 100644 --- a/CommandLine/InteropService/SharedORM/VisualBasic.vb +++ b/CommandLine/InteropService/SharedORM/VisualBasic.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::12fe77c4e4c9cda30cfbdc6575522baa, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\VisualBasic.vb" +#Region "Microsoft.VisualBasic::ec6170f43a5cf4547e83974890420056, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\VisualBasic.vb" ' Author: ' diff --git a/ComponentModel/DataSource/DataFramework.vb b/ComponentModel/DataSource/DataFramework.vb index fd00870a..ad7cf286 100644 --- a/ComponentModel/DataSource/DataFramework.vb +++ b/ComponentModel/DataSource/DataFramework.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2ffe6881ea86a4bcf64f0d7d7f8e9ec9, Microsoft.VisualBasic.Core\ComponentModel\DataSource\DataFramework.vb" +#Region "Microsoft.VisualBasic::38800f3dcbb663b37b43bab7bfcd361f, Microsoft.VisualBasic.Core\ComponentModel\DataSource\DataFramework.vb" ' Author: ' @@ -39,8 +39,8 @@ ' Function: DictionaryTable, getOrCache, (+2 Overloads) Schema, ValueTable ' Delegate Function ' - ' Function: __initSchema, CreateObject, GetValue, IsComplexType, IsNumericType - ' IsPrimitive, valueToString + ' Function: CreateObject, GetValue, IsComplexType, IsNumericType, IsPrimitive + ' ParseSchemaInternal, valueToString ' ' ' diff --git a/ComponentModel/DataSource/Iterator.vb b/ComponentModel/DataSource/Iterator.vb index 49fdc964..c6a4a11d 100644 --- a/ComponentModel/DataSource/Iterator.vb +++ b/ComponentModel/DataSource/Iterator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ba69b268287687d4453b6df22cbcea97, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Iterator.vb" +#Region "Microsoft.VisualBasic::6bac56438c6394f3ad3d004ef53f5677, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Iterator.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/PropertyValue.vb b/ComponentModel/DataSource/Property/PropertyValue.vb index 7cfd3f3e..2bf59cd8 100644 --- a/ComponentModel/DataSource/Property/PropertyValue.vb +++ b/ComponentModel/DataSource/Property/PropertyValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::8559057cd6a428b07ae9ae6e650b6295, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\PropertyValue.vb" +#Region "Microsoft.VisualBasic::b5834ea2d7b39560dd5d476170c1be22, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\PropertyValue.vb" ' Author: ' diff --git a/ComponentModel/DataSource/SchemaMaps/BindProperty.vb b/ComponentModel/DataSource/SchemaMaps/BindProperty.vb index 32fb8b57..c157f2b8 100644 --- a/ComponentModel/DataSource/SchemaMaps/BindProperty.vb +++ b/ComponentModel/DataSource/SchemaMaps/BindProperty.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6248876d415b08d11e14bdad794e4f3c, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\BindProperty.vb" +#Region "Microsoft.VisualBasic::846e9343a1f39e358aabc37998874578, Microsoft.VisualBasic.Core\ComponentModel\DataSource\SchemaMaps\BindProperty.vb" ' Author: ' diff --git a/ComponentModel/DataSource/TypeCaster.vb b/ComponentModel/DataSource/TypeCaster.vb index 6f52d192..690e7961 100644 --- a/ComponentModel/DataSource/TypeCaster.vb +++ b/ComponentModel/DataSource/TypeCaster.vb @@ -1,4 +1,74 @@ -Imports System.Runtime.CompilerServices +#Region "Microsoft.VisualBasic::4c129a449557dee3f9aea51c4e14c1d3, Microsoft.VisualBasic.Core\ComponentModel\DataSource\TypeCaster.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: + + ' Module Extensions + ' + ' Function: GetBytes, GetString, ParseObject, ToObject + ' + ' Sub: Add + ' + ' Interface ITypeCaster + ' + ' Properties: type + ' + ' Function: GetBytes, GetString, ParseObject, ToObject + ' + ' Class TypeCaster + ' + ' Properties: sizeOf, type + ' + ' Class StringCaster + ' + ' Function: GetBytes, GetString, ParseObject, ToObject + ' + ' Class IntegerCaster + ' + ' Function: GetBytes, GetString, ParseObject, ToObject + ' + ' Class DoubleCaster + ' + ' Function: GetBytes, GetString, ParseObject, ToObject + ' + ' Class DateCaster + ' + ' Function: GetBytes, GetString, ParseObject, ToObject + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Runtime.CompilerServices Imports System.Runtime.InteropServices Imports System.Text Imports Microsoft.VisualBasic.Text @@ -140,4 +210,4 @@ Namespace ComponentModel.DataSourceModel.Caster Return Date.Parse(str) End Function End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index cfcb4974..6ec5cf2e 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::54e85494a04f696bb8540d6846ed52dc, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" +#Region "Microsoft.VisualBasic::279ccec4836decd3842544a2f77b87b3, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" ' Author: ' @@ -42,7 +42,7 @@ ' ' Sub: Clear, Delete ' - ' Operators: (+2 Overloads) +, (+2 Overloads) Like + ' Operators: -, (+2 Overloads) +, (+2 Overloads) Like ' ' ' /********************************************************************************/ diff --git a/Extensions/Reflection/Delegate/DataValue.vb b/Extensions/Reflection/Delegate/DataValue.vb index 1622811e..80075160 100644 --- a/Extensions/Reflection/Delegate/DataValue.vb +++ b/Extensions/Reflection/Delegate/DataValue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b30abc77680cb9b03a1d97e1db20865c, Microsoft.VisualBasic.Core\Extensions\Reflection\Delegate\DataValue.vb" +#Region "Microsoft.VisualBasic::1ac8e0b02fcb33404236bb7513e0b43f, Microsoft.VisualBasic.Core\Extensions\Reflection\Delegate\DataValue.vb" ' Author: ' diff --git a/Extensions/Reflection/Reflection.vb b/Extensions/Reflection/Reflection.vb index a28b2039..1c537069 100644 --- a/Extensions/Reflection/Reflection.vb +++ b/Extensions/Reflection/Reflection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ebfa022563deab9de813e238f25b4f23, Microsoft.VisualBasic.Core\Extensions\Reflection\Reflection.vb" +#Region "Microsoft.VisualBasic::587fe76edd1b1658bf6c230bfac12179, Microsoft.VisualBasic.Core\Extensions\Reflection\Reflection.vb" ' Author: ' @@ -33,15 +33,15 @@ ' Module EmitReflection ' - ' Function: [Get], __getValue, API, AsLambda, Category - ' Collection2GenericIEnumerable, CreateObject, (+6 Overloads) Description, Enums, ExampleInfo - ' FullName, GetAllEnumFlags, (+3 Overloads) GetAssemblyDetails, (+2 Overloads) GetAttribute, GetDelegateInvokeEntryPoint - ' GetDouble, GetFullName, GetInt, (+2 Overloads) GetReadWriteProperties, GetTypeElement - ' GetTypesHelper, (+2 Overloads) GetValue, (+2 Overloads) GetVersion, IsInheritsFrom, IsModule + ' Function: [Get], API, AsLambda, Category, Collection2GenericIEnumerable + ' (+2 Overloads) CreateObject, (+6 Overloads) Description, Enums, ExampleInfo, FullName + ' GetAllEnumFlags, (+3 Overloads) GetAssemblyDetails, (+2 Overloads) GetAttribute, GetDelegateInvokeEntryPoint, GetDouble + ' GetFullName, GetInt, (+2 Overloads) GetReadWriteProperties, GetTypeElement, GetTypesHelper + ' (+2 Overloads) GetValue, getValueInternal, (+2 Overloads) GetVersion, IsInheritsFrom, IsModule ' IsNonParametric, IsNumericType, ModuleVersion, NamespaceEntry, ResourcesSatellite ' Source, Usage ' - ' Sub: RunApp + ' Sub: RunApp, runAppInternal ' ' /********************************************************************************/ diff --git a/Language/Value/Value.vb b/Language/Value/Value.vb index 27829c9e..83843bd6 100644 --- a/Language/Value/Value.vb +++ b/Language/Value/Value.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0b90476016445e61712b1eaa6b985953, Microsoft.VisualBasic.Core\Language\Value\Value.vb" +#Region "Microsoft.VisualBasic::c2366c0de61964dc1bfeda16061131ec, Microsoft.VisualBasic.Core\Language\Value\Value.vb" ' Author: ' @@ -39,7 +39,7 @@ ' Function: [Default], (+2 Overloads) Equals, GetJson, GetUnderlyingType, (+2 Overloads) GetValueOrDefault ' IsNothing, ToString ' Operators: -, (+3 Overloads) +, <=, <>, = - ' >=, (+2 Overloads) Like + ' >=, (+4 Overloads) Like ' Interface IValueOf ' ' Properties: Value diff --git a/Net/Tcp/TcpServicesSocket.vb b/Net/Tcp/TcpServicesSocket.vb index a86e91eb..f311c3ab 100644 --- a/Net/Tcp/TcpServicesSocket.vb +++ b/Net/Tcp/TcpServicesSocket.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9f480709d70a6e517457954ef02b6176, Microsoft.VisualBasic.Core\Net\Tcp\TcpServicesSocket.vb" +#Region "Microsoft.VisualBasic::f3b85bfba0bba4f2a084306e1c5a6693, Microsoft.VisualBasic.Core\Net\Tcp\TcpServicesSocket.vb" ' Author: ' @@ -40,7 +40,7 @@ ' Function: BeginListen, IsServerInternalException, LoopbackEndPoint, (+2 Overloads) Run, ToString ' ' Sub: AcceptCallback, (+2 Overloads) Dispose, ForceCloseHandle, HandleRequest, ReadCallback - ' (+2 Overloads) Send, SendCallback, WaitForStart + ' (+2 Overloads) Send, SendCallback, startSocket, WaitForStart ' ' ' /********************************************************************************/ diff --git a/Serialization/BinaryDumping/BinaryWriter.vb b/Serialization/BinaryDumping/BinaryWriter.vb index de51019a..ef4294e9 100644 --- a/Serialization/BinaryDumping/BinaryWriter.vb +++ b/Serialization/BinaryDumping/BinaryWriter.vb @@ -1,42 +1,42 @@ -#Region "Microsoft.VisualBasic::0b191b9ac322c3bf2a7b7b816ba148a0, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\BinaryWriter.vb" +#Region "Microsoft.VisualBasic::0e60c2b7f79d56e51d824cabf0c6c462, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\BinaryWriter.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 . + ' 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: + ' Summaries: -' Module BinaryWriter -' -' Function: __serialize, GetReadProperty, (+2 Overloads) Serialization -' -' -' /********************************************************************************/ + ' Module BinaryWriter + ' + ' Function: (+2 Overloads) Serialization, serializeInternal + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Serialization/BinaryDumping/Buffer.vb b/Serialization/BinaryDumping/Buffer.vb index 259d2248..bd6d47ec 100644 --- a/Serialization/BinaryDumping/Buffer.vb +++ b/Serialization/BinaryDumping/Buffer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::edd83d4783e00dc7011b4047766dd73f, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\Buffer.vb" +#Region "Microsoft.VisualBasic::ef92e99ddc24002754db439ca83d62eb, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\Buffer.vb" ' Author: ' diff --git a/Text/Xml/Models/ValueTuples/NamedValues.vb b/Text/Xml/Models/ValueTuples/NamedValues.vb index 39341876..5a3fec35 100644 --- a/Text/Xml/Models/ValueTuples/NamedValues.vb +++ b/Text/Xml/Models/ValueTuples/NamedValues.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::47511b485a69bd473a64458aede8c0ce, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\NamedValues.vb" +#Region "Microsoft.VisualBasic::95a7885518dd8f37520a3b952bd6e8a9, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\NamedValues.vb" ' Author: ' From 5ad756f05325d9b1056cb540704a5a3eb56c07af Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 10 Aug 2019 01:31:53 +0800 Subject: [PATCH 014/104] improvements of the framework runtime --- 47-dotnet_Microsoft.VisualBasic.vbproj | 11 +- ApplicationServices/App.vb | 31 +-- ApplicationServices/Debugger/Config.vb | 87 -------- ApplicationServices/Debugger/DebuggerArgs.vb | 112 +++++------ ApplicationServices/Debugger/HeapSizeOf.vb | 174 ++++++++++++++++ ApplicationServices/Debugger/NETDebugger.vb | 151 -------------- .../Terminal/ProgressBar/ProgressBar.vb | 107 +++++----- CommandLine/CommandLine.vb | 10 +- .../System.Collections.Generic/BinaryHeap.vb | 162 +++++++++++++++ .../KeyDictionary.vb | 8 +- .../PriorityQueue/PriorityQueue.vb | 9 +- Extensions/Collection/Matrix.vb | 8 +- Extensions/Collection/Vector.vb | 13 ++ Extensions/IO/IOStream.vb | 80 ++++---- Extensions/StringHelpers/RegexExtensions.vb | 19 ++ Extensions/ValueTypes/DateTimeHelper.vb | 3 +- Language/Linq/Vectorization/Vector.vb | 10 +- My/Framework/Config.vb | 146 ++++++++++++++ My/Framework/DoConfiguration.vb | 57 ++++++ My/Framework/FrameworkConfig.vb | 28 +++ .../Framework}/IOHandler.vb | 2 +- My/Framework/NamespaceDoc.vb | 8 + My/JavaScript/JavaScriptObject.vb | 186 +++++++++++++----- My/JavaScript/Linq.vb | 2 - Serialization/BinaryDumping/ObjectVisitor.vb | 120 +++++++++++ Text/TextEncodings.vb | 97 ++++----- Text/Xml/Models/ValueTuples/ValuePair.vb | 88 +++++---- 27 files changed, 1154 insertions(+), 575 deletions(-) delete mode 100644 ApplicationServices/Debugger/Config.vb create mode 100644 ApplicationServices/Debugger/HeapSizeOf.vb delete mode 100644 ApplicationServices/Debugger/NETDebugger.vb create mode 100644 ComponentModel/System.Collections.Generic/BinaryHeap.vb create mode 100644 My/Framework/Config.vb create mode 100644 My/Framework/DoConfiguration.vb create mode 100644 My/Framework/FrameworkConfig.vb rename {ApplicationServices => My/Framework}/IOHandler.vb (99%) create mode 100644 My/Framework/NamespaceDoc.vb create mode 100644 Serialization/BinaryDumping/ObjectVisitor.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 0ca76b44..2b7841a7 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -979,6 +979,10 @@ + + + + @@ -1144,6 +1148,7 @@ + @@ -1265,7 +1270,7 @@ - + @@ -1295,7 +1300,7 @@ - + @@ -1531,7 +1536,7 @@ - + diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 9ae277c8..5a5b9979 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -473,15 +473,15 @@ Public Module App #Region "这里的环境变量方法主要是操作从命令行之中所传递进来的额外的参数的" - Dim __joinedVariables As New Dictionary(Of NamedValue(Of String)) + Dim m_joinedVariables As New Dictionary(Of NamedValue(Of String)) ''' ''' 添加参数到应用程序的环境变量之中 ''' - ''' + ''' 如果给定的当前这个参数名称存在于当前框架环境中，则会更新原来的值 ''' Public Sub JoinVariable(name$, value$) - __joinedVariables(name) = + m_joinedVariables(name) = New NamedValue(Of String) With { .Name = name, .Value = value @@ -494,7 +494,7 @@ Public Module App ''' Public Sub JoinVariables(ParamArray vars As NamedValue(Of String)()) For Each v As NamedValue(Of String) In vars - __joinedVariables(v.Name) = v + m_joinedVariables(v.Name) = v Next End Sub @@ -520,10 +520,10 @@ Public Module App ''' ''' 当没有查找到相对应的环境变量的时候会返回空值 Public Function GetVariable( Optional name$ = Nothing) As String - If __joinedVariables.ContainsKey(name) Then - Return __joinedVariables(name).Value + If m_joinedVariables.ContainsKey(name) Then + Return m_joinedVariables(name).Value Else - For Each v As NamedValue(Of String) In __joinedVariables.Values + For Each v As NamedValue(Of String) In m_joinedVariables.Values If v.Name.TextEquals(name) Then Return v.Value End If @@ -540,7 +540,7 @@ Public Module App Public Function GetAppVariables() As NamedValue(Of String)() Dim type As Type = GetType(App) Dim pros = type.Schema(PropertyAccess.Readable, BindingFlags.Public Or BindingFlags.Static) - Dim out As New List(Of NamedValue(Of String))(__joinedVariables.Values) + Dim out As New List(Of NamedValue(Of String))(m_joinedVariables.Values) Dim value$ Dim o @@ -699,10 +699,10 @@ Public Module App End Function ''' - ''' Get current time in unix time stamp format. + ''' Get current time in ``xxxxx.xxxx`` unix time stamp format. ''' ''' - Public ReadOnly Property UnixTimeStamp As Long + Public ReadOnly Property UnixTimeStamp As Double Get Return DateTimeHelper.UnixTimeStamp(Now) @@ -713,18 +713,21 @@ Public Module App ''' The time tag of the application started.(应用程序的启动的时间) ''' ''' - Public ReadOnly Property StartTime As Long = UnixTimeStamp + Public ReadOnly Property StartTime As Double = App.UnixTimeStamp ''' ''' The distance of time that this application running from start and to current time. ''' (当前距离应用程序启动所逝去的时间) ''' ''' - ''' + ''' + ''' 通过以及得到的时间都是带小数的秒数 + ''' 所以在这里计算出当前时间点与启动时间点之间的差值之后，还需要乘以1000才可以得到毫秒数 + ''' Public Function ElapsedMilliseconds() As Long - Dim nowLng As Long = App.UnixTimeStamp - Dim d As Long = nowLng - StartTime + Dim nowLng As Double = App.UnixTimeStamp + Dim d As Long = (nowLng - StartTime) * 1000 Return d End Function diff --git a/ApplicationServices/Debugger/Config.vb b/ApplicationServices/Debugger/Config.vb deleted file mode 100644 index 6234e816..00000000 --- a/ApplicationServices/Debugger/Config.vb +++ /dev/null @@ -1,87 +0,0 @@ -#Region "Microsoft.VisualBasic::e4116dfe0b06870e2dcf53a489a4fb5e, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Config.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 Config - ' - ' Properties: DefaultFile, level, mute - ' - ' Function: Load, Save, ToString - ' - ' - ' /********************************************************************************/ - -#End Region - -Imports Microsoft.VisualBasic.Serialization.JSON - -Namespace ApplicationServices.Debugging - - Public Class Config - - Public Property level As DebuggerLevels = DebuggerLevels.On - Public Property mute As Boolean = False - - Public Shared ReadOnly Property DefaultFile As String = - App.LocalData & "/debugger-config.json" - - Public Shared Function Load() As Config - Try - Dim cfg As Config = - IO.File.ReadAllText(DefaultFile).LoadJSON(Of Config) - - If cfg Is Nothing Then - Return New Config().Save() - Else - Return cfg - End If - Catch ex As Exception When Not DefaultFile.FileExists - Return New Config().Save() - Catch ex As Exception - Call App.LogException(ex) - - ' 假若是多进程的并行计算任务，则可能会出现默认配置文件被占用的情况， - ' 这个也无能为力了， 只能够放弃读取， 直接使用默认的调试器参数 - Return New Config - End Try - End Function - - Private Function Save() As Config - Call Me.GetJson.SaveTo(DefaultFile) - Return Me - End Function - - Public Overrides Function ToString() As String - Return Me.GetJson - End Function - End Class -End Namespace diff --git a/ApplicationServices/Debugger/DebuggerArgs.vb b/ApplicationServices/Debugger/DebuggerArgs.vb index a8b4ce53..062786fa 100644 --- a/ApplicationServices/Debugger/DebuggerArgs.vb +++ b/ApplicationServices/Debugger/DebuggerArgs.vb @@ -1,51 +1,52 @@ #Region "Microsoft.VisualBasic::45d782ae175d587a152a19d88a206ff7, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\DebuggerArgs.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 . +' 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: +' Summaries: - ' Module DebuggerArgs - ' - ' Properties: AutoPaused, ErrLogs - ' - ' Sub: __logShell, InitDebuggerEnvir, SaveErrorLog - ' - ' - ' /********************************************************************************/ +' Module DebuggerArgs +' +' Properties: AutoPaused, ErrLogs +' +' Sub: __logShell, InitDebuggerEnvir, SaveErrorLog +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language.UnixBash -Imports Microsoft.VisualBasic.Language.UnixBash.FileSystem +Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.My.FrameworkInternal Imports CLI = Microsoft.VisualBasic.CommandLine.CommandLine Namespace ApplicationServices.Debugging @@ -76,7 +77,7 @@ Namespace ApplicationServices.Debugging ''' ''' Private Sub __logShell(args As CLI) - Dim CLI As String = App.ExecutablePath & " " & args.CLICommandArgvs + Dim CLI As String = App.ExecutablePath & " " & args.cliCommandArgvs Dim log As String = $"{PS1.Fedora12.ToString} {CLI}" Dim logFile As String = App.LogErrDIR.ParentPath & "/.shells.log" @@ -176,7 +177,9 @@ Namespace ApplicationServices.Debugging ''' --echo on/off/all/warn/error --err <path.log> Public Sub InitDebuggerEnvir(args As CLI, Optional caller$ = Nothing) If Not String.Equals(caller, "Main") Then - Return ' 这个调用不是从Main出发的，则不设置环境了，因为这个环境可能在其他的代码上面设置过了 + ' 这个调用不是从Main出发的，则不设置环境了 + ' 因为这个环境可能在其他的代码上面设置过了 + Return Else Try Call __logShell(args) @@ -197,7 +200,8 @@ Namespace ApplicationServices.Debugging Dim config As Config = Config.Load - If String.IsNullOrEmpty(opt) Then ' 默认的on参数 + If String.IsNullOrEmpty(opt) Then + ' 默认的on参数 VBDebugger.m_level = config.level Else Select Case opt.ToLower @@ -213,7 +217,7 @@ Namespace ApplicationServices.Debugging VBDebugger.m_level = DebuggerLevels.Error Case Else VBDebugger.m_level = DebuggerLevels.On - Call Console.WriteLine($"[INFO] The debugger argument value --echo:={opt} is invalid, using default settings.") + Call $"The debugger argument value --echo:={opt} is invalid, using default settings.".Warning End Select End If @@ -225,35 +229,7 @@ Namespace ApplicationServices.Debugging VBDebugger.Mute = config.mute End If - Dim envir As Dictionary(Of String, String) = args.EnvironmentVariables - Dim disableLoadOptions As Boolean = args.GetBoolean("--load_options.disable") - - ' --load_options.disable 开关将会禁止所有的环境项目的设置 - ' 但是环境变量任然会进行加载设置 - - If Not disableLoadOptions AndAlso Not envir.IsNullOrEmpty Then - If envir.ContainsKey("Proxy") Then - WebServiceUtils.Proxy = envir("Proxy") - Call $"[Config] webUtils_proxy={WebServiceUtils.Proxy}".__INFO_ECHO - End If - If envir.ContainsKey("setwd") Then - App.CurrentDirectory = envir("setwd") - Call $"[Config] current_work_directory={App.CurrentDirectory}".__INFO_ECHO - End If - If envir.ContainsKey("buffer_size") Then - Call App.SetBufferSize(envir!buffer_size) - End If - End If - - ' /@var=name "value" - For Each var As NamedValue(Of String) In args.ParameterList - With var - If InStr(.Name, "/@var=", CompareMethod.Text) = 1 Then - Dim name$ = .Name.GetTagValue("=").Value - Call App.JoinVariable(name, .Value) - End If - End With - Next + Call config.ConfigFrameworkRuntime(args) End Sub End Module End Namespace diff --git a/ApplicationServices/Debugger/HeapSizeOf.vb b/ApplicationServices/Debugger/HeapSizeOf.vb new file mode 100644 index 00000000..60d3c55d --- /dev/null +++ b/ApplicationServices/Debugger/HeapSizeOf.vb @@ -0,0 +1,174 @@ +#Region "Microsoft.VisualBasic::2973138edf1beb9688e7277ff9156880, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\NETDebugger.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: + +' +' /********************************************************************************/ + +#End Region + +Imports System.Reflection +Imports System.Runtime.CompilerServices +Imports System.Text +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel +Imports Microsoft.VisualBasic.Serialization.BinaryDumping + +Namespace ApplicationServices.Debugging + + ''' + ''' How to get object size in memory + ''' + Public Class HeapSizeOf + + Public ReadOnly Property sizeOf As Long + Get + Return byteSize + End Get + End Property + + Dim byteSize& = 0 + Dim visitor As New ObjectVisitor() With {.VisitOnlyFields = True} + + Public Sub VisitObject(value As Object, type As Type, memberInfo As MemberInfo, isVisited As Boolean, isValueType As Boolean) + If value Is Nothing Then + ' sizeof + 0 bytes + ' exit recursive visit + Return + ElseIf isVisited Then + ' add sizeof current reference + ' 4 on 32-bit, 8 on 64-bit +#If X86 Then + size += 4 +#Else + byteSize += 8 +#End If + ' exit recursive visit + ElseIf type Is GetType(String) Then + byteSize += StringByteSize(value) + ' exit recursive visit + ElseIf DataFramework.IsPrimitive(type) Then + ' add byte size and then exit recursive visit + byteSize += SizeOfPrimitive(type) + ElseIf isValueType Then + ' is structure + ' do recursive visit of this object + Call visitor.DoVisitObjectFields(value, type, AddressOf VisitObject) + Else + ' add current reference +#If X86 Then + size += 4 +#Else + byteSize += 8 +#End If + ' is class + ' do recursive visit of this object + ' required additional process on array + If type.IsArray Then + Call visitor.DoVisitArray(value, AddressOf VisitObject) + Else + Call visitor.DoVisitObjectFields( + obj:=value, + type:=type, + visit:=AddressOf VisitObject + ) + End If + End If + End Sub + + ''' + ''' Find out the size of a .net object + ''' + ''' + ''' + Public Shared Function MeasureSize(obj As Object) As Long + If obj Is Nothing Then + Return 0 + Else + Dim type As Type = obj.GetType + + If (Not type Is GetType(String)) AndAlso DataFramework.IsPrimitive(type) Then + Return SizeOfPrimitive(type) + ElseIf type Is GetType(String) Then + ' returns the actual byte size of current string + ' string in VisualBasic.NET is in unicode encoding + Return StringByteSize(obj) + ElseIf type.IsArray Then + With New HeapSizeOf + Call .visitor.DoVisitArray( + array:=obj, + visit:=AddressOf .VisitObject + ) + + Return .sizeOf + End With + Else + With New HeapSizeOf + Call .visitor.DoVisitObjectFields( + obj:=obj, + type:=obj.GetType, + visit:=AddressOf .VisitObject + ) + + Return .sizeOf + End With + End If + End If + End Function + + ''' + ''' Returns the actual byte size of current string + ''' string in VisualBasic.NET is in unicode encoding + ''' + ''' + ''' + ''' + + Public Shared Function StringByteSize(str As String) As Integer + Return Encoding.Unicode.GetByteCount(str) + End Function + + Public Shared Function SizeOfPrimitive(type As Type) As Integer + Select Case type + Case GetType(Single), GetType(Integer), GetType(UInt32) + Return 4 + Case GetType(Double), GetType(Long), GetType(UInt64) + Return 8 + Case GetType(Char), GetType(Short), GetType(UInt16) + Return 2 + Case GetType(Byte), GetType(SByte), GetType(Boolean) + Return 1 + Case Else + Throw New NotImplementedException(type.FullName) + End Select + End Function + End Class +End Namespace diff --git a/ApplicationServices/Debugger/NETDebugger.vb b/ApplicationServices/Debugger/NETDebugger.vb deleted file mode 100644 index 7d415495..00000000 --- a/ApplicationServices/Debugger/NETDebugger.vb +++ /dev/null @@ -1,151 +0,0 @@ -#Region "Microsoft.VisualBasic::2973138edf1beb9688e7277ff9156880, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\NETDebugger.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: - - ' - ' /********************************************************************************/ - -#End Region - -'Imports System.Reflection - -Namespace ApplicationServices.Debugging - - ' ''' - ' ''' .NET程序调试器 - ' ''' - ' ''' - 'Public Class NETDebugger - - ' ''' - ' ''' - ' ''' - ' ''' .NET应用程序可执行文件或者包含有Main定义的dll文件 - ' ''' 调试所使用的命令行参数 - ' ''' - ' ''' - ' Public Function Start(AssemblyPath As String, argvs As String()) As Integer - - ' AssemblyPath = FileIO.FileSystem.GetFileInfo(AssemblyPath).FullName - - ' Dim Assembly As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(AssemblyPath) - ' Dim GetMainEntryLQuery = (From TypeEntry As System.Reflection.TypeInfo - ' In Assembly.DefinedTypes - ' Let EntryMain As MethodInfo = GetMainEntry(TypeEntry) - ' Where EntryMain IsNot Nothing - ' Select EntryMain).ToArray - - ' If GetMainEntryLQuery.IsNullOrEmpty Then - ' Return -100 - ' End If - - ' Dim Main = GetMainEntryLQuery.First - ' Return RunMain(Main, argvs) - ' End Function - - ' ''' - ' ''' 函数会递归查询 - ' ''' - ' ''' - ' ''' - ' ''' - ' Public Shared Function GetMainEntry(TypeInfo As Type) As MethodInfo - ' Dim LQuery = (From Method As System.Reflection.MethodInfo - ' In TypeInfo.GetMethods(BindingFlags.Public Or BindingFlags.Static) - ' Where String.Equals(Method.Name, "Main", StringComparison.OrdinalIgnoreCase) AndAlso IsStandardMainReturnType(Method.ReturnType) AndAlso IsStandardMainParameterType(Method) - ' Select Method).ToArray - ' Return LQuery.FirstOrDefault - ' End Function - - ' Private Shared Function IsStandardMainReturnType(Type As Type) As Boolean - ' Return System.Type.Equals(Type, GetType(Void)) OrElse System.Type.Equals(Type, GetType(Integer)) - ' End Function - - ' Private Shared Function IsStandardMainParameterType(MethodInfo As MethodInfo) As Boolean - ' Dim pList = MethodInfo.GetParameters - - ' If pList.Count > 1 Then - ' Return False - ' ElseIf pList.IsNullOrEmpty Then - ' Return True - ' End If - - ' Dim pTypeInfo As System.Type = pList(0).ParameterType - ' Return pTypeInfo.Equals(GetType(String)) OrElse pTypeInfo.Equals(GetType(String())) - ' End Function - - ' ''' - ' ''' 启动Main函数 - ' ''' - ' ''' - ' ''' - ' ''' - ' ''' - ' Private Function RunMain(Main As MethodInfo, argvs As String()) As Integer - - ' Dim pValue As Object() - ' Dim pInfo = Main.GetParameters - - ' If pInfo.IsNullOrEmpty Then - ' pValue = New Object() {} '函数没有参数 - ' Else - ' If pInfo(0).Equals(GetType(String)) Then - ' pValue = {argvs(0)} '字符串 - ' Else - ' pValue = {argvs} '字符串数组 - ' End If - ' End If - - ' Dim result = InternalRunFunction(Main, pValue) - - ' If Main.ReturnType.Equals(GetType(Integer)) Then - ' Return DirectCast(result, Integer) - ' Else - ' Return 0 - ' End If - ' End Function - - ' ''' - ' ''' 在终端之上打印出每一行代码 - ' ''' - ' ''' - ' ''' - ' ''' - ' ''' - ' Private Function InternalRunFunction(EntryPoint As MethodInfo, argvs As Object()) As Object - - - - ' End Function - - 'End Class -End Namespace diff --git a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb index 2a818ee4..047409bc 100644 --- a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb +++ b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb @@ -1,65 +1,66 @@ #Region "Microsoft.VisualBasic::3562e8340d57b44a6cb3447221203925, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\ProgressBar.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 . +' 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: +' Summaries: - ' Structure ColorTheme - ' - ' Properties: BackgroundColor, IsEmpty, MessageDetailColor, ProgressBarColor, ProgressMsgColor - ' - ' Function: [Default], DefaultTheme - ' - ' Class ProgressBar - ' - ' Properties: ElapsedMilliseconds, Enable - ' - ' Constructor: (+3 Overloads) Sub New - ' Sub: [Step], consoleWindowResize, (+2 Overloads) Dispose, SetProgress, SetToEchoLine - ' tick - ' - ' Class ProgressProvider - ' - ' Properties: Current, Target - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: [Step], (+2 Overloads) ETA, StepProgress, ToString - ' - ' - ' /********************************************************************************/ +' Structure ColorTheme +' +' Properties: BackgroundColor, IsEmpty, MessageDetailColor, ProgressBarColor, ProgressMsgColor +' +' Function: [Default], DefaultTheme +' +' Class ProgressBar +' +' Properties: ElapsedMilliseconds, Enable +' +' Constructor: (+3 Overloads) Sub New +' Sub: [Step], consoleWindowResize, (+2 Overloads) Dispose, SetProgress, SetToEchoLine +' tick +' +' Class ProgressProvider +' +' Properties: Current, Target +' +' Constructor: (+1 Overloads) Sub New +' Function: [Step], (+2 Overloads) ETA, StepProgress, ToString +' +' +' /********************************************************************************/ #End Region Imports System.Drawing Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language.Default +Imports Microsoft.VisualBasic.My.FrameworkInternal Imports Microsoft.VisualBasic.Serialization.JSON Namespace Terminal.ProgressBar @@ -124,7 +125,7 @@ Namespace Terminal.ProgressBar ''' Public Shared Function DefaultTheme() As [Default](Of ColorTheme) Return New [Default](Of ColorTheme) With { - .Value = [Default](), + .value = [Default](), .assert = Function(t) Return DirectCast(t, ColorTheme).IsEmpty End Function @@ -150,6 +151,8 @@ Namespace Terminal.ProgressBar ''' ''' http://www.cnblogs.com/masonlu/p/4668232.html ''' + ''' + Public Class ProgressBar : Inherits AbstractBar Implements IDisposable @@ -174,8 +177,10 @@ Namespace Terminal.ProgressBar End Set End Property + Friend Const TerminalProgressBarEnvironmentConfigName$ = "progress_bar" + Shared Sub New() - disabled = App.GetVariable("progress_bar").TextEquals(NameOf(disabled)) + disabled = App.GetVariable(TerminalProgressBarEnvironmentConfigName).TextEquals(NameOf(disabled)) End Sub ''' diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 3163516e..3fca65b8 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -214,9 +214,9 @@ Namespace CommandLine Get Dim LQuery As NamedValue(Of String) = arguments _ - .Where(Function(x) - Return String.Equals(x.Name, paramName, StringComparison.OrdinalIgnoreCase) OrElse - String.Equals(x.Name.Trim("\", "/", "-"), paramName, StringComparison.OrdinalIgnoreCase) + .Where(Function(a) + Return String.Equals(a.Name, paramName, StringComparison.OrdinalIgnoreCase) OrElse + String.Equals(a.Name.Trim("\", "/", "-"), paramName, StringComparison.OrdinalIgnoreCase) End Function) _ .FirstOrDefault ' 是值类型，不会出现空引用的情况 @@ -241,14 +241,14 @@ Namespace CommandLine ' 对于Windows文件路径而言， 不推荐转义 ' 因为Windows的文件路径分隔符为\，很容易引起误解，例如C:\tsv会被误转义为C:sv而导致错误 ' 所以在这里关闭escape参数选项 - value = value.Interpolate(__envir, escape:=False) + value = value.Interpolate(environment, escape:=False) End If Return New DefaultString(value) End Get End Property - ReadOnly __envir As Func(Of String, String) = AddressOf App.GetVariable + ReadOnly environment As Func(Of String, String) = AddressOf App.GetVariable Public Property SingleValue As String diff --git a/ComponentModel/System.Collections.Generic/BinaryHeap.vb b/ComponentModel/System.Collections.Generic/BinaryHeap.vb new file mode 100644 index 00000000..a410b11d --- /dev/null +++ b/ComponentModel/System.Collections.Generic/BinaryHeap.vb @@ -0,0 +1,162 @@ +Imports Microsoft.VisualBasic.Language + +Namespace ComponentModel.Collection + + ''' + ''' Binary heap implementation from: + ''' + ''' > http://eloquentjavascript.net/appendix2.html + ''' + ''' + Public Class BinaryHeap(Of T As Class) + + ReadOnly content As New List(Of T) + ReadOnly scoreFunction As Func(Of T, Double) + + Public ReadOnly Property size As Integer + Get + Return content.Count + End Get + End Property + + Default Public ReadOnly Property Item(i As Integer) As T + Get + Return content(i) + End Get + End Property + + Public ReadOnly Property peek As T + Get + Return content(Scan0) + End Get + End Property + + Sub New(scoreFunction As Func(Of T, Double)) + Me.scoreFunction = scoreFunction + End Sub + + Public Sub push(element As T) + ' Add the new element to the end of the array. + ' Then allow it to bubble up. + content.Add(element) + bubbleUp(content.Count - 1) + End Sub + + Public Function pop() As T + ' Store the first element so we can return it later. + ' Get the element at the end of the array. + Dim result = content(Scan0) + Dim [end] = content.Pop + + ' If there are any elements left, put the end element at the + ' start, And let it sink down. + If content > 0 Then + content(Scan0) = [end] + sinkDown(Scan0) + End If + + Return result + End Function + + Public Sub remove(node As T) + Dim len = content.Count + Dim [end] As T + + ' To remove a value, we must search through the array to find + ' it. + For i As Integer = 0 To len - 1 + If content(i) Is node Then + ' When it is found, the process seen in 'pop' is repeated + ' to fill up the hole. + [end] = content.Pop + + If i <> len - 1 Then + content(i) = [end] + + If scoreFunction([end]) < scoreFunction(node) Then + bubbleUp(i) + Else + sinkDown(i) + End If + End If + + Return + End If + Next + + Throw New Exception("Node not found.") + End Sub + + Private Sub bubbleUp(n As Integer) + ' Fetch the element that has to be moved. + Dim element = content(n) + + ' When at 0, an element can not go up any further. + Do While n > 0 + ' Compute the parent element's index, and fetch it. + Dim parentN% = Math.Floor((n + 1) / 2) - 1 + Dim parent = content(parentN) + + ' Swap the elements if the parent is greater. + If scoreFunction(element) < scoreFunction(parent) Then + content(parentN) = element + content(n) = parent + ' Update 'n' to continue at the new position. + n = parentN + Else + ' Found a parent that is less, no need to move it further. + Exit Do + End If + Loop + End Sub + + Private Sub sinkDown(n As Integer) + ' Look up the target element and its score. + Dim length = content.Count + Dim element = content(n) + Dim elemScore = scoreFunction(element) + Dim child1Score As Double + Dim child1 As T + + Do While True + ' Compute the indices of the child elements. + Dim child2N = (n + 1) * 2, child1N = child2N - 1 + ' This is used to store the new position of the element, + ' if any. + Dim swap As Integer? + + ' If the first child exists (is inside the array)... + If (child1N < length) Then + ' Look it up And compute its score. + child1 = content(child1N) + child1Score = scoreFunction(child1) + + ' If the score Is less than our element's, we need to swap. + If child1Score < elemScore Then + swap = child1N + End If + End If + + ' Do the same checks for the other child. + If child2N < length Then + Dim child2 = content(child2N) + Dim child2Score = scoreFunction(child2) + + If (child2Score < If(swap Is Nothing, elemScore, child1Score)) Then + swap = child2N + End If + End If + + ' If the element needs to be moved, swap it, and continue. + If Not swap Is Nothing Then + content(n) = content(swap) + content(swap) = element + n = swap + Else + ' Otherwise, we are done. + Exit Do + End If + Loop + End Sub + End Class +End Namespace \ No newline at end of file diff --git a/ComponentModel/System.Collections.Generic/KeyDictionary.vb b/ComponentModel/System.Collections.Generic/KeyDictionary.vb index d765df8c..f7090c07 100644 --- a/ComponentModel/System.Collections.Generic/KeyDictionary.vb +++ b/ComponentModel/System.Collections.Generic/KeyDictionary.vb @@ -272,11 +272,11 @@ Namespace ComponentModel.Collection ''' ''' 假若目标元素不存在于本字典之中，则会返回False ''' - ''' + ''' ''' - Public Overloads Function Remove(x As V) As Boolean - If Me.ContainsKey(x.Key) Then - Return Me.Remove(x.Key) + Public Overloads Function Remove(vec As V) As Boolean + If Me.ContainsKey(vec.Key) Then + Return Me.Remove(vec.Key) Else Return False End If diff --git a/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb b/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb index f2964bcf..5eeacea8 100644 --- a/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb +++ b/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb @@ -61,9 +61,6 @@ Namespace ComponentModel.Collection Dim lessThan As Func(Of T, T, Boolean) ''' - ''' ������캯���IJ�����һ���Ƚϵı��ʽ�������Ƚ���������֮������ȶȹ�ϵ - ''' ������������߼���ϵ�� - ''' ''' ``` ''' priority = a < b ''' ``` @@ -81,12 +78,8 @@ Namespace ComponentModel.Collection Next End Sub - '* - ' * @method top - ' * @return the top element (the min element as defined by lessThan) - ' ''' - ''' �൱��Stack��Peek���� + ''' the top element (the min element as defined by lessThan) ''' ''' Public Function top() As T diff --git a/Extensions/Collection/Matrix.vb b/Extensions/Collection/Matrix.vb index d004ff26..725c8e34 100644 --- a/Extensions/Collection/Matrix.vb +++ b/Extensions/Collection/Matrix.vb @@ -158,9 +158,15 @@ Public Module MatrixExtensions Return newMatrix End Function + ''' + ''' Measure the dimension size of the rectangle array. + ''' + ''' + ''' + ''' - Public Function SizeOf(Of T)(rect As T()()) As Size + Public Function DimensionSizeOf(Of T)(rect As T()()) As Size Return New Size With { .Width = rect(Scan0).Length, .Height = rect.Length diff --git a/Extensions/Collection/Vector.vb b/Extensions/Collection/Vector.vb index afe4638e..c52f5aef 100644 --- a/Extensions/Collection/Vector.vb +++ b/Extensions/Collection/Vector.vb @@ -64,12 +64,25 @@ Imports Microsoft.VisualBasic.Language.Vectorization Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Linq.Extensions Imports Microsoft.VisualBasic.Linq.IteratorExtensions +Imports Microsoft.VisualBasic.My.JavaScript.Linq ''' ''' Extension methods for the .NET object sequence ''' Public Module VectorExtensions + + + Public Function Sort(Of T)(ByRef a As T(), compares As Comparison(Of T), Optional modification As Boolean = True) As T() + If modification Then + Call Array.Sort(a, compares) + Else + Return a.AsEnumerable.Sort(compares).ToArray + End If + + Return a + End Function + ''' ''' 使用产生一个长度元素的目标序列 ''' diff --git a/Extensions/IO/IOStream.vb b/Extensions/IO/IOStream.vb index 01101353..1d9085e9 100644 --- a/Extensions/IO/IOStream.vb +++ b/Extensions/IO/IOStream.vb @@ -1,53 +1,53 @@ #Region "Microsoft.VisualBasic::2c8ada758c08c77859df0312c0e4ba02, Microsoft.VisualBasic.Core\Extensions\IO\IOStream.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 . +' 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: +' Summaries: - ' Class IOStream - ' - ' Constructor: (+3 Overloads) Sub New - ' Operators: >> - ' - ' Module IOStreamExtensions - ' - ' Function: AsIOStream, FileOpen - ' - ' - ' /********************************************************************************/ +' Class IOStream +' +' Constructor: (+3 Overloads) Sub New +' Operators: >> +' +' Module IOStreamExtensions +' +' Function: AsIOStream, FileOpen +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices -Imports Microsoft.VisualBasic.ApplicationServices -Imports Microsoft.VisualBasic.ApplicationServices.IOHandler +Imports Microsoft.VisualBasic.My.FrameworkInternal +Imports Microsoft.VisualBasic.My.FrameworkInternal.IOHandler Imports Microsoft.VisualBasic.Text Namespace FileIO @@ -81,6 +81,8 @@ Namespace FileIO End Class + + Public Module IOStreamExtensions diff --git a/Extensions/StringHelpers/RegexExtensions.vb b/Extensions/StringHelpers/RegexExtensions.vb index 6f758fea..041d80c6 100644 --- a/Extensions/StringHelpers/RegexExtensions.vb +++ b/Extensions/StringHelpers/RegexExtensions.vb @@ -55,6 +55,25 @@ Imports Microsoft.VisualBasic.Language Public Module RegexExtensions + ''' + ''' Determines whether the beginning of this string instance matches the specified + ''' string. + ''' + ''' The string to compare. + ''' + ''' + ''' true if value matches the beginning of this string; otherwise, false. + + Public Function StartsWith(str$, pattern$, opt As RegexOptions) As Boolean + Dim match$ = str.Match(pattern, opt) + + If match.StringEmpty Then + Return False + Else + Return str.StartsWith(match) + End If + End Function + ''' ''' Determines whether the end of this string instance matches the specified string pattern. ''' diff --git a/Extensions/ValueTypes/DateTimeHelper.vb b/Extensions/ValueTypes/DateTimeHelper.vb index 5a1253bb..4389eba6 100644 --- a/Extensions/ValueTypes/DateTimeHelper.vb +++ b/Extensions/ValueTypes/DateTimeHelper.vb @@ -46,7 +46,6 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language.C -Imports r = System.Text.RegularExpressions.Regex Namespace ValueTypes @@ -160,7 +159,7 @@ Namespace ValueTypes ''' - Public Function UnixTimeStamp(time As DateTime) As Long + Public Function UnixTimeStamp(time As DateTime) As Double Static ZERO As New DateTime(1970, 1, 1, 0, 0, 0) Return (time.ToUniversalTime - ZERO).TotalSeconds End Function diff --git a/Language/Linq/Vectorization/Vector.vb b/Language/Linq/Vectorization/Vector.vb index 7d6fa130..90add902 100644 --- a/Language/Linq/Vectorization/Vector.vb +++ b/Language/Linq/Vectorization/Vector.vb @@ -69,7 +69,7 @@ Namespace Language.Vectorization ''' Gets the element counts in this vector collection ''' ''' - Public ReadOnly Property Length As Integer + Public Overridable ReadOnly Property Length As Integer Get Return buffer.Length @@ -199,7 +199,7 @@ Namespace Language.Vectorization ''' ''' ''' - Default Public Overloads Property Item(index%) As T + Default Public Overridable Overloads Property Item(index%) As T Get Return buffer(index) @@ -343,9 +343,9 @@ Namespace Language.Vectorization Return $"{buffer.Length} @ {GetType(T).FullName}" End Function - Public Iterator Function GetEnumerator() As IEnumerator(Of T) Implements IEnumerable(Of T).GetEnumerator - For Each x In buffer - Yield x + Public Overridable Iterator Function GetEnumerator() As IEnumerator(Of T) Implements IEnumerable(Of T).GetEnumerator + For Each element As T In buffer + Yield element Next End Function diff --git a/My/Framework/Config.vb b/My/Framework/Config.vb new file mode 100644 index 00000000..affd9453 --- /dev/null +++ b/My/Framework/Config.vb @@ -0,0 +1,146 @@ +#Region "Microsoft.VisualBasic::e4116dfe0b06870e2dcf53a489a4fb5e, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Config.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 Config +' +' Properties: DefaultFile, level, mute +' +' Function: Load, Save, ToString +' +' +' /********************************************************************************/ + +#End Region + +Imports System.Reflection +Imports Microsoft.VisualBasic.ApplicationServices.Debugging +Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Serialization.JSON + +Namespace My.FrameworkInternal + + Public Class Config + + Public Property level As DebuggerLevels = DebuggerLevels.On + Public Property mute As Boolean = False + + ''' + ''' 整个框架的环境配置项目，请注意，通过命令行进行配置是优先于这个配置文件的配置值的 + ''' 可以在命令行中使用``--config-framework``命令来配置默认数据 + ''' + ''' + Public Property environment As Dictionary(Of String, String) + + Public Property updates As Date + Get + Return Now + End Get + Set(value As Date) + ' readonly do nothing + End Set + End Property + + Public Shared ReadOnly Property DefaultFile As String + Get + Return App.LocalData & "/runtime-framework-config.json" + End Get + End Property + + Public Shared Function Load() As Config + If Not DefaultFile.FileExists Then + Return saveDefault() + End If + + Try + Dim cfg As Config = IO.File.ReadAllText(DefaultFile).LoadJSON(Of Config) + + If cfg Is Nothing Then + Return saveDefault() + Else + Return cfg + End If + Catch ex As Exception When Not DefaultFile.FileExists + Return saveDefault() + Catch ex As Exception + Call App.LogException(ex) + + ' 假若是多进程的并行计算任务，则可能会出现默认配置文件被占用的情况， + ' 这个也无能为力了， 只能够放弃读取， 直接使用默认的调试器参数 + Return New Config + End Try + End Function + + Private Shared Function saveDefault() As Config + Dim config As New Config With { + .environment = New Dictionary(Of String, String) + } + ' scan all assembly and then load config name? + ' only load Microsoft.VisualBasic + Dim modules = App.HOME _ + .EnumerateFiles("*.dll") _ + .Where(Function(file) + Return file.BaseName.StartsWith("Microsoft.VisualBasic") + End Function) _ + .ToArray + Dim assembly As Assembly + Dim configNames As FrameworkConfigAttribute() + + For Each file As String In modules + assembly = Assembly.LoadFile(file) + configNames = assembly.GetTypes _ + .Select(Function(type) + Return type.GetCustomAttributes(Of FrameworkConfigAttribute) + End Function) _ + .IteratesALL _ + .ToArray + + For Each configName As FrameworkConfigAttribute In configNames + config.environment(configName.Name) = "" + Next + Next + + Return config.Save + End Function + + Private Function Save() As Config + Call Me _ + .GetJson(indent:=True) _ + .SaveTo(DefaultFile) + Return Me + End Function + + Public Overrides Function ToString() As String + Return Me.GetJson + End Function + End Class +End Namespace diff --git a/My/Framework/DoConfiguration.vb b/My/Framework/DoConfiguration.vb new file mode 100644 index 00000000..a6e18fce --- /dev/null +++ b/My/Framework/DoConfiguration.vb @@ -0,0 +1,57 @@ +Imports System.Runtime.CompilerServices +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel +Imports Microsoft.VisualBasic.Linq +Imports CLI = Microsoft.VisualBasic.CommandLine.CommandLine + +Namespace My.FrameworkInternal + + ''' + ''' Do configuration + ''' + Module DoConfiguration + + + Friend Sub ConfigFrameworkRuntime(configuration As Config, args As CLI) + Dim envir As Dictionary(Of String, String) = args.EnvironmentVariables + Dim disableLoadOptions As Boolean = args.GetBoolean("--load_options.disable") + Dim name$ + + ' load config from config file. + For Each config In configuration.environment.SafeQuery + Call App.JoinVariable(config.Key, config.Value) + Next + + ' --load_options.disable 开关将会禁止所有的环境项目的设置 + ' 但是环境变量任然会进行加载设置 + If Not disableLoadOptions AndAlso Not envir.IsNullOrEmpty Then + If envir.ContainsKey("Proxy") Then + WebServiceUtils.Proxy = envir("Proxy") + Call $"[Config] webUtils_proxy={WebServiceUtils.Proxy}".__INFO_ECHO + End If + If envir.ContainsKey("setwd") Then + App.CurrentDirectory = envir("setwd") + Call $"[Config] current_work_directory={App.CurrentDirectory}".__INFO_ECHO + End If + If envir.ContainsKey("buffer_size") Then + Call App.SetBufferSize(envir!buffer_size) + End If + End If + + ' config value from commandline will overrides the config value that loaded + ' from the config json file. + + ' /@var=name "value" + For Each var As NamedValue(Of String) In args.ParameterList + With var + If InStr(.Name, "/@var=", CompareMethod.Text) = 1 Then + name = .Name _ + .GetTagValue("=") _ + .Value + + Call App.JoinVariable(name, .Value) + End If + End With + Next + End Sub + End Module +End Namespace \ No newline at end of file diff --git a/My/Framework/FrameworkConfig.vb b/My/Framework/FrameworkConfig.vb new file mode 100644 index 00000000..b3621e76 --- /dev/null +++ b/My/Framework/FrameworkConfig.vb @@ -0,0 +1,28 @@ +Namespace My.FrameworkInternal + + + Public Class FrameworkConfigAttribute : Inherits Attribute + + ''' + ''' The config name in ``/@set`` or ``config.ini`` file + ''' + ''' + Public ReadOnly Property Name As String + + Public ReadOnly Property Config As String + Get + Return App.GetVariable(Name) + End Get + End Property + + Sub New(configName As String) + Name = configName + End Sub + + Public Overrides Function ToString() As String + Return $"Dim {Name} As String = {App.GetVariable(Name)}" + End Function + End Class +End Namespace \ No newline at end of file diff --git a/ApplicationServices/IOHandler.vb b/My/Framework/IOHandler.vb similarity index 99% rename from ApplicationServices/IOHandler.vb rename to My/Framework/IOHandler.vb index 830964fa..ad45a86f 100644 --- a/ApplicationServices/IOHandler.vb +++ b/My/Framework/IOHandler.vb @@ -50,7 +50,7 @@ Imports System.Text Imports Microsoft.VisualBasic.Language.Default Imports Microsoft.VisualBasic.Serialization.JSON -Namespace ApplicationServices +Namespace My.FrameworkInternal ''' ''' Collection IO extensions diff --git a/My/Framework/NamespaceDoc.vb b/My/Framework/NamespaceDoc.vb new file mode 100644 index 00000000..ae7a4d11 --- /dev/null +++ b/My/Framework/NamespaceDoc.vb @@ -0,0 +1,8 @@ +Namespace My.FrameworkInternal + + ''' + ''' The sciBASIC.NET framework config module + ''' + Module NamespaceDoc + End Module +End Namespace \ No newline at end of file diff --git a/My/JavaScript/JavaScriptObject.vb b/My/JavaScript/JavaScriptObject.vb index 30b5c868..2d7df116 100644 --- a/My/JavaScript/JavaScriptObject.vb +++ b/My/JavaScript/JavaScriptObject.vb @@ -1,53 +1,54 @@ #Region "Microsoft.VisualBasic::19bfdec5cef80f52096f361a1993ed21, Microsoft.VisualBasic.Core\My\JavaScript\JavaScriptObject.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 . +' 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: +' Summaries: - ' Interface IJavaScriptObjectAccessor - ' - ' Properties: Accessor - ' - ' Class JavaScriptObject - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: GetEnumerator, IEnumerable_GetEnumerator - ' - ' - ' /********************************************************************************/ +' Interface IJavaScriptObjectAccessor +' +' Properties: Accessor +' +' Class JavaScriptObject +' +' Constructor: (+1 Overloads) Sub New +' Function: GetEnumerator, IEnumerable_GetEnumerator +' +' +' /********************************************************************************/ #End Region Imports System.Reflection Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel.SchemaMaps +Imports Microsoft.VisualBasic.Language Namespace My.JavaScript @@ -55,9 +56,42 @@ Namespace My.JavaScript Default Property Accessor(name As String) As Object End Interface - Public Class JavaScriptObject : Implements IEnumerable(Of String), IJavaScriptObjectAccessor + Public Class Descriptor - Dim members As New Dictionary(Of String, BindProperty(Of DataFrameColumnAttribute)) + Public Property value As Object + Public Property writable As Boolean + Public Property enumerable As Boolean + Public Property configurable As Boolean + + End Class + + Public Enum MemberAccessorResult + ''' + ''' Member is not exists in current javascript object + ''' + Undefined + ''' + ''' IS a member property in this javascript object + ''' + ClassMemberProperty + ''' + ''' Is an extension property object this javascript object + ''' + ExtensionProperty + End Enum + + ''' + ''' javascript object + ''' + Public Class JavaScriptObject : Implements IEnumerable(Of String), IEnumerable(Of NamedValue(Of Object)), IJavaScriptObjectAccessor + + Dim members As New Dictionary(Of String, [Variant](Of BindProperty(Of DataFrameColumnAttribute), Object)) + + ''' + ''' This javascript object instance + ''' + ''' + Protected ReadOnly Property this As JavaScriptObject = Me ''' ''' 只针对Public的属性或者字段有效 @@ -66,19 +100,20 @@ Namespace My.JavaScript ''' Default Public Property Accessor(memberName As String) As Object Implements IJavaScriptObjectAccessor.Accessor Get - If members.ContainsKey(memberName) Then - Return members(memberName).GetValue(Me) - Else - ' Returns undefined in javascript - Return Nothing - End If + Return GetMemberValue(memberName, Nothing) End Get Set(value As Object) If members.ContainsKey(memberName) Then - members(memberName).SetValue(Me, value) + If members(memberName) Is Nothing Then + members(memberName) = value + ElseIf members(memberName) Like GetType(BindProperty(Of DataFrameColumnAttribute)) Then + members(memberName).TryCast(Of BindProperty(Of DataFrameColumnAttribute)).SetValue(Me, value) + Else + members(memberName) = value + End If Else - ' 添加一个新的member？ - Throw New NotImplementedException + ' 添加一个新的member + members(memberName) = value End If End Set End Property @@ -99,6 +134,43 @@ Namespace My.JavaScript Next End Sub + Public Function GetMemberValue(memberName As String, ByRef access As MemberAccessorResult) As Object + If members.ContainsKey(memberName) Then + Dim value = members(memberName) + + If value Is Nothing Then + access = MemberAccessorResult.Undefined + Return Nothing + ElseIf value Like GetType(BindProperty(Of DataFrameColumnAttribute)) Then + access = MemberAccessorResult.ClassMemberProperty + Return value.TryCast(Of BindProperty(Of DataFrameColumnAttribute)).GetValue(Me) + Else + access = MemberAccessorResult.ExtensionProperty + Return value.TryCast(Of Object) + End If + Else + ' Returns undefined in javascript + access = MemberAccessorResult.Undefined + End If + + Return Nothing + End Function + + Public Shared Function GetDescription(jsObj As JavaScriptObject) As Dictionary(Of String, Descriptor) + Dim desc As New Dictionary(Of String, Descriptor) + + For Each p As String In jsObj + desc(p) = New Descriptor With { + .value = jsObj(p), + .configurable = True, + .enumerable = True, + .writable = True + } + Next + + Return desc + End Function + Public Iterator Function GetEnumerator() As IEnumerator(Of String) Implements IEnumerable(Of String).GetEnumerator For Each key As String In members.Keys Yield key @@ -107,6 +179,24 @@ Namespace My.JavaScript Private Iterator Function IEnumerable_GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator Yield GetEnumerator() + Yield IEnumerable_GetEnumerator1() + End Function + + Private Iterator Function IEnumerable_GetEnumerator1() As IEnumerator(Of NamedValue(Of Object)) Implements IEnumerable(Of NamedValue(Of Object)).GetEnumerator + Dim access As MemberAccessorResult = MemberAccessorResult.Undefined + Dim value As Object + Dim pop As NamedValue(Of Object) + + For Each key As String In members.Keys + value = GetMemberValue(key, access) + pop = New NamedValue(Of Object) With { + .Name = key, + .Value = value, + .Description = access.Description + } + + Yield pop + Next End Function End Class End Namespace diff --git a/My/JavaScript/Linq.vb b/My/JavaScript/Linq.vb index 427b6a94..5cd46b2e 100644 --- a/My/JavaScript/Linq.vb +++ b/My/JavaScript/Linq.vb @@ -44,8 +44,6 @@ Imports System.Runtime.CompilerServices Imports r = System.Text.RegularExpressions.Regex -Imports System.Text.RegularExpressions - Namespace My.JavaScript diff --git a/Serialization/BinaryDumping/ObjectVisitor.vb b/Serialization/BinaryDumping/ObjectVisitor.vb new file mode 100644 index 00000000..4884662d --- /dev/null +++ b/Serialization/BinaryDumping/ObjectVisitor.vb @@ -0,0 +1,120 @@ +Imports System.Reflection +Imports Microsoft.VisualBasic.ComponentModel.Collection +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel +Imports Microsoft.VisualBasic.Language + +Namespace Serialization.BinaryDumping + + ''' + ''' Do serialization or count memory size by this interface method + ''' + ''' + ''' + ''' 当前的对象是否是一个已经被访问过的引用对象 + Public Delegate Sub DoVisitObject(value As Object, type As Type, memberInfo As MemberInfo, isVisited As Boolean, isValueType As Boolean) + + ''' + ''' A Common framework for visit a object + ''' + Public NotInheritable Class ObjectVisitor + + ''' + ''' Only visit instance fields, otherwise visit properties + ''' + ''' + Public Property VisitOnlyFields As Boolean = False + + ''' + ''' Visited reference types + ''' + Dim visitedReferences As New Index(Of Object) + + Public Const AllFields As BindingFlags = BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance + + Sub New() + End Sub + + Public Sub DoVisitObject(obj As Object, type As Type, visit As DoVisitObject) + If VisitOnlyFields Then + Call doVisitFields(obj, GetAllFields(type).ToArray, visit) + Else + Call doVisitProperties(obj, type.GetProperties(PublicProperty), visit) + End If + End Sub + + Public Sub DoVisitObjectFields(obj As Object, type As Type, visit As DoVisitObject) + Call doVisitFields(obj, GetAllFields(type).ToArray, visit) + End Sub + + Public Sub DoVisitArray(array As Array, visit As DoVisitObject) + ' get array element type + Dim arrayType As Type = array.GetType.GetElementType + + ' visit each element + For i As Integer = 0 To array.Length - 1 + Call DoVisitObject(array.GetValue(i), arrayType, visit) + Next + End Sub + + Private Sub doVisitProperties(obj As Object, properties As PropertyInfo(), visit As DoVisitObject) + + End Sub + + Public Shared Iterator Function GetAllFields(type As Type) As IEnumerable(Of FieldInfo) + For Each field As FieldInfo In type.GetFields(AllFields) + Yield field + Next + + Dim base As Value(Of Type) = type + + Do While Not (base = base.Value.BaseType) Is Nothing + For Each field As FieldInfo In base.Value.GetFields(AllFields) + Yield field + Next + Loop + End Function + + Private Sub doVisitFields(obj As Object, fields As FieldInfo(), visit As DoVisitObject) + Dim value As Object + Dim type As Type + Dim isVisited As Boolean = False + Dim isValueType As Boolean = False + + For Each field As FieldInfo In fields + value = field.GetValue(obj) + + ' 因为在字段的定义中会存在继承或者接口实现的这些抽象的类型实现关系, + ' 所以在这里优先从 value 值之中获取真实的类型信息 + ' + ' 如果是空值,则获取字段的类型信息 + If value Is Nothing Then + type = field.FieldType + Else + ' 如果不是空值,则获取实际的类型信息 + type = value.GetType + + ' value is not nothing + If Not type.IsValueType AndAlso Not type Is GetType(String) Then + If value Like visitedReferences Then + isVisited = True + Else + isVisited = False + visitedReferences += value + End If + + isValueType = False + Else + isValueType = True + End If + End If + + Call visit(value, type, field, isVisited, isValueType) + + If Not DataFramework.IsPrimitive(type) Then + ' do recursive visit of this field value + Call DoVisitObjectFields(value, type, visit) + End If + Next + End Sub + End Class +End Namespace \ No newline at end of file diff --git a/Text/TextEncodings.vb b/Text/TextEncodings.vb index 1f02a153..87a1089d 100644 --- a/Text/TextEncodings.vb +++ b/Text/TextEncodings.vb @@ -1,60 +1,61 @@ #Region "Microsoft.VisualBasic::9609db91e7dcf90e1fe5a0b6e6717d36, Microsoft.VisualBasic.Core\Text\TextEncodings.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 . +' 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: +' Summaries: - ' Enum Encodings - ' - ' GB2312, Unicode, UTF16, UTF32, UTF7 - ' UTF8, UTF8WithoutBOM - ' - ' - ' - ' - ' - ' Module TextEncodings - ' - ' Properties: DefaultEncoding, TextEncodings, UTF8, UTF8WithoutBOM - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: __gbk2312_encoding, CodeArray, (+2 Overloads) CodePage, codePageTable, GetEncodings - ' ParseEncodingsName, TransEncoding - ' - ' - ' /********************************************************************************/ +' Enum Encodings +' +' GB2312, Unicode, UTF16, UTF32, UTF7 +' UTF8, UTF8WithoutBOM +' +' +' +' +' +' Module TextEncodings +' +' Properties: DefaultEncoding, TextEncodings, UTF8, UTF8WithoutBOM +' +' Constructor: (+1 Overloads) Sub New +' Function: __gbk2312_encoding, CodeArray, (+2 Overloads) CodePage, codePageTable, GetEncodings +' ParseEncodingsName, TransEncoding +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports System.Text +Imports Microsoft.VisualBasic.My.FrameworkInternal Imports defaultEncoding = Microsoft.VisualBasic.Language.Default.Default(Of System.Text.Encoding) Namespace Text @@ -96,6 +97,8 @@ Namespace Text ''' ''' 表示字符编码。若要浏览此类型的.NET Framework 源代码，请参阅 Reference Source。 ''' + ''' + Public Module TextEncodings Public ReadOnly Property UTF8WithoutBOM As New UTF8Encoding(encoderShouldEmitUTF8Identifier:=False) @@ -156,6 +159,8 @@ Namespace Text } End Function + Friend Const TextEncodingEnvironmentConfigName$ = "default_encoding" + ''' ''' 构造函数会自动的从命令行配置之中设置默认的编码格式 ''' @@ -175,7 +180,7 @@ Namespace Text ''' Sub New() ' setting default codepage from App commandline options for current App Process session. - Dim codepage$ = App.GetVariable("default_encoding") + Dim codepage$ = App.GetVariable(TextEncodingEnvironmentConfigName) ' If no settings from the commandline, using default ANSI encoding If codepage.StringEmpty Then diff --git a/Text/Xml/Models/ValueTuples/ValuePair.vb b/Text/Xml/Models/ValueTuples/ValuePair.vb index 16472286..44a1fe79 100644 --- a/Text/Xml/Models/ValueTuples/ValuePair.vb +++ b/Text/Xml/Models/ValueTuples/ValuePair.vb @@ -1,55 +1,56 @@ #Region "Microsoft.VisualBasic::797fff98dcd673f44f853ce792bece13, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\ValuePair.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 . +' 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: +' Summaries: - ' Class KeyValuePair - ' - ' Properties: Key, Value - ' - ' Constructor: (+3 Overloads) Sub New - ' Function: CreateObject, Distinct, (+2 Overloads) Equals, ToDictionary, ToString - ' Interface IKeyValuePair - ' - ' - ' - ' - ' - ' - ' /********************************************************************************/ +' Class KeyValuePair +' +' Properties: Key, Value +' +' Constructor: (+3 Overloads) Sub New +' Function: CreateObject, Distinct, (+2 Overloads) Equals, ToDictionary, ToString +' Interface IKeyValuePair +' +' +' +' +' +' +' /********************************************************************************/ #End Region Imports System.Xml.Serialization Imports Microsoft.VisualBasic.ComponentModel.Collection.Generic +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Namespace Text.Xml.Models @@ -111,6 +112,13 @@ Namespace Text.Xml.Models } End Operator + Public Overloads Shared Widening Operator CType(nameValue As NamedValue(Of String)) As KeyValuePair + Return New KeyValuePair With { + .Key = nameValue.Name, + .Value = nameValue.Value + } + End Operator + Public Overrides Function ToString() As String Return String.Format("{0} -> {1}", Key, Value) End Function From e3562e81cfb21e0be201766d026bf57dae259641 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 11 Aug 2019 12:22:38 +0800 Subject: [PATCH 015/104] config framework --- ApplicationServices/App.vb | 2 +- ApplicationServices/Debugger/DebuggerArgs.vb | 70 ++++++------ ApplicationServices/Debugger/HeapSizeOf.vb | 66 +++++++----- .../Terminal/ProgressBar/ProgressBar.vb | 100 +++++++++--------- CommandLine/CommandLine.vb | 2 +- .../System.Collections.Generic/BinaryHeap.vb | 52 ++++++++- .../KeyDictionary.vb | 2 +- .../PriorityQueue/PriorityQueue.vb | 2 +- Extensions/Collection/Matrix.vb | 8 +- Extensions/Collection/Vector.vb | 4 +- Extensions/IO/IOStream.vb | 76 ++++++------- Extensions/StringHelpers/RegexExtensions.vb | 4 +- Extensions/ValueTypes/DateTimeHelper.vb | 2 +- Language/Linq/Vectorization/Vector.vb | 2 +- My/Framework/Config.vb | 70 ++++++------ My/Framework/DoConfiguration.vb | 46 +++++++- My/Framework/FrameworkConfig.vb | 49 ++++++++- My/Framework/IOHandler.vb | 2 +- My/Framework/NamespaceDoc.vb | 46 +++++++- My/JavaScript/JavaScriptObject.vb | 90 +++++++++------- My/JavaScript/Linq.vb | 2 +- Serialization/BinaryDumping/ObjectVisitor.vb | 56 +++++++++- Text/TextEncodings.vb | 92 ++++++++-------- Text/Xml/Models/ValueTuples/ValuePair.vb | 82 +++++++------- 24 files changed, 589 insertions(+), 338 deletions(-) diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 5a5b9979..79bf75ba 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ed4057f3d45b6a99718b0c840eed4f72, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" +#Region "Microsoft.VisualBasic::55ada024e60aa0a327e8b150bbf2f188, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/DebuggerArgs.vb b/ApplicationServices/Debugger/DebuggerArgs.vb index 062786fa..a7d26b7b 100644 --- a/ApplicationServices/Debugger/DebuggerArgs.vb +++ b/ApplicationServices/Debugger/DebuggerArgs.vb @@ -1,44 +1,44 @@ -#Region "Microsoft.VisualBasic::45d782ae175d587a152a19d88a206ff7, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\DebuggerArgs.vb" +#Region "Microsoft.VisualBasic::7fcd2b47d1a839220c30c326d2bb5bc1, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\DebuggerArgs.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 . + ' 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: + ' Summaries: -' Module DebuggerArgs -' -' Properties: AutoPaused, ErrLogs -' -' Sub: __logShell, InitDebuggerEnvir, SaveErrorLog -' -' -' /********************************************************************************/ + ' Module DebuggerArgs + ' + ' Properties: AutoPaused, ErrLogs + ' + ' Sub: __logShell, InitDebuggerEnvir, SaveErrorLog + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ApplicationServices/Debugger/HeapSizeOf.vb b/ApplicationServices/Debugger/HeapSizeOf.vb index 60d3c55d..d4828504 100644 --- a/ApplicationServices/Debugger/HeapSizeOf.vb +++ b/ApplicationServices/Debugger/HeapSizeOf.vb @@ -1,38 +1,46 @@ -#Region "Microsoft.VisualBasic::2973138edf1beb9688e7277ff9156880, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\NETDebugger.vb" +#Region "Microsoft.VisualBasic::7fc737e272e77ae07237e66f8bf98aab, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\HeapSizeOf.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 . + ' 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: + ' Summaries: -' -' /********************************************************************************/ + ' Class HeapSizeOf + ' + ' Properties: sizeOf + ' + ' Function: MeasureSize, SizeOfPrimitive, StringByteSize + ' + ' Sub: VisitObject + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb index 047409bc..7bf254b5 100644 --- a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb +++ b/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb @@ -1,59 +1,59 @@ -#Region "Microsoft.VisualBasic::3562e8340d57b44a6cb3447221203925, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\ProgressBar.vb" +#Region "Microsoft.VisualBasic::70e68318cf1bdf1b9675d9786ea4858e, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\ProgressBar.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 . + ' 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: + ' Summaries: -' Structure ColorTheme -' -' Properties: BackgroundColor, IsEmpty, MessageDetailColor, ProgressBarColor, ProgressMsgColor -' -' Function: [Default], DefaultTheme -' -' Class ProgressBar -' -' Properties: ElapsedMilliseconds, Enable -' -' Constructor: (+3 Overloads) Sub New -' Sub: [Step], consoleWindowResize, (+2 Overloads) Dispose, SetProgress, SetToEchoLine -' tick -' -' Class ProgressProvider -' -' Properties: Current, Target -' -' Constructor: (+1 Overloads) Sub New -' Function: [Step], (+2 Overloads) ETA, StepProgress, ToString -' -' -' /********************************************************************************/ + ' Structure ColorTheme + ' + ' Properties: BackgroundColor, IsEmpty, MessageDetailColor, ProgressBarColor, ProgressMsgColor + ' + ' Function: [Default], DefaultTheme + ' + ' Class ProgressBar + ' + ' Properties: ElapsedMilliseconds, Enable + ' + ' Constructor: (+3 Overloads) Sub New + ' Sub: [Step], consoleWindowResize, (+2 Overloads) Dispose, SetProgress, SetToEchoLine + ' tick + ' + ' Class ProgressProvider + ' + ' Properties: Current, Target + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: [Step], (+2 Overloads) ETA, StepProgress, ToString + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 3fca65b8..1cc0acd1 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::701651c437185ea1c4b37eee558bf437, Microsoft.VisualBasic.Core\CommandLine\CommandLine.vb" +#Region "Microsoft.VisualBasic::1cea93132554887274c551d9515ec4ea, Microsoft.VisualBasic.Core\CommandLine\CommandLine.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/BinaryHeap.vb b/ComponentModel/System.Collections.Generic/BinaryHeap.vb index a410b11d..9170e5bc 100644 --- a/ComponentModel/System.Collections.Generic/BinaryHeap.vb +++ b/ComponentModel/System.Collections.Generic/BinaryHeap.vb @@ -1,4 +1,52 @@ -Imports Microsoft.VisualBasic.Language +#Region "Microsoft.VisualBasic::28c3c76e2bc8137ccf9d8326f22776a7, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\BinaryHeap.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 BinaryHeap + ' + ' Properties: peek, size + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: pop + ' + ' Sub: bubbleUp, push, remove, sinkDown + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports Microsoft.VisualBasic.Language Namespace ComponentModel.Collection @@ -159,4 +207,4 @@ Namespace ComponentModel.Collection Loop End Sub End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/ComponentModel/System.Collections.Generic/KeyDictionary.vb b/ComponentModel/System.Collections.Generic/KeyDictionary.vb index f7090c07..b15ad615 100644 --- a/ComponentModel/System.Collections.Generic/KeyDictionary.vb +++ b/ComponentModel/System.Collections.Generic/KeyDictionary.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::236e26fa514031145c6e91dcd119e08b, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\KeyDictionary.vb" +#Region "Microsoft.VisualBasic::96de3680f1c003d276cb4347540c5482, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\KeyDictionary.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb b/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb index 5eeacea8..b9c65b17 100644 --- a/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb +++ b/ComponentModel/System.Collections.Generic/PriorityQueue/PriorityQueue.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5ace0d2cf316361ee4908b71b18ba6dd, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\PriorityQueue\PriorityQueue.vb" +#Region "Microsoft.VisualBasic::6cebe2b568d1eae0cf3b03702280aa9c, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\PriorityQueue\PriorityQueue.vb" ' Author: ' diff --git a/Extensions/Collection/Matrix.vb b/Extensions/Collection/Matrix.vb index 725c8e34..dfc13b49 100644 --- a/Extensions/Collection/Matrix.vb +++ b/Extensions/Collection/Matrix.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::44bec93731efa49cd5c9e88b17824d27, Microsoft.VisualBasic.Core\Extensions\Collection\Matrix.vb" +#Region "Microsoft.VisualBasic::2ceabba60966867b6989805e5fac6abd, Microsoft.VisualBasic.Core\Extensions\Collection\Matrix.vb" ' Author: ' @@ -33,9 +33,9 @@ ' Module MatrixExtensions ' - ' Function: DATA, GetCol, GetRow, GetSize, MAT - ' (+2 Overloads) Matrix, Rectangle, RowIterator, SetCol, SetRow - ' SizeOf, ToFloatMatrix, ToMatrix, ToVectorList + ' Function: DATA, DimensionSizeOf, GetCol, GetRow, GetSize + ' MAT, (+2 Overloads) Matrix, Rectangle, RowIterator, SetCol + ' SetRow, ToFloatMatrix, ToMatrix, ToVectorList ' ' /********************************************************************************/ diff --git a/Extensions/Collection/Vector.vb b/Extensions/Collection/Vector.vb index c52f5aef..1a428ef8 100644 --- a/Extensions/Collection/Vector.vb +++ b/Extensions/Collection/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::30a099d1490b4b86e4a02b1e6d2f963d, Microsoft.VisualBasic.Core\Extensions\Collection\Vector.vb" +#Region "Microsoft.VisualBasic::53a619c4039ce93bc2f690996f1f92f1, Microsoft.VisualBasic.Core\Extensions\Collection\Vector.vb" ' Author: ' @@ -35,7 +35,7 @@ ' ' Function: (+2 Overloads) After, Append, Coalesce, (+3 Overloads) Delete, (+2 Overloads) Fill ' GetRange, IndexOf, Last, LoadAsNumericVector, MappingData - ' Midv, RepeatCalls, Replicate, (+2 Overloads) Sort, Split + ' Midv, RepeatCalls, Replicate, (+3 Overloads) Sort, Split ' VectorShadows ' ' Sub: (+4 Overloads) Add, InsertAt, (+2 Overloads) Memset diff --git a/Extensions/IO/IOStream.vb b/Extensions/IO/IOStream.vb index 1d9085e9..665596be 100644 --- a/Extensions/IO/IOStream.vb +++ b/Extensions/IO/IOStream.vb @@ -1,47 +1,47 @@ -#Region "Microsoft.VisualBasic::2c8ada758c08c77859df0312c0e4ba02, Microsoft.VisualBasic.Core\Extensions\IO\IOStream.vb" +#Region "Microsoft.VisualBasic::35513d1acd839863747dd88607d9ea23, Microsoft.VisualBasic.Core\Extensions\IO\IOStream.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 . + ' 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: + ' Summaries: -' Class IOStream -' -' Constructor: (+3 Overloads) Sub New -' Operators: >> -' -' Module IOStreamExtensions -' -' Function: AsIOStream, FileOpen -' -' -' /********************************************************************************/ + ' Class IOStream + ' + ' Constructor: (+3 Overloads) Sub New + ' Operators: >> + ' + ' Module IOStreamExtensions + ' + ' Function: AsIOStream, FileOpen + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Extensions/StringHelpers/RegexExtensions.vb b/Extensions/StringHelpers/RegexExtensions.vb index 041d80c6..a6c0ac21 100644 --- a/Extensions/StringHelpers/RegexExtensions.vb +++ b/Extensions/StringHelpers/RegexExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::aa49e490c8c60fa3ba033227e6dda9df, Microsoft.VisualBasic.Core\Extensions\StringHelpers\RegexExtensions.vb" +#Region "Microsoft.VisualBasic::ee859640b797034c8e1716e154eef6fb, Microsoft.VisualBasic.Core\Extensions\StringHelpers\RegexExtensions.vb" ' Author: ' @@ -37,7 +37,7 @@ ' ' Constructor: (+1 Overloads) Sub New ' Function: (+2 Overloads) EachValue, EndsWith, IsPattern, Locates, PythonRawRegexp - ' (+2 Overloads) ToArray + ' StartsWith, (+2 Overloads) ToArray ' Structure [NameOf] ' ' diff --git a/Extensions/ValueTypes/DateTimeHelper.vb b/Extensions/ValueTypes/DateTimeHelper.vb index 4389eba6..73dba994 100644 --- a/Extensions/ValueTypes/DateTimeHelper.vb +++ b/Extensions/ValueTypes/DateTimeHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::17be44db88f7f8fc129508f218ce2cd5, Microsoft.VisualBasic.Core\Extensions\ValueTypes\DateTimeHelper.vb" +#Region "Microsoft.VisualBasic::ad353c7944723ac70347e48519bf0bd9, Microsoft.VisualBasic.Core\Extensions\ValueTypes\DateTimeHelper.vb" ' Author: ' diff --git a/Language/Linq/Vectorization/Vector.vb b/Language/Linq/Vectorization/Vector.vb index 90add902..aa03935a 100644 --- a/Language/Linq/Vectorization/Vector.vb +++ b/Language/Linq/Vectorization/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2321c4bfd9b582b8e1392039335ce8aa, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\Vector.vb" +#Region "Microsoft.VisualBasic::d6f151fca4df58bc36151064ea48392f, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\Vector.vb" ' Author: ' diff --git a/My/Framework/Config.vb b/My/Framework/Config.vb index affd9453..ce515216 100644 --- a/My/Framework/Config.vb +++ b/My/Framework/Config.vb @@ -1,44 +1,44 @@ -#Region "Microsoft.VisualBasic::e4116dfe0b06870e2dcf53a489a4fb5e, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Config.vb" +#Region "Microsoft.VisualBasic::6af94cfea22ccf423dbfe4fe5db5d5ac, Microsoft.VisualBasic.Core\My\Framework\Config.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 . + ' 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: + ' Summaries: -' Class Config -' -' Properties: DefaultFile, level, mute -' -' Function: Load, Save, ToString -' -' -' /********************************************************************************/ + ' Class Config + ' + ' Properties: DefaultFile, environment, level, mute, updates + ' + ' Function: Load, Save, saveDefault, ToString + ' + ' + ' /********************************************************************************/ #End Region diff --git a/My/Framework/DoConfiguration.vb b/My/Framework/DoConfiguration.vb index a6e18fce..1090ac48 100644 --- a/My/Framework/DoConfiguration.vb +++ b/My/Framework/DoConfiguration.vb @@ -1,4 +1,46 @@ -Imports System.Runtime.CompilerServices +#Region "Microsoft.VisualBasic::4f6c030d1d82c0ce6c117b9699227ef0, Microsoft.VisualBasic.Core\My\Framework\DoConfiguration.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: + + ' Module DoConfiguration + ' + ' Sub: ConfigFrameworkRuntime + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Linq Imports CLI = Microsoft.VisualBasic.CommandLine.CommandLine @@ -54,4 +96,4 @@ Namespace My.FrameworkInternal Next End Sub End Module -End Namespace \ No newline at end of file +End Namespace diff --git a/My/Framework/FrameworkConfig.vb b/My/Framework/FrameworkConfig.vb index b3621e76..b3202097 100644 --- a/My/Framework/FrameworkConfig.vb +++ b/My/Framework/FrameworkConfig.vb @@ -1,4 +1,49 @@ -Namespace My.FrameworkInternal +#Region "Microsoft.VisualBasic::7ee2f8cff11dadab6afab790cc16069f, Microsoft.VisualBasic.Core\My\Framework\FrameworkConfig.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 FrameworkConfigAttribute + ' + ' Properties: Config, Name + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: ToString + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace My.FrameworkInternal . + + + + ' /********************************************************************************/ + + ' Summaries: + + ' Module NamespaceDoc + ' + ' + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace My.FrameworkInternal ''' ''' The sciBASIC.NET framework config module ''' Module NamespaceDoc End Module -End Namespace \ No newline at end of file +End Namespace diff --git a/My/JavaScript/JavaScriptObject.vb b/My/JavaScript/JavaScriptObject.vb index 2d7df116..c9ba5111 100644 --- a/My/JavaScript/JavaScriptObject.vb +++ b/My/JavaScript/JavaScriptObject.vb @@ -1,47 +1,61 @@ -#Region "Microsoft.VisualBasic::19bfdec5cef80f52096f361a1993ed21, Microsoft.VisualBasic.Core\My\JavaScript\JavaScriptObject.vb" +#Region "Microsoft.VisualBasic::36958daa809fe0d15066d99e66fa1d7d, Microsoft.VisualBasic.Core\My\JavaScript\JavaScriptObject.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 . + ' 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: + ' Summaries: -' Interface IJavaScriptObjectAccessor -' -' Properties: Accessor -' -' Class JavaScriptObject -' -' Constructor: (+1 Overloads) Sub New -' Function: GetEnumerator, IEnumerable_GetEnumerator -' -' -' /********************************************************************************/ + ' Interface IJavaScriptObjectAccessor + ' + ' Properties: Accessor + ' + ' Class Descriptor + ' + ' Properties: configurable, enumerable, value, writable + ' + ' Enum MemberAccessorResult + ' + ' ClassMemberProperty, ExtensionProperty, Undefined + ' + ' + ' + ' + ' + ' Class JavaScriptObject + ' + ' Properties: this + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: GetDescription, GetEnumerator, GetMemberValue, IEnumerable_GetEnumerator, IEnumerable_GetEnumerator1 + ' + ' + ' /********************************************************************************/ #End Region diff --git a/My/JavaScript/Linq.vb b/My/JavaScript/Linq.vb index 5cd46b2e..67057c2c 100644 --- a/My/JavaScript/Linq.vb +++ b/My/JavaScript/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::07bb13fb4b1929e273c991396589819c, Microsoft.VisualBasic.Core\My\JavaScript\Linq.vb" +#Region "Microsoft.VisualBasic::97023c68e29fa926f4c9890af85a7c30, Microsoft.VisualBasic.Core\My\JavaScript\Linq.vb" ' Author: ' diff --git a/Serialization/BinaryDumping/ObjectVisitor.vb b/Serialization/BinaryDumping/ObjectVisitor.vb index 4884662d..ef2b62a1 100644 --- a/Serialization/BinaryDumping/ObjectVisitor.vb +++ b/Serialization/BinaryDumping/ObjectVisitor.vb @@ -1,4 +1,56 @@ -Imports System.Reflection +#Region "Microsoft.VisualBasic::a12ead62d9f7b0ade23a395b8d60f0c8, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\ObjectVisitor.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: + + ' Delegate Sub + ' + ' + ' Class ObjectVisitor + ' + ' Properties: VisitOnlyFields + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: GetAllFields + ' + ' Sub: DoVisitArray, doVisitFields, DoVisitObject, DoVisitObjectFields, doVisitProperties + ' + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Reflection Imports Microsoft.VisualBasic.ComponentModel.Collection Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language @@ -117,4 +169,4 @@ Namespace Serialization.BinaryDumping Next End Sub End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/Text/TextEncodings.vb b/Text/TextEncodings.vb index 87a1089d..449be6dd 100644 --- a/Text/TextEncodings.vb +++ b/Text/TextEncodings.vb @@ -1,55 +1,55 @@ -#Region "Microsoft.VisualBasic::9609db91e7dcf90e1fe5a0b6e6717d36, Microsoft.VisualBasic.Core\Text\TextEncodings.vb" +#Region "Microsoft.VisualBasic::8e7f1a4a2c4046acad3f34789d3583b4, Microsoft.VisualBasic.Core\Text\TextEncodings.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 . + ' 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: + ' Summaries: -' Enum Encodings -' -' GB2312, Unicode, UTF16, UTF32, UTF7 -' UTF8, UTF8WithoutBOM -' -' -' -' -' -' Module TextEncodings -' -' Properties: DefaultEncoding, TextEncodings, UTF8, UTF8WithoutBOM -' -' Constructor: (+1 Overloads) Sub New -' Function: __gbk2312_encoding, CodeArray, (+2 Overloads) CodePage, codePageTable, GetEncodings -' ParseEncodingsName, TransEncoding -' -' -' /********************************************************************************/ + ' Enum Encodings + ' + ' GB2312, Unicode, UTF16, UTF32, UTF7 + ' UTF8, UTF8WithoutBOM + ' + ' + ' + ' + ' + ' Module TextEncodings + ' + ' Properties: DefaultEncoding, TextEncodings, UTF8, UTF8WithoutBOM + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: __gbk2312_encoding, CodeArray, (+2 Overloads) CodePage, codePageTable, GetEncodings + ' ParseEncodingsName, TransEncoding + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Text/Xml/Models/ValueTuples/ValuePair.vb b/Text/Xml/Models/ValueTuples/ValuePair.vb index 44a1fe79..9913ce63 100644 --- a/Text/Xml/Models/ValueTuples/ValuePair.vb +++ b/Text/Xml/Models/ValueTuples/ValuePair.vb @@ -1,50 +1,50 @@ -#Region "Microsoft.VisualBasic::797fff98dcd673f44f853ce792bece13, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\ValuePair.vb" +#Region "Microsoft.VisualBasic::31a753351be9474b091cf5e0bb7c3d03, Microsoft.VisualBasic.Core\Text\Xml\Models\ValueTuples\ValuePair.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 . + ' 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: + ' Summaries: -' Class KeyValuePair -' -' Properties: Key, Value -' -' Constructor: (+3 Overloads) Sub New -' Function: CreateObject, Distinct, (+2 Overloads) Equals, ToDictionary, ToString -' Interface IKeyValuePair -' -' -' -' -' -' -' /********************************************************************************/ + ' Class KeyValuePair + ' + ' Properties: Key, Value + ' + ' Constructor: (+3 Overloads) Sub New + ' Function: CreateObject, Distinct, (+2 Overloads) Equals, ToDictionary, ToString + ' Interface IKeyValuePair + ' + ' + ' + ' + ' + ' + ' /********************************************************************************/ #End Region From 1f2ec1b29cb3e1f953d2e7899636f8505fd827b2 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 12 Aug 2019 23:12:53 +0800 Subject: [PATCH 016/104] fix bugs in gzip stream handler --- ApplicationServices/Tools/Zip/StreamReader.vb | 83 ++++++++++++------- ApplicationServices/Tools/Zip/ZipLib.vb | 5 +- Net/HTTP/Stream/GZStream.vb | 15 +++- 3 files changed, 65 insertions(+), 38 deletions(-) diff --git a/ApplicationServices/Tools/Zip/StreamReader.vb b/ApplicationServices/Tools/Zip/StreamReader.vb index 19704cfd..08f69f4d 100644 --- a/ApplicationServices/Tools/Zip/StreamReader.vb +++ b/ApplicationServices/Tools/Zip/StreamReader.vb @@ -1,47 +1,48 @@ #Region "Microsoft.VisualBasic::a7764170bb2462a44609972063c01f91, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\StreamReader.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 . +' 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: +' Summaries: - ' Module ZipStreamReader - ' - ' Function: LoadZipArchive - ' - ' - ' /********************************************************************************/ +' Module ZipStreamReader +' +' Function: LoadZipArchive +' +' +' /********************************************************************************/ #End Region Imports System.IO Imports System.IO.Compression +Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ComponentModel.Collection Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Linq @@ -50,6 +51,12 @@ Namespace ApplicationServices.Zip Public Module ZipStreamReader + ''' + ''' 将zip文件中的所有数据包一次性的返回给上层调用代码 + ''' + ''' + ''' + ''' Public Iterator Function LoadZipArchive(zipFile As String, Optional takes As IEnumerable(Of String) = Nothing) As IEnumerable(Of NamedValue(Of MemoryStream)) Dim takeIndex As Index(Of String) = takes.SafeQuery.ToArray Dim entries As IEnumerable(Of ZipArchiveEntry) @@ -87,5 +94,17 @@ Namespace ApplicationServices.Zip Next End Using End Function + + ''' + ''' 如果这个函数返回的是空值，说明zip压缩文件中没有该目标 + ''' + ''' + ''' + ''' + ''' + + Public Function GetZipSubStream(zipFile$, name$) As MemoryStream + Return LoadZipArchive(zipFile, {name}).FirstOrDefault + End Function End Module End Namespace diff --git a/ApplicationServices/Tools/Zip/ZipLib.vb b/ApplicationServices/Tools/Zip/ZipLib.vb index fd59ea60..d65a5b43 100644 --- a/ApplicationServices/Tools/Zip/ZipLib.vb +++ b/ApplicationServices/Tools/Zip/ZipLib.vb @@ -263,7 +263,8 @@ Namespace ApplicationServices.Zip Private Sub AppendZip(zipFile As ZipArchive, files As IEnumerable(Of String), fileOverwrite As Overwrite, compression As CompressionLevel) For Each path As String In files - Dim fileInZip = (From f In zipFile.Entries Where f.Name = IO.Path.GetFileName(path)).FirstOrDefault() + Dim pathFileName = IO.Path.GetFileName(path) + Dim fileInZip = (From f In zipFile.Entries Where f.Name = pathFileName).FirstOrDefault() Select Case fileOverwrite Case Overwrite.Always @@ -274,7 +275,7 @@ Namespace ApplicationServices.Zip End If 'Adds the file to the archive - zipFile.CreateEntryFromFile(path, IO.Path.GetFileName(path), compression) + zipFile.CreateEntryFromFile(path, pathFileName, compression) Case Overwrite.IfNewer diff --git a/Net/HTTP/Stream/GZStream.vb b/Net/HTTP/Stream/GZStream.vb index 2b333baf..509309e2 100644 --- a/Net/HTTP/Stream/GZStream.vb +++ b/Net/HTTP/Stream/GZStream.vb @@ -51,7 +51,7 @@ Namespace Net.Http ''' 请注意，这个模块是处理http请求或者响应之中的gzip压缩的数据， ''' 对于zip压缩的数据需要使用模块之中的帮助函数来完成 ''' - Public Module GZipStream + Public Module GZipStreamHandler ''' ''' 如果得到的一个gzip压缩的数据块头部没有magic number的话，则使用这个方法手动的添加标记后再做解压缩 @@ -99,12 +99,19 @@ Namespace Net.Http ''' Public Function GZipStream(stream As Stream) As MemoryStream - Dim ms As New MemoryStream + Dim ms As New MemoryStream() - Using gz As New Compression.GZipStream(ms, CompressionMode.Compress) + Using gz As New GZipStream(ms, CompressionMode.Compress) + Call stream.Seek(Scan0, SeekOrigin.Begin) Call stream.CopyTo(gz) - Return ms End Using + + ' we create the data array here once the GZIP stream has been disposed + Dim data = ms.ToArray() + ms.Dispose() + ms = New MemoryStream(data) + + Return ms End Function ''' From 373724655f12c25d021594b36355f360e782d5ef Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 13 Aug 2019 20:48:46 +0800 Subject: [PATCH 017/104] Update ZipLib.vb delete items in zip file --- ApplicationServices/Tools/Zip/ZipLib.vb | 81 ++++++++++++++----------- 1 file changed, 46 insertions(+), 35 deletions(-) diff --git a/ApplicationServices/Tools/Zip/ZipLib.vb b/ApplicationServices/Tools/Zip/ZipLib.vb index d65a5b43..11e21dcc 100644 --- a/ApplicationServices/Tools/Zip/ZipLib.vb +++ b/ApplicationServices/Tools/Zip/ZipLib.vb @@ -1,44 +1,44 @@ #Region "Microsoft.VisualBasic::d1c59b3d414151d828ccee637dc6b49d, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\ZipLib.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 . +' 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: +' Summaries: - ' Module ZipLib - ' - ' Function: IsADirectoryEntry, IsSourceFolderZip - ' - ' Sub: AddToArchive, AppendZip, DirectoryArchive, FileArchive - ' - ' - ' /********************************************************************************/ +' Module ZipLib +' +' Function: IsADirectoryEntry, IsSourceFolderZip +' +' Sub: AddToArchive, AppendZip, DirectoryArchive, FileArchive +' +' +' /********************************************************************************/ #End Region @@ -47,6 +47,7 @@ Imports System.IO.Compression Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ApplicationServices Imports Microsoft.VisualBasic.CommandLine.Reflection +Imports Microsoft.VisualBasic.ComponentModel.Collection Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.UnixBash Imports Microsoft.VisualBasic.Scripting.MetaData @@ -195,10 +196,11 @@ Namespace ApplicationServices.Zip 'Identifies the mode we will be using - the default is Create Dim mode As ZipArchiveMode = ZipArchiveMode.Create - 'Determines if the zip file even exists Dim archiveExists As Boolean = IO.File.Exists(archiveFullName) + Call archiveFullName.ParentPath.MkDIR + 'Figures out what to do based upon our specified overwrite method Select Case action Case ArchiveAction.Merge @@ -260,6 +262,15 @@ Namespace ApplicationServices.Zip End Using End Sub + + Public Sub DeleteItems(zip As ZipArchive, itemNames As Index(Of String)) + For Each file As ZipArchiveEntry In zip.Entries.ToArray + If file.Name Like itemNames Then + Call file.Delete() + End If + Next + End Sub + Private Sub AppendZip(zipFile As ZipArchive, files As IEnumerable(Of String), fileOverwrite As Overwrite, compression As CompressionLevel) For Each path As String In files From 10940c7065274b836993ae4dd2989def990b8db4 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 17 Aug 2019 23:18:06 +0800 Subject: [PATCH 018/104] Update IndexOf.vb add count predicate test --- .../System.Collections.Generic/IndexOf.vb | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index 6ec5cf2e..c8fb647e 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -340,5 +340,21 @@ Namespace ComponentModel.Collection Private Iterator Function IEnumerable_GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator Yield GetEnumerator() End Function + + ''' + ''' The element numbers in current index object is equals to given count number value? + ''' + ''' + ''' + ''' + + Public Shared Operator =(index As Index(Of T), count%) As Boolean + Return index.Count = count + End Operator + + + Public Shared Operator <>(index As Index(Of T), count%) As Boolean + Return Not index = count + End Operator End Class End Namespace From 8ff96f39cf3bb4c7767f9fa7ab5c151b7e800b97 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 17 Aug 2019 23:19:47 +0800 Subject: [PATCH 019/104] code style improvemnents of the dynamics programming module code --- 47-dotnet_Microsoft.VisualBasic.vbproj | 2 +- .../Algorithm/DynamicProgramming/LCS.vb | 14 +++++++------- .../Algorithm/DynamicProgramming/SCS.vb | 16 +++++++++------- .../DataSource/Property/NamedCollection.vb | 12 ++++++++++-- Extensions/Math/Math.vb | 11 +++++++++++ 5 files changed, 38 insertions(+), 17 deletions(-) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 2b7841a7..b07e5194 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -166,7 +166,7 @@ true true - ..\..\..\..\GCModeller\bin\ + ..\CLI_tools\MLkit\Apps\ FRAMEWORD_CORE=1 true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml diff --git a/ComponentModel/Algorithm/DynamicProgramming/LCS.vb b/ComponentModel/Algorithm/DynamicProgramming/LCS.vb index 69b29030..a83830b4 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/LCS.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/LCS.vb @@ -59,11 +59,11 @@ Namespace ComponentModel.Algorithm.DynamicProgramming ''' ''' Public Function MaxLengthSubString(a As String, b As String) As String - Return MaxSet(a.ToArray, b.ToArray, AddressOf __equals) + Return MaxSet(a.ToArray, b.ToArray, AddressOf charEquals) End Function - Private Function __equals(a As Char, b As Char) As Boolean + Private Function charEquals(a As Char, b As Char) As Boolean Return a = b End Function @@ -91,27 +91,27 @@ Namespace ComponentModel.Algorithm.DynamicProgramming Dim lst As New List(Of T) - __LCS(p, a, a.Length, b.Length, lst) + doLCSInternal(p, a, a.Length, b.Length, lst) Call lst.Reverse() Return lst.ToArray End Function - Private Sub __LCS(Of T)(p()() As Char, a() As T, i As Integer, j As Integer, ByRef lst As List(Of T)) + Private Sub doLCSInternal(Of T)(p()() As Char, a() As T, i As Integer, j As Integer, ByRef lst As List(Of T)) If i = 0 OrElse j = 0 Then Return End If If p(i)(j) = "-"c Then - __LCS(p, a, i - 1, j - 1, lst) + doLCSInternal(p, a, i - 1, j - 1, lst) lst += a(i - 1) ElseIf p(i)(j) = "<"c Then - __LCS(p, a, i - 1, j, lst) + doLCSInternal(p, a, i - 1, j, lst) ElseIf p(i)(j) = ">"c Then - __LCS(p, a, i, j - 1, lst) + doLCSInternal(p, a, i, j - 1, lst) End If End Sub End Module diff --git a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb index 41644fb4..d053c80f 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb @@ -109,8 +109,8 @@ Namespace ComponentModel.Algorithm.DynamicProgramming ''' 当这个函数遇到完全没有重叠的序列片段的时候，是会直接将这个不重叠的片段接到SCS的最末尾的 ''' - Public Function ShortestCommonSuperString(Seqs As List(Of String)) As String - Dim l As Integer = Seqs.Count + Public Function ShortestCommonSuperString(seqs As List(Of String)) As String + Dim l As Integer = seqs.Count Do While l > 1 Dim currMax As Integer = Integer.MinValue @@ -119,8 +119,8 @@ Namespace ComponentModel.Algorithm.DynamicProgramming For j As Integer = 0 To l - 1 For k As Integer = j + 1 To l - 1 - Dim str As String = Seqs(j) - Dim b As String = Seqs(k) + Dim str As String = seqs(j) + Dim b As String = seqs(k) If str.Contains(b) Then If b.Length > currMax Then @@ -139,6 +139,7 @@ Namespace ComponentModel.Algorithm.DynamicProgramming Else ' find max common prefix and suffix Dim maxPrefixMatch = MaxPrefixLength(str, b) + If maxPrefixMatch > currMax Then finalStr = str + b.Substring(maxPrefixMatch) currMax = maxPrefixMatch @@ -147,6 +148,7 @@ Namespace ComponentModel.Algorithm.DynamicProgramming End If Dim maxSuffixMatch = MaxPrefixLength(b, str) + If maxSuffixMatch > currMax Then finalStr = b + str.Substring(maxSuffixMatch) currMax = maxSuffixMatch @@ -158,11 +160,11 @@ Namespace ComponentModel.Algorithm.DynamicProgramming Next l -= 1 - Seqs(p) = finalStr - Seqs(q) = Seqs(l) + seqs(p) = finalStr + seqs(q) = seqs(l) Loop - Return Seqs.First + Return seqs.First End Function Private Function MaxPrefixLength(a As String, b As String) As Integer diff --git a/ComponentModel/DataSource/Property/NamedCollection.vb b/ComponentModel/DataSource/Property/NamedCollection.vb index 85a88bd5..10a6e908 100644 --- a/ComponentModel/DataSource/Property/NamedCollection.vb +++ b/ComponentModel/DataSource/Property/NamedCollection.vb @@ -199,8 +199,8 @@ Namespace ComponentModel.DataSourceModel End Function Public Iterator Function GetEnumerator() As IEnumerator(Of T) Implements IEnumerable(Of T).GetEnumerator - For Each x As T In value.SafeQuery - Yield x + For Each obj As T In value.SafeQuery + Yield obj Next End Function @@ -211,5 +211,13 @@ Namespace ComponentModel.DataSourceModel Public Shared Widening Operator CType(tuple As (name$, value As T())) As NamedCollection(Of T) Return New NamedCollection(Of T)(tuple.name, tuple.value) End Operator + + Public Shared Operator =(list As NamedCollection(Of T), count As Integer) As Boolean + Return list.Count = count + End Operator + + Public Shared Operator <>(list As NamedCollection(Of T), count As Integer) As Boolean + Return Not list = count + End Operator End Structure End Namespace diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb index f2aa08ea..cd89f1b5 100644 --- a/Extensions/Math/Math.vb +++ b/Extensions/Math/Math.vb @@ -2018,6 +2018,17 @@ Namespace Math End With End Function + Public Function RMS(a#(), b#()) As Double + Dim sum# + Dim n% = a.Length + + For i As Integer = 0 To n - 1 + sum += (a(i) - b(i)) ^ 2 + Next + + Return Math.Sqrt(sum) + End Function + ''' ''' ``相对标准偏差（RSD）= 标准偏差（SD）/ 计算结果的算术平均值（X）* 100%`` ''' From 275a4040ffcd7f0028ed2d1e2c6c216f86018268 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 20 Aug 2019 19:42:08 +0800 Subject: [PATCH 020/104] code style improvements --- Extensions/Math/Correlations/Ranking.vb | 21 ++++++++++++++++++--- Extensions/StringHelpers/StringHelpers.vb | 7 +++++-- Scripting/MetaData/Type.vb | 14 ++++++++++---- 3 files changed, 33 insertions(+), 9 deletions(-) diff --git a/Extensions/Math/Correlations/Ranking.vb b/Extensions/Math/Correlations/Ranking.vb index 16ac7663..1a27a5b6 100644 --- a/Extensions/Math/Correlations/Ranking.vb +++ b/Extensions/Math/Correlations/Ranking.vb @@ -86,6 +86,14 @@ Namespace Math.Correlations FractionalRanking = 1 + 2.5 + 2.5 + 4 End Enum + ''' + ''' 函数返回与输入的序列中的元素相同顺序的排序的得分 + ''' + ''' + ''' + ''' + ''' + ''' Public Function Ranking(Of C As IComparable)(list As IEnumerable(Of C), Optional strategy As Strategies = Strategies.OrdinalRanking, Optional desc As Boolean = False) As Double() @@ -137,8 +145,13 @@ Namespace Math.Correlations .Keys _ .GroupBy(Function(x) x.value) _ .ToDictionary(Function(x) x.First.value, - Function(g) g.Count) - Dim previous As C = asc.Last.value ' 使用Nothing的时候，对于数字而言，会是0，则会和0冲突，使用最大的值则完全可以避免这个问题了 + Function(g) + Return g.Count + End Function) + + ' 使用Nothing的时候，对于数字而言，会是0，则会和0冲突， + ' 使用最大的值则完全可以避免这个问题了 + Dim previous As C = asc.Last.value For i As Integer = 0 To asc.Length - 1 ' obj -> original_i -> rank @@ -324,7 +337,9 @@ Namespace Math.Correlations Dim equals = array.GroupBy(Function(x) x.value) For Each g As IGrouping(Of C, SeqValue(Of C)) In equals - Dim avgRanks# = Aggregate i In g Into Average(ranks(i)) + Dim avgRanks# = Aggregate i + In g + Into Average(ranks(i)) For Each i As SeqValue(Of C) In g ranks(i.i) = avgRanks diff --git a/Extensions/StringHelpers/StringHelpers.vb b/Extensions/StringHelpers/StringHelpers.vb index 9c421aee..b4ca01c7 100644 --- a/Extensions/StringHelpers/StringHelpers.vb +++ b/Extensions/StringHelpers/StringHelpers.vb @@ -878,14 +878,17 @@ Public Module StringHelpers ''' Public Function TokenCount(tokens As IEnumerable(Of String), Optional ignoreCase As Boolean = False) As Dictionary(Of String, Integer) - If Not ignoreCase Then ' 大小写敏感 + If Not ignoreCase Then + ' 大小写敏感 With From s As String In tokens Select s Group s By s Into Count Return .ToDictionary(Function(x) x.s, - Function(x) x.Count) + Function(x) + Return x.Count + End Function) End With Else Return tokens.TokenCountIgnoreCase diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index 3616359b..11942693 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -101,22 +101,27 @@ Namespace Scripting.MetaData End Function ''' - ''' Loads the assembly file which contains this type. If the is not a valid directory location, + ''' Loads the assembly file which contains this type. If the is not a valid directory location, ''' then using the location as default. ''' ''' - Public Function LoadAssembly(Optional DIR As DefaultString = Nothing) As Assembly - Dim path As String = $"{DIR Or App.HOME}/{Me.assm}" + Public Function LoadAssembly(Optional directory As DefaultString = Nothing) As Assembly + Dim path As String = $"{directory Or App.HOME}/{Me.assm}" Dim assm As Assembly = Assembly.LoadFile(path) + Return assm End Function ''' ''' Get mapping type information. ''' + ''' + ''' 如果这个参数为真的话, 则会尝试直接从当前的应用程序域中查找类信息, 反之则会加载目标程序集进行类型信息查找 + ''' ''' Public Overloads Function [GetType](Optional knownFirst As Boolean = False) As Type Dim type As Type + Dim assm As Assembly If knownFirst Then type = Scripting.GetType(fullIdentity) @@ -126,8 +131,9 @@ Namespace Scripting.MetaData End If End If - Dim assm As Assembly = LoadAssembly() + assm = LoadAssembly() type = assm.GetType(Me.fullIdentity) + Return type End Function From a2f0da435ea19507c237300ab12e63f461eeb18c Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 21 Aug 2019 18:43:47 +0800 Subject: [PATCH 021/104] improvements of the binary tree module --- 47-dotnet_Microsoft.VisualBasic.vbproj | 5 +- ApplicationServices/App.vb | 8 ++ .../BinaryTree/AVLTree/AVLClusterTree.vb | 108 ++++++++++++++++++ .../BinaryTree/{ => AVLTree}/AVLSupports.vb | 0 .../BinaryTree/{ => AVLTree}/AVLTree.vb | 31 +++-- .../Algorithm/DynamicProgramming/SCS.vb | 6 +- Language/API.vb | 18 +++ 7 files changed, 160 insertions(+), 16 deletions(-) create mode 100644 ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb rename ComponentModel/Algorithm/BinaryTree/{ => AVLTree}/AVLSupports.vb (100%) rename ComponentModel/Algorithm/BinaryTree/{ => AVLTree}/AVLTree.vb (85%) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index b07e5194..2f7dfded 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -979,6 +979,7 @@ + @@ -1008,7 +1009,7 @@ - + @@ -1016,7 +1017,7 @@ - + diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 79bf75ba..557209b0 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -682,6 +682,14 @@ Public Module App End If End Sub + ''' + ''' Pause and then exit the application. + ''' + Public Sub [Stop]() + Call App.Pause() + Call App.Exit() + End Sub + ''' ''' 使用的位置会变化的，则使用本函数则会使用获取当前的模块的文件夹，即使其不是exe程序而是一个dll文件 ''' diff --git a/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb new file mode 100644 index 00000000..a08eb220 --- /dev/null +++ b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb @@ -0,0 +1,108 @@ +Imports System.Runtime.CompilerServices +Imports Microsoft.VisualBasic.Language + +Namespace ComponentModel.Algorithm.BinaryTree + + Public Class ClusterKey(Of K) + + ReadOnly members As New List(Of K) + ReadOnly views As Func(Of K, String) + + Public ReadOnly Property NumberOfKey As Integer + Get + Return members.Count + End Get + End Property + + Default Public ReadOnly Property Item(index As Integer) As K + Get + Return members(index) + End Get + End Property + + Sub New([single] As K, views As Func(Of K, String)) + Me.views = views + + ' Add a initial single member object + Call members.Add([single]) + End Sub + + + Public Sub Add(newMember As K) + Call members.Add(newMember) + End Sub + + Public Overrides Function ToString() As String + If members.Count = 1 Then + Return views(members(Scan0)) + Else + Return views(members(Scan0)) & $", and with {members.Count} cluster members.." + End If + End Function + + ''' + ''' 在这里应该是多个key比较一个query + ''' + ''' + ''' + Public Shared Function DoComparison(compares As Comparison(Of K)) As Func(Of ClusterKey(Of K), K, Integer) + Return Function(cluster, key) As Integer + Dim compareVal As Value(Of Integer) = -100 + Dim values As New List(Of Integer) + + For Each index As K In cluster.members + If (compareVal = compares(index, key)) = 0 Then + Return 0 + Else + values += compareVal + End If + Next + + If values.Where(Function(x) x = 1).Count > values.Count / 2 Then + Return 1 + Else + Return -1 + End If + End Function + End Function + End Class + + Public Class AVLClusterTree(Of K) : Implements IEnumerable(Of ClusterKey(Of K)) + + ReadOnly avltree As AVLTree(Of ClusterKey(Of K), K) + ReadOnly views As Func(Of K, String) + + Sub New(compares As Comparison(Of K), Optional views As Func(Of K, String) = Nothing) + Me.views = views + Me.avltree = New AVLTree(Of ClusterKey(Of K), K)(doCompares(compares), Function(c) c.ToString) + End Sub + + Private Shared Function doCompares(compares As Comparison(Of K)) As Comparison(Of ClusterKey(Of K)) + Dim unsymmetricalCompares = ClusterKey(Of K).DoComparison(compares) + + ' 在AVL数据模块中，比较代码中，待插入的key都是放在左边，即X参数部分 + Return Function(x, y) + Return unsymmetricalCompares(y, x(Scan0)) + End Function + End Function + + + Public Sub Add(key As K) + Call avltree.Add(New ClusterKey(Of K)(key, views), key, Sub(node, null) node.Key.Add(key)) + End Sub + + Public Sub Clear() + Call avltree.Clear() + End Sub + + Public Iterator Function GetEnumerator() As IEnumerator(Of ClusterKey(Of K)) Implements IEnumerable(Of ClusterKey(Of K)).GetEnumerator + For Each cluster In avltree.root.PopulateNodes + Yield cluster.Key + Next + End Function + + Private Iterator Function IEnumerable_GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator + Yield GetEnumerator() + End Function + End Class +End Namespace \ No newline at end of file diff --git a/ComponentModel/Algorithm/BinaryTree/AVLSupports.vb b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLSupports.vb similarity index 100% rename from ComponentModel/Algorithm/BinaryTree/AVLSupports.vb rename to ComponentModel/Algorithm/BinaryTree/AVLTree/AVLSupports.vb diff --git a/ComponentModel/Algorithm/BinaryTree/AVLTree.vb b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLTree.vb similarity index 85% rename from ComponentModel/Algorithm/BinaryTree/AVLTree.vb rename to ComponentModel/Algorithm/BinaryTree/AVLTree/AVLTree.vb index bdc89124..b4c740f9 100644 --- a/ComponentModel/Algorithm/BinaryTree/AVLTree.vb +++ b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLTree.vb @@ -49,6 +49,8 @@ Imports System.Runtime.CompilerServices Namespace ComponentModel.Algorithm.BinaryTree + Public Delegate Sub DuplicatedKeyHandler(Of K, V)(keyNode As BinaryTree(Of K, V), newValue As V) + ''' ''' The AVL binary tree operator. ''' @@ -80,24 +82,31 @@ Namespace ComponentModel.Algorithm.BinaryTree Public Sub Add(key As K, value As V, Optional valueReplace As Boolean = True) - _root = Add(key, value, _root, valueReplace) + _root = Add(key, value, _root, Sub(node, newValue) + If valueReplace Then + node.Value = newValue + End If + End Sub) End Sub - Public Function Add(key As K, value As V, tree As BinaryTree(Of K, V), valueReplace As Boolean) As BinaryTree(Of K, V) + + Public Sub Add(key As K, value As V, handleDuplicated As DuplicatedKeyHandler(Of K, V)) + _root = Add(key, value, _root, handleDuplicated) + End Sub + + Private Function Add(key As K, value As V, tree As BinaryTree(Of K, V), handleDuplicatedKey As DuplicatedKeyHandler(Of K, V)) As BinaryTree(Of K, V) If tree Is Nothing Then ' 追加新的叶子节点 tree = New BinaryTree(Of K, V)(key, value, Nothing, views) stack.Add(tree) Else Select Case compares(key, tree.Key) - Case < 0 : Call appendLeft(tree, key, value, valueReplace) - Case > 0 : Call appendRight(tree, key, value, valueReplace) + Case < 0 : Call appendLeft(tree, key, value, handleDuplicatedKey) + Case > 0 : Call appendRight(tree, key, value, handleDuplicatedKey) Case = 0 ' 将value追加到附加值中（也可对应重复元素） - If valueReplace Then - tree.Value = value - End If + Call handleDuplicatedKey(tree, value) ' 2018.3.6 ' 如果是需要使用二叉树进行聚类操作，那么等于零的值可能都是同一个簇之中的 @@ -115,8 +124,8 @@ Namespace ComponentModel.Algorithm.BinaryTree Return tree End Function - Private Sub appendRight(ByRef tree As BinaryTree(Of K, V), key As K, value As V, replace As Boolean) - tree.Right = Add(key, value, tree.Right, replace) + Private Sub appendRight(ByRef tree As BinaryTree(Of K, V), key As K, value As V, handleDuplicatedKey As DuplicatedKeyHandler(Of K, V)) + tree.Right = Add(key, value, tree.Right, handleDuplicatedKey) If tree.Right.height - tree.Left.height = 2 Then If compares(key, tree.Right.Key) > 0 Then @@ -127,8 +136,8 @@ Namespace ComponentModel.Algorithm.BinaryTree End If End Sub - Private Sub appendLeft(ByRef tree As BinaryTree(Of K, V), key As K, value As V, replace As Boolean) - tree.Left = Add(key, value, tree.Left, replace) + Private Sub appendLeft(ByRef tree As BinaryTree(Of K, V), key As K, value As V, handleDuplicatedKey As DuplicatedKeyHandler(Of K, V)) + tree.Left = Add(key, value, tree.Left, handleDuplicatedKey) If tree.Left.height - tree.Right.height = 2 Then If compares(key, tree.Left.Key) < 0 Then diff --git a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb index d053c80f..6470d07a 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb @@ -109,7 +109,7 @@ Namespace ComponentModel.Algorithm.DynamicProgramming ''' 当这个函数遇到完全没有重叠的序列片段的时候，是会直接将这个不重叠的片段接到SCS的最末尾的 ''' - Public Function ShortestCommonSuperString(seqs As List(Of String)) As String + Public Function ShortestCommonSuperString(seqs As Generic.List(Of String)) As String Dim l As Integer = seqs.Count Do While l > 1 @@ -141,7 +141,7 @@ Namespace ComponentModel.Algorithm.DynamicProgramming Dim maxPrefixMatch = MaxPrefixLength(str, b) If maxPrefixMatch > currMax Then - finalStr = str + b.Substring(maxPrefixMatch) + finalStr = str & b.Substring(maxPrefixMatch) currMax = maxPrefixMatch p = j q = k @@ -150,7 +150,7 @@ Namespace ComponentModel.Algorithm.DynamicProgramming Dim maxSuffixMatch = MaxPrefixLength(b, str) If maxSuffixMatch > currMax Then - finalStr = b + str.Substring(maxSuffixMatch) + finalStr = b & str.Substring(maxSuffixMatch) currMax = maxSuffixMatch p = j q = k diff --git a/Language/API.vb b/Language/API.vb index 468cef5b..3da897d8 100644 --- a/Language/API.vb +++ b/Language/API.vb @@ -209,6 +209,24 @@ Namespace Language End Function #End Region + + Public Function TryCastArray(Of T)(var As [Variant](Of T, T())) As T() + If var Like GetType(T) Then + Return {var.TryCast(Of T)} + Else + Return var.TryCast(Of T()) + End If + End Function + + + Public Function TryCastArray(Of T)(var As [Variant](Of T(), T)) As T() + If var Like GetType(T) Then + Return {var.TryCast(Of T)} + Else + Return var.TryCast(Of T()) + End If + End Function + Public Function AsVector(strings As IEnumerable(Of String)) As StringVector From 757657d32f9c79807b111f2280800675b33dd20a Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 31 Aug 2019 11:42:06 +0800 Subject: [PATCH 022/104] fix bugs in the cli code generator when set framework environment variables --- 47-dotnet_Microsoft.VisualBasic.vbproj | 10 +- ApplicationServices/App.vb | 20 +++- ApplicationServices/Debugger.vb | 20 +--- .../Terminal/InteractiveIODevice/Shell.vb | 49 +++++--- .../InteractiveIODevice/TerminalExtensions.vb | 49 ++++---- ApplicationServices/Terminal/STDIO__/STDIO.vb | 35 +++--- ApplicationServices/Terminal/STDIO__/Shell.vb | 6 +- ApplicationServices/Tools/Zip/StreamReader.vb | 66 +++++------ ApplicationServices/Tools/Zip/ZipLib.vb | 70 +++++------ CommandLine/GitBashEnvironment.vb | 18 ++- .../SharedORM/{ => Languages}/PHP.vb | 2 +- .../SharedORM/{ => Languages}/Perl.vb | 2 +- .../SharedORM/{ => Languages}/R.vb | 2 +- .../SharedORM/{ => Languages}/VisualBasic.vb | 81 ++++++++----- .../Interpreters/InteractiveConsole.vb | 88 +++++++------- .../BinaryTree/AVLTree/AVLClusterTree.vb | 109 ++++++++++++++++-- .../BinaryTree/AVLTree/AVLSupports.vb | 2 +- .../Algorithm/BinaryTree/AVLTree/AVLTree.vb | 8 +- .../Algorithm/DynamicProgramming/LCS.vb | 6 +- .../Algorithm/DynamicProgramming/SCS.vb | 2 +- .../DataSource/Property/NamedCollection.vb | 3 +- .../Ranges/RangeModel/DoubleRange.vb | 19 ++- .../System.Collections.Generic/IndexOf.vb | 4 +- Extensions/Collection/Linq/Enumeration.vb | 8 +- Extensions/Collection/Linq/Pipeline.vb | 9 +- Extensions/Math/Correlations/Ranking.vb | 2 +- Extensions/Math/Math.vb | 4 +- Extensions/Math/NumberGroups.vb | 19 ++- Extensions/Math/Random/RandomExtensions.vb | 4 +- Extensions/StringHelpers/StringHelpers.vb | 2 +- Language/API.vb | 5 +- .../Value/DefaultValue/DefaultExtensions.vb | 17 ++- Language/Value/Value.vb | 7 +- Net/HTTP/Stream/GZStream.vb | 4 +- Scripting/MetaData/Type.vb | 2 +- Text/Xml/Linq/Linq.vb | 14 ++- 36 files changed, 481 insertions(+), 287 deletions(-) rename CommandLine/InteropService/SharedORM/{ => Languages}/PHP.vb (98%) rename CommandLine/InteropService/SharedORM/{ => Languages}/Perl.vb (99%) rename CommandLine/InteropService/SharedORM/{ => Languages}/R.vb (98%) rename CommandLine/InteropService/SharedORM/{ => Languages}/VisualBasic.vb (78%) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 2f7dfded..b057ee0f 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -333,7 +333,7 @@ true true - ..\..\..\..\..\smartnucl_integrative\biodeepDB\METLINApp\App\ + bin\app\ FRAMEWORD_CORE=1 false Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml @@ -1084,12 +1084,12 @@ - + - - - + + + diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 557209b0..c533d170 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::55ada024e60aa0a327e8b150bbf2f188, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" +#Region "Microsoft.VisualBasic::0ef8bf344a7af30b53867732f3d6f4e5, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" ' Author: ' @@ -40,8 +40,8 @@ ' LogErrDIR, NanoTime, NextTempName, OutFile, PID ' Platform, PreviousDirectory, Process, ProductName, ProductProgramData ' ProductSharedDIR, ProductSharedTemp, References, Running, RunningInGitBash - ' RunTimeDirectory, StartTime, StartupDirectory, StdErr, StdOut - ' SysTemp, UnixTimeStamp, UserHOME, Version + ' RunTimeDirectory, StartTime, StartupDirectory, StdErr, StdInput + ' StdOut, SysTemp, UnixTimeStamp, UserHOME, Version ' ' Constructor: (+1 Overloads) Sub New ' @@ -52,9 +52,9 @@ ' (+3 Overloads) LogException, NullDevice, (+10 Overloads) RunCLI, RunCLIInternal, SelfFolk ' SelfFolks, Shell, tempCode, TemporaryEnvironment, TraceBugs ' - ' Sub: __GCThreadInvoke, __removesTEMP, AddExitCleanHook, FlushMemory, Free - ' JoinVariable, (+2 Overloads) JoinVariables, Pause, (+2 Overloads) println, RunAsAdmin - ' SetBufferSize, StartGC, StopGC + ' Sub: [Stop], __GCThreadInvoke, __removesTEMP, AddExitCleanHook, FlushMemory + ' Free, JoinVariable, (+2 Overloads) JoinVariables, Pause, (+2 Overloads) println + ' RunAsAdmin, SetBufferSize, StartGC, StopGC ' ' /********************************************************************************/ @@ -178,6 +178,7 @@ Public Module App ''' ''' Public ReadOnly Property StdOut As [Default](Of TextWriter) = Console.OpenStandardOutput.OpenTextWriter + Public ReadOnly Property StdInput As [Default](Of TextReader) = New StreamReader(Console.OpenStandardInput) ''' ''' Get the id(PID) of the current program process. @@ -1030,6 +1031,13 @@ Public Module App #Region "CLI interpreter" + ''' + ''' 当前的应用程序是否退出运行了? 当调用方法的时候, 除了会终止程序的运行 + ''' 还会讲这个属性设置为False + ''' + ''' 在应用程序框架中, 有一些组件的线程会需要依赖于这个属性值来自动停止运行 + ''' + ''' Public ReadOnly Property Running As Boolean = True ''' diff --git a/ApplicationServices/Debugger.vb b/ApplicationServices/Debugger.vb index 8d8af1b6..67641efa 100644 --- a/ApplicationServices/Debugger.vb +++ b/ApplicationServices/Debugger.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::04369fce4edad7572df6e2634f9e59eb, Microsoft.VisualBasic.Core\ApplicationServices\Debugger.vb" +#Region "Microsoft.VisualBasic::cfb8cd1431080ad241198793af439fbf, Microsoft.VisualBasic.Core\ApplicationServices\Debugger.vb" ' Author: ' @@ -38,8 +38,7 @@ ' ' Properties: ForceSTDError, Mute, UsingxConsole ' - ' Function: __DEBUG_ECHO, Assert, BENCHMARK, (+2 Overloads) PrintException, this - ' Warning + ' Function: __DEBUG_ECHO, Assert, BENCHMARK, (+2 Overloads) PrintException, Warning ' ' Sub: (+2 Overloads) __DEBUG_ECHO, __INFO_ECHO, (+3 Overloads) Assertion, AttachLoggingDriver, cat ' (+3 Overloads) Echo, EchoLine, WaitOutput, WriteLine @@ -80,7 +79,7 @@ Public Module VBDebugger Public Function die(message$, Optional failure As Assert(Of Object) = Nothing, Optional caller$ = Nothing) As ExceptionHandle Return New ExceptionHandle With { - .Message = message, + .message = message, .failure = failure Or defaultAssert } End Function @@ -372,20 +371,9 @@ Public Module VBDebugger End Sub Public Sub __DEBUG_ECHO(Of T)(value As T, Optional memberName As String = "") - Call (Scripting.InputHandler.ToString(value) & " @" & memberName).__DEBUG_ECHO + Call ($"<{memberName}> {Scripting.InputHandler.ToString(value)}").__DEBUG_ECHO End Sub - ''' - ''' Returns the current function name. - ''' - ''' - ''' The caller function name, do not assign any value to this parameter! Just leave it blank. - ''' - ''' - Public Function this( Optional caller As String = "") As String - Return caller - End Function - Public Sub Echo(Of T)(array As IEnumerable(Of T), Optional memberName As String = "") Call String.Join(", ", array.Select(Function(obj) Scripting.ToString(obj)).ToArray).__DEBUG_ECHO End Sub diff --git a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb index 6eabf4ad..fecc7ed7 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a596d68f21ddfe88f4f2dacfb45376f7, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\Shell.vb" +#Region "Microsoft.VisualBasic::d216526a496bf2fc312ec925d21209a9, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\Shell.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Class Shell ' - ' Properties: History, Quite + ' Properties: dev, History, ps1, Quite, shell ' ' Constructor: (+1 Overloads) Sub New ' Sub: Run @@ -43,36 +43,57 @@ #End Region +Imports System.IO +Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.UnixBash Namespace Terminal + ''' + ''' Shell model for console. + ''' Public Class Shell - ReadOnly __ps1 As PS1 - ReadOnly __shell As Action(Of String) + Public ReadOnly Property ps1 As PS1 + Public ReadOnly Property shell As Action(Of String) + Public ReadOnly Property dev As TextReader + ''' + ''' Command text for exit the shell loop + ''' + ''' Public Property Quite As String = ":q" Public Property History As String = ":h" - Sub New(ps1 As PS1, exec As Action(Of String)) - __ps1 = ps1 - __shell = exec + ''' + ''' + ''' + ''' The commandline prompt prefix headers. + ''' How to execute the command line input. + Sub New(ps1 As PS1, exec As Action(Of String), Optional dev As TextReader = Nothing) + Me.ps1 = ps1 + Me.shell = exec + Me.dev = dev Or App.StdInput End Sub + ''' + ''' 执行一个配置好的命令行模型, 代码会被一直阻塞在这里 + ''' Public Sub Run() - Dim cli As String + Dim cli As Value(Of String) = "" Do While True - Call Console.Write(__ps1.ToString) + Call Console.Write(ps1.ToString) - cli = Console.ReadLine - - If String.Equals(cli, Quite) Then - Exit Do + If (cli = Console.ReadLine).Trim.StringEmpty Then + Continue Do End If - Call __shell(cli) + If cli.Value.TextEquals(Quite) Then + Exit Do + Else + Call _shell(cli) + End If Loop End Sub End Class diff --git a/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb b/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb index 4be0639e..17b5de9d 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/TerminalExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::10a854194c79e6e0a93f21577272dedb, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\TerminalExtensions.vb" +#Region "Microsoft.VisualBasic::1dc754b47a61180b1bdf10c4c1438493, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\TerminalExtensions.vb" ' Author: ' @@ -38,7 +38,7 @@ ' ' Properties: ConsoleHandleInvalid, CurrentSize ' - ' Sub: __detects + ' Sub: doEvents ' ' ' @@ -52,25 +52,28 @@ Imports Microsoft.VisualBasic.Language Namespace Terminal + ''' + ''' 这个终端事件会依赖于属性值来自动退出的 + ''' Public Module TerminalEvents Public Delegate Sub ResizeEventHandle(size As Size, oldSize As Size) - Dim __resizeHandles As New List(Of ResizeEventHandle) - Dim _old As Size - Dim _eventThread As Thread + Dim resizeHandles As New List(Of ResizeEventHandle) + Dim oldSize As Size + Dim eventThread As Thread Public ReadOnly Property CurrentSize As Size Get - Return _old + Return oldSize End Get End Property - Private Sub __detects() + Private Sub doEvents() Do While App.Running - If Console.WindowHeight <> _old.Height Then + If Console.WindowHeight <> oldSize.Height Then RaiseEvent Resize() - ElseIf Console.WindowWidth <> _old.Width Then + ElseIf Console.WindowWidth <> oldSize.Width Then RaiseEvent Resize() End If @@ -85,15 +88,15 @@ Namespace Terminal ''' Public Custom Event Resize As ResizeEventHandle AddHandler(value As ResizeEventHandle) - If __resizeHandles.IndexOf(value) = -1 Then - __resizeHandles += value + If resizeHandles.IndexOf(value) = -1 Then + resizeHandles += value End If - If _eventThread Is Nothing Then + If eventThread Is Nothing Then Try - _old = New Size(Console.WindowWidth, Console.WindowHeight) - _eventThread = New Thread(AddressOf __detects) - _eventThread.Start() + oldSize = New Size(Console.WindowWidth, Console.WindowHeight) + eventThread = New Thread(AddressOf doEvents) + eventThread.Start() Catch ex As Exception ' 可能是WindowsForm应用，则在这里就忽略掉这个错误了 Call App.LogException(ex) _ConsoleHandleInvalid = True @@ -101,23 +104,23 @@ Namespace Terminal End If End AddHandler RemoveHandler(value As ResizeEventHandle) - If __resizeHandles.IndexOf(value) > -1 Then - __resizeHandles.Remove(value) + If resizeHandles.IndexOf(value) > -1 Then + resizeHandles.Remove(value) End If - If __resizeHandles.Count = 0 Then - _eventThread.Abort() - _eventThread = Nothing + If resizeHandles.Count = 0 Then + eventThread.Abort() + eventThread = Nothing End If End RemoveHandler RaiseEvent() Dim [new] As New Size(Console.WindowWidth, Console.WindowHeight) - For Each h As ResizeEventHandle In __resizeHandles - Call h([new], _old) + For Each h As ResizeEventHandle In resizeHandles + Call h([new], oldSize) Next - _old = [new] + oldSize = [new] End RaiseEvent End Event End Module diff --git a/ApplicationServices/Terminal/STDIO__/STDIO.vb b/ApplicationServices/Terminal/STDIO__/STDIO.vb index 621017a6..10a041cf 100644 --- a/ApplicationServices/Terminal/STDIO__/STDIO.vb +++ b/ApplicationServices/Terminal/STDIO__/STDIO.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0ecd7b473e0dc43dfa7dec39c98e5467, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\STDIO__\STDIO.vb" +#Region "Microsoft.VisualBasic::746397a3e498941b6c5ecaa188fa1fb3, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\STDIO__\STDIO.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Module STDIO ' - ' Function: __testEquals, MsgBox, scanf, ZeroFill + ' Function: charTestEquals, MsgBox, scanf, ZeroFill ' ' Sub: cat, fprintf, print, printf ' Delegate Function @@ -217,20 +217,20 @@ Namespace Terminal End If If style = MsgBoxStyle.AbortRetryIgnore Then - If __testEquals(input, "A"c) Then + If charTestEquals(input, "A"c) Then Return MsgBoxResult.Abort - ElseIf __testEquals(input, "R"c) Then + ElseIf charTestEquals(input, "R"c) Then Return MsgBoxResult.Retry - ElseIf __testEquals(input, "I"c) Then + ElseIf charTestEquals(input, "I"c) Then Return MsgBoxResult.Ignore Else Return MsgBoxResult.Retry End If ElseIf style = MsgBoxStyle.OkCancel Then - If __testEquals(input, "O"c) Then + If charTestEquals(input, "O"c) Then Return MsgBoxResult.Ok - ElseIf __testEquals(input, "C"c) Then + ElseIf charTestEquals(input, "C"c) Then Return MsgBoxResult.Cancel Else Return MsgBoxResult.Ok @@ -239,29 +239,29 @@ Namespace Terminal Return MsgBoxResult.Ok ElseIf style = MsgBoxStyle.RetryCancel Then - If __testEquals(input, "R"c) Then + If charTestEquals(input, "R"c) Then Return MsgBoxResult.Retry - ElseIf __testEquals(input, "C"c) Then + ElseIf charTestEquals(input, "C"c) Then Return MsgBoxResult.Cancel Else Return MsgBoxResult.Retry End If ElseIf style = MsgBoxStyle.YesNo Then - If __testEquals(input, "Y"c) Then + If charTestEquals(input, "Y"c) Then Return MsgBoxResult.Yes - ElseIf __testEquals(input, "N"c) Then + ElseIf charTestEquals(input, "N"c) Then Return MsgBoxResult.No Else Return MsgBoxResult.Yes End If ElseIf style = MsgBoxStyle.YesNoCancel Then - If __testEquals(input, "Y"c) Then + If charTestEquals(input, "Y"c) Then Return MsgBoxResult.Yes - ElseIf __testEquals(input, "N"c) Then + ElseIf charTestEquals(input, "N"c) Then Return MsgBoxResult.No - ElseIf __testEquals(input, "C"c) Then + ElseIf charTestEquals(input, "C"c) Then Return MsgBoxResult.Cancel Else Return MsgBoxResult.Yes @@ -277,11 +277,12 @@ Namespace Terminal ''' ''' 大写的 ''' - Private Function __testEquals(input As String, compare As Char) As Boolean + Private Function charTestEquals(input As String, compare As Char) As Boolean If String.IsNullOrEmpty(input) Then Return False + Else + Return Asc(input.First) = Asc(compare) End If - Return Asc(input.First) = Asc(compare) End Function Public Delegate Function TryParseDelegate(Of T)(str$, ByRef val As T) As Boolean @@ -303,6 +304,7 @@ Namespace Terminal Public Function Read(Of T)(msg$, parser As TryParseDelegate(Of T), Optional _default$ = Nothing) As T Dim line As String Dim value As T + Do Call Console.Write(msg) @@ -318,6 +320,7 @@ Namespace Terminal line = _default?.ToString() End If Loop While Not parser(line, value) + Return value End Function diff --git a/ApplicationServices/Terminal/STDIO__/Shell.vb b/ApplicationServices/Terminal/STDIO__/Shell.vb index 8bd31c25..21c54787 100644 --- a/ApplicationServices/Terminal/STDIO__/Shell.vb +++ b/ApplicationServices/Terminal/STDIO__/Shell.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9739a2dfdefc02b9fe20ca81f03b878d, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\STDIO__\Shell.vb" +#Region "Microsoft.VisualBasic::0ea13648757d596ce2efe0336862a71f, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\STDIO__\Shell.vb" ' Author: ' @@ -108,8 +108,8 @@ Namespace Terminal.STDIO__ Dim Tokens = Regex.Split(CommandLine, Global.Microsoft.VisualBasic.CommandLine.SPLIT_REGX_EXPRESSION) Dim EXE As String = Tokens.First Dim Arguments As String = Mid$(CommandLine, Len(EXE) + 1) - Dim Process As System.Diagnostics.Process = New Process - Dim pInfo As System.Diagnostics.ProcessStartInfo = New ProcessStartInfo(EXE, Arguments) + Dim Process As New Process + Dim pInfo As New ProcessStartInfo(EXE, Arguments) Process.StartInfo = pInfo Process.StartInfo.WindowStyle = WindowStyle diff --git a/ApplicationServices/Tools/Zip/StreamReader.vb b/ApplicationServices/Tools/Zip/StreamReader.vb index 08f69f4d..5a08eed1 100644 --- a/ApplicationServices/Tools/Zip/StreamReader.vb +++ b/ApplicationServices/Tools/Zip/StreamReader.vb @@ -1,42 +1,42 @@ -#Region "Microsoft.VisualBasic::a7764170bb2462a44609972063c01f91, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\StreamReader.vb" +#Region "Microsoft.VisualBasic::0efa97547e395b217c0807504d57441f, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\StreamReader.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 . + ' 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: + ' Summaries: -' Module ZipStreamReader -' -' Function: LoadZipArchive -' -' -' /********************************************************************************/ + ' Module ZipStreamReader + ' + ' Function: GetZipSubStream, LoadZipArchive + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ApplicationServices/Tools/Zip/ZipLib.vb b/ApplicationServices/Tools/Zip/ZipLib.vb index 11e21dcc..6ecf8a6b 100644 --- a/ApplicationServices/Tools/Zip/ZipLib.vb +++ b/ApplicationServices/Tools/Zip/ZipLib.vb @@ -1,44 +1,44 @@ -#Region "Microsoft.VisualBasic::d1c59b3d414151d828ccee637dc6b49d, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\ZipLib.vb" +#Region "Microsoft.VisualBasic::9786fc773c8c2e947aeb3f58b211a294, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Zip\ZipLib.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 . + ' 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: + ' Summaries: -' Module ZipLib -' -' Function: IsADirectoryEntry, IsSourceFolderZip -' -' Sub: AddToArchive, AppendZip, DirectoryArchive, FileArchive -' -' -' /********************************************************************************/ + ' Module ZipLib + ' + ' Function: IsADirectoryEntry, IsSourceFolderZip + ' + ' Sub: AddToArchive, AppendZip, DeleteItems, DirectoryArchive, FileArchive + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/GitBashEnvironment.vb b/CommandLine/GitBashEnvironment.vb index 890b849d..6df3da67 100644 --- a/CommandLine/GitBashEnvironment.vb +++ b/CommandLine/GitBashEnvironment.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3316b60d2b6fca48289500673c3e55e7, Microsoft.VisualBasic.Core\CommandLine\GitBashEnvironment.vb" +#Region "Microsoft.VisualBasic::2d1efa6a209cd7ffaec8999c2a3e45f3, Microsoft.VisualBasic.Core\CommandLine\GitBashEnvironment.vb" ' Author: ' @@ -33,7 +33,9 @@ ' Module GitBashEnvironment ' - ' Function: fixWindowsNetworkDirectory, GetCLIArgs, isRunningOnGitBash + ' Properties: isRunningOnGitBash + ' + ' Function: fixWindowsNetworkDirectory, GetCLIArgs ' ' ' /********************************************************************************/ @@ -72,9 +74,15 @@ Namespace CommandLine Return cli End Function - Friend Function isRunningOnGitBash() As Boolean - Return Environment.GetCommandLineArgs.Any(Function(a) InStr(a, gitBash) > 0) - End Function + ''' + ''' Is current application running in gitbash environment on windows? + ''' + ''' + Friend ReadOnly Property isRunningOnGitBash() As Boolean + Get + Return Environment.GetCommandLineArgs.Any(Function(a) InStr(a, gitBash) > 0) + End Get + End Property ''' ''' (\\)192.168.1.239\blablabla diff --git a/CommandLine/InteropService/SharedORM/PHP.vb b/CommandLine/InteropService/SharedORM/Languages/PHP.vb similarity index 98% rename from CommandLine/InteropService/SharedORM/PHP.vb rename to CommandLine/InteropService/SharedORM/Languages/PHP.vb index 86455773..8437cdfe 100644 --- a/CommandLine/InteropService/SharedORM/PHP.vb +++ b/CommandLine/InteropService/SharedORM/Languages/PHP.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0288d0bb5b1e1276578f59b45c3a32af, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\PHP.vb" +#Region "Microsoft.VisualBasic::0288d0bb5b1e1276578f59b45c3a32af, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\Languages\PHP.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/Perl.vb b/CommandLine/InteropService/SharedORM/Languages/Perl.vb similarity index 99% rename from CommandLine/InteropService/SharedORM/Perl.vb rename to CommandLine/InteropService/SharedORM/Languages/Perl.vb index 22a3eb8b..9967c6ad 100644 --- a/CommandLine/InteropService/SharedORM/Perl.vb +++ b/CommandLine/InteropService/SharedORM/Languages/Perl.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b52830da536b47a8c6e0f27c10d6a98b, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\Perl.vb" +#Region "Microsoft.VisualBasic::b52830da536b47a8c6e0f27c10d6a98b, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\Languages\Perl.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/R.vb b/CommandLine/InteropService/SharedORM/Languages/R.vb similarity index 98% rename from CommandLine/InteropService/SharedORM/R.vb rename to CommandLine/InteropService/SharedORM/Languages/R.vb index eada0559..8d49c690 100644 --- a/CommandLine/InteropService/SharedORM/R.vb +++ b/CommandLine/InteropService/SharedORM/Languages/R.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::372ca7f6bacc3a4cf907325fc409eaf5, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\R.vb" +#Region "Microsoft.VisualBasic::372ca7f6bacc3a4cf907325fc409eaf5, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\Languages\R.vb" ' Author: ' diff --git a/CommandLine/InteropService/SharedORM/VisualBasic.vb b/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb similarity index 78% rename from CommandLine/InteropService/SharedORM/VisualBasic.vb rename to CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb index e129c7a7..bfd634ee 100644 --- a/CommandLine/InteropService/SharedORM/VisualBasic.vb +++ b/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ec6170f43a5cf4547e83974890420056, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\VisualBasic.vb" +#Region "Microsoft.VisualBasic::a0e120cd0724c822a82a40107e2e0093, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\Languages\VisualBasic.vb" ' Author: ' @@ -35,10 +35,10 @@ ' ' Constructor: (+2 Overloads) Sub New ' - ' Function: __defaultValue, __vbParameters, __xmlComments, createCliCalls, GetSourceCode - ' normalizedAsVisualBasicIdentifier + ' Function: addXmlComments, createCliCalls, GetSourceCode, normAsVisualBasicName, optionalDefaultValue + ' vbParameters ' - ' Sub: __calls + ' Sub: cliCallsInternal ' ' ' /********************************************************************************/ @@ -91,7 +91,7 @@ Namespace CommandLine.InteropService.SharedORM Call vb.AppendLine() Call vb.AppendLine("Namespace " & [namespace]) Call vb.AppendLine() - Call vb.AppendLine(__xmlComments(XmlEntity.EscapingXmlEntity(info))) + Call vb.AppendLine(addXmlComments(XmlEntity.EscapingXmlEntity(info))) Call vb.AppendLine($"Public Class {appName} : Inherits {GetType(InteropService).Name}") Call vb.AppendLine() Call vb.AppendLine($" Public Const App$ = ""{exe}.exe""") @@ -106,7 +106,7 @@ Namespace CommandLine.InteropService.SharedORM Call vb.AppendLine(" End Function") For Each API In Me.EnumeratesAPI - Call __calls(vb, API.CLI, incompatible:=Not InCompatibleAttribute.CLRProcessCompatible(API.API)) + Call cliCallsInternal(vb, API.CLI, incompatible:=Not InCompatibleAttribute.CLRProcessCompatible(API.API)) Next Call vb.AppendLine("End Class") @@ -115,7 +115,7 @@ Namespace CommandLine.InteropService.SharedORM Return vb.ToString End Function - Private Shared Function __xmlComments(description$) As String + Private Shared Function addXmlComments(description$) As String If description.StringEmpty Then description = "'''" Else @@ -133,14 +133,13 @@ Namespace CommandLine.InteropService.SharedORM End Function ''' - ''' + ''' 生成一个命令行API的调用代码 ''' ''' ''' ''' ''' - Private Sub __calls(vb As StringBuilder, API As NamedValue(Of CommandLine), incompatible As Boolean) - + Private Sub cliCallsInternal(vb As StringBuilder, API As NamedValue(Of CommandLine), incompatible As Boolean) #Region "Code template" ' Public Function CommandName(args$,....Optional args$....) As Integer @@ -154,7 +153,7 @@ Namespace CommandLine.InteropService.SharedORM ' 直接使用函数原型的名字了，会比较容易辨别一些 Dim func$ = API.Name ' Xml comment 已经是经过转义了的，所以不需要再做xml entity的转义了 - Dim xmlComments$ = __xmlComments(API.Description) + Dim xmlComments$ = addXmlComments(API.Description) Dim params$() Try @@ -164,7 +163,7 @@ Namespace CommandLine.InteropService.SharedORM ' 不是以数字开头的，则尝试解决关键词的问题 func = KeywordProcessor.AutoEscapeVBKeyword(func) End If - params = __vbParameters(API.Value) + params = vbParameters(API.Value) Catch ex As Exception ex = New Exception("Check for your CLI Usage definition: " & API.Value.ToString, ex) Throw ex @@ -174,7 +173,9 @@ Namespace CommandLine.InteropService.SharedORM Call vb.AppendLine($"Public Function {func}({params.JoinBy(", ")}) As Integer") Call vb.AppendLine($" Dim CLI As New StringBuilder(""{API.Value.Name}"")") - Call vb.AppendLine(" Call CLI.Append("" "")") ' 插入命令名称和参数值之间的一个必须的空格 + + ' 插入命令名称和参数值之间的一个必须的空格 + Call vb.AppendLine(" Call CLI.Append("" "")") Call vb.AppendLine(createCliCalls(+API)) Call vb.AppendLine() @@ -196,7 +197,7 @@ Namespace CommandLine.InteropService.SharedORM ''' ''' ''' - Private Shared Function __vbParameters(API As CommandLine) As String() + Private Shared Function vbParameters(API As CommandLine) As String() Dim out As New List(Of String) Dim param$ @@ -205,11 +206,11 @@ Namespace CommandLine.InteropService.SharedORM out += $"term As String" Else For Each arg As NamedValue(Of String) In API.ParameterList - param = $"{VisualBasic.normalizedAsVisualBasicIdentifier(arg.Name)} As String" + param = $"{VisualBasic.normAsVisualBasicName(arg.Name)} As String" If Not arg.Description.StringEmpty Then ' 可选参数 - param = $"Optional {param} = ""{__defaultValue(arg.Value)}""" + param = $"Optional {param} = ""{optionalDefaultValue(arg.Value)}""" End If out += param @@ -217,7 +218,7 @@ Namespace CommandLine.InteropService.SharedORM End If For Each bool In API.BoolFlags - out += $"Optional {VisualBasic.normalizedAsVisualBasicIdentifier(bool)} As Boolean = False" + out += $"Optional {VisualBasic.normAsVisualBasicName(bool)} As Boolean = False" Next Return out @@ -228,7 +229,7 @@ Namespace CommandLine.InteropService.SharedORM ''' ''' ''' - Private Shared Function __defaultValue(value$) As String + Private Shared Function optionalDefaultValue(value$) As String If value.First = """"c AndAlso value.Last = """"c Then ' 如果是直接使用双引号包裹而不是使用<>尖括号进行包裹，则认为双引号所包裹的值都是默认值 value = value.GetStackValue(ASCII.Quot, ASCII.Quot) @@ -239,7 +240,8 @@ Namespace CommandLine.InteropService.SharedORM If InStr(value, "default=") > 0 Then value = Strings.Split(value, "default=").Last.Trim(""""c) Else - value = "" ' 没有表达式前缀，则使用默认的空字符串 + ' 没有表达式前缀，则使用默认的空字符串 + value = "" End If Else ' 其他情况都认为是使用空值为默认值 @@ -254,19 +256,26 @@ Namespace CommandLine.InteropService.SharedORM ''' ''' 创建命令行调用字符串 ''' - ''' + ''' ''' - Private Shared Function createCliCalls(Api As CommandLine) As String + Private Shared Function createCliCalls(api As CommandLine) As String Dim CLI As New StringBuilder Dim vbcode$ + ' 可能在参数中存在/@set环境参数的设置的调用 + Dim envir As String = Nothing - If Api.arguments = 1 AndAlso Api.arguments(Scan0).Name.StringEmpty Then + If api.arguments = 1 AndAlso api.arguments(Scan0).Name.StringEmpty Then ' /command vbcode = " Call CLI.Append($""{term}"")" CLI.AppendLine(vbcode) Else - For Each param As NamedValue(Of String) In Api.ParameterList - Dim var$ = normalizedAsVisualBasicIdentifier(param.Name) + For Each param As NamedValue(Of String) In api.ParameterList + Dim var$ = normAsVisualBasicName(param.Name) + + If param.Name.TextEquals("/@set") Then + envir = param.Name + Continue For + End If ' 注意：在这句代码的最后有一个空格，是间隔参数所必需的，不可以删除 vbcode = $" Call CLI.Append(""{param.Name} "" & """""""" & {var} & """""" "")" @@ -283,15 +292,29 @@ Namespace CommandLine.InteropService.SharedORM Next End If - For Each b In Api.BoolFlags - Dim var$ = normalizedAsVisualBasicIdentifier(b) + For Each b In api.BoolFlags + Dim var$ = normAsVisualBasicName(b) Call CLI.AppendLine($" If {var} Then") - Call CLI.AppendLine($" Call CLI.Append(""{b} "")") ' 逻辑参数后面有一个空格，是正确的生成CLI所必需的 + ' 逻辑参数后面有一个空格，是正确的生成CLI所必需的 + Call CLI.AppendLine($" Call CLI.Append(""{b} "")") Call CLI.AppendLine(" End If") Next - Call CLI.AppendLine($" Call CLI.Append(""/@set {Microsoft.VisualBasic.App.FlagInternalPipeline}=TRUE "")") + ' 在最后将/@set环境参数组装起来 + If Not envir.StringEmpty Then + envir = normAsVisualBasicName(envir) + + Call CLI.AppendLine($" If Not {envir}.{NameOf(StringEmpty)} Then") + Call CLI.AppendLine($" Call CLI.Append($""/@set """"""""{Microsoft.VisualBasic.App.FlagInternalPipeline}=TRUE;'{{{envir}}}'"""""""" "")") + Call CLI.AppendLine("Else") + ' 没有需要组装的,直接添加调用 + Call CLI.AppendLine($" Call CLI.Append(""/@set {Microsoft.VisualBasic.App.FlagInternalPipeline}=TRUE "")") + Call CLI.AppendLine(" End If") + Else + ' 没有需要组装的,直接添加调用 + Call CLI.AppendLine($" Call CLI.Append(""/@set {Microsoft.VisualBasic.App.FlagInternalPipeline}=TRUE "")") + End If Return CLI.ToString End Function @@ -303,7 +326,7 @@ Namespace CommandLine.InteropService.SharedORM ''' ''' ''' - Private Shared Function normalizedAsVisualBasicIdentifier(arg$) As String + Private Shared Function normAsVisualBasicName(arg$) As String ' 在命令行的参数名称前面一般都会有/-之类的控制符前缀，在这里去掉 Dim name$ = arg.Trim("/"c, "\"c, "-"c) Dim s As Char() = name.ToArray diff --git a/CommandLine/Interpreters/InteractiveConsole.vb b/CommandLine/Interpreters/InteractiveConsole.vb index 1490066f..8a844141 100644 --- a/CommandLine/Interpreters/InteractiveConsole.vb +++ b/CommandLine/Interpreters/InteractiveConsole.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a81bd0b1b80c9a6f5b784848047b19ce, Microsoft.VisualBasic.Core\CommandLine\Interpreters\InteractiveConsole.vb" +#Region "Microsoft.VisualBasic::3ed88763e0a6e16efdd5d124ae9af951, Microsoft.VisualBasic.Core\CommandLine\Interpreters\InteractiveConsole.vb" ' Author: ' @@ -37,7 +37,7 @@ ' ' Function: RunApp ' - ' Sub: RunAppInternal + ' Sub: doListingDirectory, RunAppInternal ' ' ' /********************************************************************************/ @@ -50,6 +50,7 @@ Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.UnixBash Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Scripting.Expressions +Imports Microsoft.VisualBasic.Terminal Namespace CommandLine @@ -73,32 +74,59 @@ Namespace CommandLine End Sub Public Function RunApp() As Integer - Dim input As Value(Of String) = "" - Dim ps1 As PS1 = PS1.Fedora12 + Dim shell As New Shell( + ps1:=PS1.Fedora12, + exec:=Sub(input) + Call CLITools.TryParse(input).DoCall(AddressOf RunAppInternal) + End Sub + ) With { + .Quite = "exit" + } Call MyBase.Execute(args:=New CommandLine With {.Name = "?"}) Call Console.WriteLine() Call Console.WriteLine() - Call Console.Write(ps1.ToString) + Call Console.Write(shell.ps1.ToString) Call Console.Write(" ") - Do While Not (input = Console.ReadLine).TextEquals("exit") - With input.Value - If Not .StringEmpty Then - Call RunAppInternal(CLITools.TryParse(.ByRef)) - End If - End With - - Call Console.Write(ps1.ToString) - Call Console.Write(" ") - Loop - + ' 代码执行会被阻塞在这里, 直到输入exit退出 + Call shell.Run() Call Console.WriteLine("Bye bye.") Return 0 End Function + Private Sub doListingDirectory(cmd As CommandLine) + Dim directory$ = If(cmd.Tokens.ElementAtOrDefault(1), App.CurrentDirectory) + + If Not directory.DirectoryExists Then + Console.ForegroundColor = ConsoleColor.Red + Console.WriteLine($"Directory ""{directory}"" not exist on your filesystem!") + Console.ForegroundColor = ConsoleColor.White + + Return + End If + + Dim directories = FileIO.FileSystem.GetDirectories(directory) + Dim files = FileIO.FileSystem.GetFiles(directory) + + For Each dir As String In directories + Call Console.WriteLine(" " & dir.Replace("\"c, "/"c).Split("/"c).Last) + Next + + Dim table = files _ + .Select(Function(path) + Return { + path.Replace("\"c, "/"c).Split("/"c).Last, + New FileInfo(path).Length & " Bytes" + } + End Function) _ + .ToArray + + Call PrintAsTable.Print(table, New StreamWriter(Console.OpenStandardOutput)) + End Sub + ''' ''' Contains sevral build in command about file system operation and the program CLI interpreter commands ''' @@ -108,33 +136,7 @@ Namespace CommandLine Case "ls" ' list directory - Dim directory$ = If(cmd.Tokens.ElementAtOrDefault(1), App.CurrentDirectory) - - If Not directory.DirectoryExists Then - Console.ForegroundColor = ConsoleColor.Red - Console.WriteLine($"Directory ""{directory}"" not exist on your filesystem!") - Console.ForegroundColor = ConsoleColor.White - - Return - End If - - Dim directories = FileIO.FileSystem.GetDirectories(directory) - Dim files = FileIO.FileSystem.GetFiles(directory) - - For Each dir As String In directories - Call Console.WriteLine(" " & dir.Replace("\"c, "/"c).Split("/"c).Last) - Next - - Dim table = files _ - .Select(Function(path) - Return { - path.Replace("\"c, "/"c).Split("/"c).Last, - New FileInfo(path).Length & " Bytes" - } - End Function) _ - .ToArray - - Call PrintAsTable.Print(table, New StreamWriter(Console.OpenStandardOutput)) + Call doListingDirectory(cmd) Case "cd" ' change directory diff --git a/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb index a08eb220..8319c2d7 100644 --- a/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb +++ b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLClusterTree.vb @@ -1,8 +1,77 @@ -Imports System.Runtime.CompilerServices +#Region "Microsoft.VisualBasic::eb6950d0324c575c9e727f0a29e12344, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\AVLTree\AVLClusterTree.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: + + ' Enum ComparisonDirectionPrefers + ' + ' Left, Right + ' + ' + ' + ' + ' + ' Class ClusterKey + ' + ' Properties: NumberOfKey + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: DoComparison, ToString + ' + ' Sub: Add + ' + ' Class AVLClusterTree + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: doCompares, GetEnumerator, IEnumerable_GetEnumerator + ' + ' Sub: Add, Clear + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language Namespace ComponentModel.Algorithm.BinaryTree + Public Enum ComparisonDirectionPrefers + Left + Right + End Enum + Public Class ClusterKey(Of K) ReadOnly members As New List(Of K) @@ -45,23 +114,36 @@ Namespace ComponentModel.Algorithm.BinaryTree ''' ''' ''' - Public Shared Function DoComparison(compares As Comparison(Of K)) As Func(Of ClusterKey(Of K), K, Integer) + Public Shared Function DoComparison(compares As Comparison(Of K), prefer As ComparisonDirectionPrefers) As Func(Of ClusterKey(Of K), K, Integer) Return Function(cluster, key) As Integer Dim compareVal As Value(Of Integer) = -100 - Dim values As New List(Of Integer) + Dim left As Boolean = False + Dim right As Boolean For Each index As K In cluster.members If (compareVal = compares(index, key)) = 0 Then Return 0 Else - values += compareVal + If compareVal.Equals(1) Then + right = True + Else + left = True + End If End If Next - If values.Where(Function(x) x = 1).Count > values.Count / 2 Then - Return 1 + If prefer = ComparisonDirectionPrefers.Left Then + If left Then + Return -1 + Else + Return 1 + End If Else - Return -1 + If right Then + Return 1 + Else + Return -1 + End If End If End Function End Function @@ -72,13 +154,16 @@ Namespace ComponentModel.Algorithm.BinaryTree ReadOnly avltree As AVLTree(Of ClusterKey(Of K), K) ReadOnly views As Func(Of K, String) - Sub New(compares As Comparison(Of K), Optional views As Func(Of K, String) = Nothing) + Sub New(compares As Comparison(Of K), + Optional views As Func(Of K, String) = Nothing, + Optional prefer As ComparisonDirectionPrefers = ComparisonDirectionPrefers.Left) + Me.views = views - Me.avltree = New AVLTree(Of ClusterKey(Of K), K)(doCompares(compares), Function(c) c.ToString) + Me.avltree = New AVLTree(Of ClusterKey(Of K), K)(doCompares(compares, prefer), Function(c) c.ToString) End Sub - Private Shared Function doCompares(compares As Comparison(Of K)) As Comparison(Of ClusterKey(Of K)) - Dim unsymmetricalCompares = ClusterKey(Of K).DoComparison(compares) + Private Shared Function doCompares(compares As Comparison(Of K), prefer As ComparisonDirectionPrefers) As Comparison(Of ClusterKey(Of K)) + Dim unsymmetricalCompares = ClusterKey(Of K).DoComparison(compares, prefer) ' 在AVL数据模块中，比较代码中，待插入的key都是放在左边，即X参数部分 Return Function(x, y) @@ -105,4 +190,4 @@ Namespace ComponentModel.Algorithm.BinaryTree Yield GetEnumerator() End Function End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLSupports.vb b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLSupports.vb index da449c0e..f381ccf6 100644 --- a/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLSupports.vb +++ b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLSupports.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fa8b3cc7757e3eebf57da0d645f14bb2, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\AVLSupports.vb" +#Region "Microsoft.VisualBasic::fa8b3cc7757e3eebf57da0d645f14bb2, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\AVLTree\AVLSupports.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLTree.vb b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLTree.vb index b4c740f9..89ffe52f 100644 --- a/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLTree.vb +++ b/ComponentModel/Algorithm/BinaryTree/AVLTree/AVLTree.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::81eec77cd0117693bed3fa2054025986, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\AVLTree.vb" +#Region "Microsoft.VisualBasic::ae2cef48d9685292786c693e33d68e7c, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\AVLTree\AVLTree.vb" ' Author: ' @@ -31,16 +31,20 @@ ' Summaries: + ' Delegate Sub + ' + ' ' Class AVLTree ' ' Constructor: (+2 Overloads) Sub New ' ' Function: Add, Find, Remove ' - ' Sub: Add, appendLeft, appendRight, Remove, removeCurrent + ' Sub: (+2 Overloads) Add, appendLeft, appendRight, Remove, removeCurrent ' removeLeft, removeRight ' ' + ' ' /********************************************************************************/ #End Region diff --git a/ComponentModel/Algorithm/DynamicProgramming/LCS.vb b/ComponentModel/Algorithm/DynamicProgramming/LCS.vb index a83830b4..b811f559 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/LCS.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/LCS.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2d36972eb0db76a21d3c01728f21b71d, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\LCS.vb" +#Region "Microsoft.VisualBasic::397f4575f6d432a951f7a422e85c23ee, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\LCS.vb" ' Author: ' @@ -33,9 +33,9 @@ ' Module LongestCommonSubsequenceExtension ' - ' Function: __equals, MaxLengthSubString, MaxSet + ' Function: charEquals, MaxLengthSubString, MaxSet ' - ' Sub: __LCS + ' Sub: doLCSInternal ' ' ' /********************************************************************************/ diff --git a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb index 6470d07a..dd7add15 100644 --- a/ComponentModel/Algorithm/DynamicProgramming/SCS.vb +++ b/ComponentModel/Algorithm/DynamicProgramming/SCS.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b6f3b5144db49c530543e62920605973, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\SCS.vb" +#Region "Microsoft.VisualBasic::1e8f96d8510319c1ec0fc9011f9b0e4f, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming\SCS.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/NamedCollection.vb b/ComponentModel/DataSource/Property/NamedCollection.vb index 10a6e908..9767ad98 100644 --- a/ComponentModel/DataSource/Property/NamedCollection.vb +++ b/ComponentModel/DataSource/Property/NamedCollection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e99182a5af91e1e16afeddacac8e0b8e, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\NamedCollection.vb" +#Region "Microsoft.VisualBasic::6ecaea55568818c5640d9ca38d5ac3b0, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\NamedCollection.vb" ' Author: ' @@ -37,6 +37,7 @@ ' ' Constructor: (+4 Overloads) Sub New ' Function: GetEnumerator, GetValues, IEnumerable_GetEnumerator, ToString + ' Operators: <>, = ' ' ' /********************************************************************************/ diff --git a/ComponentModel/Ranges/RangeModel/DoubleRange.vb b/ComponentModel/Ranges/RangeModel/DoubleRange.vb index 5b33a34a..605ad2e2 100644 --- a/ComponentModel/Ranges/RangeModel/DoubleRange.vb +++ b/ComponentModel/Ranges/RangeModel/DoubleRange.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d8cc465def7099c7702cb05d320c8746, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\DoubleRange.vb" +#Region "Microsoft.VisualBasic::9988a01fe3a072b391b86080ef2b2388, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\DoubleRange.vb" ' Author: ' @@ -36,7 +36,7 @@ ' Properties: Length, Max, Min ' ' Constructor: (+7 Overloads) Sub New - ' Function: Enumerate, GetEnumerator, IEnumerable_GetEnumerator, (+3 Overloads) IsInside, (+2 Overloads) IsOverlapping + ' Function: (+2 Overloads) Enumerate, GetEnumerator, IEnumerable_GetEnumerator, (+3 Overloads) IsInside, (+2 Overloads) IsOverlapping ' ScaleMapping, (+2 Overloads) ToString, TryParse ' Operators: *, <>, =, (+2 Overloads) Like ' @@ -279,17 +279,16 @@ Namespace ComponentModel.Ranges.Model If Length = 0 Then Return {} Else - Dim delta# = Length / n - Dim out As New List(Of Double) - - For x As Double = Min To Max Step delta - out += x - Next - - Return out + Return Enumerate(Length / n).ToArray End If End Function + Public Iterator Function Enumerate(resolution#) As IEnumerable(Of Double) + For x As Double = Min To Max Step resolution + Yield x + Next + End Function + ''' ''' Transform a numeric value in this into ''' target numeric range: ````. diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index c8fb647e..740ce9ab 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::279ccec4836decd3842544a2f77b87b3, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" +#Region "Microsoft.VisualBasic::52ccec87cb0909c1612e385fec6b6cbb, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" ' Author: ' @@ -42,7 +42,7 @@ ' ' Sub: Clear, Delete ' - ' Operators: -, (+2 Overloads) +, (+2 Overloads) Like + ' Operators: -, (+2 Overloads) +, <>, =, (+2 Overloads) Like ' ' ' /********************************************************************************/ diff --git a/Extensions/Collection/Linq/Enumeration.vb b/Extensions/Collection/Linq/Enumeration.vb index 943040f6..01906996 100644 --- a/Extensions/Collection/Linq/Enumeration.vb +++ b/Extensions/Collection/Linq/Enumeration.vb @@ -108,7 +108,13 @@ Namespace Linq Public Function AsEnumerable(Of T)(enums As Enumeration(Of T)) As IEnumerable(Of T) - Return New Enumerator(Of T) With {.Enumeration = enums} + If enums Is Nothing Then + Return {} + Else + Return New Enumerator(Of T) With { + .Enumeration = enums + } + End If End Function End Module End Namespace diff --git a/Extensions/Collection/Linq/Pipeline.vb b/Extensions/Collection/Linq/Pipeline.vb index 0dc6ae80..12cc7464 100644 --- a/Extensions/Collection/Linq/Pipeline.vb +++ b/Extensions/Collection/Linq/Pipeline.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d9677feaaf50ab1429a4c83031821160, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Pipeline.vb" +#Region "Microsoft.VisualBasic::fe84ccf8077c358c9ab04b94a27bd35c, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Pipeline.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Module PipelineExtensions ' - ' Function: DoCall + ' Function: DoCall, PipeOf ' ' Sub: DoCall ' @@ -73,5 +73,10 @@ Namespace Linq Public Sub DoCall(Of T)(input As T, apply As Action(Of T)) Call apply(input) End Sub + + + Public Function PipeOf(Of T, Rest)(input As T, task As Action(Of T, Rest)) As Action(Of Rest) + Return Sub(a) task(input, a) + End Function End Module End Namespace diff --git a/Extensions/Math/Correlations/Ranking.vb b/Extensions/Math/Correlations/Ranking.vb index 1a27a5b6..e1a6189c 100644 --- a/Extensions/Math/Correlations/Ranking.vb +++ b/Extensions/Math/Correlations/Ranking.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a525089530604eb2b0647ab829289f61, Microsoft.VisualBasic.Core\Extensions\Math\Correlations\Ranking.vb" +#Region "Microsoft.VisualBasic::a4d7e0eff926a6a46c5ed05c2935484d, Microsoft.VisualBasic.Core\Extensions\Math\Correlations\Ranking.vb" ' Author: ' diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb index cd89f1b5..63e33c8b 100644 --- a/Extensions/Math/Math.vb +++ b/Extensions/Math/Math.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a78043e2ca4b07b5ae17fe82b1266711, Microsoft.VisualBasic.Core\Extensions\Math\Math.vb" +#Region "Microsoft.VisualBasic::4bca11f5a23f2f8c8e9759335752c762, Microsoft.VisualBasic.Core\Extensions\Math\Math.vb" ' Author: ' @@ -39,7 +39,7 @@ ' Factorial, FactorialSequence, (+2 Overloads) Floor, FormatNumeric, Hypot ' IEEERemainder, IsPowerOf2, (+2 Overloads) Log, Log10, (+2 Overloads) Log2 ' LogN, (+12 Overloads) Max, (+11 Overloads) Min, PoissonPDF, Pow - ' Pow2, (+3 Overloads) ProductALL, (+3 Overloads) RangesAt, RMS, (+8 Overloads) Round + ' Pow2, (+3 Overloads) ProductALL, (+3 Overloads) RangesAt, (+2 Overloads) RMS, (+8 Overloads) Round ' RSD, (+4 Overloads) SD, (+2 Overloads) seq, (+7 Overloads) Sign, Sin ' Sinh, Sqrt, (+5 Overloads) Sum, Tan, Tanh ' (+2 Overloads) Truncate, WeighedAverage diff --git a/Extensions/Math/NumberGroups.vb b/Extensions/Math/NumberGroups.vb index 68b49f1c..93fa2104 100644 --- a/Extensions/Math/NumberGroups.vb +++ b/Extensions/Math/NumberGroups.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::216ff4ffa99cd78ad8f9ef7b6d573ef7, Microsoft.VisualBasic.Core\Extensions\Math\NumberGroups.vb" +#Region "Microsoft.VisualBasic::9e98a35ee7e87dbe82f6b620db3ac30c, Microsoft.VisualBasic.Core\Extensions\Math\NumberGroups.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Module NumberGroups ' - ' Function: BinarySearch, (+2 Overloads) GroupBy, GroupByImpl, GroupByParallel, Groups + ' Function: BinarySearch, (+3 Overloads) GroupBy, GroupByImpl, GroupByParallel, Groups ' Match, Min ' Interface IVector ' @@ -303,10 +303,23 @@ Namespace Math ''' ''' - Public Function GroupBy(Of T)(source As IEnumerable(Of T), evaluate As Func(Of T, Double), offsets#) As NamedCollection(Of T)() + + Public Function GroupBy(Of T)(source As IEnumerable(Of T), evaluate As Func(Of T, Double), offsets#) As IEnumerable(Of NamedCollection(Of T)) Return source.GroupBy(evaluate, equals:=Function(a, b) Abs(a - b) <= offsets) End Function + ''' + ''' 将一维的数据按照一定的偏移量分组输出 + ''' + ''' + ''' + ''' + + + Public Function GroupBy(numbers As IEnumerable(Of Double), offsets#) As IEnumerable(Of NamedCollection(Of Double)) + Return numbers.GroupBy(Self(Of Double), Function(a, b) Abs(a - b) <= offsets) + End Function + ''' ''' 按照相邻的两个数值是否在offset区间内来进行简单的分组操作 ''' diff --git a/Extensions/Math/Random/RandomExtensions.vb b/Extensions/Math/Random/RandomExtensions.vb index 030d552d..dc898a49 100644 --- a/Extensions/Math/Random/RandomExtensions.vb +++ b/Extensions/Math/Random/RandomExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::23125e54ed41d0d8b8d5e7bbc8e95b48, Microsoft.VisualBasic.Core\Extensions\Math\Random\RandomExtensions.vb" +#Region "Microsoft.VisualBasic::c73b04794f5e4ba485c6532d554cc8de, Microsoft.VisualBasic.Core\Extensions\Math\Random\RandomExtensions.vb" ' Author: ' @@ -114,7 +114,7 @@ Namespace Math ''' 不同的代码重复使用这个种子，这样子可以尽量的模拟出真正的随机行为 ''' ''' - Public ReadOnly Property seeds As New Random() + Public ReadOnly Property seeds As New Random(Now.Millisecond * Now.Second + 1) Public Function RandomSingle() As Double diff --git a/Extensions/StringHelpers/StringHelpers.vb b/Extensions/StringHelpers/StringHelpers.vb index b4ca01c7..ca03de4a 100644 --- a/Extensions/StringHelpers/StringHelpers.vb +++ b/Extensions/StringHelpers/StringHelpers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::42c260defee96d57ffa4cc4a3720c325, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringHelpers.vb" +#Region "Microsoft.VisualBasic::cc6ee9d1b10af059b8ab40f09ad8839c, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringHelpers.vb" ' Author: ' diff --git a/Language/API.vb b/Language/API.vb index 3da897d8..de1fd478 100644 --- a/Language/API.vb +++ b/Language/API.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::35147e4ef5eebdda84d0e0611a618835, Microsoft.VisualBasic.Core\Language\API.vb" +#Region "Microsoft.VisualBasic::e6800dc05fefd717e2afe54586d6c10b, Microsoft.VisualBasic.Core\Language\API.vb" ' Author: ' @@ -35,7 +35,8 @@ ' ' Function: (+2 Overloads) [As], [ByRef], (+2 Overloads) [Default], (+2 Overloads) [When], AsDefault ' AsNumeric, AsString, AsVector, Empty, IsNothing - ' Let, list, Self, TypeDef, TypeInfo + ' Let, list, Self, (+2 Overloads) TryCastArray, TypeDef + ' TypeInfo ' ' ' /********************************************************************************/ diff --git a/Language/Value/DefaultValue/DefaultExtensions.vb b/Language/Value/DefaultValue/DefaultExtensions.vb index 63413f81..5315c2cf 100644 --- a/Language/Value/DefaultValue/DefaultExtensions.vb +++ b/Language/Value/DefaultValue/DefaultExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ffe3c76b2706ef78a83bb46534112e17, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\DefaultExtensions.vb" +#Region "Microsoft.VisualBasic::4091dd747b2b333e672287cd8d132f88, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\DefaultExtensions.vb" ' Author: ' @@ -33,8 +33,8 @@ ' Module DefaultExtensions ' - ' Function: BaseName, NormalizePathString, Replace, Split, ToLower - ' TrimSuffix + ' Function: BaseName, FileExists, NormalizePathString, Replace, Split + ' ToLower, TrimSuffix ' ' ' /********************************************************************************/ @@ -54,6 +54,17 @@ Namespace Language.Default Return Strings.LCase(str.value) End Function + + Public Function FileExists(str As DefaultString, Optional zeroLenAsNonExists As Boolean = True) As Boolean + If Not str.DefaultValue.FileExists Then + Return False + ElseIf zeroLenAsNonExists AndAlso str.DefaultValue.FileLength <= 0 Then + Return False + Else + Return True + End If + End Function + Public Function Split(str As DefaultString, deli$, Optional ignoreCase As Boolean = False) As String() diff --git a/Language/Value/Value.vb b/Language/Value/Value.vb index 83843bd6..c877c104 100644 --- a/Language/Value/Value.vb +++ b/Language/Value/Value.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c2366c0de61964dc1bfeda16061131ec, Microsoft.VisualBasic.Core\Language\Value\Value.vb" +#Region "Microsoft.VisualBasic::920cd74a3bae164c3e7b95870cbaa19f, Microsoft.VisualBasic.Core\Language\Value\Value.vb" ' Author: ' @@ -158,6 +158,11 @@ Namespace Language End If End Function + ''' + ''' Value equals of + ''' + ''' + ''' Public Overloads Function Equals(other As T) As Boolean Return Value.Equals(other) End Function diff --git a/Net/HTTP/Stream/GZStream.vb b/Net/HTTP/Stream/GZStream.vb index 509309e2..908a251e 100644 --- a/Net/HTTP/Stream/GZStream.vb +++ b/Net/HTTP/Stream/GZStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ec105b39efee699fc535c65d9f0f9b44, Microsoft.VisualBasic.Core\Net\HTTP\Stream\GZStream.vb" +#Region "Microsoft.VisualBasic::8cdfb3a798e95ad68f02410f067b810c, Microsoft.VisualBasic.Core\Net\HTTP\Stream\GZStream.vb" ' Author: ' @@ -31,7 +31,7 @@ ' Summaries: - ' Module GZipStream + ' Module GZipStreamHandler ' ' Function: AddGzipMagic, GZipAsBase64, GZipStream, UnGzipBase64, UnGzipStream ' diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index 11942693..492d1543 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4704838d4c3268f9e6edc6b4bfa1f379, Microsoft.VisualBasic.Core\Scripting\MetaData\Type.vb" +#Region "Microsoft.VisualBasic::84ebe917805a662f87a5ed3016710b8b, Microsoft.VisualBasic.Core\Scripting\MetaData\Type.vb" ' Author: ' diff --git a/Text/Xml/Linq/Linq.vb b/Text/Xml/Linq/Linq.vb index 8a64f01b..cfb2b80b 100644 --- a/Text/Xml/Linq/Linq.vb +++ b/Text/Xml/Linq/Linq.vb @@ -237,10 +237,17 @@ Namespace Text.Xml.Linq Public Function LoadUltraLargeXMLDataSet(Of T As Class)(path$, Optional typeName$ = Nothing, Optional xmlns$ = Nothing, - Optional selector As Func(Of XElement, Boolean) = Nothing) As IEnumerable(Of T) + Optional selector As Func(Of XElement, Boolean) = Nothing, + Optional preprocess As Func(Of String, String) = Nothing) As IEnumerable(Of T) With GetType(T).GetTypeName([default]:=typeName) Return .UltraLargeXmlNodesIterator(path, selector) _ - .Select(Function(node) node.ToString) _ + .Select(Function(node) + If Not preprocess Is Nothing Then + Return preprocess(node.ToString) + Else + Return node.ToString + End If + End Function) _ .NodeInstanceBuilder(Of T)(xmlns, xmlNode:= .ByRef) End With End Function @@ -291,7 +298,8 @@ Namespace Text.Xml.Linq .ValidationFlags = XmlSchemaValidationFlags.None, .CheckCharacters = False, .ConformanceLevel = ConformanceLevel.Document, - .ValidationType = ValidationType.None + .ValidationType = ValidationType.None, + .DtdProcessing = DtdProcessing.Ignore } Using reader As XmlReader = XmlReader.Create(documentText, settings) From 83e9e45da9aef78ce79f3889e08e8566294ec0bf Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 31 Aug 2019 13:18:16 +0800 Subject: [PATCH 023/104] Update ByRefValueExtensions.vb create delegate --- Language/Value/ByRefValueExtensions.vb | 77 +++++++++++++++----------- 1 file changed, 45 insertions(+), 32 deletions(-) diff --git a/Language/Value/ByRefValueExtensions.vb b/Language/Value/ByRefValueExtensions.vb index 91fb9740..b9480b7c 100644 --- a/Language/Value/ByRefValueExtensions.vb +++ b/Language/Value/ByRefValueExtensions.vb @@ -1,45 +1,46 @@ #Region "Microsoft.VisualBasic::bb1ee2643f8913577fc3056a8b97d978, Microsoft.VisualBasic.Core\Language\Value\ByRefValueExtensions.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 . +' 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: +' Summaries: - ' Module ByRefValueExtensions - ' - ' Function: (+2 Overloads) First, Split, ToLower - ' - ' - ' /********************************************************************************/ +' Module ByRefValueExtensions +' +' Function: (+2 Overloads) First, Split, ToLower +' +' +' /********************************************************************************/ #End Region +Imports System.Reflection Imports System.Runtime.CompilerServices Imports ByRefString = Microsoft.VisualBasic.Language.Value(Of String) @@ -69,5 +70,17 @@ Namespace Language.Values Public Function First(str As ByRefString) As Char Return str.Value.First End Function + + ''' + ''' Creates a delegate of the specified type from this method. + ''' + ''' + ''' The type of the delegate to create. + ''' The delegate for this method. + + + Public Function CreateDelegate(methodInfo As Value(Of MethodInfo), delegateType As Type) As [Delegate] + Return methodInfo.Value.CreateDelegate(delegateType) + End Function End Module End Namespace From c220ce5286ec4c575d17db674a3d47d7c9d1a07c Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 4 Sep 2019 20:38:12 +0800 Subject: [PATCH 024/104] improvements of the http tools --- 47-dotnet_Microsoft.VisualBasic.vbproj | 43 +++- .../MMFProtocol/Pipeline/PipeBuffer.vb | 4 +- .../Terminal/Utility/EventProc.vb | 2 +- CommandLine/CommandLine.vb | 2 +- .../Algorithm/base/SlideWindow/Extensions.vb | 6 +- ComponentModel/Count.vb | 2 +- ComponentModel/Ranges/Unit.vb | 2 +- .../BucketDictionary.vb | 1 + .../System.Collections.Generic/IndexOf.vb | 17 ++ Extensions/Collection/Linq/Takes.vb | 2 +- Extensions/Collection/ListExtensions.vb | 23 +- Extensions/Collection/Vector.vb | 2 +- Extensions/IO/Extensions/StreamHelper.vb | 2 +- Extensions/Math/ScaleMaps.vb | 2 +- Extensions/Security/Md5.vb | 2 +- Extensions/StringHelpers/Parser.vb | 2 +- Extensions/StringHelpers/StringHelpers.vb | 155 ++++++------ Extensions/WebServices/WebServiceUtils.vb | 106 +++++---- Language/Linq/List.vb | 2 +- Language/Value/Clones.vb | 8 +- Language/Value/Numeric/Numeric.vb | 4 +- .../Value/Numeric/{VBDouble.vb => f64.vb} | 48 ++-- .../Value/Numeric/{VBInteger.vb => i32.vb} | 60 ++--- Net/HTTP/Stream/Base64Codec.vb | 6 + Net/HTTP/wget.vb | 52 ++++ Net/HTTP/wgetTask.vb | 222 ++++++++++++++++++ Net/Protocol/RequestStream.vb | 6 +- Net/Protocol/Streams/ArrayBase.vb | 4 +- Net/Tcp/IPTools/IPEndPoint.vb | 32 ++- Net/Tcp/Persistent/Protocols/POST.vb | 4 +- Net/Tcp/TcpRequest.vb | 2 +- Net/wGetTools.vb | 181 -------------- Serialization/BinaryDumping/Buffer.vb | 2 +- .../Levenshtein/Extensions.vb | 2 +- Text/Xml/Linq/DataSetWriter.vb | 5 + test/numberParserTest.vb | 2 +- test/test.vbproj | 3 +- test/wgetTest.vb | 9 + 38 files changed, 601 insertions(+), 428 deletions(-) rename Language/Value/Numeric/{VBDouble.vb => f64.vb} (83%) rename Language/Value/Numeric/{VBInteger.vb => i32.vb} (80%) create mode 100644 Net/HTTP/wget.vb create mode 100644 Net/HTTP/wgetTask.vb delete mode 100644 Net/wGetTools.vb create mode 100644 test/wgetTest.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index b057ee0f..9997eb5a 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -935,6 +935,42 @@ x86 AllRules.ruleset + + true + true + true + bin\test\ + FRAMEWORD_CORE=1 + Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + AnyCPU + AllRules.ruleset + + + true + true + true + bin\x64\test\ + FRAMEWORD_CORE=1 + Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + x64 + AllRules.ruleset + + + true + true + true + bin\x86\test\ + FRAMEWORD_CORE=1 + Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + x86 + AllRules.ruleset + @@ -1072,6 +1108,7 @@ + @@ -1278,8 +1315,8 @@ - - + + @@ -1552,7 +1589,7 @@ - + diff --git a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb index d26ead1e..b626a750 100644 --- a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb +++ b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb @@ -56,7 +56,7 @@ Namespace Parallel.MMFProtocol.Pipeline Sub New(raw As Byte()) Dim nameLen As Byte() = New Byte(INT32 - 1) {} - Dim p As VBInteger = Scan0 + Dim p As i32 = Scan0 Call Array.ConstrainedCopy(raw, p + INT32, nameLen, Scan0, INT32) Dim len As Integer = BitConverter.ToInt32(nameLen, Scan0) @@ -72,7 +72,7 @@ Namespace Parallel.MMFProtocol.Pipeline Dim nameBuf As Byte() = UTF8WithoutBOM.GetBytes(Name) Dim buffer As Byte() = New Byte(INT32 + nameBuf.Length + byteData.Length - 1) {} Dim nameLen As Byte() = BitConverter.GetBytes(nameBuf.Length) - Dim p As VBInteger = Scan0 + Dim p As i32 = Scan0 Call Array.ConstrainedCopy(nameLen, Scan0, buffer, p + nameLen.Length, nameLen.Length) Call Array.ConstrainedCopy(nameBuf, Scan0, buffer, p + nameBuf.Length, nameBuf.Length) diff --git a/ApplicationServices/Terminal/Utility/EventProc.vb b/ApplicationServices/Terminal/Utility/EventProc.vb index 154b78d5..bc633b32 100644 --- a/ApplicationServices/Terminal/Utility/EventProc.vb +++ b/ApplicationServices/Terminal/Utility/EventProc.vb @@ -74,7 +74,7 @@ Namespace Terminal.Utility Dim delta As Integer Dim tag As String Dim out As StreamWriter - Dim current As VBInteger = 0 + Dim current As i32 = 0 ''' ''' diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 1cc0acd1..79ad20bd 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -763,7 +763,7 @@ Namespace CommandLine ''' ''' - Public Function OpenHandle(name$, Optional default$ = "", Optional encoding As Encodings = Encodings.UTF8) As VBInteger + Public Function OpenHandle(name$, Optional default$ = "", Optional encoding As Encodings = Encodings.UTF8) As i32 Return My.File.OpenHandle(Me(name) Or [default].AsDefault, encoding) End Function #End Region diff --git a/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb b/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb index 91979827..9c89fd65 100644 --- a/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb +++ b/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb @@ -98,7 +98,7 @@ Namespace ComponentModel.Algorithm.base offset = 1 End If - Dim p As VBInteger = 0 + Dim p As i32 = 0 n = n - winSize - 1 @@ -133,7 +133,7 @@ Namespace ComponentModel.Algorithm.base End If End Function - Private Iterator Function __extendTails(Of T)(tempList As List(Of T), winSize%, left%, p As VBInteger) As IEnumerable(Of SlideWindow(Of T)) + Private Iterator Function __extendTails(Of T)(tempList As List(Of T), winSize%, left%, p As i32) As IEnumerable(Of SlideWindow(Of T)) Dim array As T() = tempList.ToArray For i As Integer = 0 To winSize - 1 @@ -175,7 +175,7 @@ Namespace ComponentModel.Algorithm.base Public Function [Select](Of T, TOut)(windows As IEnumerable(Of SlideWindow(Of T)), projection As Func(Of T, T, T, T, T, T, TOut)) As IEnumerable(Of TOut) Return windows.Select(selector:=Function(win) - Dim i As VBInteger = Scan0 + Dim i As i32 = Scan0 Return projection(win(++i), win(++i), win(++i), win(++i), win(++i), win(++i)) End Function) End Function diff --git a/ComponentModel/Count.vb b/ComponentModel/Count.vb index d8804d12..907c01b5 100644 --- a/ComponentModel/Count.vb +++ b/ComponentModel/Count.vb @@ -56,7 +56,7 @@ Namespace ComponentModel ''' ''' The object counter ''' - Public Class Counter : Inherits VBInteger + Public Class Counter : Inherits i32 ''' ''' Create a new integer counter start from ZERO.(新建一个计数器) diff --git a/ComponentModel/Ranges/Unit.vb b/ComponentModel/Ranges/Unit.vb index 2cb69d3a..4b704eb9 100644 --- a/ComponentModel/Ranges/Unit.vb +++ b/ComponentModel/Ranges/Unit.vb @@ -150,7 +150,7 @@ Namespace ComponentModel.Ranges ''' ''' ''' 枚举类型，基础类型必须是值等于1 - Public Class UnitValue(Of TUnit As Structure) : Inherits VBDouble + Public Class UnitValue(Of TUnit As Structure) : Inherits f64 ''' ''' 分（d） ``10^-1`` diff --git a/ComponentModel/System.Collections.Generic/BucketDictionary.vb b/ComponentModel/System.Collections.Generic/BucketDictionary.vb index e29a1e83..b767cd03 100644 --- a/ComponentModel/System.Collections.Generic/BucketDictionary.vb +++ b/ComponentModel/System.Collections.Generic/BucketDictionary.vb @@ -184,6 +184,7 @@ Namespace ComponentModel.Collection End Function End Class + Public Module BucketDictionaryExtensions diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index 740ce9ab..d185b95a 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -356,5 +356,22 @@ Namespace ComponentModel.Collection Public Shared Operator <>(index As Index(Of T), count%) As Boolean Return Not index = count End Operator + + Public Shared Operator IsTrue(index As Index(Of T)) As Boolean + If index Is Nothing Then + Return False + ElseIf index.Count = 0 Then + Return False + ElseIf index.Count = 1 AndAlso Len(CObj(index.Objects(Scan0))) = 0 Then + Return False + Else + Return True + End If + End Operator + + + Public Shared Operator IsFalse(index As Index(Of T)) As Boolean + Return Not op_True(index) + End Operator End Class End Namespace diff --git a/Extensions/Collection/Linq/Takes.vb b/Extensions/Collection/Linq/Takes.vb index 9ebe722d..2a85872d 100644 --- a/Extensions/Collection/Linq/Takes.vb +++ b/Extensions/Collection/Linq/Takes.vb @@ -73,7 +73,7 @@ Namespace Linq ''' Public Iterator Function Takes(Of T)(source As IEnumerable(Of T), flags As Boolean()) As IEnumerable(Of T) - Dim i As VBInteger = 0 + Dim i As i32 = 0 For Each obj As T In source If flags(++i) Then diff --git a/Extensions/Collection/ListExtensions.vb b/Extensions/Collection/ListExtensions.vb index ea6d3345..dbe0f285 100644 --- a/Extensions/Collection/ListExtensions.vb +++ b/Extensions/Collection/ListExtensions.vb @@ -150,29 +150,38 @@ Public Module ListExtensions Dim list2 As New List(Of T) Dim internalGet_geneObj = Function(id As String) - Dim query = From x + ' 假若是对基因组进行排序，可能getkey函数只获取得到的是编号，而customOrder之中还会包含有全称，所以用InStr判断一下？ + Dim query = From element As T In ls.AsParallel - Let key As String = getKey(x) - Where key.TextEquals(id) OrElse - InStr(key, id, CompareMethod.Text) > 0 ' 假若是对基因组进行排序，可能getkey函数只获取得到的是编号，而customOrder之中还会包含有全称，所以用InStr判断一下？ - Select x ' + Let key As String = getKey(element) + Where key.TextEquals(id) OrElse InStr(key, id, CompareMethod.Text) > 0 + Select element + Return query.FirstOrDefault End Function For Each ID As String In customOrder Dim selectedItem As T = internalGet_geneObj(ID) - If Not selectedItem Is Nothing Then ' 由于是倒序的，故而将对象移动到最后一个元素即可 + ' 由于是倒序的，故而将对象移动到最后一个元素即可 + If Not selectedItem Is Nothing Then Call list2.Add(selectedItem) Call ls.Remove(selectedItem) End If Next - Call list2.AddRange(ls) ' 添加剩余的没有在customOrder之中找到的数据 + ' 添加剩余的没有在customOrder之中找到的数据 + Call list2.AddRange(ls) Return list2 End Function + ''' + ''' 从一个对象集合中创建索引 + ''' + ''' + ''' + ''' Public Function Indexing(Of T)(source As IEnumerable(Of T)) As Index(Of T) diff --git a/Extensions/Collection/Vector.vb b/Extensions/Collection/Vector.vb index 1a428ef8..b78f07f7 100644 --- a/Extensions/Collection/Vector.vb +++ b/Extensions/Collection/Vector.vb @@ -237,7 +237,7 @@ Public Module VectorExtensions Public Function Fill(Of T)(ByRef vector As T(), data As IEnumerable(Of T), - start As VBInteger, + start As i32, Optional reverse As Boolean = False) As T() If start < 0 Then start = vector.Length + start.Value diff --git a/Extensions/IO/Extensions/StreamHelper.vb b/Extensions/IO/Extensions/StreamHelper.vb index c77a3bc0..11a41b17 100644 --- a/Extensions/IO/Extensions/StreamHelper.vb +++ b/Extensions/IO/Extensions/StreamHelper.vb @@ -64,7 +64,7 @@ Public Module StreamHelper End If Dim buffer As Byte() = New Byte(bufferSize - 1) {} - Dim i As VBInteger = Scan0 + Dim i As i32 = Scan0 With target Or DirectCast(New MemoryStream(), Stream).AsDefault Do While (i = stream.Read(buffer, 0, buffer.Length)) > 0 diff --git a/Extensions/Math/ScaleMaps.vb b/Extensions/Math/ScaleMaps.vb index fe3827fa..2e43137b 100644 --- a/Extensions/Math/ScaleMaps.vb +++ b/Extensions/Math/ScaleMaps.vb @@ -137,7 +137,7 @@ Namespace Math End If Dim chunkBuf As Integer() = New Integer(array.Length - 1) {} - Dim i As VBInteger = 0 + Dim i As i32 = 0 For Each x As Double In array Dim lv As Integer = Fix(Level * (x - MinValue) / d) diff --git a/Extensions/Security/Md5.vb b/Extensions/Security/Md5.vb index a238d0c0..f89b2fc6 100644 --- a/Extensions/Security/Md5.vb +++ b/Extensions/Security/Md5.vb @@ -304,7 +304,7 @@ Namespace SecurityString Public Function Fletcher32(bytes As Byte(), offset%, length%) As Integer Dim s1 As Integer = &HFFFF Dim s2 As Integer = &HFFFF - Dim i As VBInteger = offset + Dim i As i32 = offset Dim len As Integer = offset + (length And (Not 1)) Do While i < len diff --git a/Extensions/StringHelpers/Parser.vb b/Extensions/StringHelpers/Parser.vb index ef5e8453..713f1c5b 100644 --- a/Extensions/StringHelpers/Parser.vb +++ b/Extensions/StringHelpers/Parser.vb @@ -168,7 +168,7 @@ Public Module PrimitiveParser End Function ''' - ''' text parser + ''' text parser. (这个是一个非常安全的字符串解析函数) ''' ''' ''' diff --git a/Extensions/StringHelpers/StringHelpers.vb b/Extensions/StringHelpers/StringHelpers.vb index ca03de4a..6b87a5e4 100644 --- a/Extensions/StringHelpers/StringHelpers.vb +++ b/Extensions/StringHelpers/StringHelpers.vb @@ -1,55 +1,55 @@ #Region "Microsoft.VisualBasic::cc6ee9d1b10af059b8ab40f09ad8839c, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringHelpers.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 . +' 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: +' Summaries: - ' Module StringHelpers - ' - ' Properties: EmptyString, NonStrictCompares, StrictCompares - ' - ' Function: __json, AllEquals, AsciiBytes, (+4 Overloads) ByteString, CharAtOrDefault - ' CharString, (+3 Overloads) Count, CreateBuilder, DistinctIgnoreCase, EqualsAny - ' First, FormatString, FormatZero, GetBetween, GetEMails - ' GetStackValue, GetString, (+2 Overloads) GetTagValue, GetURLs, IgnoreCase - ' InStrAny, (+2 Overloads) Intersection, IsEmptyStringVector, JoinBy, LineTokens - ' Located, Lookup, (+2 Overloads) Match, Matches, MatchPattern - ' (+2 Overloads) MaxLengthString, NotEmpty, PadEnd, Parts, RepeatString - ' ReplaceChars, (+2 Overloads) Reverse, RNull, SaveTo, (+2 Overloads) Split - ' SplitBy, StringEmpty, StringHashCode, StringReplace, StringSplit - ' StripBlank, Strips, TextEquals, TextLast, TokenCount - ' TokenCountIgnoreCase, TrimNewLine, TrimNull, WildcardsLocated - ' - ' Sub: Parts, RemoveLast - ' - ' /********************************************************************************/ +' Module StringHelpers +' +' Properties: EmptyString, NonStrictCompares, StrictCompares +' +' Function: __json, AllEquals, AsciiBytes, (+4 Overloads) ByteString, CharAtOrDefault +' CharString, (+3 Overloads) Count, CreateBuilder, DistinctIgnoreCase, EqualsAny +' First, FormatString, FormatZero, GetBetween, GetEMails +' GetStackValue, GetString, (+2 Overloads) GetTagValue, GetURLs, IgnoreCase +' InStrAny, (+2 Overloads) Intersection, IsEmptyStringVector, JoinBy, LineTokens +' Located, Lookup, (+2 Overloads) Match, Matches, MatchPattern +' (+2 Overloads) MaxLengthString, NotEmpty, PadEnd, Parts, RepeatString +' ReplaceChars, (+2 Overloads) Reverse, RNull, SaveTo, (+2 Overloads) Split +' SplitBy, StringEmpty, StringHashCode, StringReplace, StringSplit +' StripBlank, Strips, TextEquals, TextLast, TokenCount +' TokenCountIgnoreCase, TrimNewLine, TrimNull, WildcardsLocated +' +' Sub: Parts, RemoveLast +' +' /********************************************************************************/ #End Region @@ -60,6 +60,7 @@ Imports System.Text Imports System.Text.RegularExpressions Imports Microsoft.VisualBasic.CommandLine.Reflection Imports Microsoft.VisualBasic.ComponentModel +Imports Microsoft.VisualBasic.ComponentModel.Collection Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Default @@ -731,39 +732,26 @@ Public Module StringHelpers ''' Public Function Intersection(source As IEnumerable(Of IEnumerable(Of String))) As String() - Dim union As New List(Of String) + Dim stringMatrix = source.Select(Function(seq) seq.ToArray).ToArray + ' 获取并集，接下来需要从并集之中去除在两个集合之中都不存在的 + Dim union As List(Of String) = stringMatrix.IteratesALL.Distinct.ToList - source = (From line As IEnumerable(Of String) - In source - Select (From s As String - In line - Select s - Distinct - Order By s Ascending).ToArray).ToArray - - For Each line As String() In source - union += line - Next - - union = (From s As String - In union - Select s - Distinct - Order By s Ascending).AsList '获取并集，接下来需要从并集之中去除在两个集合之中都不存在的 - - For Each Line As IEnumerable(Of String) In source - For Each row In source '遍历每一个集合 + For Each line As Index(Of String) In stringMatrix.Select(Function(seq) seq.Indexing) + For Each row In source + ' 遍历每一个集合 Dim LQuery As IEnumerable(Of String) = From s As String In row - Where Array.IndexOf(Line, s) = -1 + Where line(s) = -1 Select s + ' 假若line之中存在不存在的元素，则从并集之中移除 For Each s As String In LQuery - Call union.Remove(s) '假若line之中存在不存在的元素，则从并集之中移除 + Call union.Remove(s) Next Next Next - Return union.ToArray ' 剩下的元素都是在所有的序列之中都存在的，既交集元素 + ' 剩下的元素都是在所有的序列之中都存在的，既交集元素 + Return union.ToArray End Function ''' @@ -1014,21 +1002,22 @@ Public Module StringHelpers ''' 这个函数适合将一个很大的数组进行分割 ''' ''' - ''' 分隔符断言，判断当前的对象是不是分隔符 + ''' 分隔符断言，判断当前的对象是不是分隔符 ''' ''' Public Iterator Function Split(source As IEnumerable(Of String), - assertionDelimiter As Assert(Of String), + delimiterPredicate As Assert(Of String), Optional includes As Boolean = True) As IEnumerable(Of String()) Dim list As New List(Of String) - Dim first As Boolean = True ' first line + ' first line + Dim isFirst As Boolean = True For Each line As String In source - If True = assertionDelimiter(line) Then - If first Then - first = False + If True = delimiterPredicate(line) Then + If isFirst Then + isFirst = False Else Yield list.ToArray @@ -1042,7 +1031,7 @@ Public Module StringHelpers Call list.Add(line) End If - first = False + isFirst = False Next If list.Count > 0 Then @@ -1062,19 +1051,12 @@ Public Module StringHelpers ''' ''' - Public Function Located(collection As IEnumerable(Of String), - text As String, + Public Function Located(collection As IEnumerable(Of String), text$, Optional caseSensitive As Boolean = True, Optional fuzzy As Boolean = False) As Integer - Dim method As StringComparison = - If(caseSensitive, - StringComparison.Ordinal, - StringComparison.OrdinalIgnoreCase) - Dim method2 As CompareMethod = - If(caseSensitive, - CompareMethod.Binary, - CompareMethod.Text) + Dim method As StringComparison = StringComparison.OrdinalIgnoreCase Or StringComparison.Ordinal.When(caseSensitive) + Dim method2 As CompareMethod = CompareMethod.Text Or CompareMethod.Binary.When(caseSensitive) For Each str As SeqValue(Of String) In collection.SeqIterator If String.Equals(str.value, text, method) Then @@ -1266,6 +1248,7 @@ Public Module StringHelpers ' 可能会导致匹配到第一个字符串而无法正确的匹配上最后一个token，所以在这里使用 ' InstrRev来避免这个问题 Dim val% = InStrRev(s, token) + Return lastIndex = val End Function End Module diff --git a/Extensions/WebServices/WebServiceUtils.vb b/Extensions/WebServices/WebServiceUtils.vb index ba2e93df..442a3c5d 100644 --- a/Extensions/WebServices/WebServiceUtils.vb +++ b/Extensions/WebServices/WebServiceUtils.vb @@ -1,51 +1,51 @@ #Region "Microsoft.VisualBasic::4d5d5bef8e9a9b6e863af14d8d486dff, Microsoft.VisualBasic.Core\Extensions\WebServices\WebServiceUtils.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 . +' 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: +' Summaries: - ' Module WebServiceUtils - ' - ' Properties: DefaultUA, Protocols, Proxy - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: __getMyIPAddress, BuildArgs, (+2 Overloads) BuildReqparm, BuildUrlData, CheckValidationResult - ' (+2 Overloads) DownloadFile, GenerateDictionary, GetDownload, GetMyIPAddress, GetProxy - ' (+2 Overloads) GetRequest, GetRequestRaw, IsSocketPortOccupied, isURL, IsURLPattern - ' (+2 Overloads) POST, POSTFile, (+2 Overloads) PostRequest, PostUrlDataParser, QueryStringParameters - ' UrlDecode, UrlEncode, UrlPathEncode - ' - ' Sub: (+2 Overloads) SetProxy, UrlDecode, UrlEncode - ' - ' /********************************************************************************/ +' Module WebServiceUtils +' +' Properties: DefaultUA, Protocols, Proxy +' +' Constructor: (+1 Overloads) Sub New +' +' Function: __getMyIPAddress, BuildArgs, (+2 Overloads) BuildReqparm, BuildUrlData, CheckValidationResult +' (+2 Overloads) DownloadFile, GenerateDictionary, GetDownload, GetMyIPAddress, GetProxy +' (+2 Overloads) GetRequest, GetRequestRaw, IsSocketPortOccupied, isURL, IsURLPattern +' (+2 Overloads) POST, POSTFile, (+2 Overloads) PostRequest, PostUrlDataParser, QueryStringParameters +' UrlDecode, UrlEncode, UrlPathEncode +' +' Sub: (+2 Overloads) SetProxy, UrlDecode, UrlEncode +' +' /********************************************************************************/ #End Region @@ -67,6 +67,8 @@ Imports Microsoft.VisualBasic.Net.Http Imports Microsoft.VisualBasic.Net.Tcp Imports Microsoft.VisualBasic.Scripting.MetaData Imports Microsoft.VisualBasic.Text +Imports IPEndPoint = Microsoft.VisualBasic.Net.IPEndPoint +Imports r = System.Text.RegularExpressions.Regex ''' ''' The extension module for web services works. @@ -477,7 +479,7 @@ Public Module WebServiceUtils Optional contentEncoding As Encodings = Encodings.UTF8) As String Static emptyBody As New [Default](Of NameValueCollection) With { - .Value = New NameValueCollection, + .value = New NameValueCollection, .assert = Function(c) Return c Is Nothing OrElse DirectCast(c, NameValueCollection).Count = 0 End Function @@ -737,11 +739,11 @@ RE0: End Try End Function - Public Const IPAddress As String = "http://ipaddress.com/" + Const IPAddress As String = "http://ipaddress.com/" ''' ''' Microsoft DNS Server ''' - Public Const MicrosoftDNS As String = "4.2.2.1" + Const MicrosoftDNS As String = "4.2.2.1" ''' ''' 获取我的公网IP地址，假若没有连接互联网的话则会返回局域网IP地址 @@ -758,19 +760,23 @@ RE0: If hasInternet Then ' IPAddress on Internet - Return __getMyIPAddress() + Return getIPAddressInternal() Else ' IPAddress in LAN Return TcpRequest.LocalIPAddress End If End Function - Public Const RegexIPAddress As String = "\d{1,3}(\.\d{1,3}){3}" + ''' + ''' Request an external server and then returns the ip address from the server side. + ''' + ''' + Private Function getIPAddressInternal() As String + Dim ipResult$ = IPAddress.GET + + ipResult = r.Match(ipResult, $"IP[:] {IPEndPoint.RegexIPAddress}
", RegexOptions.IgnoreCase).Value + ipResult = r.Match(ipResult, IPEndPoint.RegexIPAddress).Value - Private Function __getMyIPAddress() As String - Dim page As String = IPAddress.GET - Dim ipResult As String = Regex.Match(page, $"IP[:] {RegexIPAddress}
''' ''' - Default Public Overloads Property Item(index As VBInteger) As T + Default Public Overloads Property Item(index As i32) As T Get Return Item(index.Value) End Get diff --git a/Language/Value/Clones.vb b/Language/Value/Clones.vb index 131edc56..faefb228 100644 --- a/Language/Value/Clones.vb +++ b/Language/Value/Clones.vb @@ -72,12 +72,12 @@ Namespace Language.Values Return New String(s.ToCharArray) End Function - Public Function Clone(int As VBInteger) As VBInteger - Return New VBInteger(int.value) + Public Function Clone(int As i32) As i32 + Return New i32(int.value) End Function - Public Function Clone(float As VBDouble) As VBDouble - Return New VBDouble(float.value) + Public Function Clone(float As f64) As f64 + Return New f64(float.value) End Function End Module End Namespace diff --git a/Language/Value/Numeric/Numeric.vb b/Language/Value/Numeric/Numeric.vb index f1178018..8f07b9be 100644 --- a/Language/Value/Numeric/Numeric.vb +++ b/Language/Value/Numeric/Numeric.vb @@ -191,8 +191,8 @@ Namespace Language ''' ''' ''' - Public Function NextInteger(rnd As Random, max As Integer) As VBInteger - Return New VBInteger(rnd.Next(max)) + Public Function NextInteger(rnd As Random, max As Integer) As i32 + Return New i32(rnd.Next(max)) End Function Public Function ToUInt32(value As Single) As UInteger diff --git a/Language/Value/Numeric/VBDouble.vb b/Language/Value/Numeric/f64.vb similarity index 83% rename from Language/Value/Numeric/VBDouble.vb rename to Language/Value/Numeric/f64.vb index b70a99be..01a9d141 100644 --- a/Language/Value/Numeric/VBDouble.vb +++ b/Language/Value/Numeric/f64.vb @@ -55,7 +55,7 @@ Namespace Language ''' ''' ''' - Public Class VBDouble : Inherits Value(Of Double) + Public Class f64 : Inherits Value(Of Double) Implements IComparable Implements IConvertible Implements IEquatable(Of Double) @@ -91,10 +91,10 @@ Namespace Language If type.Equals(GetType(Double)) Then Return Value.CompareTo(DirectCast(obj, Double)) - ElseIf type.Equals(GetType(VBDouble)) Then - Return Value.CompareTo(DirectCast(obj, VBDouble).Value) + ElseIf type.Equals(GetType(f64)) Then + Return Value.CompareTo(DirectCast(obj, f64).Value) Else - Throw New Exception($"Miss-match of type: {GetType(VBDouble).FullName} --> {type.FullName}") + Throw New Exception($"Miss-match of type: {GetType(f64).FullName} --> {type.FullName}") End If End Function @@ -111,73 +111,73 @@ Namespace Language ''' ''' ''' - Public Shared Operator <(n#, x As VBDouble) As VBDouble + Public Shared Operator <(n#, x As f64) As f64 If n >= x.Value Then - Return New VBDouble(Double.MaxValue) + Return New f64(Double.MaxValue) Else Return x End If End Operator - Public Shared Operator <(x As VBDouble, y As Double) As VBDouble + Public Shared Operator <(x As f64, y As Double) As f64 Return x.Value < y End Operator - Public Shared Operator >(x As VBDouble, y As Double) As VBDouble + Public Shared Operator >(x As f64, y As Double) As f64 Return x.Value > y End Operator - Public Shared Operator *(n#, x As VBDouble) As Double + Public Shared Operator *(n#, x As f64) As Double Return n * x.Value End Operator - Public Overloads Shared Operator +(x As VBDouble, y As Double) As Double + Public Overloads Shared Operator +(x As f64, y As Double) As Double Return x.Value + y End Operator - Public Overloads Shared Operator +(x As VBDouble, y As VBDouble) As Double + Public Overloads Shared Operator +(x As f64, y As f64) As Double Return x.Value + y.Value End Operator - Public Overloads Shared Operator /(x As VBDouble, y As VBDouble) As Double + Public Overloads Shared Operator /(x As f64, y As f64) As Double Return x.Value / y.Value End Operator - Public Overloads Shared Operator +(x#, y As VBDouble) As Double + Public Overloads Shared Operator +(x#, y As f64) As Double Return x + y.Value End Operator - Public Overloads Shared Widening Operator CType(x As Double) As VBDouble - Return New VBDouble(x) + Public Overloads Shared Widening Operator CType(x As Double) As f64 + Return New f64(x) End Operator - Public Overloads Shared Operator <=(x As VBDouble, n As Double) As Boolean + Public Overloads Shared Operator <=(x As f64, n As Double) As Boolean Return x.Value <= n End Operator - Public Overloads Shared Operator >=(x As VBDouble, n As Double) As Boolean + Public Overloads Shared Operator >=(x As f64, n As Double) As Boolean Return x.Value >= n End Operator - Public Overloads Shared Operator /(x As VBDouble, n As Double) As Double + Public Overloads Shared Operator /(x As f64, n As Double) As Double Return x.Value / n End Operator - Public Shared Operator >(n As Double, x As VBDouble) As VBDouble + Public Shared Operator >(n As Double, x As f64) As f64 Return x End Operator - Public Shared Operator ^(x As VBDouble, power As Double) As Double + Public Shared Operator ^(x As f64, power As Double) As Double Return x.Value ^ power End Operator - Public Overloads Shared Narrowing Operator CType(f As VBDouble) As Double + Public Overloads Shared Narrowing Operator CType(f As f64) As Double Return f.Value End Operator - Public Overloads Shared Operator -(a As VBDouble, b As VBDouble) As Double + Public Overloads Shared Operator -(a As f64, b As f64) As Double Return a.Value - b.Value End Operator @@ -187,11 +187,11 @@ Namespace Language ''' ''' ''' - Public Overloads Shared Operator -(a As Double, b As VBDouble) As Double + Public Overloads Shared Operator -(a As Double, b As f64) As Double Return a - b.Value End Operator - Public Overloads Shared Operator *(a As VBDouble, b As VBDouble) As Double + Public Overloads Shared Operator *(a As f64, b As f64) As Double Return a.Value * b.Value End Operator #End Region diff --git a/Language/Value/Numeric/VBInteger.vb b/Language/Value/Numeric/i32.vb similarity index 80% rename from Language/Value/Numeric/VBInteger.vb rename to Language/Value/Numeric/i32.vb index b3eab893..6c67dbe3 100644 --- a/Language/Value/Numeric/VBInteger.vb +++ b/Language/Value/Numeric/i32.vb @@ -52,7 +52,7 @@ Namespace Language ''' ''' Alias of ''' - Public Class VBInteger : Inherits Value(Of Integer) + Public Class i32 : Inherits Value(Of Integer) Implements IComparable Implements IComparable(Of Integer) Implements IEquatable(Of Integer) @@ -95,7 +95,7 @@ Namespace Language End Function ''' - ''' Compare or + ''' Compare or ''' ''' ''' @@ -104,19 +104,19 @@ Namespace Language If type.Equals(GetType(Integer)) Then Return Value.CompareTo(DirectCast(obj, Integer)) - ElseIf type.Equals(GetType(VBInteger)) Then - Return Value.CompareTo(DirectCast(obj, VBInteger).Value) + ElseIf type.Equals(GetType(i32)) Then + Return Value.CompareTo(DirectCast(obj, i32).Value) Else - Throw New Exception($"Miss-match of type: {GetType(VBInteger).FullName} -> {type.FullName}") + Throw New Exception($"Miss-match of type: {GetType(i32).FullName} -> {type.FullName}") End If End Function - Public Shared Operator IsTrue(n As VBInteger) As Boolean + Public Shared Operator IsTrue(n As i32) As Boolean Return Not n Is Nothing AndAlso n.Value <> 0 End Operator - Public Shared Operator IsFalse(n As VBInteger) As Boolean + Public Shared Operator IsFalse(n As i32) As Boolean If n Then Return False Else @@ -131,9 +131,9 @@ Namespace Language ''' ''' ''' - Public Shared Operator <(n As Integer, x As VBInteger) As VBInteger + Public Shared Operator <(n As Integer, x As i32) As i32 If n >= x.Value Then - Return New VBInteger(Integer.MaxValue) + Return New i32(Integer.MaxValue) Else Return x End If @@ -146,17 +146,17 @@ Namespace Language ''' ''' - Public Shared Operator <(x As VBInteger, n As Integer) As Boolean + Public Shared Operator <(x As i32, n As Integer) As Boolean Return x.Value < n End Operator - Public Shared Operator <(n As Double, x As VBInteger) As Boolean + Public Shared Operator <(n As Double, x As i32) As Boolean Return n < x.Value End Operator - Public Shared Operator >(n As Double, x As VBInteger) As Boolean + Public Shared Operator >(n As Double, x As i32) As Boolean Return n > x.Value End Operator @@ -167,27 +167,27 @@ Namespace Language ''' ''' - Public Shared Operator >(x As VBInteger, n As Integer) As Boolean + Public Shared Operator >(x As i32, n As Integer) As Boolean Return x.Value > n End Operator - Public Overloads Shared Operator <=(x As VBInteger, n As Integer) As Boolean + Public Overloads Shared Operator <=(x As i32, n As Integer) As Boolean Return x.Value <= n End Operator - Public Overloads Shared Operator >=(x As VBInteger, n As Integer) As Boolean + Public Overloads Shared Operator >=(x As i32, n As Integer) As Boolean Return x.Value >= n End Operator - Public Shared Operator >(n As Integer, x As VBInteger) As VBInteger + Public Shared Operator >(n As Integer, x As i32) As i32 Return x End Operator - Public Overloads Shared Operator -(x As VBInteger, n As Integer) As VBInteger + Public Overloads Shared Operator -(x As i32, n As Integer) As i32 x.Value -= n Return x End Operator @@ -199,17 +199,17 @@ Namespace Language ''' ''' - Public Overloads Shared Operator -(x%, n As VBInteger) As Integer + Public Overloads Shared Operator -(x%, n As i32) As Integer Return x - n.Value End Operator - Public Shared Operator /(x As VBInteger, b As Integer) As Double + Public Shared Operator /(x As i32, b As Integer) As Double Return x.Value / b End Operator - Public Shared Operator /(x As Integer, b As VBInteger) As Double + Public Shared Operator /(x As Integer, b As i32) As Double Return x / b.Value End Operator @@ -219,17 +219,17 @@ Namespace Language ''' ''' - Public Overloads Shared Widening Operator CType(n As Integer) As VBInteger - Return New VBInteger(n) + Public Overloads Shared Widening Operator CType(n As Integer) As i32 + Return New i32(n) End Operator - Public Overloads Shared Narrowing Operator CType(n As VBInteger) As Double + Public Overloads Shared Narrowing Operator CType(n As i32) As Double Return CDbl(n.Value) End Operator - Public Overloads Shared Narrowing Operator CType(n As VBInteger) As Integer + Public Overloads Shared Narrowing Operator CType(n As i32) As Integer Return n.Value End Operator @@ -238,7 +238,7 @@ Namespace Language ''' ''' ''' - Public Shared Operator -(x As VBInteger) As Integer + Public Shared Operator -(x As i32) As Integer Dim i As Integer = x.Value x.Value -= 1 Return -i @@ -250,7 +250,7 @@ Namespace Language ''' ''' ''' - Public Overloads Shared Operator +(x As VBInteger) As Integer + Public Overloads Shared Operator +(x As i32) As Integer Dim i As Integer = x.Value x.Value += 1 Return i @@ -259,17 +259,17 @@ Namespace Language ''' ''' 位移个单位然后返回位移之后的结果值 ''' - ''' + 对于类型而言，其更加侧重于迭代器中的位移，所以这个加法运算是符合 + ''' + 对于类型而言，其更加侧重于迭代器中的位移，所以这个加法运算是符合 ''' ```vbnet ''' x += n ''' ``` - ''' + 但是对于类型而言，其更加侧重于模型计算，所以其加法不符合上述的语法， + ''' + 但是对于类型而言，其更加侧重于模型计算，所以其加法不符合上述的语法， ''' 不会修改源变量的值，返回的是一个单纯的值类型 ''' ''' ''' ''' - Public Overloads Shared Operator +(x As VBInteger, n%) As VBInteger + Public Overloads Shared Operator +(x As i32, n%) As i32 x.Value += n Return x End Operator @@ -280,7 +280,7 @@ Namespace Language ''' ''' ''' - Public Shared Operator <<(p As VBInteger, x%) As Integer + Public Shared Operator <<(p As i32, x%) As Integer Dim i As Integer = p.Value p.Value += x Return i diff --git a/Net/HTTP/Stream/Base64Codec.vb b/Net/HTTP/Stream/Base64Codec.vb index df0e89f9..eb4b618c 100644 --- a/Net/HTTP/Stream/Base64Codec.vb +++ b/Net/HTTP/Stream/Base64Codec.vb @@ -59,6 +59,12 @@ Namespace Net.Http #Region "text" + ''' + ''' 将普通文本进行base64编码 + ''' + ''' + ''' + ''' Public Function Base64String(text$, Optional encoding As Encoding = Nothing) As String diff --git a/Net/HTTP/wget.vb b/Net/HTTP/wget.vb new file mode 100644 index 00000000..38afc6fa --- /dev/null +++ b/Net/HTTP/wget.vb @@ -0,0 +1,52 @@ +Imports System.Net + +Namespace Net.Http + + ''' + ''' 命令行下的下载程序组件 + ''' + Public Class wget + + Dim WithEvents task As wgetTask + Dim cursorTop% + + Sub New(url$, save$) + task = New wgetTask(url, save) + cursorTop = Console.CursorTop + End Sub + + Public Sub Run() + Call task.StartTask() + + If Not task.isDownloading Then + Call task.Dispose() + + Call Console.WriteLine() + Call Console.WriteLine($"{Now.ToString} ({task.downloadSpeed} KB/s) - '{task.saveFile.FileName}' saved [{task.saveFile.FileLength}]") + Call Console.WriteLine() + End If + End Sub + + Private Sub DownloadProcess(wget As wgetTask, percentage As Double) Handles task.DownloadProcess + Console.CursorTop = cursorTop + Console.CursorLeft = 1 + Console.Write(New String(" "c, Console.BufferWidth)) + Console.CursorLeft = 1 + Console.WriteLine(wget.ToString) + End Sub + + Private Sub ReportRequest(req As WebRequest) Handles task.ReportRequest + Dim domain As New DomainName(task.url) + + Call Console.WriteLine($"--{Now.ToString}-- {task.url}") + Call Console.WriteLine($" => '{task.saveFile.FileName}'") + Call Console.WriteLine($"Resolving {domain} ({domain})... {req.RequestUri.Host}") + Call Console.WriteLine($"==> SIZE {task.saveFile.FileName} ... {req.ContentLength}") + Call Console.WriteLine($"==> CONTENT-TYPE ... {req.ContentType}") + Call Console.WriteLine($"Length: {req.ContentLength} ()") + Call Console.WriteLine() + + cursorTop = Console.CursorTop + End Sub + End Class +End Namespace \ No newline at end of file diff --git a/Net/HTTP/wgetTask.vb b/Net/HTTP/wgetTask.vb new file mode 100644 index 00000000..73faff32 --- /dev/null +++ b/Net/HTTP/wgetTask.vb @@ -0,0 +1,222 @@ +#Region "Microsoft.VisualBasic::d123268ab48cb110ebd63048c445139e, Microsoft.VisualBasic.Core\Net\wGetTools.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 wGetTools +' +' Properties: CurrentSize, Downloading, DownloadSpeed, TotalSize +' +' Constructor: (+1 Overloads) Sub New +' +' Function: ToString +' +' Sub: __downloadTask, (+2 Overloads) Dispose, StartTask +' +' +' /********************************************************************************/ + +#End Region + +Imports System.IO +Imports System.Net + +Namespace Net.Http + + ''' + ''' 提供一些比较详细的数据信息和事件处理 + ''' + Public Class wgetTask : Implements IDisposable + + ReadOnly fs As FileStream + + Dim _speedSamples As List(Of Double) + + ''' + ''' Size that has been downloaded + ''' + Public ReadOnly Property currentSize As Long = 0 + ''' + ''' Total size of the file that has to be downloaded + ''' + Public ReadOnly Property totalSize As Long + Public ReadOnly Property url As String + Public ReadOnly Property saveFile As String + + ''' + ''' KB/sec + ''' + ''' + Public ReadOnly Property downloadSpeed As Double + Get + If _speedSamples.Count = 0 Then + Return 0 + Else + Return _speedSamples.Average + End If + End Get + End Property + + Public Event DownloadProcess(wget As wgetTask, percentage#) + Public Event ReportRequest(req As WebRequest) + + ''' + ''' Client status + ''' + ''' + Public ReadOnly Property isDownloading As Boolean + + ''' + ''' + ''' + ''' + ''' + ''' Module will create a new that writes to this desired download path + ''' + Sub New(downloadUrl As String, saveFile As String) + Me.fs = saveFile.Open(doClear:=True) + Me.url = downloadUrl + Me.saveFile = saveFile + End Sub + + Public Sub StartTask() + If isDownloading Then Return + + Call switchStat() + Call doTaskInternal() + Call switchStat() + End Sub + + Private Sub switchStat() + _isDownloading = Not isDownloading + End Sub + + Private Sub doTaskInternal() + ' Make a request for the url of the file to be downloaded + Dim req As WebRequest = WebRequest.Create(url) + ' Ask for the response + Dim resp As WebResponse = req.GetResponse + + _totalSize = req.ContentLength + _speedSamples = New List(Of Double) + _currentSize = 0 + + RaiseEvent ReportRequest(req) + RaiseEvent DownloadProcess(Me, 100 * currentSize / totalSize) + + If totalSize = -1 Then + Call taskWithNoContentLength(resp) + Else + Call taskWithContentLength(resp) + End If + + resp.Close() + End Sub + + Private Sub taskWithNoContentLength(resp As WebResponse) + Throw New NotImplementedException + End Sub + + Private Sub taskWithContentLength(resp As WebResponse) + ' Make a buffer + Dim buffer(8192) As Byte + Dim downloadedsize As Long = 0 + Dim downloadedTime As Long = 0 + Dim dlSpeed As Long = 0 + + Do While currentSize < totalSize + ' Read the buffer from the response the WebRequest gave you + Dim read As Integer = resp.GetResponseStream.Read(buffer, 0, 8192) + + ' Write to filestream that you declared at the beginning of the DoWork sub + Call fs.Write(buffer, 0, read) + + _currentSize += read + ' Add 1 millisecond for every cycle the While field makes + downloadedsize += read + downloadedTime += 1 + + If downloadedTime = 1000 Then + ' Then, if downloadedTime reaches 1000 then it will call this part + ' Calculate the download speed by dividing the downloadedSize + ' by the total formatted seconds of the downloadedTime + dlSpeed = (downloadedsize / TimeSpan.FromMilliseconds(downloadedTime).TotalSeconds) + ' Reset downloadedTime and downloadedSize + downloadedTime = 0 + downloadedsize = 0 + + Call _speedSamples.Add(dlSpeed) + + RaiseEvent DownloadProcess(Me, 100 * currentSize / totalSize) + End If + Loop + End Sub + + Public Overrides Function ToString() As String + Return $"> '{saveFile.FileName}' {currentSize} [{(100 * _currentSize / _totalSize).ToString("F2")}%, {downloadSpeed}KB/sec]" + End Function + +#Region "IDisposable Support" + Private disposedValue As Boolean ' To detect redundant calls + + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + ' TODO: dispose managed state (managed objects). + Call fs.Flush() + Call fs.Close() + Call fs.Dispose() + End If + + ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. + ' TODO: set large fields to null. + End If + Me.disposedValue = True + End Sub + + ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources. + 'Protected Overrides Sub Finalize() + ' ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. + ' Dispose(False) + ' MyBase.Finalize() + 'End Sub + + ' This code added by Visual Basic to correctly implement the disposable pattern. + Public Sub Dispose() Implements IDisposable.Dispose + ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. + Dispose(True) + ' TODO: uncomment the following line if Finalize() is overridden above. + ' GC.SuppressFinalize(Me) + End Sub +#End Region + End Class +End Namespace diff --git a/Net/Protocol/RequestStream.vb b/Net/Protocol/RequestStream.vb index d7e5f1f8..de2e7633 100644 --- a/Net/Protocol/RequestStream.vb +++ b/Net/Protocol/RequestStream.vb @@ -164,7 +164,7 @@ Namespace Net.Protocols Call MyBase.New(rawStream) Dim bitChunk As Byte() = New Byte(INT64 - 1) {} - Dim p As VBInteger = Scan0 + Dim p As i32 = Scan0 Call Array.ConstrainedCopy(rawStream, ++p, bitChunk, Scan0, INT64) Me.ProtocolCategory = BitConverter.ToInt64(bitChunk, Scan0) @@ -312,8 +312,8 @@ Namespace Net.Protocols Dim Protocol As Byte() = BitConverter.GetBytes(Me.Protocol) Dim BufferLength As Byte() = BitConverter.GetBytes(Me.BufferLength) Dim bufs As Byte() = New Byte(TotalBytes - 1) {} - Dim p As VBInteger = Scan0 - Dim l As New VBInteger + Dim p As i32 = Scan0 + Dim l As New i32 Call Array.ConstrainedCopy(ProtocolCategory, Scan0, bufs, p << (l = ProtocolCategory.Length), l) Call Array.ConstrainedCopy(___offset, Scan0, bufs, ++p, 1) diff --git a/Net/Protocol/Streams/ArrayBase.vb b/Net/Protocol/Streams/ArrayBase.vb index 67f5e265..faeafd8e 100644 --- a/Net/Protocol/Streams/ArrayBase.vb +++ b/Net/Protocol/Streams/ArrayBase.vb @@ -69,7 +69,7 @@ Namespace Net.Protocols.Streams.Array If Not rawStream.IsNullOrEmpty Then Dim valueList As New List(Of T) - Dim p As VBInteger = 0 + Dim p As i32 = 0 Dim byts As Byte() = New Byte(_bufWidth - 1) {} Do While p < rawStream.Length - 1 @@ -83,7 +83,7 @@ Namespace Net.Protocols.Streams.Array Public NotOverridable Overrides Function Serialize() As Byte() Dim bufferArray As Byte() = New Byte(Values.Length * _bufWidth - 1) {} - Dim p As VBInteger = 0 + Dim p As i32 = 0 For Each value As T In Values Dim byts As Byte() = serialization(value) diff --git a/Net/Tcp/IPTools/IPEndPoint.vb b/Net/Tcp/IPTools/IPEndPoint.vb index 5efd842c..663ad76c 100644 --- a/Net/Tcp/IPTools/IPEndPoint.vb +++ b/Net/Tcp/IPTools/IPEndPoint.vb @@ -64,7 +64,7 @@ Namespace Net ''' - Public Property uid As String + Public Property guid As String ''' ''' IPAddress of the services instance. @@ -72,7 +72,7 @@ Namespace Net ''' - Public Property IPAddress As String + Public Property ipAddress As String ''' ''' Data port of the services instance. @@ -80,7 +80,7 @@ Namespace Net ''' - Public Property Port As Integer + Public Property port As Integer #End Region ''' @@ -96,8 +96,8 @@ Namespace Net ''' IPAddress string using for create object using method ''' Sub New(IPAddress As String, Port As Integer) - Me.Port = Port - Me.IPAddress = IPAddress + Me.port = Port + Me.ipAddress = IPAddress End Sub ''' @@ -106,14 +106,14 @@ Namespace Net ''' Required format string: ``IPAddress:Port`` ''' Sub New(str As String) - Dim Tokens As String() = str.Split(":"c) + Dim tokens As String() = str.Split(":"c) - If Tokens.IsNullOrEmpty OrElse Tokens.Length < 2 Then + If tokens.IsNullOrEmpty OrElse tokens.Length < 2 Then Throw New DataException(str & " is not a valid IPEndPoint string value!") End If - IPAddress = Tokens.First - Port = CInt(Val(Tokens(1))) + ipAddress = tokens.First + port = CInt(Val(tokens(1))) End Sub Sub New(ipEnd As System.Net.IPEndPoint) @@ -125,7 +125,7 @@ Namespace Net ''' ''' Public Overrides Function ToString() As String - Return $"http://{IPAddress}:{Port}/" + Return $"http://{ipAddress}:{port}/" End Function ''' @@ -133,11 +133,11 @@ Namespace Net ''' ''' Public Function GetIPEndPoint() As System.Net.IPEndPoint - Return New System.Net.IPEndPoint(System.Net.IPAddress.Parse(ipString:=IPAddress), Port) + Return New System.Net.IPEndPoint(System.Net.IPAddress.Parse(ipString:=ipAddress), port) End Function Public Function GetValue() As String - Return IPAddress & ":" & Port.ToString + Return ipAddress & ":" & port.ToString End Function ''' @@ -147,12 +147,18 @@ Namespace Net Public ReadOnly Property IsValid As Boolean Get - Return Port > 0 AndAlso System.Net.IPAddress.TryParse(IPAddress, Nothing) + Return port > 0 AndAlso System.Net.IPAddress.TryParse(ipAddress, Nothing) End Get End Property Public Shared Narrowing Operator CType(ep As IPEndPoint) As System.Net.IPEndPoint Return ep.GetIPEndPoint End Operator + + Public Const RegexIPAddress As String = "\d{1,3}(\.\d{1,3}){3}" + + Public Shared Function IsIpv4Address(addr As String) As Boolean + Return addr.IsPattern(RegexIPAddress) + End Function End Class End Namespace diff --git a/Net/Tcp/Persistent/Protocols/POST.vb b/Net/Tcp/Persistent/Protocols/POST.vb index 78159bed..339d4173 100644 --- a/Net/Tcp/Persistent/Protocols/POST.vb +++ b/Net/Tcp/Persistent/Protocols/POST.vb @@ -77,7 +77,7 @@ Namespace Net.Tcp.Persistent.Application.Protocols Sub New(rawStream As Byte()) Dim pTemp As Byte() = New Byte(INT64 - 1) {} - Dim p As VBInteger = 0 + Dim p As i32 = 0 Call Array.ConstrainedCopy(rawStream, p + INT64, pTemp, Scan0, pTemp.Length) FROM = BitConverter.ToInt64(pTemp, Scan0) @@ -95,7 +95,7 @@ Namespace Net.Tcp.Persistent.Application.Protocols Public Overrides Function Serialize() As Byte() Dim RequestStream As Byte() = Message.Serialize Dim ChunkBuffer As Byte() = New Byte(INT64 + INT64 + RequestStream.Length - 1) {} - Dim p As VBInteger = 0 + Dim p As i32 = 0 Call Array.ConstrainedCopy(BitConverter.GetBytes(FROM), Scan0, ChunkBuffer, p + INT64, INT64) Call Array.ConstrainedCopy(BitConverter.GetBytes(USER_ID), Scan0, ChunkBuffer, p + INT64, INT64) diff --git a/Net/Tcp/TcpRequest.vb b/Net/Tcp/TcpRequest.vb index b48e1220..57ddc4d3 100644 --- a/Net/Tcp/TcpRequest.vb +++ b/Net/Tcp/TcpRequest.vb @@ -127,7 +127,7 @@ Namespace Net.Tcp End Sub Sub New(remoteDevice As IPEndPoint, Optional exceptionHandler As ExceptionHandler = Nothing) - Call Me.New(remoteDevice.IPAddress, remoteDevice.Port, exceptionHandler) + Call Me.New(remoteDevice.ipAddress, remoteDevice.port, exceptionHandler) End Sub Shared ReadOnly defaultHandler As New [Default](Of ExceptionHandler)(AddressOf VBDebugger.PrintException) diff --git a/Net/wGetTools.vb b/Net/wGetTools.vb deleted file mode 100644 index 804618d4..00000000 --- a/Net/wGetTools.vb +++ /dev/null @@ -1,181 +0,0 @@ -#Region "Microsoft.VisualBasic::d123268ab48cb110ebd63048c445139e, Microsoft.VisualBasic.Core\Net\wGetTools.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 wGetTools - ' - ' Properties: CurrentSize, Downloading, DownloadSpeed, TotalSize - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: ToString - ' - ' Sub: __downloadTask, (+2 Overloads) Dispose, StartTask - ' - ' - ' /********************************************************************************/ - -#End Region - -Imports System.IO -Imports System.Net - -Namespace Net - - ''' - ''' 提供一些比较详细的数据信息和事件处理 - ''' - Public Class wGetTools : Implements System.IDisposable - - ReadOnly downloadUrl As String - ReadOnly fs As FileStream - ReadOnly savePath As String - - ''' - ''' Size that has been downloaded - ''' - Public ReadOnly Property CurrentSize As Long = 0 - ''' - ''' Total size of the file that has to be downloaded - ''' - Public ReadOnly Property TotalSize As Long - - ''' - ''' KB/sec - ''' - ''' - Public ReadOnly Property DownloadSpeed As Double - Get - Return _speedSamples.Average - End Get - End Property - - Public Event DownloadProcess(wget As wGetTools, percentage As Double) - - ''' - ''' Client status - ''' - ''' - Public ReadOnly Property Downloading As Boolean - - Sub New(downloadUrl As String, SaveFile As String) - Me.fs = New FileStream(SaveFile, FileMode.CreateNew) 'Create a new FileStream that writes to the desired download path - Me.downloadUrl = downloadUrl - Me.savePath = SaveFile - End Sub - - Dim _speedSamples As List(Of Double) - - Public Sub StartTask() - If Downloading Then Return - - _Downloading = True - Call __downloadTask() - _Downloading = False - End Sub - - Private Sub __downloadTask() - Dim req As WebRequest = WebRequest.Create(downloadUrl) 'Make a request for the url of the file to be downloaded - Dim resp As WebResponse = req.GetResponse 'Ask for the response - - Dim buffer(8192) As Byte 'Make a buffer - Dim downloadedsize As Long = 0 - Dim downloadedTime As Long = 0 - Dim dlSpeed As Long = 0 - - _TotalSize = req.ContentLength - _speedSamples = New List(Of Double) - _CurrentSize = 0 - - Do While _CurrentSize < _TotalSize - Dim read As Integer = resp.GetResponseStream.Read(buffer, 0, 8192) 'Read the buffer from the response the WebRequest gave you - - fs.Write(buffer, 0, read) 'Write to filestream that you declared at the beginning of the DoWork sub - - _CurrentSize += read - - downloadedsize += read - downloadedTime += 1 'Add 1 millisecond for every cycle the While field makes - - If downloadedTime = 1000 Then 'Then, if downloadedTime reaches 1000 then it will call this part - dlSpeed = (downloadedsize / TimeSpan.FromMilliseconds(downloadedTime).TotalSeconds) 'Calculate the download speed by dividing the downloadedSize by the total formatted seconds of the downloadedTime - - downloadedTime = 0 'Reset downloadedTime and downloadedSize - downloadedsize = 0 - - Call _speedSamples.Add(dlSpeed) - - RaiseEvent DownloadProcess(Me, 100 * CurrentSize / TotalSize) - End If - Loop - - fs.Close() 'Close the FileStream first, or the FileStream will crash. - resp.Close() 'Close the response - End Sub - - Public Overrides Function ToString() As String - Return $"{downloadUrl} ==> {savePath.ToFileURL} [{100 * _currentSize / _totalSize}%, {DownloadSpeed}KB/sec]" - End Function - -#Region "IDisposable Support" - Private disposedValue As Boolean ' To detect redundant calls - - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - ' TODO: dispose managed state (managed objects). - End If - - ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. - ' TODO: set large fields to null. - End If - Me.disposedValue = True - End Sub - - ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources. - 'Protected Overrides Sub Finalize() - ' ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. - ' Dispose(False) - ' MyBase.Finalize() - 'End Sub - - ' This code added by Visual Basic to correctly implement the disposable pattern. - Public Sub Dispose() Implements IDisposable.Dispose - ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. - Dispose(True) - ' TODO: uncomment the following line if Finalize() is overridden above. - ' GC.SuppressFinalize(Me) - End Sub -#End Region - End Class -End Namespace diff --git a/Serialization/BinaryDumping/Buffer.vb b/Serialization/BinaryDumping/Buffer.vb index bd6d47ec..645c3ff9 100644 --- a/Serialization/BinaryDumping/Buffer.vb +++ b/Serialization/BinaryDumping/Buffer.vb @@ -121,7 +121,7 @@ Namespace Serialization.BinaryDumping Public Iterator Function GetBuffer(Of T)(raw As Byte(), getObj As IGetObject(Of T)) As IEnumerable(Of T) Dim length As Byte() = New Byte(RawStream.INT64 - 1) {} Dim l As Long - Dim i As VBInteger = 0 + Dim i As i32 = 0 Dim temp As Byte() Dim x As T diff --git a/Text/StringSimilarity/Levenshtein/Extensions.vb b/Text/StringSimilarity/Levenshtein/Extensions.vb index e1c5e916..91b723f0 100644 --- a/Text/StringSimilarity/Levenshtein/Extensions.vb +++ b/Text/StringSimilarity/Levenshtein/Extensions.vb @@ -52,7 +52,7 @@ Namespace Text.Levenshtein Public Sub GetMatches(Of T)(edits As DistResult, ref As T(), hyp As T(), ByRef refOUT As T(), ByRef hypOUT As T()) Dim len As Integer = edits.DistEdits.Count("m"c) - Dim idx As VBInteger = Scan0 + Dim idx As i32 = Scan0 Dim iiiii As Integer = 0 refOUT = New T(len - 1) {} diff --git a/Text/Xml/Linq/DataSetWriter.vb b/Text/Xml/Linq/DataSetWriter.vb index a3e5d647..732bb5e4 100644 --- a/Text/Xml/Linq/DataSetWriter.vb +++ b/Text/Xml/Linq/DataSetWriter.vb @@ -55,6 +55,11 @@ Namespace Text.Xml.Linq Dim file As StreamWriter Dim indentBlank$ = " " + ''' + ''' Create a new xml dataset writer + ''' + ''' + ''' Sub New(file As String, Optional encoding As XmlEncodings = XmlEncodings.UTF16) ' 20190419 因为VB.NET生成的Xml文件默认是unicode编码的 ' 但是文本编码默认是utf8的, 所以可能会出现下面的错误 diff --git a/test/numberParserTest.vb b/test/numberParserTest.vb index 6ed26e04..71c77f0d 100644 --- a/test/numberParserTest.vb +++ b/test/numberParserTest.vb @@ -53,7 +53,7 @@ Module numberParserTest Call Console.WriteLine(xx.ToString("G17")) - Dim x As VBDouble = Double.MaxValue + Dim x As f64 = Double.MaxValue Dim hex = x.Hex Call Console.WriteLine(hex) diff --git a/test/test.vbproj b/test/test.vbproj index 4869ce05..3e52095f 100644 --- a/test/test.vbproj +++ b/test/test.vbproj @@ -6,7 +6,7 @@ AnyCPU {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88} Exe - test.LinqExpressiontest + test.wgetTest test test 512 @@ -96,6 +96,7 @@ + diff --git a/test/wgetTest.vb b/test/wgetTest.vb new file mode 100644 index 00000000..9fbe2ca7 --- /dev/null +++ b/test/wgetTest.vb @@ -0,0 +1,9 @@ +Imports Microsoft.VisualBasic.Net.Http + +Module wgetTest + Sub Main() + Dim wget As New wget("http://mona.fiehnlab.ucdavis.edu/rest/downloads/retrieve/9c822c48-67f4-4600-8b81-ef7491008245", "D:\Database\KEGG\organism\KEGG_Organism\ath\test.png") + + Call wget.Run() + End Sub +End Module From e989525c31f20cec490d4a0344ebb7b2eb075c03 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 6 Sep 2019 19:08:36 +0800 Subject: [PATCH 025/104] improvements of the console api --- 47-dotnet_Microsoft.VisualBasic.vbproj | 8 +- ApplicationServices/Debugger.vb | 2 +- .../Terminal/MarkdownRender.vb | 92 ++++ .../Terminal/xConsole/Comparer.vb | 106 ++++ .../Terminal/xConsole/CoolWriteSettings.vb | 24 + .../Terminal/xConsole/Helpers.vb | 2 +- .../Terminal/xConsole/Spinner.vb | 113 ++++ .../Terminal/xConsole/xConsole.vb | 519 +++--------------- .../VBDev/ApplicationInfoUtils.vb | 162 ++++-- ApplicationServices/VBDev/AssemblyInfo.vb | 5 + CommandLine/Interpreters/View/CommandHelp.vb | 2 +- .../Interpreters/View/ManualBuilder.vb | 29 +- CommandLine/Interpreters/View/SDKManual.vb | 69 +-- .../BucketDictionary.vb | 116 ++-- My Project/AssemblyInfo.vb | 4 +- My/Log4VB.vb | 114 ++-- Scripting/Runtime/CType/CastStringVector.vb | 2 + 17 files changed, 754 insertions(+), 615 deletions(-) create mode 100644 ApplicationServices/Terminal/MarkdownRender.vb create mode 100644 ApplicationServices/Terminal/xConsole/Comparer.vb create mode 100644 ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb create mode 100644 ApplicationServices/Terminal/xConsole/Spinner.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 9997eb5a..7e5b3106 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -385,9 +385,9 @@ FRAMEWORD_CORE=1 true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml - true + false 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 - Full + full x64 On AllRules.ruleset @@ -1015,6 +1015,10 @@ + + + + diff --git a/ApplicationServices/Debugger.vb b/ApplicationServices/Debugger.vb index 67641efa..93a8615d 100644 --- a/ApplicationServices/Debugger.vb +++ b/ApplicationServices/Debugger.vb @@ -258,7 +258,7 @@ Public Module VBDebugger Public Sub WriteLine(msg$, color As ConsoleColor) - My.Log4VB.WriteLine(msg, color) + My.Log4VB.Println(msg, color) End Sub ''' diff --git a/ApplicationServices/Terminal/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender.vb new file mode 100644 index 00000000..abf3556f --- /dev/null +++ b/ApplicationServices/Terminal/MarkdownRender.vb @@ -0,0 +1,92 @@ +Imports System.Runtime.CompilerServices +Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Language.Default +Imports Microsoft.VisualBasic.Text.Parser + +Namespace ApplicationServices.Terminal + + ''' + ''' A simple markdown render on console + ''' + ''' + ''' 主要是渲染下面的一些元素: + ''' + ''' + code: 红色 + ''' + url: 蓝色 + ''' + blockquote: 灰色背景色 + ''' + Public Class MarkdownRender + + Shared ReadOnly defaultTheme As [Default](Of MarkdownTheme) = New MarkdownTheme With { + .[Global] = (ConsoleColor.White, ConsoleColor.Black), + .BlockQuote = (ConsoleColor.Black, ConsoleColor.Gray), + .CodeBlock = (ConsoleColor.Red, ConsoleColor.Yellow), + .InlineCodeSpan = (ConsoleColor.Red, ConsoleColor.Black), + .Url = (ConsoleColor.Blue, ConsoleColor.Black) + } + + Dim theme As MarkdownTheme + Dim markdown As CharPtr + + Private Sub New(theme As MarkdownTheme) + Me.theme = theme + End Sub + + Public Sub DoPrint(markdown As String) + Me.markdown = markdown + Me.DoPrint() + End Sub + + Private Sub DoPrint() + Do While Not markdown.EndRead + Call WalkChar(++markdown) + Loop + End Sub + + Dim inlineCodespan As Boolean = False + Dim buf As New List(Of Char) + + Private Sub WalkChar(c As Char) + If inlineCodespan Then + Call My.Log4VB.Print(c) + + Else + Select Case c + Case "`"c + buf += c + Case Else + + Call Console.Write(c) + End Select + End If + End Sub + + + Public Shared Sub Print(markdown As String, Optional theme As MarkdownTheme = Nothing) + Call New MarkdownRender(theme Or defaultTheme).DoPrint(markdown) + End Sub + End Class + + Public Class MarkdownTheme + + Public Property Url As ConsoleFontStyle + Public Property InlineCodeSpan As ConsoleFontStyle + Public Property CodeBlock As ConsoleFontStyle + Public Property BlockQuote As ConsoleFontStyle + Public Property [Global] As ConsoleFontStyle + + End Class + + Public Class ConsoleFontStyle + + Public Property ForeColor As ConsoleColor = ConsoleColor.White + Public Property BackgroundColor As ConsoleColor = ConsoleColor.Black + + Public Shared Widening Operator CType(colors As (fore As ConsoleColor, back As ConsoleColor)) As ConsoleFontStyle + Return New ConsoleFontStyle With { + .ForeColor = colors.fore, + .BackgroundColor = colors.back + } + End Operator + End Class +End Namespace \ No newline at end of file diff --git a/ApplicationServices/Terminal/xConsole/Comparer.vb b/ApplicationServices/Terminal/xConsole/Comparer.vb new file mode 100644 index 00000000..21ec07f7 --- /dev/null +++ b/ApplicationServices/Terminal/xConsole/Comparer.vb @@ -0,0 +1,106 @@ +Namespace Terminal.xConsole + +#Region "COMPARER 💻" + + ''' + ''' This can compute the input then return back the most appropriate word. + ''' + Public Class Comparer + + ''' + ''' This is the word to find + ''' + Public Word As String = String.Empty + + ''' + ''' Descrizione + ''' + Public Description As String = String.Empty + + ''' + ''' Init to 0! + ''' + Private Points As Integer = 0 + + ''' + ''' Initliaze a new instance + ''' + ''' The word to find + ''' It's should be 0 + Public Sub New(w As String, p As Integer) + Word = w + Points = p + End Sub + + ''' + ''' Initliaze a new instance + ''' + ''' The word to find + Public Sub New(w As String) + Word = w + Points = 0 + End Sub + + ''' + ''' Initliaze a new instance + ''' + ''' The word to find + ''' Description (do nothing) + Public Sub New(w As String, desc As String) + Word = w + Description = desc + End Sub + + ''' + ''' Find a word from an input abbreviation (es n > name) + ''' + ''' + Public Overloads Shared Function Find(abbr As String, ByRef Words As List(Of Comparer)) As String + Dim Result As String = String.Empty + Dim Best As Integer = 0 + Dim c As Integer = 0 + + While Words.Count > c AndAlso Words(c) IsNot Nothing + Dim word = Words(c) + + If abbr = word.Word Then + Result = abbr + Exit While + End If + + For i As Integer = 0 To abbr.Length - 1 + If abbr.Length < word.Word.Length AndAlso abbr(i) = word.Word(i) Then + word.Points += 1 + Else + word.Points = 0 + Exit For + End If + Next + + If word.Points > Best Then + Best = word.Points + End If + + + c += 1 + End While + ' End while + Dim n As Integer = 0 + For Each word As Comparer In Words + If word.Points = Best AndAlso word.Points > 0 Then + Result = word.Word + If System.Threading.Interlocked.Increment(n) > 1 Then + Result = String.Empty + End If + End If + Next + + Return Result + End Function + End Class + + '//////////////////////////////////////////////////////////////////////////////////////////////// + '//////////////////////////////////////////////////////////////////////////////////////////////// + '//////////////////////////////////////////////////////////////////////////////////////////////// +#End Region +End Namespace \ No newline at end of file diff --git a/ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb b/ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb new file mode 100644 index 00000000..a01bb7ff --- /dev/null +++ b/ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb @@ -0,0 +1,24 @@ +Namespace Terminal.xConsole + + Public NotInheritable Class CoolWriteSettings + + ''' + ''' Gradual typing the output into console + ''' + Public Shared Property CoolWriting As Boolean = False + + ''' + ''' Write speed + ''' + Public Shared Property CoolWritingDelay As Integer = 8 + + ''' + ''' Set the delay when write a new line or dots. (Default = 200). + ''' + Public Shared Property CWRDDelay As Integer = 280 + + Private Sub New() + End Sub + End Class + +End Namespace \ No newline at end of file diff --git a/ApplicationServices/Terminal/xConsole/Helpers.vb b/ApplicationServices/Terminal/xConsole/Helpers.vb index 6010fb8b..74b43bdc 100644 --- a/ApplicationServices/Terminal/xConsole/Helpers.vb +++ b/ApplicationServices/Terminal/xConsole/Helpers.vb @@ -57,7 +57,7 @@ Imports System.Drawing Imports System.Runtime.InteropServices -Namespace Terminal +Namespace Terminal.xConsole ''' ''' Console helper. http://blogs.microsoft.co.il/blogs/pavely/archive/2009/07/23/changing-console-fonts.aspx diff --git a/ApplicationServices/Terminal/xConsole/Spinner.vb b/ApplicationServices/Terminal/xConsole/Spinner.vb new file mode 100644 index 00000000..4608738c --- /dev/null +++ b/ApplicationServices/Terminal/xConsole/Spinner.vb @@ -0,0 +1,113 @@ +Imports System.Drawing +Imports System.Threading + +Namespace Terminal.xConsole + +#Region "SPINNER ⌛" + + ''' + ''' A list of spinners for your console ❤ + ''' + Public Class Spinner + Private counter As Integer = 0 + Private c As Char() + + ''' + ''' List of available spinners (you can add new) + ''' + Public Spinners As New List(Of Char())() From { + New Char() {"-"c, "\"c, "|"c, "/"c}, + New Char() {"▄"c, "■"c, "▀"c, "■"c}, + New Char() {"╔"c, "╗"c, "╝"c, "╚"c}, + New Char() {"."c, "·"c, "`"c, "·"c}, + New Char() {"1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "0"c} + } + + ''' + ''' looplooplooplooplooplooplooplooplooploop[...] + ''' + Private inLoop As Boolean = True + + ''' + ''' The base string for spinning. {0} will display the spinner. COLOR is SUPPORTED! 🆒 + ''' + Public SpinText As String = "{0} ^gLoading^!..." + + ''' + ''' Initialize the spinner + ''' + ''' Index of the spinner to use + ''' Base string. `{0} show the spinner` + Public Sub New(Optional i As Integer = 0, Optional txt As String = Nothing) + If Not String.IsNullOrWhiteSpace(txt) Then + SpinText = txt + End If + c = If((Spinners.Count > i), Spinners(i), Spinners(0)) + End Sub + + ''' + ''' Initialize a custom spinner + ''' + ''' Set a custom spinner, no size limit. + Public Sub New(spinner As Char()) + c = spinner + End Sub + + ''' + ''' Breaks the spinner + ''' + Public Sub Break() + inLoop = False + End Sub + + Private StringSize As Integer = 0 + + ''' + ''' Turn the spin! + ''' + ''' Waiting time. Default 130 ms + ''' False if it has been stopped + ''' while(spinner.Turn()); + Public Function Turn(Optional time As Integer = 130) As Boolean + Dim [loop] = inLoop + + If [loop] Then + counter += 1 + Dim wr As String = String.Format(SpinText, c(counter Mod c.Length), "wtf?") + My.InnerQueue.AddToQueue(Sub() + StringSize = xConsole.Print(wr) + Dim left As Integer = Console.CursorLeft - StringSize + If left < 0 Then + left = 0 + End If + Console.SetCursorPosition(left, Console.CursorTop) + End Sub) + + Thread.Sleep(time) + Else + My.InnerQueue.AddToQueue(Sub() + Dim pos As New Point(Console.CursorLeft, Console.CursorTop) + Console.Write(New String(" "c, StringSize)) + Console.SetCursorPosition(pos.X, pos.Y) + End Sub) + End If + + Console.CursorVisible = Not [loop] + + Return [loop] + End Function + + Public Sub Run(Optional speed As Integer = 130) + Do While inLoop + Call Turn(speed) + Call Thread.Sleep(10) + Loop + End Sub + + Public Sub RunTask(Optional speed As Integer = 130) + Call Parallel.RunTask(Sub() Call Run(speed)) + End Sub + End Class + +#End Region +End Namespace \ No newline at end of file diff --git a/ApplicationServices/Terminal/xConsole/xConsole.vb b/ApplicationServices/Terminal/xConsole/xConsole.vb index c460547b..3fd9adc5 100644 --- a/ApplicationServices/Terminal/xConsole/xConsole.vb +++ b/ApplicationServices/Terminal/xConsole/xConsole.vb @@ -1,70 +1,70 @@ #Region "Microsoft.VisualBasic::a8251d66048cbc47fdba172bdaeb7f54, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\xConsole.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 . +' 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: +' Summaries: - ' Module xConsole - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: CheckNewVersion, ClearInput, ClosestConsoleColor, ConvertHexStringToByteArray, getColor - ' GetConsoleWindow, (+2 Overloads) Implode, ParseLine, Print, ReadKeys - ' ReadLine, RetrieveLinkerTimestamp, SetWindowPos - ' - ' Sub: __checkUpdates, CheckforUpdates, ClearInput, (+2 Overloads) CoolWrite, CoolWriteLine - ' Credits, ListFonts, RestoreColors, SetFont, SetIcon - ' SetWindowPos, Wait, Write, (+3 Overloads) WriteLine - ' Class CoolWriteSettings - ' - ' Properties: CoolWriting, CoolWritingDelay, CWRDDelay - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Class Comparer - ' - ' Constructor: (+3 Overloads) Sub New - ' Function: Find - ' - ' Class Spinner - ' - ' Constructor: (+2 Overloads) Sub New - ' - ' Function: Turn - ' - ' Sub: Break, Run, RunTask - ' - ' - ' - ' - ' /********************************************************************************/ +' Module xConsole +' +' Constructor: (+1 Overloads) Sub New +' +' Function: CheckNewVersion, ClearInput, ClosestConsoleColor, ConvertHexStringToByteArray, getColor +' GetConsoleWindow, (+2 Overloads) Implode, ParseLine, Print, ReadKeys +' ReadLine, RetrieveLinkerTimestamp, SetWindowPos +' +' Sub: __checkUpdates, CheckforUpdates, ClearInput, (+2 Overloads) CoolWrite, CoolWriteLine +' Credits, ListFonts, RestoreColors, SetFont, SetIcon +' SetWindowPos, Wait, Write, (+3 Overloads) WriteLine +' Class CoolWriteSettings +' +' Properties: CoolWriting, CoolWritingDelay, CWRDDelay +' +' Constructor: (+1 Overloads) Sub New +' +' Class Comparer +' +' Constructor: (+3 Overloads) Sub New +' Function: Find +' +' Class Spinner +' +' Constructor: (+2 Overloads) Sub New +' +' Function: Turn +' +' Sub: Break, Run, RunTask +' +' +' +' +' /********************************************************************************/ #End Region @@ -80,71 +80,20 @@ Imports System.Reflection Imports System.Runtime.InteropServices Imports System.Text.RegularExpressions Imports System.Threading -Imports System.Xml +Imports Microsoft.VisualBasic.ApplicationServices.Development Imports Microsoft.VisualBasic.Language -Imports sys = System.Math +Imports randf = Microsoft.VisualBasic.Math.RandomExtensions +Imports stdNum = System.Math -Namespace Terminal +Namespace Terminal.xConsole ''' ''' Allows you to color and animate the console. ~ overpowered.it ~ TheTrigger - 💸 ''' ''' http://www.codeproject.com/Tips/626856/xConsole-Project - Public Module xConsole - -#Region "STATIC COSTRUCTOR .." - - Sub New() - If System.Diagnostics.Debugger.IsAttached Then - Try - If CheckForUpdatesEnabled = True Then - Call __checkUpdates() - End If - Catch generatedExceptionName As Exception - Call App.LogException(generatedExceptionName) - End Try - End If - End Sub - - Private Sub __checkUpdates() - Dim key As Microsoft.Win32.RegistryKey = - Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software", True).CreateSubKey("OverPowered") - - If key.GetValue("UpdateLastCheck") Is Nothing Then - key.SetValue("UpdateLastCheck", 0) - End If - - If CInt(key.GetValue("UpdateLastCheck")) < DateTime.Now.DayOfYear - 30 Then - key.SetValue("UpdateLastCheck", DateTime.Now.DayOfYear) - xConsole.CheckforUpdates() - End If - - Call key.Close() - End Sub - -#End Region + Public Module xConsole #Region "COOL WRITING ✌" - - Public NotInheritable Class CoolWriteSettings - Private Sub New() - End Sub - ''' - ''' Gradual typing the output into console - ''' - Public Shared Property CoolWriting As Boolean = False - - ''' - ''' Write speed - ''' - Public Shared Property CoolWritingDelay As Integer = 8 - - ''' - ''' Set the delay when write a new line or dots. (Default = 200). - ''' - Public Shared Property CWRDDelay As Integer = 280 - End Class - ''' ''' Gradual output animation 👍👍 ''' @@ -274,7 +223,7 @@ Namespace Terminal WriteLine(vbCr & vbTab & vbTab & "^y│" & vbTab & "^3Created by^!:" & vbTab & "^8TheTrigger^!" & vbTab & vbTab & "^y│") WriteLine(vbCr & vbTab & vbTab & "^y│" & vbTab & "^3WebSite^!:" & vbTab & "^8overpowered.it^!" & vbTab & vbTab & "^y│") WriteLine(vbCr & vbTab & vbTab & "^y│" & vbTab & "^3Version^!:" & vbTab & "^g{0} ^!" & vbTab & vbTab & "^y│", MyASM.Version) - WriteLine(vbCr & vbTab & vbTab & "^y│" & vbTab & "^3Build Date^!:" & vbTab & "^y{0}" & vbTab & vbTab & "^y│^!.", RetrieveLinkerTimestamp().ToShortDateString()) + WriteLine(vbCr & vbTab & vbTab & "^y│" & vbTab & "^3Build Date^!:" & vbTab & "^y{0}" & vbTab & vbTab & "^y│^!.", Assembly.GetCallingAssembly().RetrieveLinkerTimestamp().ToShortDateString()) WriteLine(vbCr & vbTab & vbTab & "^8╘^r■^7=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=═=^r■^8╛^!``") WriteLine(vbCr & vbLf) End Sub @@ -364,7 +313,7 @@ Namespace Terminal Dim result As New List(Of Char)() While AscW(key = Console.ReadKey(True).KeyChar) >= 0 AndAlso AscW(+key) <> 13 - Call result.Add(key.value) + Call result.Add(key.Value) End While Return String.Join("", result) @@ -419,7 +368,7 @@ Namespace Terminal Dim c As Integer = 0 Dim cList = [Enum].GetNames(GetType(ConsoleColor)) Do - c = (RDN.[Next](0, cList.Length - 1)) + c = (randf.seeds.Next(0, cList.Length - 1)) Loop While c = CInt(If((Type = "*"c), Console.ForegroundColor, Console.BackgroundColor)) Return CType(c, ConsoleColor) @@ -455,7 +404,7 @@ Namespace Terminal ''' The Parser ''' ''' Input string - Private Function Print(input As String) As Integer + Friend Function Print(input As String) As Integer If String.IsNullOrWhiteSpace(input) Then Return 0 End If @@ -513,218 +462,6 @@ Namespace Terminal '//////////////////////////////////////////////////////////////////////////////////////////////// #End Region -#Region "COMPARER 💻" - - ''' - ''' This can compute the input then return back the most appropriate word. - ''' - Public Class Comparer - - ''' - ''' This is the word to find - ''' - Public Word As String = String.Empty - - ''' - ''' Descrizione - ''' - Public Description As String = String.Empty - - ''' - ''' Init to 0! - ''' - Private Points As Integer = 0 - - ''' - ''' Initliaze a new instance - ''' - ''' The word to find - ''' It's should be 0 - Public Sub New(w As String, p As Integer) - Word = w - Points = p - End Sub - - ''' - ''' Initliaze a new instance - ''' - ''' The word to find - Public Sub New(w As String) - Word = w - Points = 0 - End Sub - - ''' - ''' Initliaze a new instance - ''' - ''' The word to find - ''' Description (do nothing) - Public Sub New(w As String, desc As String) - Word = w - Description = desc - End Sub - - ''' - ''' Find a word from an input abbreviation (es n > name) - ''' - ''' - Public Overloads Shared Function Find(abbr As String, ByRef Words As List(Of Comparer)) As String - Dim Result As String = String.Empty - Dim Best As Integer = 0 - Dim c As Integer = 0 - - While Words.Count > c AndAlso Words(c) IsNot Nothing - Dim word = Words(c) - - If abbr = word.Word Then - Result = abbr - Exit While - End If - - For i As Integer = 0 To abbr.Length - 1 - If abbr.Length < word.Word.Length AndAlso abbr(i) = word.Word(i) Then - word.Points += 1 - Else - word.Points = 0 - Exit For - End If - Next - - If word.Points > Best Then - Best = word.Points - End If - - - c += 1 - End While - ' End while - Dim n As Integer = 0 - For Each word As Comparer In Words - If word.Points = Best AndAlso word.Points > 0 Then - Result = word.Word - If System.Threading.Interlocked.Increment(n) > 1 Then - Result = String.Empty - End If - End If - Next - - Return Result - End Function - End Class - - '//////////////////////////////////////////////////////////////////////////////////////////////// - '//////////////////////////////////////////////////////////////////////////////////////////////// - '//////////////////////////////////////////////////////////////////////////////////////////////// -#End Region - -#Region "SPINNER ⌛" - - ''' - ''' A list of spinners for your console ❤ - ''' - Public Class Spinner - Private counter As Integer = 0 - Private c As Char() - - ''' - ''' List of available spinners (you can add new) - ''' - Public Spinners As New List(Of Char())() From { - New Char() {"-"c, "\"c, "|"c, "/"c}, - New Char() {"▄"c, "■"c, "▀"c, "■"c}, - New Char() {"╔"c, "╗"c, "╝"c, "╚"c}, - New Char() {"."c, "·"c, "`"c, "·"c}, - New Char() {"1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "0"c} - } - - ''' - ''' looplooplooplooplooplooplooplooplooploop[...] - ''' - Private inLoop As Boolean = True - - ''' - ''' The base string for spinning. {0} will display the spinner. COLOR is SUPPORTED! 🆒 - ''' - Public SpinText As String = "{0} ^gLoading^!..." - - ''' - ''' Initialize the spinner - ''' - ''' Index of the spinner to use - ''' Base string. `{0} show the spinner` - Public Sub New(Optional i As Integer = 0, Optional txt As String = Nothing) - If Not String.IsNullOrWhiteSpace(txt) Then - SpinText = txt - End If - c = If((Spinners.Count > i), Spinners(i), Spinners(0)) - End Sub - - ''' - ''' Initialize a custom spinner - ''' - ''' Set a custom spinner, no size limit. - Public Sub New(spinner As Char()) - c = spinner - End Sub - - ''' - ''' Breaks the spinner - ''' - Public Sub Break() - inLoop = False - End Sub - - Private StringSize As Integer = 0 - - ''' - ''' Turn the spin! - ''' - ''' Waiting time. Default 130 ms - ''' False if it has been stopped - ''' while(spinner.Turn()); - Public Function Turn(Optional time As Integer = 130) As Boolean - Dim [loop] = inLoop - - If [loop] Then - counter += 1 - Dim wr As String = String.Format(SpinText, c(counter Mod c.Length), "wtf?") - My.InnerQueue.AddToQueue(Sub() - StringSize = Print(wr) - Dim left As Integer = Console.CursorLeft - StringSize - If left < 0 Then - left = 0 - End If - Console.SetCursorPosition(left, Console.CursorTop) - End Sub) - - Thread.Sleep(time) - Else - My.InnerQueue.AddToQueue(Sub() - Dim pos As New Point(Console.CursorLeft, Console.CursorTop) - Console.Write(New String(" "c, StringSize)) - Console.SetCursorPosition(pos.X, pos.Y) - End Sub) - End If - - Console.CursorVisible = Not [loop] - - Return [loop] - End Function - - Public Sub Run(Optional speed As Integer = 130) - Do While inLoop - Call Turn(speed) - Call Thread.Sleep(10) - Loop - End Sub - - Public Sub RunTask(Optional speed As Integer = 130) - Call Parallel.RunTask(Sub() Call Run(speed)) - End Sub - End Class - -#End Region - #Region "SET FONT / ICON ⚠" ''' @@ -781,12 +518,6 @@ Namespace Terminal ''' My ASM FILE ''' Dim MyASM As AssemblyName = Assembly.GetAssembly(GetType(xConsole)).GetName() - - ''' - ''' Random number Generator - ''' - Dim RDN As New Random() - ''' ''' This value is used when restoring the colors of the console. ''' @@ -811,21 +542,21 @@ Namespace Terminal ''' Public ClearColorsAtEnd As Boolean = False - #End Region #Region "THIRD PART ✅" + ''' ''' Convert rgb color to ConsoleColor. From stackoverflow ''' - Private Function ClosestConsoleColor(r As Byte, g As Byte, b As Byte) As ConsoleColor + Public Function ClosestConsoleColor(r As Byte, g As Byte, b As Byte) As ConsoleColor Dim ret As ConsoleColor = 0 Dim rr As Double = r, gg As Double = g, bb As Double = b, delta As Double = Double.MaxValue For Each cc As ConsoleColor In [Enum].GetValues(GetType(ConsoleColor)) Dim n = [Enum].GetName(GetType(ConsoleColor), cc) Dim c = Color.FromName(If(n = "DarkYellow", "Orange", n)) - Dim t = sys.Pow(c.R - rr, 2.0) + sys.Pow(c.G - gg, 2.0) + sys.Pow(c.B - bb, 2.0) + Dim t = stdNum.Pow(c.R - rr, 2.0) + stdNum.Pow(c.G - gg, 2.0) + stdNum.Pow(c.B - bb, 2.0) If t = 0.0 Then Return cc End If @@ -837,36 +568,6 @@ Namespace Terminal Return ret End Function - - ''' - ''' Linker Timestamp - ''' - Private Function RetrieveLinkerTimestamp() As DateTime - ' from stackoverflow - Dim filePath As String = System.Reflection.Assembly.GetCallingAssembly().Location - Const c_PeHeaderOffset As Integer = 60 - Const c_LinkerTimestampOffset As Integer = 8 - Dim b As Byte() = New Byte(2047) {} - Dim s As System.IO.Stream = Nothing - - Try - s = New System.IO.FileStream(filePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) - s.Read(b, 0, 2048) - Finally - If s IsNot Nothing Then - s.Close() - End If - End Try - - Dim i As Integer = System.BitConverter.ToInt32(b, c_PeHeaderOffset) - Dim secondsSince1970 As Integer = System.BitConverter.ToInt32(b, i + c_LinkerTimestampOffset) - Dim dt As New DateTime(1970, 1, 1, 0, 0, 0) - dt = dt.AddSeconds(secondsSince1970) - dt = dt.AddHours(TimeZone.CurrentTimeZone.GetUtcOffset(dt).Hours) - Return dt - End Function - - ''' ''' Convert String to byte array ''' @@ -887,82 +588,6 @@ Namespace Terminal Return HexAsBytes End Function -#End Region - -#Region "CHECK FOR NEW VERSION ♻" - - Public Sub CheckforUpdates() - CheckForUpdatesEnabled = False - - ' New version - ' BACK TO THE FUTURE!? wooooooooo - ' up to date - Call New Thread(Sub() - Thread.Sleep(10) - Dim data = CheckNewVersion() - If Not String.IsNullOrWhiteSpace(data("url").ToString()) Then - xConsole.WriteLine("[^mxConsole^!] ^6Current Ver: ^y{0}^! / ^6Latest: ^y{1}^!", MyASM.Version, data("ver")) - Dim compared As Integer = MyASM.Version.CompareTo(data("ver")) - If compared = -1 Then - xConsole.WriteLine("[^mxConsole^!] ^gNew version available!^!") - xConsole.WriteLine("[^mxConsole^!]^11 Download/info page: ^w{0}^!", data("url")) - ElseIf compared = 1 Then - xConsole.WriteLine("[^mxConsole^!] *y^r>>>^6" & vbNullChar & "BACK TO THE ^rFUTURE!^!*!") - Else - xConsole.WriteLine("[^mxConsole^!] ^gUp to date! :)^!") - End If - Else - xConsole.WriteLine("[^mxConsole^!] ^rCan not check for updates :/^!") - End If - - End Sub).Start() - End Sub - - Private Function CheckNewVersion() As Dictionary(Of String, Object) - Dim reader As XmlTextReader = Nothing - Dim data As New Dictionary(Of String, Object)() - data.Add("ver", New Version()) - data.Add("url", String.Empty) - - Try - Dim xmlURL As String = "http://trigger.overpowered.it/xConsole/curr_version.xml" - reader = New XmlTextReader(xmlURL) - xConsole.WriteLine("[^mxConsole^!] ^6Checking for newer version...^!") - - reader.MoveToContent() - - Dim elementName As String = "" - - If (reader.NodeType = XmlNodeType.Element) AndAlso (reader.Name = "data") Then - While reader.Read() - If reader.NodeType = XmlNodeType.Element Then - elementName = reader.Name - Else - If (reader.NodeType = XmlNodeType.Text) AndAlso (reader.HasValue) Then - Select Case elementName - Case "version" - data("ver") = New Version(reader.Value) - - - Case "url" - data("url") = reader.Value - - - End Select - End If - End If - End While - End If - - Catch generatedExceptionName As Exception - Finally - If reader IsNot Nothing Then - reader.Close() - End If - End Try - - Return data - End Function #End Region End Module End Namespace diff --git a/ApplicationServices/VBDev/ApplicationInfoUtils.vb b/ApplicationServices/VBDev/ApplicationInfoUtils.vb index d5139890..065b4ca4 100644 --- a/ApplicationServices/VBDev/ApplicationInfoUtils.vb +++ b/ApplicationServices/VBDev/ApplicationInfoUtils.vb @@ -1,50 +1,52 @@ #Region "Microsoft.VisualBasic::2123247c2dbf0e64ee9e4932a216e17b, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\ApplicationInfoUtils.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 . +' 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: +' Summaries: - ' Module ApplicationInfoUtils - ' - ' Function: CurrentExe, FromAssembly, FromTypeModule, GetCompanyName, GetCopyRightsDetail - ' GetGuid, GetProductDescription, GetProductName, GetProductTitle, GetProductVersion - ' VBCore - ' - ' - ' /********************************************************************************/ +' Module ApplicationInfoUtils +' +' Function: CurrentExe, FromAssembly, FromTypeModule, GetCompanyName, GetCopyRightsDetail +' GetGuid, GetProductDescription, GetProductName, GetProductTitle, GetProductVersion +' VBCore +' +' +' /********************************************************************************/ #End Region +Imports System.IO Imports System.Reflection Imports System.Runtime.CompilerServices Imports System.Runtime.InteropServices +Imports Microsoft.VisualBasic.Linq Namespace ApplicationServices.Development @@ -56,6 +58,81 @@ Namespace ApplicationServices.Development ''' Public Module ApplicationInfoUtils + ''' + ''' Linker Timestamp + ''' + ''' + + Public Function RetrieveLinkerTimestamp(assembly As Assembly) As DateTime + ' from stackoverflow + Dim filePath As String = assembly.Location + + Const c_PeHeaderOffset As Integer = 60 + Const c_LinkerTimestampOffset As Integer = 8 + + Dim b As Byte() = New Byte(2047) {} + Dim s As Stream = Nothing + + Try + s = New FileStream(filePath, FileMode.Open, FileAccess.Read) + s.Read(b, 0, 2048) + Finally + If s IsNot Nothing Then + s.Close() + End If + End Try + + Dim i As Integer = BitConverter.ToInt32(b, c_PeHeaderOffset) + Dim secondsSince1970 As Integer = BitConverter.ToInt32(b, i + c_LinkerTimestampOffset) + Dim dt As New DateTime(1970, 1, 1, 0, 0, 0) + + dt = dt.AddSeconds(secondsSince1970) + dt = dt.AddHours(TimeZone.CurrentTimeZone.GetUtcOffset(dt).Hours) + + Return dt + End Function + + ''' + ''' 计算出模块文件的编译时间.(在编译项目之前应该手动修改vbproj文件中的``Deterministic``配置项的值为False来允许自动递增版本号的特性) + ''' + ''' + ''' + ''' + ''' ### Get Compile date and time in application + ''' + ''' > https://social.msdn.microsoft.com/forums/en-US/172201e0-c47b-40a8-a5d7-0a052cb42532/get-compile-date-and-time-in-application + ''' + ''' Set up your Build and MinorRevision numbers to auto-increment, pull out the date created for + ''' by using the Version numbers from the version on the class. + ''' + ''' 1. Open ``AssemblyInfo.vb``. You'll find it under the Properties folder in your solution. + ''' Find the two lines that say "AssemblyVersion" and "AssemblyFileVersion" in them. + ''' Change them to: + ''' + ''' ```vbnet + ''' <assembly AssemblyVersion("1.0.*")> + ''' <assembly AssemblyFileVersion("1.0.*")> + ''' ``` + ''' + ''' Once you Do this, Visual Studio will automatically increment the last two values In the version. + ''' + ''' 2. The creation date can be found at runtime using the following algorithm: + ''' + ''' ```vbnet + ''' Dim version = Assembly.GetExecutingAssembly().GetName().Version + ''' Dim creationDate = New DateTime(2000, 1, 1).AddDays(version.Build).AddSeconds(version.MinorRevision * 2) + ''' ``` + ''' + + Public Function CalculateCompileTime(assm As Assembly) As Date + Dim version As Version = assm.GetName.Version + Dim builtTime = New DateTime(2000, 1, 1) _ + .AddDays(version.Build) _ + .AddSeconds(version.MinorRevision * 2) + + Return builtTime + End Function + Public Function FromAssembly(assm As Assembly) As AssemblyInfo Return New AssemblyInfo With { @@ -66,10 +143,25 @@ Namespace ApplicationServices.Development .AssemblyTitle = GetProductTitle(assm), .AssemblyDescription = GetProductDescription(assm), .Guid = GetGuid(assm), - .AssemblyVersion = assm.GetVersion().ToString + .AssemblyVersion = assm.tryGetVersion.ToString, + .BuiltTime = assm.CalculateCompileTime } End Function + + Private Function tryGetVersion(assm As Assembly) As Version + Try + Return assm.FullName _ + .Match("Version[=]\s*\S+,") _ + .Trim(",") _ + .GetTagValue("="c) _ + .Value _ + .DoCall(Function(ver) Version.Parse(ver)) + Catch ex As Exception + Return New Version + End Try + End Function + ''' ''' 获取对当前运行时环境的描述 ''' diff --git a/ApplicationServices/VBDev/AssemblyInfo.vb b/ApplicationServices/VBDev/AssemblyInfo.vb index 9d19c6ce..c3e020fd 100644 --- a/ApplicationServices/VBDev/AssemblyInfo.vb +++ b/ApplicationServices/VBDev/AssemblyInfo.vb @@ -39,6 +39,11 @@ Public Property AssemblyVersion As String Public Property AssemblyFileVersion As String + ''' + ''' The compile date and time of the assembly file. + ''' + ''' + Public Property BuiltTime As Date Public Const ProjectFile As String = "My Project\AssemblyInfo.vb" diff --git a/CommandLine/Interpreters/View/CommandHelp.vb b/CommandLine/Interpreters/View/CommandHelp.vb index 7508d309..e66bd125 100644 --- a/CommandLine/Interpreters/View/CommandHelp.vb +++ b/CommandLine/Interpreters/View/CommandHelp.vb @@ -97,7 +97,7 @@ Namespace CommandLine.ManView End If End With - Call Console.WriteLine(" " & msg) + Call My.Log4VB.Println(" " & msg, ConsoleColor.DarkBlue, ConsoleColor.DarkMagenta) End With Next End Sub diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index 531ed444..9137cba7 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -46,7 +46,6 @@ Imports Microsoft.VisualBasic.ApplicationServices Imports Microsoft.VisualBasic.ApplicationServices.Terminal Imports Microsoft.VisualBasic.CommandLine.Reflection Imports Microsoft.VisualBasic.CommandLine.Reflection.EntryPoints -Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Text @@ -80,7 +79,8 @@ Namespace CommandLine.ManView ' print API name and description Call Console.WriteLine() - Call Console.WriteLine($" '{api.Name}' - {infoLines.FirstOrDefault}") + Call Console.Write(" ") + Call My.Log4VB.Println($"'{api.Name}' - {infoLines.FirstOrDefault}", ConsoleColor.Yellow, ConsoleColor.DarkBlue) If infoLines.Length > 1 Then blank = New String( @@ -102,18 +102,18 @@ Namespace CommandLine.ManView Call Console.WriteLine($"Usage:") Call Console.WriteLine() - Console.ForegroundColor = ConsoleColor.Cyan + Dim AppPath$ + + If App.Platform = PlatformID.Unix OrElse App.Platform = PlatformID.MacOSX Then + AppPath = App.ExecutablePath.TrimSuffix + Else + AppPath = App.ExecutablePath + End If Call Console.Write(" ") - Call Console.Write( - If(App.Platform = PlatformID.Unix OrElse - App.Platform = PlatformID.MacOSX, - App.ExecutablePath.TrimSuffix, - App.ExecutablePath) & " ") - - Console.ForegroundColor = ConsoleColor.Green - Call Console.WriteLine(api.Usage) - Console.ForegroundColor = .ByRef + Call My.Log4VB.Print(AppPath, ConsoleColor.DarkCyan) + Call Console.Write(" ") + Call My.Log4VB.Println(api.Usage, ConsoleColor.Green) End With @@ -284,6 +284,11 @@ Namespace CommandLine.ManView If std_in OrElse std_out OrElse bool Then Call Console.WriteLine() + Call Console.WriteLine() + Call Console.WriteLine() + Call Console.WriteLine(" [Annotations]") + Call Console.WriteLine(" " & New String("-"c, 52)) + Call Console.WriteLine() End If If std_in Then diff --git a/CommandLine/Interpreters/View/SDKManual.vb b/CommandLine/Interpreters/View/SDKManual.vb index 9f486d17..719e06cb 100644 --- a/CommandLine/Interpreters/View/SDKManual.vb +++ b/CommandLine/Interpreters/View/SDKManual.vb @@ -1,45 +1,46 @@ #Region "Microsoft.VisualBasic::fc6979b4b647ec8a171f444056ce9403, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\SDKManual.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 . +' 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: +' Summaries: - ' Module SDKManual - ' - ' Function: HelpSummary, LaunchManual, MarkdownDoc - ' - ' - ' /********************************************************************************/ +' Module SDKManual +' +' Function: HelpSummary, LaunchManual, MarkdownDoc +' +' +' /********************************************************************************/ #End Region +Imports System.Reflection Imports System.Runtime.CompilerServices Imports System.Text Imports Microsoft.VisualBasic.ApplicationServices.Debugging @@ -203,11 +204,13 @@ Namespace CommandLine.ManView Call sb.AppendLine() Call sb.AppendLine(" // ") - Call sb.AppendLine(" // " & Strings.Trim(descr)) + Call sb.AppendLine(" // " & Strings.Trim(descr) Or "[No description]".AsDefault) Call sb.AppendLine(" // ") Call sb.AppendLine(" // VERSION: " & (VBCore.Info.AssemblyVersion Or "1.0.0.*".AsDefault)) + Call sb.AppendLine(" // ASSEMBLY: " & Assembly.LoadFile(VBCore.ExecutablePath).GetName.ToString) Call sb.AppendLine(" // COPYRIGHT: " & VBCore.Info.AssemblyCopyright) Call sb.AppendLine(" // GUID: " & VBCore.Info.Guid) + Call sb.AppendLine(" // BUILT: " & VBCore.Info.BuiltTime.ToString) Call sb.AppendLine(" // ") Call sb.AppendLine() diff --git a/ComponentModel/System.Collections.Generic/BucketDictionary.vb b/ComponentModel/System.Collections.Generic/BucketDictionary.vb index b767cd03..c2b93c3f 100644 --- a/ComponentModel/System.Collections.Generic/BucketDictionary.vb +++ b/ComponentModel/System.Collections.Generic/BucketDictionary.vb @@ -1,55 +1,56 @@ #Region "Microsoft.VisualBasic::3833795011a6ed46058df56330aca07e, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\BucketDictionary.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 . +' 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: +' Summaries: - ' Class BucketDictionary - ' - ' Properties: Count, Keys, Values - ' - ' Constructor: (+3 Overloads) Sub New - ' Function: ContainsKey, GetEnumerator, IEnumerable_GetEnumerator, ToString, TryGetValue - ' - ' Module BucketDictionaryExtensions - ' - ' Function: (+3 Overloads) CreateBuckets - ' - ' - ' /********************************************************************************/ +' Class BucketDictionary +' +' Properties: Count, Keys, Values +' +' Constructor: (+3 Overloads) Sub New +' Function: ContainsKey, GetEnumerator, IEnumerable_GetEnumerator, ToString, TryGetValue +' +' Module BucketDictionaryExtensions +' +' Function: (+3 Overloads) CreateBuckets +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Serialization.JSON Namespace ComponentModel.Collection @@ -147,7 +148,7 @@ Namespace ComponentModel.Collection End Sub Public Overrides Function ToString() As String - Return $"Tuple of [{GetType(K).Name}, {GetType(V).Name}] with {buckets.Count} buckets." + Return $"Tuple of [{GetType(K).Name}, {GetType(V).Name}] with {Count} records in {buckets.Count} buckets." End Function Public Function ContainsKey(key As K) As Boolean Implements IReadOnlyDictionary(Of K, V).ContainsKey @@ -187,17 +188,38 @@ Namespace ComponentModel.Collection Public Module BucketDictionaryExtensions + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' 当数据中存在重复的键名的时候，是将前面已有的数据覆盖掉还是抛出键名重复的错误？默认是不进行重写覆盖，而是键重复抛出错误。 + ''' + ''' - Public Function CreateBuckets(Of T, K)(source As IEnumerable(Of T), getKey As Func(Of T, K), Optional size% = Short.MaxValue * 10) As BucketDictionary(Of K, T) - Return source.CreateBuckets(getKey, Function(o) o, size:=size) + Public Function CreateBuckets(Of T, K)(source As IEnumerable(Of T), + getKey As Func(Of T, K), + Optional size% = Short.MaxValue * 10, + Optional overridesDuplicates As Boolean = False) As BucketDictionary(Of K, T) + Return source.CreateBuckets( + getKey:=getKey, + getValue:=Function(o) o, + size:=size, + overridesDuplicates:=overridesDuplicates + ) End Function Public Function CreateBuckets(Of T, K, V)(source As IEnumerable(Of T), getKey As Func(Of T, K), getValue As Func(Of T, V), - Optional size% = Short.MaxValue * 10) As BucketDictionary(Of K, V) + Optional size% = Short.MaxValue * 10, + Optional overridesDuplicates As Boolean = False) As BucketDictionary(Of K, V) Dim table As New BucketDictionary(Of K, V)(size) Dim bucket As New Dictionary(Of K, V) @@ -206,7 +228,13 @@ Namespace ComponentModel.Collection Dim key As K = getKey(x) Dim value As V = getValue(x) - Call bucket.Add(key, value) + If overridesDuplicates Then + bucket(key) = value + ElseIf bucket.ContainsKey(key) Then + Throw New DuplicateNameException(key.GetJson) + Else + Call bucket.Add(key, value) + End If If bucket.Count >= size Then table.buckets.Add(bucket) diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 08e5d5ad..c4884393 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + + diff --git a/My/Log4VB.vb b/My/Log4VB.vb index a8d3a85b..27e7dff3 100644 --- a/My/Log4VB.vb +++ b/My/Log4VB.vb @@ -1,44 +1,44 @@ #Region "Microsoft.VisualBasic::2047894333de18074bc2425ea5d699dc, Microsoft.VisualBasic.Core\My\Log4VB.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 . +' 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: +' Summaries: - ' Module Log4VB - ' - ' Function: getColor, Print - ' - ' Sub: WriteLine - ' - ' - ' /********************************************************************************/ +' Module Log4VB +' +' Function: getColor, Print +' +' Sub: WriteLine +' +' +' /********************************************************************************/ #End Region @@ -103,7 +103,7 @@ Namespace My Console.ForegroundColor = cl Call Console.Write("]") - Call WriteLine(msg, msgColor) + Call Println(msg, msgColor) End If End If End Sub) @@ -123,7 +123,41 @@ Namespace My ''' 兼容语法 ''' 当参数为True的时候，这个函数参数将不会起作用 - Public Sub WriteLine(msg$, color As ConsoleColor) + Public Sub Print(msg$, Optional color As ConsoleColor = ConsoleColor.White, Optional background As ConsoleColor = -1) + If Mute Then + Return + End If + + If ForceSTDError Then + Console.Error.Write(msg) + Else + Dim cl As ConsoleColor = Console.ForegroundColor + Dim bg As ConsoleColor = Console.BackgroundColor + + If background >= 0 Then + Console.BackgroundColor = background + End If + + Console.ForegroundColor = color + Console.Write(msg) + Console.ForegroundColor = cl + Console.BackgroundColor = bg + End If + +#If DEBUG Then + Call Debug.Write(msg) +#End If + End Sub + + ''' + ''' 输出的终端消息带有指定的终端颜色色彩，当为True的时候， + ''' 参数之中的文本字符串兼容语法， + ''' 而将会被覆盖而不会起作用 + ''' + ''' 兼容语法 + ''' 当参数为True的时候，这个函数参数将不会起作用 + + Public Sub Println(msg$, Optional color As ConsoleColor = ConsoleColor.White, Optional background As ConsoleColor = -1) If Mute Then Return End If @@ -136,15 +170,21 @@ Namespace My Else ' 使用传统的输出输出方法 Dim cl As ConsoleColor = Console.ForegroundColor + Dim bg As ConsoleColor = Console.BackgroundColor + + If background >= 0 Then + Console.BackgroundColor = background + End If Console.ForegroundColor = color Console.WriteLine(msg) Console.ForegroundColor = cl + Console.BackgroundColor = bg End If End If #If DEBUG Then - Call Debug.WriteLine(msg) + Call Debug.WriteLine(msg) #End If End Sub End Module diff --git a/Scripting/Runtime/CType/CastStringVector.vb b/Scripting/Runtime/CType/CastStringVector.vb index bde91072..d13be5c4 100644 --- a/Scripting/Runtime/CType/CastStringVector.vb +++ b/Scripting/Runtime/CType/CastStringVector.vb @@ -139,6 +139,8 @@ Namespace Scripting.Runtime ''' ''' ''' + ''' + Public Function AsDouble(source As IEnumerable(Of String)) As Double() Return source.AsType(Of Double).ToArray From 3a8ea350de9005088329ae518cc0397f37bf6802 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 6 Sep 2019 19:20:43 +0800 Subject: [PATCH 026/104] update source file headers --- 47-dotnet_Microsoft.VisualBasic.vbproj | 1 + ApplicationServices/Debugger.vb | 2 +- .../MMFProtocol/Pipeline/PipeBuffer.vb | 2 +- .../Terminal/MarkdownRender.vb | 55 +++++- .../Terminal/Utility/EventProc.vb | 2 +- .../Terminal/xConsole/Comparer.vb | 47 ++++- .../Terminal/xConsole/CoolWriteSettings.vb | 48 ++++- .../Terminal/xConsole/Helpers.vb | 2 +- .../Terminal/xConsole/Spinner.vb | 50 ++++- .../Terminal/xConsole/xConsole.vb | 100 ++++------ .../VBDev/ApplicationInfoUtils.vb | 70 +++---- CommandLine/CommandLine.vb | 2 +- CommandLine/Interpreters/ExecuteImpl.vb | 180 ++++++++++++++++++ CommandLine/Interpreters/Interpreter.vb | 114 ++--------- CommandLine/Interpreters/View/CommandHelp.vb | 2 +- .../Interpreters/View/ManualBuilder.vb | 2 +- CommandLine/Interpreters/View/SDKManual.vb | 66 +++---- .../Algorithm/base/SlideWindow/Extensions.vb | 2 +- ComponentModel/Count.vb | 2 +- ComponentModel/Ranges/Unit.vb | 2 +- .../BucketDictionary.vb | 80 ++++---- .../System.Collections.Generic/IndexOf.vb | 5 +- Extensions/Collection/Linq/Enumeration.vb | 2 +- Extensions/Collection/Linq/Takes.vb | 2 +- Extensions/Collection/ListExtensions.vb | 2 +- Extensions/Collection/Vector.vb | 2 +- Extensions/IO/Extensions/StreamHelper.vb | 2 +- Extensions/Math/ScaleMaps.vb | 2 +- Extensions/Security/Md5.vb | 2 +- Extensions/StringHelpers/Parser.vb | 2 +- Extensions/StringHelpers/StringHelpers.vb | 92 ++++----- Extensions/WebServices/WebServiceUtils.vb | 84 ++++---- Language/Linq/List.vb | 2 +- Language/Value/ByRefValueExtensions.vb | 66 +++---- Language/Value/Clones.vb | 2 +- Language/Value/DefaultValue/DefaultString.vb | 9 +- Language/Value/Numeric/Numeric.vb | 2 +- Language/Value/Numeric/f64.vb | 4 +- Language/Value/Numeric/i32.vb | 4 +- My/Log4VB.vb | 70 +++---- Net/HTTP/Stream/Base64Codec.vb | 2 +- Net/HTTP/wget.vb | 47 ++++- Net/HTTP/wgetTask.vb | 80 ++++---- Net/Protocol/RequestStream.vb | 2 +- Net/Protocol/Streams/ArrayBase.vb | 2 +- Net/Tcp/IPTools/IPEndPoint.vb | 6 +- Net/Tcp/Persistent/Protocols/POST.vb | 2 +- Net/Tcp/TcpRequest.vb | 2 +- Scripting/Runtime/CType/CastStringVector.vb | 2 +- Serialization/BinaryDumping/Buffer.vb | 2 +- .../Levenshtein/Extensions.vb | 2 +- Text/Xml/Linq/DataSetWriter.vb | 2 +- Text/Xml/Linq/Linq.vb | 2 +- test/numberParserTest.vb | 2 +- test/wgetTest.vb | 44 ++++- 55 files changed, 868 insertions(+), 518 deletions(-) create mode 100644 CommandLine/Interpreters/ExecuteImpl.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 7e5b3106..c0f26476 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1044,6 +1044,7 @@ + diff --git a/ApplicationServices/Debugger.vb b/ApplicationServices/Debugger.vb index 93a8615d..4d3120da 100644 --- a/ApplicationServices/Debugger.vb +++ b/ApplicationServices/Debugger.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cfb8cd1431080ad241198793af439fbf, Microsoft.VisualBasic.Core\ApplicationServices\Debugger.vb" +#Region "Microsoft.VisualBasic::4815a500fffdc82dad422f680b2f3652, Microsoft.VisualBasic.Core\ApplicationServices\Debugger.vb" ' Author: ' diff --git a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb index b626a750..6e861e9f 100644 --- a/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb +++ b/ApplicationServices/Parallel/MMFProtocol/Pipeline/PipeBuffer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b6eb1b86ae83ffd1e0ceab81f5ca2159, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\Pipeline\PipeBuffer.vb" +#Region "Microsoft.VisualBasic::cd750bc3d0d872fe58c7bbd4cc5ad6b9, Microsoft.VisualBasic.Core\ApplicationServices\Parallel\MMFProtocol\Pipeline\PipeBuffer.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender.vb index abf3556f..c0c1b122 100644 --- a/ApplicationServices/Terminal/MarkdownRender.vb +++ b/ApplicationServices/Terminal/MarkdownRender.vb @@ -1,4 +1,55 @@ -Imports System.Runtime.CompilerServices +#Region "Microsoft.VisualBasic::a5699a5d49ef0db4aa216c04f353be47, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\MarkdownRender.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 MarkdownRender + ' + ' Constructor: (+1 Overloads) Sub New + ' Sub: (+2 Overloads) DoPrint, Print, WalkChar + ' + ' Class MarkdownTheme + ' + ' Properties: [Global], BlockQuote, CodeBlock, InlineCodeSpan, Url + ' + ' Class ConsoleFontStyle + ' + ' Properties: BackgroundColor, ForeColor + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Default Imports Microsoft.VisualBasic.Text.Parser @@ -89,4 +140,4 @@ Namespace ApplicationServices.Terminal } End Operator End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/Terminal/Utility/EventProc.vb b/ApplicationServices/Terminal/Utility/EventProc.vb index bc633b32..bc6db816 100644 --- a/ApplicationServices/Terminal/Utility/EventProc.vb +++ b/ApplicationServices/Terminal/Utility/EventProc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a55db275422fac8c7cd30fc5b1d99117, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\EventProc.vb" +#Region "Microsoft.VisualBasic::cf9c2b1393a625f0030b0dc643af94c9, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\EventProc.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/xConsole/Comparer.vb b/ApplicationServices/Terminal/xConsole/Comparer.vb index 21ec07f7..cdfce9bc 100644 --- a/ApplicationServices/Terminal/xConsole/Comparer.vb +++ b/ApplicationServices/Terminal/xConsole/Comparer.vb @@ -1,4 +1,47 @@ -Namespace Terminal.xConsole +#Region "Microsoft.VisualBasic::ba5a42b26cebb753302fe07afddec2fb, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\Comparer.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 Comparer + ' + ' Constructor: (+3 Overloads) Sub New + ' Function: Find + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace Terminal.xConsole #Region "COMPARER 💻" @@ -103,4 +146,4 @@ '//////////////////////////////////////////////////////////////////////////////////////////////// '//////////////////////////////////////////////////////////////////////////////////////////////// #End Region -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb b/ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb index a01bb7ff..5d3e4002 100644 --- a/ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb +++ b/ApplicationServices/Terminal/xConsole/CoolWriteSettings.vb @@ -1,4 +1,48 @@ -Namespace Terminal.xConsole +#Region "Microsoft.VisualBasic::08920a87692c09624918fe290bdd11a1, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\CoolWriteSettings.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 CoolWriteSettings + ' + ' Properties: CoolWriting, CoolWritingDelay, CWRDDelay + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace Terminal.xConsole Public NotInheritable Class CoolWriteSettings @@ -21,4 +65,4 @@ End Sub End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/Terminal/xConsole/Helpers.vb b/ApplicationServices/Terminal/xConsole/Helpers.vb index 74b43bdc..6422c280 100644 --- a/ApplicationServices/Terminal/xConsole/Helpers.vb +++ b/ApplicationServices/Terminal/xConsole/Helpers.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4efecaebf76db9799527811db18dd578, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\Helpers.vb" +#Region "Microsoft.VisualBasic::48ab17311b3ed47c9fd117423a9c1d25, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\Helpers.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/xConsole/Spinner.vb b/ApplicationServices/Terminal/xConsole/Spinner.vb index 4608738c..d145c883 100644 --- a/ApplicationServices/Terminal/xConsole/Spinner.vb +++ b/ApplicationServices/Terminal/xConsole/Spinner.vb @@ -1,4 +1,50 @@ -Imports System.Drawing +#Region "Microsoft.VisualBasic::6b2a995592ac29c3908c6d5929d38511, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\Spinner.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 Spinner + ' + ' Constructor: (+2 Overloads) Sub New + ' + ' Function: Turn + ' + ' Sub: Break, Run, RunTask + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Drawing Imports System.Threading Namespace Terminal.xConsole @@ -110,4 +156,4 @@ Namespace Terminal.xConsole End Class #End Region -End Namespace \ No newline at end of file +End Namespace diff --git a/ApplicationServices/Terminal/xConsole/xConsole.vb b/ApplicationServices/Terminal/xConsole/xConsole.vb index 3fd9adc5..b2325429 100644 --- a/ApplicationServices/Terminal/xConsole/xConsole.vb +++ b/ApplicationServices/Terminal/xConsole/xConsole.vb @@ -1,70 +1,48 @@ -#Region "Microsoft.VisualBasic::a8251d66048cbc47fdba172bdaeb7f54, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\xConsole.vb" +#Region "Microsoft.VisualBasic::5195ecc2349d77440a701e938d09fbdf, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\xConsole\xConsole.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 . + ' 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: + ' Summaries: -' Module xConsole -' -' Constructor: (+1 Overloads) Sub New -' -' Function: CheckNewVersion, ClearInput, ClosestConsoleColor, ConvertHexStringToByteArray, getColor -' GetConsoleWindow, (+2 Overloads) Implode, ParseLine, Print, ReadKeys -' ReadLine, RetrieveLinkerTimestamp, SetWindowPos -' -' Sub: __checkUpdates, CheckforUpdates, ClearInput, (+2 Overloads) CoolWrite, CoolWriteLine -' Credits, ListFonts, RestoreColors, SetFont, SetIcon -' SetWindowPos, Wait, Write, (+3 Overloads) WriteLine -' Class CoolWriteSettings -' -' Properties: CoolWriting, CoolWritingDelay, CWRDDelay -' -' Constructor: (+1 Overloads) Sub New -' -' Class Comparer -' -' Constructor: (+3 Overloads) Sub New -' Function: Find -' -' Class Spinner -' -' Constructor: (+2 Overloads) Sub New -' -' Function: Turn -' -' Sub: Break, Run, RunTask -' -' -' -' -' /********************************************************************************/ + ' Module xConsole + ' + ' Function: ClearInput, ClosestConsoleColor, ConvertHexStringToByteArray, getColor, GetConsoleWindow + ' (+2 Overloads) Implode, ParseLine, Print, ReadKeys, ReadLine + ' SetWindowPos + ' + ' Sub: ClearInput, (+2 Overloads) CoolWrite, CoolWriteLine, Credits, ListFonts + ' RestoreColors, SetFont, SetIcon, SetWindowPos, Wait + ' Write, (+3 Overloads) WriteLine + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ApplicationServices/VBDev/ApplicationInfoUtils.vb b/ApplicationServices/VBDev/ApplicationInfoUtils.vb index 065b4ca4..70baaa11 100644 --- a/ApplicationServices/VBDev/ApplicationInfoUtils.vb +++ b/ApplicationServices/VBDev/ApplicationInfoUtils.vb @@ -1,44 +1,44 @@ -#Region "Microsoft.VisualBasic::2123247c2dbf0e64ee9e4932a216e17b, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\ApplicationInfoUtils.vb" +#Region "Microsoft.VisualBasic::5e071016dbd75bb9fd6a352e061c08a3, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\ApplicationInfoUtils.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 . + ' 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: + ' Summaries: -' Module ApplicationInfoUtils -' -' Function: CurrentExe, FromAssembly, FromTypeModule, GetCompanyName, GetCopyRightsDetail -' GetGuid, GetProductDescription, GetProductName, GetProductTitle, GetProductVersion -' VBCore -' -' -' /********************************************************************************/ + ' Module ApplicationInfoUtils + ' + ' Function: CalculateCompileTime, CurrentExe, FromAssembly, FromTypeModule, GetCompanyName + ' GetCopyRightsDetail, GetGuid, GetProductDescription, GetProductName, GetProductTitle + ' GetProductVersion, RetrieveLinkerTimestamp, tryGetVersion, VBCore + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 79ad20bd..213db5d5 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1cea93132554887274c551d9515ec4ea, Microsoft.VisualBasic.Core\CommandLine\CommandLine.vb" +#Region "Microsoft.VisualBasic::1e266ef3707ea88ae89c7bfbc8d789b4, Microsoft.VisualBasic.Core\CommandLine\CommandLine.vb" ' Author: ' diff --git a/CommandLine/Interpreters/ExecuteImpl.vb b/CommandLine/Interpreters/ExecuteImpl.vb new file mode 100644 index 00000000..925a5acf --- /dev/null +++ b/CommandLine/Interpreters/ExecuteImpl.vb @@ -0,0 +1,180 @@ +#Region "Microsoft.VisualBasic::93f43a5a57b153b6a25a7e7d4ea72ad6, Microsoft.VisualBasic.Core\CommandLine\Interpreters\ExecuteImpl.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: + + ' Module ExecuteImpl + ' + ' Function: CreateCLIPipelineFile, ListingRelatedCommands + ' + ' Sub: HandleProgramManual, HandleShellHistory, PrintVariables + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.IO +Imports System.Runtime.CompilerServices +Imports System.Text +Imports Microsoft.VisualBasic.CommandLine.ManView +Imports Microsoft.VisualBasic.ComponentModel.Settings +Imports Microsoft.VisualBasic.Language.UnixBash +Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Text +Imports Microsoft.VisualBasic.Text.Levenshtein +Imports VB = Microsoft.VisualBasic.CommandLine.InteropService.SharedORM.VisualBasic + +Namespace CommandLine + + ''' + ''' Executive implementation of + ''' + Module ExecuteImpl + + + Friend Function CreateCLIPipelineFile(cli_app As Interpreter, args As CommandLine) As Integer + Dim namespace$ = args("/namespace") Or "CLI" + Dim vb$ = New VB(App:=cli_app, [namespace]:=[namespace]).GetSourceCode + Dim dev As TextWriter + + If args("---echo") Then + dev = App.StdOut + Else + dev = ($"{App.HOME}/{cli_app.Type.Assembly.CodeBase.BaseName}.vb") _ + .Open(, doClear:=True) _ + .DoCall(Function(file) + Return New StreamWriter(file, Encodings.UTF8WithoutBOM.CodePage) + End Function) + End If + + Call dev.WriteLine(vb) + Call dev.Flush() + Call dev.Close() + + Return 0 + End Function + + + Friend Function ListingRelatedCommands(cli_app As Interpreter, query$) As String() + Dim key As New LevenshteinString(query.ToLower) + Dim LQuery = From x As String + In cli_app.__API_table.Keys.AsParallel + Let compare = key Like x + Where Not compare Is Nothing AndAlso + compare.Score > 0.3 + Select compare.Score, + x + Order By Score Descending + + Dim levenshteins = LQuery _ + .Select(Function(x) x.x) _ + .AsList + + levenshteins += cli_app.__API_table _ + .Keys _ + .Where(Function(s) + Return InStr(s, query, CompareMethod.Text) > 0 OrElse + InStr(query, s, CompareMethod.Text) > 0 + End Function) + + Return levenshteins _ + .Distinct _ + .Select(Function(name) + Return cli_app.__API_table(name).Name + End Function) _ + .ToArray + End Function + + Friend Sub PrintVariables() + Dim vars = App.GetAppVariables + + Call Console.WriteLine() + Call Console.WriteLine(PS1.Fedora12.ToString) + Call Console.WriteLine() + Call Console.WriteLine($"Print environment variables for {GetType(App).FullName}:") + Call Console.WriteLine(ConfigEngine.Prints(vars)) + End Sub + + Friend Sub HandleShellHistory(args As CommandLine) + Dim logs$ = (App.LogErrDIR.ParentPath & "/.shells.log") + + If args.Parameters.IsNullOrEmpty Then + Call Console.WriteLine() + Call logs.ReadAllText.EchoLine + Call Console.WriteLine() + Else + With args.ParameterList.First + Select Case .Name.ToLower + Case "/clear" + Call New Byte() {}.FlushStream(logs) + Case "/search" + + Dim term$ = .Value + + Call Console.WriteLine() + Call logs.IterateAllLines _ + .Where(Function(line) + Return InStr(line, term, CompareMethod.Text) > 0 + End Function) _ + .JoinBy(vbCrLf) _ + .EchoLine + Call Console.WriteLine() + + Case Else + Console.WriteLine("Unknown command!") + End Select + End With + End If + End Sub + + Friend Sub HandleProgramManual(cli_app As Interpreter, args As CommandLine) + ' 默认是分段打印帮助信息，假若加上了 --print参数的话，则才会一次性的打印所有的信息出来 + Dim doc As String = cli_app.SDKdocs() + Dim output$ = args("/out") Or "./" + + If Not args("--file") Then + If args("--print") Then + Call Console.WriteLine(doc) + Else + Call SDKManual.LaunchManual(CLI:=cli_app) + End If + Else + ' 只会写文件而不会在终端打开帮助窗口 + End If + + Call ($"{output}/{App.AssemblyName}.md") _ + .DoCall(Sub(md) + Call doc.SaveTo(md, Encoding.UTF8) + End Sub) + End Sub + End Module +End Namespace diff --git a/CommandLine/Interpreters/Interpreter.vb b/CommandLine/Interpreters/Interpreter.vb index 3b31201b..b710373b 100644 --- a/CommandLine/Interpreters/Interpreter.vb +++ b/CommandLine/Interpreters/Interpreter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dcfc8f9f59421f3383f29e83fa30780e, Microsoft.VisualBasic.Core\CommandLine\Interpreters\Interpreter.vb" +#Region "Microsoft.VisualBasic::c6c2b3e5d881c8a129a2f3fe5f61c166, Microsoft.VisualBasic.Core\CommandLine\Interpreters\Interpreter.vb" ' Author: ' @@ -53,19 +53,18 @@ Imports System.Reflection Imports System.Runtime.CompilerServices -Imports System.Text +#If DEBUG Then +#Else Imports Microsoft.VisualBasic.ApplicationServices.Debugging +#End If Imports Microsoft.VisualBasic.CommandLine.ManView Imports Microsoft.VisualBasic.CommandLine.Reflection Imports Microsoft.VisualBasic.CommandLine.Reflection.EntryPoints -Imports Microsoft.VisualBasic.ComponentModel.Settings Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.UnixBash +Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Linq.Extensions Imports Microsoft.VisualBasic.Serialization.JSON -Imports Microsoft.VisualBasic.Text -Imports Microsoft.VisualBasic.Text.Levenshtein -Imports VB = Microsoft.VisualBasic.CommandLine.InteropService.SharedORM.VisualBasic #Const NET_45 = 0 @@ -183,49 +182,13 @@ Namespace CommandLine Return __API_table(commandName).Execute(argvs) If "??vars".TextEquals(commandName) Then - Dim vars = App.GetAppVariables - - Call Console.WriteLine() - Call Console.WriteLine(PS1.Fedora12.ToString) - Call Console.WriteLine() - Call Console.WriteLine($"Print environment variables for {GetType(App).FullName}:") - Call Console.WriteLine(ConfigEngine.Prints(vars)) + Call ExecuteImpl.PrintVariables() Return 0 ElseIf "??history".TextEquals(commandName) Then - Dim logs$ = (App.LogErrDIR.ParentPath & "/.shells.log") - - With DirectCast(argvs(Scan0), CommandLine) - If .Parameters.IsNullOrEmpty Then - Call Console.WriteLine() - Call logs.ReadAllText.EchoLine - Call Console.WriteLine() - Else - With .ParameterList.First - Select Case .Name.ToLower - Case "/clear" - Call New Byte() {}.FlushStream(logs) - Case "/search" - - Dim term$ = .Value - - Call Console.WriteLine() - Call logs.IterateAllLines _ - .Where(Function(line) - Return InStr(line, term, CompareMethod.Text) > 0 - End Function) _ - .JoinBy(vbCrLf) _ - .EchoLine - Call Console.WriteLine() - - Case Else - Console.WriteLine("Unknown command!") - End Select - End With - End If - End With + Call ExecuteImpl.HandleShellHistory(args:=CLI) Return 0 @@ -237,8 +200,8 @@ Namespace CommandLine End If ElseIf InStr(commandName, "??") = 1 Then ' 支持类似于R语言里面的 ??帮助命令 - commandName = Mid(commandName, 3) ' 去除前面的两个??问号，得到查询的term - Return Help(commandName) + ' 去除前面的两个??问号，得到查询的term + Return Mid(commandName, 3).DoCall(AddressOf Help) ElseIf String.Equals(commandName, "~") Then ' 打印出应用程序的位置，linux里面的HOME @@ -247,38 +210,13 @@ Namespace CommandLine Return 0 ElseIf String.Equals(commandName, "man") Then - ' 默认是分段打印帮助信息，假若加上了 --print参数的话，则才会一次性的打印所有的信息出来 - Dim doc As String = SDKdocs() - Dim output$ = CLI("/out") Or "./" - - If Not CLI.GetBoolean("--file") Then - If CLI.GetBoolean("--print") Then - Call Console.WriteLine(doc) - Else - Call SDKManual.LaunchManual(CLI:=Me) - End If - Else - ' 只会写文件而不会在终端打开帮助窗口 - End If - - Return doc.SaveTo($"{output}/{App.AssemblyName}.md", Encoding.UTF8).CLICode + Call ExecuteImpl.HandleProgramManual(Me, CLI) ElseIf String.Equals(commandName, "/linux-bash", StringComparison.OrdinalIgnoreCase) Then Return My.BashShell() ElseIf String.Equals(commandName, "/CLI.dev", StringComparison.OrdinalIgnoreCase) Then - Dim namespace$ = CLI("/namespace") Or "CLI" - Dim vb$ = New VB(App:=Me, [namespace]:=[namespace]).GetSourceCode - - If CLI.IsTrue("---echo") Then - Console.WriteLine(vb) - Return 0 - Else - Dim sourcefile$ = $"{App.HOME}/{Type.Assembly.CodeBase.BaseName}.vb" - Return vb _ - .SaveTo(sourcefile, Encodings.UTF8WithoutBOM.CodePage) _ - .CLICode - End If + Return Me.CreateCLIPipelineFile(args:=CLI) Else ' 命令行的名称和上面的都不符合，但是可以在文件系统之中找得到一个相应的文件，则执行文件句柄 @@ -710,34 +648,10 @@ Namespace CommandLine ''' ''' 模糊匹配 ''' + ''' + Public Function ListingRelated(query$) As String() - Dim key As New LevenshteinString(query.ToLower) - Dim LQuery = From x As String - In __API_table.Keys.AsParallel - Let compare = key Like x - Where Not compare Is Nothing AndAlso - compare.Score > 0.3 - Select compare.Score, - x - Order By Score Descending - - Dim levenshteins = LQuery _ - .Select(Function(x) x.x) _ - .AsList - - levenshteins += __API_table _ - .Keys _ - .Where(Function(s) - Return InStr(s, query, CompareMethod.Text) > 0 OrElse - InStr(query, s, CompareMethod.Text) > 0 - End Function) - - Return levenshteins _ - .Distinct _ - .Select(Function(name) - Return __API_table(name).Name - End Function) _ - .ToArray + Return Me.ListingRelatedCommands(query) End Function ''' diff --git a/CommandLine/Interpreters/View/CommandHelp.vb b/CommandLine/Interpreters/View/CommandHelp.vb index e66bd125..d0088a8f 100644 --- a/CommandLine/Interpreters/View/CommandHelp.vb +++ b/CommandLine/Interpreters/View/CommandHelp.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7d15e03f189cfb4385a3670b0c012f3f, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\CommandHelp.vb" +#Region "Microsoft.VisualBasic::14574b8822db88dd0c7be339f9911d81, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\CommandHelp.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index 9137cba7..90d5aca5 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f32829cd8ec40319d48da8c0ab0411dd, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\ManualBuilder.vb" +#Region "Microsoft.VisualBasic::fe1d04091f554682726c58ac65cabf51, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\ManualBuilder.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/SDKManual.vb b/CommandLine/Interpreters/View/SDKManual.vb index 719e06cb..bfc7d8ee 100644 --- a/CommandLine/Interpreters/View/SDKManual.vb +++ b/CommandLine/Interpreters/View/SDKManual.vb @@ -1,42 +1,42 @@ -#Region "Microsoft.VisualBasic::fc6979b4b647ec8a171f444056ce9403, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\SDKManual.vb" +#Region "Microsoft.VisualBasic::5f9f988fd11956c1f2392450da027f30, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\SDKManual.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 . + ' 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: + ' Summaries: -' Module SDKManual -' -' Function: HelpSummary, LaunchManual, MarkdownDoc -' -' -' /********************************************************************************/ + ' Module SDKManual + ' + ' Function: HelpSummary, LaunchManual, MarkdownDoc + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb b/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb index 9c89fd65..2ac06bda 100644 --- a/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb +++ b/ComponentModel/Algorithm/base/SlideWindow/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::130b7311f6a8f174fbfc81795c78adc9, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\base\SlideWindow\Extensions.vb" +#Region "Microsoft.VisualBasic::2b94e72bbce38acfe2b38197e5bf7e9e, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\base\SlideWindow\Extensions.vb" ' Author: ' diff --git a/ComponentModel/Count.vb b/ComponentModel/Count.vb index 907c01b5..2d20fb9c 100644 --- a/ComponentModel/Count.vb +++ b/ComponentModel/Count.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dfbbdb353c3faead10950620e0ceb0b5, Microsoft.VisualBasic.Core\ComponentModel\Count.vb" +#Region "Microsoft.VisualBasic::4ad22354f6820da7f7549ed80669838c, Microsoft.VisualBasic.Core\ComponentModel\Count.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Unit.vb b/ComponentModel/Ranges/Unit.vb index 4b704eb9..bf7574bc 100644 --- a/ComponentModel/Ranges/Unit.vb +++ b/ComponentModel/Ranges/Unit.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ddbfb5a6571bfb21e8d67c68844b81ff, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Unit.vb" +#Region "Microsoft.VisualBasic::9e0cfe8fe42ca5f508c2f6df254c5533, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Unit.vb" ' Author: ' diff --git a/ComponentModel/System.Collections.Generic/BucketDictionary.vb b/ComponentModel/System.Collections.Generic/BucketDictionary.vb index c2b93c3f..d4b7adbc 100644 --- a/ComponentModel/System.Collections.Generic/BucketDictionary.vb +++ b/ComponentModel/System.Collections.Generic/BucketDictionary.vb @@ -1,49 +1,49 @@ -#Region "Microsoft.VisualBasic::3833795011a6ed46058df56330aca07e, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\BucketDictionary.vb" +#Region "Microsoft.VisualBasic::fb63cde407f533b915185b636ca705d8, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\BucketDictionary.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 . + ' 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: + ' Summaries: -' Class BucketDictionary -' -' Properties: Count, Keys, Values -' -' Constructor: (+3 Overloads) Sub New -' Function: ContainsKey, GetEnumerator, IEnumerable_GetEnumerator, ToString, TryGetValue -' -' Module BucketDictionaryExtensions -' -' Function: (+3 Overloads) CreateBuckets -' -' -' /********************************************************************************/ + ' Class BucketDictionary + ' + ' Properties: Count, Keys, Values + ' + ' Constructor: (+3 Overloads) Sub New + ' Function: ContainsKey, GetEnumerator, IEnumerable_GetEnumerator, ToString, TryGetValue + ' + ' Module BucketDictionaryExtensions + ' + ' Function: (+3 Overloads) CreateBuckets + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index d185b95a..7780fc47 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::52ccec87cb0909c1612e385fec6b6cbb, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" +#Region "Microsoft.VisualBasic::c7181e3a1cca2f1c14aae77b3062892d, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" ' Author: ' @@ -42,7 +42,8 @@ ' ' Sub: Clear, Delete ' - ' Operators: -, (+2 Overloads) +, <>, =, (+2 Overloads) Like + ' Operators: -, (+2 Overloads) +, <>, =, (+2 Overloads) IsFalse + ' (+2 Overloads) IsTrue, (+2 Overloads) Like ' ' ' /********************************************************************************/ diff --git a/Extensions/Collection/Linq/Enumeration.vb b/Extensions/Collection/Linq/Enumeration.vb index 01906996..a48277ee 100644 --- a/Extensions/Collection/Linq/Enumeration.vb +++ b/Extensions/Collection/Linq/Enumeration.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c3aab7de20209777ad612db67e2ee059, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Enumeration.vb" +#Region "Microsoft.VisualBasic::b024577ea1fdaa7118bd6e089a956260, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Enumeration.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Takes.vb b/Extensions/Collection/Linq/Takes.vb index 2a85872d..058694b8 100644 --- a/Extensions/Collection/Linq/Takes.vb +++ b/Extensions/Collection/Linq/Takes.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5bb371dabfa029b99aea6eec5d9d3744, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Takes.vb" +#Region "Microsoft.VisualBasic::ac1a4d12fe1a6b584c83cb78b4dfff06, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Takes.vb" ' Author: ' diff --git a/Extensions/Collection/ListExtensions.vb b/Extensions/Collection/ListExtensions.vb index dbe0f285..acc2cecc 100644 --- a/Extensions/Collection/ListExtensions.vb +++ b/Extensions/Collection/ListExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b8f5d35527c282e7618a88f09171b0a6, Microsoft.VisualBasic.Core\Extensions\Collection\ListExtensions.vb" +#Region "Microsoft.VisualBasic::a5ffde156f52abbe08a37925af47ec4b, Microsoft.VisualBasic.Core\Extensions\Collection\ListExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/Vector.vb b/Extensions/Collection/Vector.vb index b78f07f7..5dfda5b9 100644 --- a/Extensions/Collection/Vector.vb +++ b/Extensions/Collection/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::53a619c4039ce93bc2f690996f1f92f1, Microsoft.VisualBasic.Core\Extensions\Collection\Vector.vb" +#Region "Microsoft.VisualBasic::0c24963248bf4cc292874ecfd4a073fa, Microsoft.VisualBasic.Core\Extensions\Collection\Vector.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/StreamHelper.vb b/Extensions/IO/Extensions/StreamHelper.vb index 11a41b17..26ff9f16 100644 --- a/Extensions/IO/Extensions/StreamHelper.vb +++ b/Extensions/IO/Extensions/StreamHelper.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0e0b7f03fe5774e8e50fcc26f1552a74, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\StreamHelper.vb" +#Region "Microsoft.VisualBasic::183798cdc52877a3e30613de432c2d50, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\StreamHelper.vb" ' Author: ' diff --git a/Extensions/Math/ScaleMaps.vb b/Extensions/Math/ScaleMaps.vb index 2e43137b..76273237 100644 --- a/Extensions/Math/ScaleMaps.vb +++ b/Extensions/Math/ScaleMaps.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::73b4d08a79c43310c72940a2aad735e0, Microsoft.VisualBasic.Core\Extensions\Math\ScaleMaps.vb" +#Region "Microsoft.VisualBasic::6576a5569926b427ebe1e6bbd35401cb, Microsoft.VisualBasic.Core\Extensions\Math\ScaleMaps.vb" ' Author: ' diff --git a/Extensions/Security/Md5.vb b/Extensions/Security/Md5.vb index f89b2fc6..31012bd2 100644 --- a/Extensions/Security/Md5.vb +++ b/Extensions/Security/Md5.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ced60d52179f290950843cd79cc35712, Microsoft.VisualBasic.Core\Extensions\Security\Md5.vb" +#Region "Microsoft.VisualBasic::7a013b6e862c6431f3c8dad3b7405712, Microsoft.VisualBasic.Core\Extensions\Security\Md5.vb" ' Author: ' diff --git a/Extensions/StringHelpers/Parser.vb b/Extensions/StringHelpers/Parser.vb index 713f1c5b..45c24137 100644 --- a/Extensions/StringHelpers/Parser.vb +++ b/Extensions/StringHelpers/Parser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6d9e795c16a7e95236a1ca93281c82df, Microsoft.VisualBasic.Core\Extensions\StringHelpers\Parser.vb" +#Region "Microsoft.VisualBasic::061d3943f477ad923144a3cbaca58177, Microsoft.VisualBasic.Core\Extensions\StringHelpers\Parser.vb" ' Author: ' diff --git a/Extensions/StringHelpers/StringHelpers.vb b/Extensions/StringHelpers/StringHelpers.vb index 6b87a5e4..f760c93f 100644 --- a/Extensions/StringHelpers/StringHelpers.vb +++ b/Extensions/StringHelpers/StringHelpers.vb @@ -1,55 +1,55 @@ -#Region "Microsoft.VisualBasic::cc6ee9d1b10af059b8ab40f09ad8839c, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringHelpers.vb" +#Region "Microsoft.VisualBasic::2598a65fb34771095d91101901cdc588, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringHelpers.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 . + ' 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: + ' Summaries: -' Module StringHelpers -' -' Properties: EmptyString, NonStrictCompares, StrictCompares -' -' Function: __json, AllEquals, AsciiBytes, (+4 Overloads) ByteString, CharAtOrDefault -' CharString, (+3 Overloads) Count, CreateBuilder, DistinctIgnoreCase, EqualsAny -' First, FormatString, FormatZero, GetBetween, GetEMails -' GetStackValue, GetString, (+2 Overloads) GetTagValue, GetURLs, IgnoreCase -' InStrAny, (+2 Overloads) Intersection, IsEmptyStringVector, JoinBy, LineTokens -' Located, Lookup, (+2 Overloads) Match, Matches, MatchPattern -' (+2 Overloads) MaxLengthString, NotEmpty, PadEnd, Parts, RepeatString -' ReplaceChars, (+2 Overloads) Reverse, RNull, SaveTo, (+2 Overloads) Split -' SplitBy, StringEmpty, StringHashCode, StringReplace, StringSplit -' StripBlank, Strips, TextEquals, TextLast, TokenCount -' TokenCountIgnoreCase, TrimNewLine, TrimNull, WildcardsLocated -' -' Sub: Parts, RemoveLast -' -' /********************************************************************************/ + ' Module StringHelpers + ' + ' Properties: EmptyString, NonStrictCompares, StrictCompares + ' + ' Function: __json, AllEquals, AsciiBytes, (+4 Overloads) ByteString, CharAtOrDefault + ' CharString, (+3 Overloads) Count, CreateBuilder, DistinctIgnoreCase, EqualsAny + ' First, FormatString, FormatZero, GetBetween, GetEMails + ' GetStackValue, GetString, (+2 Overloads) GetTagValue, GetURLs, IgnoreCase + ' InStrAny, (+2 Overloads) Intersection, IsEmptyStringVector, JoinBy, LineTokens + ' Located, Lookup, (+2 Overloads) Match, Matches, MatchPattern + ' (+2 Overloads) MaxLengthString, NotEmpty, PadEnd, Parts, RepeatString + ' ReplaceChars, (+2 Overloads) Reverse, RNull, SaveTo, (+2 Overloads) Split + ' SplitBy, StringEmpty, StringHashCode, StringReplace, StringSplit + ' StripBlank, Strips, TextEquals, TextLast, TokenCount + ' TokenCountIgnoreCase, TrimNewLine, TrimNull, WildcardsLocated + ' + ' Sub: Parts, RemoveLast + ' + ' /********************************************************************************/ #End Region diff --git a/Extensions/WebServices/WebServiceUtils.vb b/Extensions/WebServices/WebServiceUtils.vb index 442a3c5d..832e967a 100644 --- a/Extensions/WebServices/WebServiceUtils.vb +++ b/Extensions/WebServices/WebServiceUtils.vb @@ -1,51 +1,51 @@ -#Region "Microsoft.VisualBasic::4d5d5bef8e9a9b6e863af14d8d486dff, Microsoft.VisualBasic.Core\Extensions\WebServices\WebServiceUtils.vb" +#Region "Microsoft.VisualBasic::40edea895787cf43c8a61ab848073a50, Microsoft.VisualBasic.Core\Extensions\WebServices\WebServiceUtils.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 . + ' 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: + ' Summaries: -' Module WebServiceUtils -' -' Properties: DefaultUA, Protocols, Proxy -' -' Constructor: (+1 Overloads) Sub New -' -' Function: __getMyIPAddress, BuildArgs, (+2 Overloads) BuildReqparm, BuildUrlData, CheckValidationResult -' (+2 Overloads) DownloadFile, GenerateDictionary, GetDownload, GetMyIPAddress, GetProxy -' (+2 Overloads) GetRequest, GetRequestRaw, IsSocketPortOccupied, isURL, IsURLPattern -' (+2 Overloads) POST, POSTFile, (+2 Overloads) PostRequest, PostUrlDataParser, QueryStringParameters -' UrlDecode, UrlEncode, UrlPathEncode -' -' Sub: (+2 Overloads) SetProxy, UrlDecode, UrlEncode -' -' /********************************************************************************/ + ' Module WebServiceUtils + ' + ' Properties: DefaultUA, Protocols, Proxy + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: BuildArgs, (+2 Overloads) BuildReqparm, BuildUrlData, CheckValidationResult, (+2 Overloads) DownloadFile + ' GenerateDictionary, GetDownload, getIPAddressInternal, GetMyIPAddress, GetProxy + ' (+2 Overloads) GetRequest, GetRequestRaw, IsSocketPortOccupied, isURL, IsURLPattern + ' (+2 Overloads) POST, POSTFile, (+2 Overloads) PostRequest, PostUrlDataParser, QueryStringParameters + ' UrlDecode, UrlEncode, UrlPathEncode + ' + ' Sub: (+2 Overloads) SetProxy, UrlDecode, UrlEncode + ' + ' /********************************************************************************/ #End Region diff --git a/Language/Linq/List.vb b/Language/Linq/List.vb index 83d1aee4..efacb86d 100644 --- a/Language/Linq/List.vb +++ b/Language/Linq/List.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::37bad5ffc0bc7a6f5ab3e6ee6f903a3b, Microsoft.VisualBasic.Core\Language\Linq\List.vb" +#Region "Microsoft.VisualBasic::c9ed3680d43f9e470c9020d607fd9229, Microsoft.VisualBasic.Core\Language\Linq\List.vb" ' Author: ' diff --git a/Language/Value/ByRefValueExtensions.vb b/Language/Value/ByRefValueExtensions.vb index b9480b7c..76b7c990 100644 --- a/Language/Value/ByRefValueExtensions.vb +++ b/Language/Value/ByRefValueExtensions.vb @@ -1,42 +1,42 @@ -#Region "Microsoft.VisualBasic::bb1ee2643f8913577fc3056a8b97d978, Microsoft.VisualBasic.Core\Language\Value\ByRefValueExtensions.vb" +#Region "Microsoft.VisualBasic::5fc413b9762b2a91f4fae2aecd900021, Microsoft.VisualBasic.Core\Language\Value\ByRefValueExtensions.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 . + ' 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: + ' Summaries: -' Module ByRefValueExtensions -' -' Function: (+2 Overloads) First, Split, ToLower -' -' -' /********************************************************************************/ + ' Module ByRefValueExtensions + ' + ' Function: CreateDelegate, (+2 Overloads) First, Split, ToLower + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Language/Value/Clones.vb b/Language/Value/Clones.vb index faefb228..bc938aa6 100644 --- a/Language/Value/Clones.vb +++ b/Language/Value/Clones.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a379a2f5bc31ccee1e43102f7af78524, Microsoft.VisualBasic.Core\Language\Value\Clones.vb" +#Region "Microsoft.VisualBasic::da06393bffe69bbe757e33a122958bdb, Microsoft.VisualBasic.Core\Language\Value\Clones.vb" ' Author: ' diff --git a/Language/Value/DefaultValue/DefaultString.vb b/Language/Value/DefaultValue/DefaultString.vb index ce2183d6..dfd082ad 100644 --- a/Language/Value/DefaultValue/DefaultString.vb +++ b/Language/Value/DefaultValue/DefaultString.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5ca5c1f9db52baab7c86e4e7f6602e0c, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\DefaultString.vb" +#Region "Microsoft.VisualBasic::d98a076bb727a0d7586af915108b5fd5, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\DefaultString.vb" ' Author: ' @@ -38,7 +38,7 @@ ' Constructor: (+1 Overloads) Sub New ' Function: assertIsNothing, Base64Decode, LoadJson, LoadXml, ReadAllLines ' ToString - ' Operators: (+2 Overloads) IsFalse, (+2 Overloads) IsTrue, (+8 Overloads) Or + ' Operators: (+2 Overloads) IsFalse, (+2 Overloads) IsTrue, (+2 Overloads) Not, (+8 Overloads) Or ' ' ' /********************************************************************************/ @@ -171,6 +171,11 @@ Namespace Language.Default Return False = CType(str, Boolean) End Operator + + Public Shared Operator Not(str As DefaultString) As Boolean + Return Not CType(str, Boolean) + End Operator + ''' ''' If is empty then returns , ''' else returns itself. diff --git a/Language/Value/Numeric/Numeric.vb b/Language/Value/Numeric/Numeric.vb index 8f07b9be..ef127eb9 100644 --- a/Language/Value/Numeric/Numeric.vb +++ b/Language/Value/Numeric/Numeric.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7d518f5ec49de56f51b664ee075e4808, Microsoft.VisualBasic.Core\Language\Value\Numeric\Numeric.vb" +#Region "Microsoft.VisualBasic::8fe9b46ce1afdc942074e66332a05c12, Microsoft.VisualBasic.Core\Language\Value\Numeric\Numeric.vb" ' Author: ' diff --git a/Language/Value/Numeric/f64.vb b/Language/Value/Numeric/f64.vb index 01a9d141..e2a8cfac 100644 --- a/Language/Value/Numeric/f64.vb +++ b/Language/Value/Numeric/f64.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::261c52e3b65221fb2fe8e065d9c6d7e1, Microsoft.VisualBasic.Core\Language\Value\Numeric\VBDouble.vb" +#Region "Microsoft.VisualBasic::85adef4378964ac99939700574f2504d, Microsoft.VisualBasic.Core\Language\Value\Numeric\f64.vb" ' Author: ' @@ -31,7 +31,7 @@ ' Summaries: - ' Class VBDouble + ' Class f64 ' ' Properties: Hex ' diff --git a/Language/Value/Numeric/i32.vb b/Language/Value/Numeric/i32.vb index 6c67dbe3..57986612 100644 --- a/Language/Value/Numeric/i32.vb +++ b/Language/Value/Numeric/i32.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::f8ecacf552b36759cf81b824b85b5923, Microsoft.VisualBasic.Core\Language\Value\Numeric\VBInteger.vb" +#Region "Microsoft.VisualBasic::27781645e84d4b74793b2849d11820d4, Microsoft.VisualBasic.Core\Language\Value\Numeric\i32.vb" ' Author: ' @@ -31,7 +31,7 @@ ' Summaries: - ' Class VBInteger + ' Class i32 ' ' Properties: Hex, Oct ' diff --git a/My/Log4VB.vb b/My/Log4VB.vb index 27e7dff3..e6c001a4 100644 --- a/My/Log4VB.vb +++ b/My/Log4VB.vb @@ -1,44 +1,44 @@ -#Region "Microsoft.VisualBasic::2047894333de18074bc2425ea5d699dc, Microsoft.VisualBasic.Core\My\Log4VB.vb" +#Region "Microsoft.VisualBasic::5210ca600366a201431189d4c7463c8c, Microsoft.VisualBasic.Core\My\Log4VB.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 . + ' 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: + ' Summaries: -' Module Log4VB -' -' Function: getColor, Print -' -' Sub: WriteLine -' -' -' /********************************************************************************/ + ' Module Log4VB + ' + ' Function: getColor, Print + ' + ' Sub: Print, Println + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Net/HTTP/Stream/Base64Codec.vb b/Net/HTTP/Stream/Base64Codec.vb index eb4b618c..d77967f0 100644 --- a/Net/HTTP/Stream/Base64Codec.vb +++ b/Net/HTTP/Stream/Base64Codec.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c4564c7c78443f22803f7e0ea3c20472, Microsoft.VisualBasic.Core\Net\HTTP\Stream\Base64Codec.vb" +#Region "Microsoft.VisualBasic::ca14b5fdbc14310fce50c21b66ac1ad4, Microsoft.VisualBasic.Core\Net\HTTP\Stream\Base64Codec.vb" ' Author: ' diff --git a/Net/HTTP/wget.vb b/Net/HTTP/wget.vb index 38afc6fa..39ca74c1 100644 --- a/Net/HTTP/wget.vb +++ b/Net/HTTP/wget.vb @@ -1,4 +1,47 @@ -Imports System.Net +#Region "Microsoft.VisualBasic::e2f561de20747fa167eaa217bb586262, Microsoft.VisualBasic.Core\Net\HTTP\wget.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 wget + ' + ' Constructor: (+1 Overloads) Sub New + ' Sub: DownloadProcess, ReportRequest, Run + ' + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Net Namespace Net.Http @@ -49,4 +92,4 @@ Namespace Net.Http cursorTop = Console.CursorTop End Sub End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/Net/HTTP/wgetTask.vb b/Net/HTTP/wgetTask.vb index 73faff32..1d0d0598 100644 --- a/Net/HTTP/wgetTask.vb +++ b/Net/HTTP/wgetTask.vb @@ -1,48 +1,50 @@ -#Region "Microsoft.VisualBasic::d123268ab48cb110ebd63048c445139e, Microsoft.VisualBasic.Core\Net\wGetTools.vb" +#Region "Microsoft.VisualBasic::65a79ec99c6b759492f9e2ac12130130, Microsoft.VisualBasic.Core\Net\HTTP\wgetTask.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 . + ' 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: + ' Summaries: -' Class wGetTools -' -' Properties: CurrentSize, Downloading, DownloadSpeed, TotalSize -' -' Constructor: (+1 Overloads) Sub New -' -' Function: ToString -' -' Sub: __downloadTask, (+2 Overloads) Dispose, StartTask -' -' -' /********************************************************************************/ + ' Class wgetTask + ' + ' Properties: currentSize, downloadSpeed, isDownloading, saveFile, totalSize + ' url + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: ToString + ' + ' Sub: (+2 Overloads) Dispose, doTaskInternal, StartTask, switchStat, taskWithContentLength + ' taskWithNoContentLength + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Net/Protocol/RequestStream.vb b/Net/Protocol/RequestStream.vb index de2e7633..14ee4b13 100644 --- a/Net/Protocol/RequestStream.vb +++ b/Net/Protocol/RequestStream.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::539d950c873adce9a9ea57f42b522067, Microsoft.VisualBasic.Core\Net\Protocol\RequestStream.vb" +#Region "Microsoft.VisualBasic::91aa0df44e71de2973ac111c0de8b7d4, Microsoft.VisualBasic.Core\Net\Protocol\RequestStream.vb" ' Author: ' diff --git a/Net/Protocol/Streams/ArrayBase.vb b/Net/Protocol/Streams/ArrayBase.vb index faeafd8e..646ef81f 100644 --- a/Net/Protocol/Streams/ArrayBase.vb +++ b/Net/Protocol/Streams/ArrayBase.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b7ceedf73869affc6ffd0357bff5e945, Microsoft.VisualBasic.Core\Net\Protocol\Streams\ArrayBase.vb" +#Region "Microsoft.VisualBasic::7257bdfbbaf91a012ba9336d6efb662f, Microsoft.VisualBasic.Core\Net\Protocol\Streams\ArrayBase.vb" ' Author: ' diff --git a/Net/Tcp/IPTools/IPEndPoint.vb b/Net/Tcp/IPTools/IPEndPoint.vb index 663ad76c..bf2c5c32 100644 --- a/Net/Tcp/IPTools/IPEndPoint.vb +++ b/Net/Tcp/IPTools/IPEndPoint.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6e47a19b6cb16f9d2375a56a2da21154, Microsoft.VisualBasic.Core\Net\Tcp\IPTools\IPEndPoint.vb" +#Region "Microsoft.VisualBasic::16482648860f9085932d1e0e5a83e67b, Microsoft.VisualBasic.Core\Net\Tcp\IPTools\IPEndPoint.vb" ' Author: ' @@ -33,10 +33,10 @@ ' Class IPEndPoint ' - ' Properties: IPAddress, IsValid, Port, uid + ' Properties: guid, ipAddress, IsValid, port ' ' Constructor: (+4 Overloads) Sub New - ' Function: GetIPEndPoint, GetValue, ToString + ' Function: GetIPEndPoint, GetValue, IsIpv4Address, ToString ' ' ' /********************************************************************************/ diff --git a/Net/Tcp/Persistent/Protocols/POST.vb b/Net/Tcp/Persistent/Protocols/POST.vb index 339d4173..570be8bc 100644 --- a/Net/Tcp/Persistent/Protocols/POST.vb +++ b/Net/Tcp/Persistent/Protocols/POST.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::81a311b09af8a1f3611b7f61feafbe52, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\Protocols\POST.vb" +#Region "Microsoft.VisualBasic::81bc3b45ca79e546c59ac60496d7f7d8, Microsoft.VisualBasic.Core\Net\Tcp\Persistent\Protocols\POST.vb" ' Author: ' diff --git a/Net/Tcp/TcpRequest.vb b/Net/Tcp/TcpRequest.vb index 57ddc4d3..e9fde9c9 100644 --- a/Net/Tcp/TcpRequest.vb +++ b/Net/Tcp/TcpRequest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1bccba128c0a261d17fe23f3ccffc941, Microsoft.VisualBasic.Core\Net\Tcp\TcpRequest.vb" +#Region "Microsoft.VisualBasic::38749fdbdebc5b0e862ece93217f6f74, Microsoft.VisualBasic.Core\Net\Tcp\TcpRequest.vb" ' Author: ' diff --git a/Scripting/Runtime/CType/CastStringVector.vb b/Scripting/Runtime/CType/CastStringVector.vb index d13be5c4..143308f4 100644 --- a/Scripting/Runtime/CType/CastStringVector.vb +++ b/Scripting/Runtime/CType/CastStringVector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cbfc9d45158f9faf061600d8c2b85dc1, Microsoft.VisualBasic.Core\Scripting\Runtime\CType\CastStringVector.vb" +#Region "Microsoft.VisualBasic::3ec1019ecd833e3e960644068a61d875, Microsoft.VisualBasic.Core\Scripting\Runtime\CType\CastStringVector.vb" ' Author: ' diff --git a/Serialization/BinaryDumping/Buffer.vb b/Serialization/BinaryDumping/Buffer.vb index 645c3ff9..bc62bd30 100644 --- a/Serialization/BinaryDumping/Buffer.vb +++ b/Serialization/BinaryDumping/Buffer.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ef92e99ddc24002754db439ca83d62eb, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\Buffer.vb" +#Region "Microsoft.VisualBasic::b810442024d29c996e35ab3b00996009, Microsoft.VisualBasic.Core\Serialization\BinaryDumping\Buffer.vb" ' Author: ' diff --git a/Text/StringSimilarity/Levenshtein/Extensions.vb b/Text/StringSimilarity/Levenshtein/Extensions.vb index 91b723f0..7872cfb8 100644 --- a/Text/StringSimilarity/Levenshtein/Extensions.vb +++ b/Text/StringSimilarity/Levenshtein/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::05d9ecdacf1a7d59575c150f068399d1, Microsoft.VisualBasic.Core\Text\StringSimilarity\Levenshtein\Extensions.vb" +#Region "Microsoft.VisualBasic::1750ddfdcc7e6195deb2ddb76c3dcc66, Microsoft.VisualBasic.Core\Text\StringSimilarity\Levenshtein\Extensions.vb" ' Author: ' diff --git a/Text/Xml/Linq/DataSetWriter.vb b/Text/Xml/Linq/DataSetWriter.vb index 732bb5e4..f414b46c 100644 --- a/Text/Xml/Linq/DataSetWriter.vb +++ b/Text/Xml/Linq/DataSetWriter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4163d25a941abd54ad3dde258c4285d0, Microsoft.VisualBasic.Core\Text\Xml\Linq\DataSetWriter.vb" +#Region "Microsoft.VisualBasic::6c624b6067d7dd8c2cbc611fbd1b6234, Microsoft.VisualBasic.Core\Text\Xml\Linq\DataSetWriter.vb" ' Author: ' diff --git a/Text/Xml/Linq/Linq.vb b/Text/Xml/Linq/Linq.vb index cfb2b80b..02dc5428 100644 --- a/Text/Xml/Linq/Linq.vb +++ b/Text/Xml/Linq/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::980ad65c68f3d1fc423a63e0fcefe3de, Microsoft.VisualBasic.Core\Text\Xml\Linq\Linq.vb" +#Region "Microsoft.VisualBasic::56ccdc0840104d302a13ffe87cfdc7d3, Microsoft.VisualBasic.Core\Text\Xml\Linq\Linq.vb" ' Author: ' diff --git a/test/numberParserTest.vb b/test/numberParserTest.vb index 71c77f0d..be5ede95 100644 --- a/test/numberParserTest.vb +++ b/test/numberParserTest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1c807892e94cf5a85a1978080727ee91, Microsoft.VisualBasic.Core\test\numberParserTest.vb" +#Region "Microsoft.VisualBasic::2837da591b3a42593fa8b0826396567b, Microsoft.VisualBasic.Core\test\numberParserTest.vb" ' Author: ' diff --git a/test/wgetTest.vb b/test/wgetTest.vb index 9fbe2ca7..ee029bc0 100644 --- a/test/wgetTest.vb +++ b/test/wgetTest.vb @@ -1,4 +1,45 @@ -Imports Microsoft.VisualBasic.Net.Http +#Region "Microsoft.VisualBasic::81bfce9f8839d2b593d575f83b06afde, Microsoft.VisualBasic.Core\test\wgetTest.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: + + ' Module wgetTest + ' + ' Sub: Main + ' + ' /********************************************************************************/ + +#End Region + +Imports Microsoft.VisualBasic.Net.Http Module wgetTest Sub Main() @@ -7,3 +48,4 @@ Module wgetTest Call wget.Run() End Sub End Module + From 5cf9ea25b30c454223c39caaa637c35d2e165cf7 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 7 Sep 2019 00:53:03 +0800 Subject: [PATCH 027/104] a simple on console screen markdown document render --- .../Terminal/MarkdownRender.vb | 199 +++++++++++++----- test/markdownDisplayTest.vb | 22 ++ test/test.vbproj | 3 +- 3 files changed, 171 insertions(+), 53 deletions(-) create mode 100644 test/markdownDisplayTest.vb diff --git a/ApplicationServices/Terminal/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender.vb index c0c1b122..ad988c26 100644 --- a/ApplicationServices/Terminal/MarkdownRender.vb +++ b/ApplicationServices/Terminal/MarkdownRender.vb @@ -1,57 +1,58 @@ #Region "Microsoft.VisualBasic::a5699a5d49ef0db4aa216c04f353be47, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\MarkdownRender.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 . +' 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: +' Summaries: - ' Class MarkdownRender - ' - ' Constructor: (+1 Overloads) Sub New - ' Sub: (+2 Overloads) DoPrint, Print, WalkChar - ' - ' Class MarkdownTheme - ' - ' Properties: [Global], BlockQuote, CodeBlock, InlineCodeSpan, Url - ' - ' Class ConsoleFontStyle - ' - ' Properties: BackgroundColor, ForeColor - ' - ' - ' /********************************************************************************/ +' Class MarkdownRender +' +' Constructor: (+1 Overloads) Sub New +' Sub: (+2 Overloads) DoPrint, Print, WalkChar +' +' Class MarkdownTheme +' +' Properties: [Global], BlockQuote, CodeBlock, InlineCodeSpan, Url +' +' Class ConsoleFontStyle +' +' Properties: BackgroundColor, ForeColor +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Default +Imports Microsoft.VisualBasic.Text Imports Microsoft.VisualBasic.Text.Parser Namespace ApplicationServices.Terminal @@ -73,7 +74,8 @@ Namespace ApplicationServices.Terminal .BlockQuote = (ConsoleColor.Black, ConsoleColor.Gray), .CodeBlock = (ConsoleColor.Red, ConsoleColor.Yellow), .InlineCodeSpan = (ConsoleColor.Red, ConsoleColor.Black), - .Url = (ConsoleColor.Blue, ConsoleColor.Black) + .Url = (ConsoleColor.Blue, ConsoleColor.Black), + .Bold = (ConsoleColor.Yellow, ConsoleColor.Black) } Dim theme As MarkdownTheme @@ -84,7 +86,8 @@ Namespace ApplicationServices.Terminal End Sub Public Sub DoPrint(markdown As String) - Me.markdown = markdown + Me.markdown = markdown.LineTokens.JoinBy(ASCII.LF) + Me.theme.Global.SetConfig(styleStack) Me.DoPrint() End Sub @@ -94,22 +97,104 @@ Namespace ApplicationServices.Terminal Loop End Sub + Dim boldSpan As Boolean = False Dim inlineCodespan As Boolean = False + Dim blockquote As Boolean = False + Dim lastNewLine As Boolean Dim buf As New List(Of Char) + Dim styleStack As New Stack(Of ConsoleFontStyle) + + Private Function bufferIs(term As String) As Boolean + If buf <> term.Length Then + Return False + Else + Return buf.SequenceEqual(term) + End If + End Function + + Private Function bufferAllIs(c As Char) As Boolean + If buf = 0 Then + Return False + Else + Return buf.All(Function(b) b = c) + End If + End Function + + Private Sub restoreStyle() + styleStack.Pop() + + If styleStack.Count = 0 Then + Call theme.Global.SetConfig(styleStack) + Else + styleStack.Peek.SetConfig(Nothing) + End If + End Sub Private Sub WalkChar(c As Char) - If inlineCodespan Then - Call My.Log4VB.Print(c) - - Else - Select Case c - Case "`"c + Select Case c + Case "`"c + buf += c + lastNewLine = False + Case "*"c + buf += c + lastNewLine = False + Case ASCII.LF + Call Console.WriteLine() + lastNewLine = True + blockquote = False + restoreStyle() + Case ">"c + If lastNewLine AndAlso buf = 0 Then buf += c - Case Else + ElseIf lastNewLine AndAlso bufferIs(">") Then + ' 空白的blockquote行 + Else + Console.Write(c) + End If + lastNewLine = False + Case " "c + lastNewLine = False + + If buf = 1 AndAlso buf(Scan0) = ">"c Then + blockquote = True + buf *= 0 + theme.BlockQuote.SetConfig(styleStack) + Call Console.Write(" ") + Else + Call My.Log4VB.Print(c, Console.BackgroundColor, Console.BackgroundColor) + End If + Case Else + lastNewLine = False + + If bufferIs("``") Then + If inlineCodespan Then + ' 结束栈 + inlineCodespan = False + restoreStyle() + Else + inlineCodespan = True + theme.InlineCodeSpan.SetConfig(styleStack) + End If + + buf *= 0 Call Console.Write(c) - End Select - End If + ElseIf bufferIs("**") Then + If boldSpan Then + boldSpan = False + restoreStyle() + Else + boldSpan = True + theme.Bold.SetConfig(styleStack) + End If + + buf *= 0 + + Call Console.Write(c) + Else + Call Console.Write(c) + End If + End Select End Sub @@ -125,6 +210,7 @@ Namespace ApplicationServices.Terminal Public Property CodeBlock As ConsoleFontStyle Public Property BlockQuote As ConsoleFontStyle Public Property [Global] As ConsoleFontStyle + Public Property Bold As ConsoleFontStyle End Class @@ -133,6 +219,15 @@ Namespace ApplicationServices.Terminal Public Property ForeColor As ConsoleColor = ConsoleColor.White Public Property BackgroundColor As ConsoleColor = ConsoleColor.Black + Public Sub SetConfig(stack As Stack(Of ConsoleFontStyle)) + Console.ForegroundColor = ForeColor + Console.BackgroundColor = BackgroundColor + + If Not stack Is Nothing Then + Call stack.Push(Me) + End If + End Sub + Public Shared Widening Operator CType(colors As (fore As ConsoleColor, back As ConsoleColor)) As ConsoleFontStyle Return New ConsoleFontStyle With { .ForeColor = colors.fore, diff --git a/test/markdownDisplayTest.vb b/test/markdownDisplayTest.vb new file mode 100644 index 00000000..a825c940 --- /dev/null +++ b/test/markdownDisplayTest.vb @@ -0,0 +1,22 @@ +Module markdownDisplayTest + Sub Main() + Call ApplicationServices.Terminal.MarkdownRender.Print("# title + +This is a inline ``code`` span. **bold** font style test. + +> quote +> test +> block +> +> A ``code span`` in this block quot + +A new ``paragraph``. + +A url test: http://test.url/a/b/c/xxxx.txt + + +") + + Pause() + End Sub +End Module diff --git a/test/test.vbproj b/test/test.vbproj index 3e52095f..bd601eaa 100644 --- a/test/test.vbproj +++ b/test/test.vbproj @@ -6,7 +6,7 @@ AnyCPU {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88} Exe - test.wgetTest + test.markdownDisplayTest test test 512 @@ -96,6 +96,7 @@ + From e7e5322dabe924c874d55d1773fd304807039b43 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 7 Sep 2019 00:58:00 +0800 Subject: [PATCH 028/104] member renames --- CommandLine/Interpreters/ExecuteImpl.vb | 6 +- CommandLine/Interpreters/Interpreter.vb | 56 +++++++++---------- CommandLine/Interpreters/View/CommandHelp.vb | 6 +- .../Interpreters/View/ManualBuilder.vb | 3 +- 4 files changed, 35 insertions(+), 36 deletions(-) diff --git a/CommandLine/Interpreters/ExecuteImpl.vb b/CommandLine/Interpreters/ExecuteImpl.vb index 925a5acf..b8c0cab8 100644 --- a/CommandLine/Interpreters/ExecuteImpl.vb +++ b/CommandLine/Interpreters/ExecuteImpl.vb @@ -87,7 +87,7 @@ Namespace CommandLine Friend Function ListingRelatedCommands(cli_app As Interpreter, query$) As String() Dim key As New LevenshteinString(query.ToLower) Dim LQuery = From x As String - In cli_app.__API_table.Keys.AsParallel + In cli_app.apiTable.Keys.AsParallel Let compare = key Like x Where Not compare Is Nothing AndAlso compare.Score > 0.3 @@ -99,7 +99,7 @@ Namespace CommandLine .Select(Function(x) x.x) _ .AsList - levenshteins += cli_app.__API_table _ + levenshteins += cli_app.apiTable _ .Keys _ .Where(Function(s) Return InStr(s, query, CompareMethod.Text) > 0 OrElse @@ -109,7 +109,7 @@ Namespace CommandLine Return levenshteins _ .Distinct _ .Select(Function(name) - Return cli_app.__API_table(name).Name + Return cli_app.apiTable(name).Name End Function) _ .ToArray End Function diff --git a/CommandLine/Interpreters/Interpreter.vb b/CommandLine/Interpreters/Interpreter.vb index b710373b..3ea8733f 100644 --- a/CommandLine/Interpreters/Interpreter.vb +++ b/CommandLine/Interpreters/Interpreter.vb @@ -86,8 +86,8 @@ Namespace CommandLine ''' ''' 在添加之前请确保键名是小写的字符串 ''' - Protected Friend __API_table As New Dictionary(Of String, APIEntryPoint) - Protected __rootNamespace$ + Protected Friend apiTable As New Dictionary(Of String, APIEntryPoint) + Protected rootNamespace$ #Region "Optional delegates" @@ -116,11 +116,11 @@ Namespace CommandLine ''' Public Function ToDictionary() As Dictionary(Of String, APIEntryPoint) - Return __API_table + Return apiTable End Function Public Overrides Function ToString() As String - Return "CLI://" & __rootNamespace + Return "CLI://" & rootNamespace End Function ''' @@ -178,8 +178,8 @@ Namespace CommandLine Private Function apiInvoke(commandName$, argvs As Object(), help_argvs$()) As Integer Dim CLI As CommandLine = DirectCast(argvs(Scan0), CommandLine) - If __API_table.ContainsKey(commandName) Then _ - Return __API_table(commandName).Execute(argvs) + If apiTable.ContainsKey(commandName) Then _ + Return apiTable(commandName).Execute(argvs) If "??vars".TextEquals(commandName) Then Call ExecuteImpl.PrintVariables() @@ -303,8 +303,8 @@ Namespace CommandLine Public Sub AddCommand(Command As APIEntryPoint) Dim key$ = Command.Name.ToLower - If Not __API_table.ContainsKey(key) Then - Call __API_table.Add(key, Command) + If Not apiTable.ContainsKey(key) Then + Call apiTable.Add(key, Command) End If End Sub @@ -337,7 +337,7 @@ Namespace CommandLine Public ReadOnly Property ListCommandInfo As EntryPoints.APIEntryPoint() Get - Return __API_table.Values.ToArray + Return apiTable.Values.ToArray End Get End Property @@ -353,14 +353,14 @@ Namespace CommandLine ''' Sub New(type As Type, Optional caller As String = Nothing) For Each cInfo As APIEntryPoint In __getsAllCommands(type, False) - If __API_table.ContainsKey(cInfo.Name.ToLower) Then + If apiTable.ContainsKey(cInfo.Name.ToLower) Then Throw New Exception(cInfo.Name & " is duplicated with other command!") Else - Call __API_table.Add(cInfo.Name.ToLower, cInfo) + Call apiTable.Add(cInfo.Name.ToLower, cInfo) End If Next - Me.__rootNamespace = type.Namespace + Me.rootNamespace = type.Namespace Me._Stack = caller Me._Type = type Me._Info = type.NamespaceEntry(True) @@ -554,8 +554,8 @@ Namespace CommandLine #Region "Implements System.Collections.Generic.IReadOnlyDictionary(Of String, CommandInfo)" Public Iterator Function GetEnumerator() As IEnumerator(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)) Implements IEnumerable(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)).GetEnumerator - For Each key As String In Me.__API_table.Keys - Yield New KeyValuePair(Of String, EntryPoints.APIEntryPoint)(key, Me.__API_table(key)) + For Each key As String In Me.apiTable.Keys + Yield New KeyValuePair(Of String, EntryPoints.APIEntryPoint)(key, Me.apiTable(key)) Next End Function @@ -564,7 +564,7 @@ Namespace CommandLine End Function Public Sub Add(item As KeyValuePair(Of String, EntryPoints.APIEntryPoint)) Implements ICollection(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)).Add - Call __API_table.Add(item.Key, item.Value) + Call apiTable.Add(item.Key, item.Value) End Sub ''' @@ -572,15 +572,15 @@ Namespace CommandLine ''' ''' Public Sub Clear() Implements ICollection(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)).Clear - Call __API_table.Clear() + Call apiTable.Clear() End Sub Public Function Contains(item As KeyValuePair(Of String, EntryPoints.APIEntryPoint)) As Boolean Implements ICollection(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)).Contains - Return __API_table.Contains(item) + Return apiTable.Contains(item) End Function Public Sub CopyTo(array() As KeyValuePair(Of String, EntryPoints.APIEntryPoint), arrayIndex As Integer) Implements ICollection(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)).CopyTo - Call __API_table.ToArray.CopyTo(array, arrayIndex) + Call apiTable.ToArray.CopyTo(array, arrayIndex) End Sub ''' @@ -591,7 +591,7 @@ Namespace CommandLine ''' Public ReadOnly Property Count As Integer Implements ICollection(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)).Count Get - Return Me.__API_table.Count + Return Me.apiTable.Count End Get End Property @@ -602,11 +602,11 @@ Namespace CommandLine End Property Public Function Remove(item As KeyValuePair(Of String, EntryPoints.APIEntryPoint)) As Boolean Implements ICollection(Of KeyValuePair(Of String, EntryPoints.APIEntryPoint)).Remove - Return __API_table.Remove(item.Key) + Return apiTable.Remove(item.Key) End Function Public Sub Add(key As String, value As EntryPoints.APIEntryPoint) Implements IDictionary(Of String, EntryPoints.APIEntryPoint).Add - Call __API_table.Add(key, value) + Call apiTable.Add(key, value) End Sub ''' @@ -616,7 +616,7 @@ Namespace CommandLine ''' ''' Public Function ExistsCommand(CommandName As String) As Boolean Implements IDictionary(Of String, EntryPoints.APIEntryPoint).ContainsKey - Return Me.__API_table.ContainsKey(CommandName.ToLower) + Return Me.apiTable.ContainsKey(CommandName.ToLower) End Function ''' @@ -626,7 +626,7 @@ Namespace CommandLine ''' Default Public Overloads Property Item(key As String) As EntryPoints.APIEntryPoint Implements IDictionary(Of String, EntryPoints.APIEntryPoint).Item Get - Return Me.__API_table(key) + Return Me.apiTable(key) End Get Set(value As EntryPoints.APIEntryPoint) 'DO NOTHING @@ -639,7 +639,7 @@ Namespace CommandLine If commands.Length = 0 Then Return Nothing Else - Return __API_table(commands.First.ToLower) + Return apiTable(commands.First.ToLower) End If End Function @@ -663,16 +663,16 @@ Namespace CommandLine ''' Public ReadOnly Property APINameList As ICollection(Of String) Implements IDictionary(Of String, EntryPoints.APIEntryPoint).Keys Get - Return Me.__API_table.Keys + Return Me.apiTable.Keys End Get End Property Public Function Remove(CommandName As String) As Boolean Implements IDictionary(Of String, EntryPoints.APIEntryPoint).Remove - Return __API_table.Remove(CommandName) + Return apiTable.Remove(CommandName) End Function Public Function TryGetValue(key As String, ByRef value As EntryPoints.APIEntryPoint) As Boolean Implements IDictionary(Of String, EntryPoints.APIEntryPoint).TryGetValue - Return Me.__API_table.TryGetValue(key, value) + Return Me.apiTable.TryGetValue(key, value) End Function ''' @@ -681,7 +681,7 @@ Namespace CommandLine ''' Public ReadOnly Property APIList As ICollection(Of EntryPoints.APIEntryPoint) Implements IDictionary(Of String, EntryPoints.APIEntryPoint).Values Get - Return Me.__API_table.Values + Return Me.apiTable.Values End Get End Property #End Region diff --git a/CommandLine/Interpreters/View/CommandHelp.vb b/CommandLine/Interpreters/View/CommandHelp.vb index d0088a8f..219c2451 100644 --- a/CommandLine/Interpreters/View/CommandHelp.vb +++ b/CommandLine/Interpreters/View/CommandHelp.vb @@ -54,8 +54,8 @@ Namespace CommandLine.ManView Public Function PrintCommandHelp(app As Interpreter, commandName$) As Integer Dim name As New Value(Of String) - If app.__API_table.ContainsKey(name = commandName.ToLower) Then - Call app.__API_table(name).PrintHelp + If app.apiTable.ContainsKey(name = commandName.ToLower) Then + Call app.apiTable(name).PrintHelp Else Dim list$() = app.ListingRelated(commandName) @@ -91,7 +91,7 @@ Namespace CommandLine.ManView msg$ = .ByRef & New String(" "c, maxLength - .Length + 3) - With app.__API_table(.ToLower).Info + With app.apiTable(.ToLower).Info If Not .StringEmpty Then msg$ &= Mid(.ByRef, 1, 60) & "..." End If diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index 90d5aca5..4d959e7f 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -197,8 +197,7 @@ Namespace CommandLine.ManView Dim skipOptionalLine As Boolean = False ' 必须的参数放在前面，可选的参数都是在后面的位置 - For Each param As Argument In api.Arguments.Select(Function(x) x.Value) - + For Each param As Argument In api.Arguments.Select(Function(a) a.Value) If param.TokenType = CLITypes.Boolean AndAlso Not boolSeperator Then boolSeperator = True From 492d7bc96650dedd81769d18c758eb387cd5eb2a Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 8 Sep 2019 12:12:52 +0800 Subject: [PATCH 029/104] fix offset bugs --- CommandLine/Interpreters/View/ManualBuilder.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index 4d959e7f..050ac93d 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -146,7 +146,9 @@ Namespace CommandLine.ManView If .TokenType = CLITypes.Boolean Then ' 逻辑值类型的只能够是可选类型 - s = "(optional) (boolean)" + ' 逻辑开关不计算在内 + ' s = "(optional) (boolean)" + s = "" bool = True Else From 597e8646f39ea35daa7dd6ecd570ed4594c03df9 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 16 Sep 2019 22:15:56 +0800 Subject: [PATCH 030/104] improvements of the console markdown render model --- 47-dotnet_Microsoft.VisualBasic.vbproj | 10 +- ApplicationServices/App.vb | 2 +- .../Terminal/MarkdownRender.vb | 159 +++++++++++++----- .../Terminal/Utility/CBusyIndicator.vb | 100 +++++------ .../Terminal/Utility/EventProc.vb | 4 +- .../{ => Utility}/ProgressBar/AbstractBar.vb | 0 .../{ => Utility}/ProgressBar/AnimatedBar.vb | 0 .../{ => Utility}/ProgressBar/Program.vb | 0 .../{ => Utility}/ProgressBar/ProgressBar.png | Bin .../{ => Utility}/ProgressBar/ProgressBar.vb | 0 .../{ => Utility}/ProgressBar/SwayBar.vb | 0 Extensions/Collection/Linq/Pipeline.vb | 2 +- My/Log4VB.vb | 79 +++++---- test/markdownDisplayTest.vb | 2 +- 14 files changed, 224 insertions(+), 134 deletions(-) rename ApplicationServices/Terminal/{ => Utility}/ProgressBar/AbstractBar.vb (100%) rename ApplicationServices/Terminal/{ => Utility}/ProgressBar/AnimatedBar.vb (100%) rename ApplicationServices/Terminal/{ => Utility}/ProgressBar/Program.vb (100%) rename ApplicationServices/Terminal/{ => Utility}/ProgressBar/ProgressBar.png (100%) rename ApplicationServices/Terminal/{ => Utility}/ProgressBar/ProgressBar.vb (100%) rename ApplicationServices/Terminal/{ => Utility}/ProgressBar/SwayBar.vb (100%) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index c0f26476..bbd1ac16 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1333,11 +1333,11 @@ - - - - - + + + + + diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index c533d170..c14dab43 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -174,7 +174,7 @@ Public Module App Public ReadOnly Property StdErr As New StreamWriter(Console.OpenStandardError) ''' - ''' as default text output device. + ''' as default text output device. [] ''' ''' Public ReadOnly Property StdOut As [Default](Of TextWriter) = Console.OpenStandardOutput.OpenTextWriter diff --git a/ApplicationServices/Terminal/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender.vb index ad988c26..71f70e99 100644 --- a/ApplicationServices/Terminal/MarkdownRender.vb +++ b/ApplicationServices/Terminal/MarkdownRender.vb @@ -52,6 +52,7 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Default +Imports Microsoft.VisualBasic.Serialization Imports Microsoft.VisualBasic.Text Imports Microsoft.VisualBasic.Text.Parser @@ -80,18 +81,21 @@ Namespace ApplicationServices.Terminal Dim theme As MarkdownTheme Dim markdown As CharPtr + Dim indent As Integer Private Sub New(theme As MarkdownTheme) Me.theme = theme End Sub - Public Sub DoPrint(markdown As String) + Public Sub DoPrint(markdown$, indent%) Me.markdown = markdown.LineTokens.JoinBy(ASCII.LF) - Me.theme.Global.SetConfig(styleStack) - Me.DoPrint() + Me.indent = indent + Me.theme.Global.SetConfig(Me) + Me.DoParseSpans() + Me.PrintSpans() End Sub - Private Sub DoPrint() + Private Sub DoParseSpans() Do While Not markdown.EndRead Call WalkChar(++markdown) Loop @@ -101,22 +105,27 @@ Namespace ApplicationServices.Terminal Dim inlineCodespan As Boolean = False Dim blockquote As Boolean = False Dim lastNewLine As Boolean - Dim buf As New List(Of Char) - Dim styleStack As New Stack(Of ConsoleFontStyle) + Dim controlBuf As New List(Of Char) + Dim textBuf As New List(Of Char) + + Friend styleStack As New Stack(Of ConsoleFontStyle) + Friend currentStyle As ConsoleFontStyle + + Dim spans As New List(Of Span) Private Function bufferIs(term As String) As Boolean - If buf <> term.Length Then + If controlBuf <> term.Length Then Return False Else - Return buf.SequenceEqual(term) + Return controlBuf.SequenceEqual(term) End If End Function Private Function bufferAllIs(c As Char) As Boolean - If buf = 0 Then + If controlBuf = 0 Then Return False Else - Return buf.All(Function(b) b = c) + Return controlBuf.All(Function(b) b = c) End If End Function @@ -124,44 +133,81 @@ Namespace ApplicationServices.Terminal styleStack.Pop() If styleStack.Count = 0 Then - Call theme.Global.SetConfig(styleStack) + Call theme.Global.SetConfig(Me) Else - styleStack.Peek.SetConfig(Nothing) + Call styleStack.Peek.SetConfig(Me) End If End Sub + Private Sub PrintSpans() + Dim isNewLine As Boolean = True + + For Each span As Span In spans + If isNewLine Then + Console.CursorLeft = indent + End If + + span.Print() + isNewLine = span.IsEndByNewLine + Next + End Sub + + Private Sub EndSpan(byNewLine As Boolean) + Dim text As String = textBuf.CharString + Dim style As ConsoleFontStyle = currentStyle.Clone + + If text.StartsWith("((http(s)?)|(ftp))[:]//", RegexICSng) Then + style = theme.Url + End If + + If styleStack.Peek.Equals(theme.CodeBlock) Then + style.BackgroundColor = theme.CodeBlock.BackgroundColor + End If + + spans += New Span With { + .style = style, + .text = text, + .IsEndByNewLine = byNewLine + } + textBuf *= 0 + End Sub + Private Sub WalkChar(c As Char) Select Case c Case "`"c - buf += c + controlBuf += c lastNewLine = False Case "*"c - buf += c + controlBuf += c lastNewLine = False Case ASCII.LF - Call Console.WriteLine() lastNewLine = True blockquote = False + textBuf += ASCII.LF + EndSpan(True) restoreStyle() Case ">"c - If lastNewLine AndAlso buf = 0 Then - buf += c + If lastNewLine AndAlso controlBuf = 0 Then + controlBuf += c ElseIf lastNewLine AndAlso bufferIs(">") Then ' 空白的blockquote行 Else - Console.Write(c) + textBuf += c End If lastNewLine = False Case " "c lastNewLine = False - If buf = 1 AndAlso buf(Scan0) = ">"c Then + If controlBuf = 1 AndAlso controlBuf(Scan0) = ">"c Then blockquote = True - buf *= 0 - theme.BlockQuote.SetConfig(styleStack) - Call Console.Write(" ") + controlBuf *= 0 + theme.BlockQuote.SetConfig(Me) + textBuf += " "c + textBuf += " "c Else - Call My.Log4VB.Print(c, Console.BackgroundColor, Console.BackgroundColor) + EndSpan(False) + textBuf += c + EndSpan(False) End If Case Else lastNewLine = False @@ -169,37 +215,39 @@ Namespace ApplicationServices.Terminal If bufferIs("``") Then If inlineCodespan Then ' 结束栈 + EndSpan(False) inlineCodespan = False restoreStyle() Else + EndSpan(False) inlineCodespan = True - theme.InlineCodeSpan.SetConfig(styleStack) + theme.InlineCodeSpan.SetConfig(Me) End If - buf *= 0 - - Call Console.Write(c) + controlBuf *= 0 + textBuf += c ElseIf bufferIs("**") Then If boldSpan Then + EndSpan(False) boldSpan = False restoreStyle() Else + EndSpan(False) boldSpan = True - theme.Bold.SetConfig(styleStack) + theme.Bold.SetConfig(Me) End If - buf *= 0 - - Call Console.Write(c) + controlBuf *= 0 + textBuf += c Else - Call Console.Write(c) + textBuf += c End If End Select End Sub - Public Shared Sub Print(markdown As String, Optional theme As MarkdownTheme = Nothing) - Call New MarkdownRender(theme Or defaultTheme).DoPrint(markdown) + Public Shared Sub Print(markdown As String, Optional theme As MarkdownTheme = Nothing, Optional indent% = 0) + Call New MarkdownRender(theme Or defaultTheme).DoPrint(markdown, indent) End Sub End Class @@ -215,19 +263,42 @@ Namespace ApplicationServices.Terminal End Class Public Class ConsoleFontStyle + Implements IEquatable(Of ConsoleFontStyle) + Implements ICloneable(Of ConsoleFontStyle) Public Property ForeColor As ConsoleColor = ConsoleColor.White Public Property BackgroundColor As ConsoleColor = ConsoleColor.Black - Public Sub SetConfig(stack As Stack(Of ConsoleFontStyle)) + Public Sub SetConfig(render As MarkdownRender) Console.ForegroundColor = ForeColor Console.BackgroundColor = BackgroundColor - If Not stack Is Nothing Then - Call stack.Push(Me) - End If + render.currentStyle = Me + render.styleStack.Push(Me) End Sub + Public Function CreateSpan(text As String) As Span + Return New Span With { + .style = Me, + .text = text + } + End Function + + Public Function Clone() As ConsoleFontStyle Implements ICloneable(Of ConsoleFontStyle).Clone + Return New ConsoleFontStyle With { + .BackgroundColor = BackgroundColor, + .ForeColor = ForeColor + } + End Function + + Public Overloads Function Equals(other As ConsoleFontStyle) As Boolean Implements IEquatable(Of ConsoleFontStyle).Equals + If other Is Nothing Then + Return False + Else + Return BackgroundColor = other.BackgroundColor AndAlso ForeColor = other.ForeColor + End If + End Function + Public Shared Widening Operator CType(colors As (fore As ConsoleColor, back As ConsoleColor)) As ConsoleFontStyle Return New ConsoleFontStyle With { .ForeColor = colors.fore, @@ -235,4 +306,16 @@ Namespace ApplicationServices.Terminal } End Operator End Class + + Public Class Span + + Public Property text As String + Public Property style As ConsoleFontStyle + Public Property IsEndByNewLine As Boolean + + + Public Sub Print() + Call My.Log4VB.Print(Me) + End Sub + End Class End Namespace diff --git a/ApplicationServices/Terminal/Utility/CBusyIndicator.vb b/ApplicationServices/Terminal/Utility/CBusyIndicator.vb index dd97a033..1a3e8a17 100644 --- a/ApplicationServices/Terminal/Utility/CBusyIndicator.vb +++ b/ApplicationServices/Terminal/Utility/CBusyIndicator.vb @@ -1,47 +1,46 @@ #Region "Microsoft.VisualBasic::6e8b09e7218d99da99b8ace3223a2777, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\CBusyIndicator.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 . +' 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: +' Summaries: - ' Class CBusyIndicator - ' - ' Constructor: (+1 Overloads) Sub New - ' Sub: [Stop], (+2 Overloads) Dispose, DoEvents, Start - ' - ' - ' /********************************************************************************/ +' Class CBusyIndicator +' +' Constructor: (+1 Overloads) Sub New +' Sub: [Stop], (+2 Overloads) Dispose, DoEvents, Start +' +' +' /********************************************************************************/ #End Region -Imports System.Runtime.CompilerServices Imports System.Threading Imports Microsoft.VisualBasic.Parallel @@ -53,25 +52,28 @@ Namespace Terminal.Utility Public Class CBusyIndicator : Implements IDisposable Dim _indicatorStyle As Char - Dim _OnRunningState As Boolean = False - Dim _TicksCount As Integer + Dim _onRunningState As Boolean = False + Dim _ticksCount As Integer - Sub New(Optional IndicatorStyle As Char = "."c, Optional _start As Boolean = False, Optional Ticks As Integer = -1) - _indicatorStyle = IndicatorStyle - If _start Then Call Start(Ticks) + Sub New(Optional indicatorStyle As Char = "."c, Optional start As Boolean = False, Optional ticks As Integer = -1) + _indicatorStyle = indicatorStyle + + If start Then + Call Me.Start(ticks) + End If End Sub Private Sub DoEvents() - Do While _OnRunningState = True + Do While _onRunningState = True Call Thread.Sleep(1000) Call STDIO.Write(_indicatorStyle) - If _TicksCount > 0 Then - _TicksCount -= 1 + If _ticksCount > 0 Then + _ticksCount -= 1 Else - If _TicksCount <> -1 Then - _OnRunningState = False + If _ticksCount <> -1 Then + _onRunningState = False End If End If Loop @@ -83,18 +85,18 @@ Namespace Terminal.Utility ''' The total ticking counts of the indicator, Unit is [second]. ''' Public Sub Start(Optional Ticks As Integer = -1) - If _OnRunningState = True Then + If _onRunningState = True Then Return End If - _TicksCount = Ticks - _OnRunningState = True + _ticksCount = Ticks + _onRunningState = True Call RunTask(AddressOf DoEvents) End Sub Public Sub [Stop]() - _OnRunningState = False + _onRunningState = False End Sub #Region "IDisposable Support" @@ -105,7 +107,7 @@ Namespace Terminal.Utility If Not Me.disposedValue Then If disposing Then ' TODO: dispose managed state (managed objects). - _OnRunningState = False + _onRunningState = False End If ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. diff --git a/ApplicationServices/Terminal/Utility/EventProc.vb b/ApplicationServices/Terminal/Utility/EventProc.vb index bc6db816..e1687275 100644 --- a/ApplicationServices/Terminal/Utility/EventProc.vb +++ b/ApplicationServices/Terminal/Utility/EventProc.vb @@ -85,9 +85,7 @@ Namespace Terminal.Utility Sub New(n As Integer, Optional tag As String = "", Optional out As StreamWriter = Nothing) Me.Capacity = n Me.tag = tag - Me.out = If(out Is Nothing, - New StreamWriter(Console.OpenStandardOutput), - out) + Me.out = out Or App.StdOut If String.IsNullOrEmpty(Me.tag) Then Me.tag = vbTab diff --git a/ApplicationServices/Terminal/ProgressBar/AbstractBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/AbstractBar.vb similarity index 100% rename from ApplicationServices/Terminal/ProgressBar/AbstractBar.vb rename to ApplicationServices/Terminal/Utility/ProgressBar/AbstractBar.vb diff --git a/ApplicationServices/Terminal/ProgressBar/AnimatedBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/AnimatedBar.vb similarity index 100% rename from ApplicationServices/Terminal/ProgressBar/AnimatedBar.vb rename to ApplicationServices/Terminal/Utility/ProgressBar/AnimatedBar.vb diff --git a/ApplicationServices/Terminal/ProgressBar/Program.vb b/ApplicationServices/Terminal/Utility/ProgressBar/Program.vb similarity index 100% rename from ApplicationServices/Terminal/ProgressBar/Program.vb rename to ApplicationServices/Terminal/Utility/ProgressBar/Program.vb diff --git a/ApplicationServices/Terminal/ProgressBar/ProgressBar.png b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.png similarity index 100% rename from ApplicationServices/Terminal/ProgressBar/ProgressBar.png rename to ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.png diff --git a/ApplicationServices/Terminal/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb similarity index 100% rename from ApplicationServices/Terminal/ProgressBar/ProgressBar.vb rename to ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb diff --git a/ApplicationServices/Terminal/ProgressBar/SwayBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb similarity index 100% rename from ApplicationServices/Terminal/ProgressBar/SwayBar.vb rename to ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb diff --git a/Extensions/Collection/Linq/Pipeline.vb b/Extensions/Collection/Linq/Pipeline.vb index 12cc7464..03b55ba3 100644 --- a/Extensions/Collection/Linq/Pipeline.vb +++ b/Extensions/Collection/Linq/Pipeline.vb @@ -46,7 +46,7 @@ Imports System.Runtime.CompilerServices Namespace Linq - Public Module PipelineExtensions + Public Module PipelineExtensions ''' ''' Delegate pipeline function diff --git a/My/Log4VB.vb b/My/Log4VB.vb index e6c001a4..1637148c 100644 --- a/My/Log4VB.vb +++ b/My/Log4VB.vb @@ -1,50 +1,51 @@ #Region "Microsoft.VisualBasic::5210ca600366a201431189d4c7463c8c, Microsoft.VisualBasic.Core\My\Log4VB.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 . +' 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: +' Summaries: - ' Module Log4VB - ' - ' Function: getColor, Print - ' - ' Sub: Print, Println - ' - ' - ' /********************************************************************************/ +' Module Log4VB +' +' Function: getColor, Print +' +' Sub: Print, Println +' +' +' /********************************************************************************/ #End Region Imports System.ComponentModel.Composition Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ApplicationServices.Debugging.Logging +Imports Microsoft.VisualBasic.ApplicationServices.Terminal Imports Microsoft.VisualBasic.Terminal Namespace My @@ -115,6 +116,12 @@ Namespace My Return False End Function + + + Public Sub Print(span As Span) + Call Print(span.text, span.style.ForeColor, span.style.BackgroundColor) + End Sub + ''' ''' 输出的终端消息带有指定的终端颜色色彩，当为True的时候， ''' 参数之中的文本字符串兼容语法， @@ -145,7 +152,7 @@ Namespace My End If #If DEBUG Then - Call Debug.Write(msg) + Call Debug.Write(msg) #End If End Sub @@ -184,7 +191,7 @@ Namespace My End If #If DEBUG Then - Call Debug.WriteLine(msg) + Call Debug.WriteLine(msg) #End If End Sub End Module diff --git a/test/markdownDisplayTest.vb b/test/markdownDisplayTest.vb index a825c940..2d1d4294 100644 --- a/test/markdownDisplayTest.vb +++ b/test/markdownDisplayTest.vb @@ -15,7 +15,7 @@ A new ``paragraph``. A url test: http://test.url/a/b/c/xxxx.txt -") +", indent:=10) Pause() End Sub From c0cba9d3ba7a18172871ac8c460736137f5340e2 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 21 Sep 2019 01:18:22 +0800 Subject: [PATCH 031/104] Update Math.vb add xml comment --- Extensions/Math/Math.vb | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb index 63e33c8b..c94a668a 100644 --- a/Extensions/Math/Math.vb +++ b/Extensions/Math/Math.vb @@ -1042,17 +1042,12 @@ Namespace Math Public Function Acos(d As Double) As Double Return sys.Acos(d) End Function - ' - ' Summary: - ' Returns the cosine of the specified angle. - ' - ' Parameters: - ' d: - ' An angle, measured in radians. - ' - ' Returns: - ' The cosine of d. If d is equal to System.Double.NaN, System.Double.NegativeInfinity, - ' or System.Double.PositiveInfinity, this method returns System.Double.NaN. + + ''' + ''' Returns the cosine of the specified angle. + ''' + ''' An angle, measured in radians. + ''' Public Function Cos(d As Double) As Double From b2da87b9a63dbd3ece5a14cb93780efe76adc9be Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 21 Sep 2019 21:59:38 +0800 Subject: [PATCH 032/104] Update ListOf.vb improvements of the xml list model --- Text/Xml/Models/ListOf.vb | 97 ++++++++++++++++++++++++--------------- 1 file changed, 61 insertions(+), 36 deletions(-) diff --git a/Text/Xml/Models/ListOf.vb b/Text/Xml/Models/ListOf.vb index 44a376b0..08995ae2 100644 --- a/Text/Xml/Models/ListOf.vb +++ b/Text/Xml/Models/ListOf.vb @@ -1,52 +1,59 @@ #Region "Microsoft.VisualBasic::e2f15bb49db3b01391718957a00a0b37, Microsoft.VisualBasic.Core\Text\Xml\Models\ListOf.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 . +' 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: +' Summaries: - ' Class ListOf - ' - ' Properties: size - ' - ' Function: GenericEnumerator, GetEnumerator - ' - ' - ' /********************************************************************************/ +' Class ListOf +' +' Properties: size +' +' Function: GenericEnumerator, GetEnumerator +' +' +' /********************************************************************************/ #End Region +Imports System.Runtime.CompilerServices Imports System.Xml.Serialization Imports Microsoft.VisualBasic.Linq Namespace Text.Xml.Models + Public Interface IList(Of T) : Inherits Enumeration(Of T) + + ReadOnly Property size As Integer + + End Interface + ''' ''' 可以通过拓展函数转换这个列表对象为枚举类型 ''' @@ -67,8 +74,8 @@ Namespace Text.Xml.Models End Property Public Iterator Function GenericEnumerator() As IEnumerator(Of T) Implements Enumeration(Of T).GenericEnumerator - For Each x As T In getCollection() - Yield x + For Each item As T In getCollection() + Yield item Next End Function @@ -80,4 +87,22 @@ Namespace Text.Xml.Models Protected MustOverride Function getCollection() As IEnumerable(Of T) End Class + + Public Class XmlList(Of T) : Inherits ListOf(Of T) + + Public Property items As T() + + Protected Overrides Function getSize() As Integer + Return items.Length + End Function + + Protected Overrides Function getCollection() As IEnumerable(Of T) + Return items + End Function + + + Public Shared Widening Operator CType(array As T()) As XmlList(Of T) + Return New XmlList(Of T) With {.items = array} + End Operator + End Class End Namespace From ac961620f10c653e70e5c2e9e729a819e2df72a6 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 25 Sep 2019 19:49:11 +0800 Subject: [PATCH 033/104] improvements of the dictionary helpers --- 47-dotnet_Microsoft.VisualBasic.vbproj | 2 +- ComponentModel/Algorithm/BinaryTree/TreeBase.vb | 4 ++++ Extensions/Collection/KeyValuePair.vb | 12 ++++++++++++ Text/Xml/Models/Vector.vb | 6 ++++++ 4 files changed, 23 insertions(+), 1 deletion(-) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index bbd1ac16..fc074567 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -335,7 +335,7 @@ true bin\app\ FRAMEWORD_CORE=1 - false + true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml false 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 diff --git a/ComponentModel/Algorithm/BinaryTree/TreeBase.vb b/ComponentModel/Algorithm/BinaryTree/TreeBase.vb index 2634303d..b15ce003 100644 --- a/ComponentModel/Algorithm/BinaryTree/TreeBase.vb +++ b/ComponentModel/Algorithm/BinaryTree/TreeBase.vb @@ -92,6 +92,10 @@ Namespace ComponentModel.Algorithm.BinaryTree stack.Clear() End Sub + ''' + ''' 这个函数是直接返回stack list对象中的元素值 + ''' + ''' Public Function GetAllNodes() As IEnumerable(Of BinaryTree(Of K, V)) Return stack.AsEnumerable diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index 70d703ba..eb1f09a5 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -67,6 +67,18 @@ Imports r = System.Text.RegularExpressions.Regex ''' Public Module KeyValuePairExtensions + + + Public Function ToLower(Of T)(table As Dictionary(Of String, T)) As Dictionary(Of String, T) + Return table.ToDictionary(Function(k) k.Key.ToLower, Function(k) k.Value) + End Function + + + + Public Function ToUpper(Of T)(table As Dictionary(Of String, T)) As Dictionary(Of String, T) + Return table.ToDictionary(Function(k) k.Key.ToUpper, Function(k) k.Value) + End Function + ''' ''' 这个拓展函数主要是针对值得构建比较耗时的操作，主要应用于数据缓存场景 ''' diff --git a/Text/Xml/Models/Vector.vb b/Text/Xml/Models/Vector.vb index c3cf2565..838310ff 100644 --- a/Text/Xml/Models/Vector.vb +++ b/Text/Xml/Models/Vector.vb @@ -50,6 +50,7 @@ Imports System.Runtime.CompilerServices Imports System.Xml.Serialization +Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Serialization.JSON @@ -111,6 +112,11 @@ Namespace Text.Xml.Models Return New NumericVector With {.name = "NULL", .vector = v} End Operator + + Public Shared Widening Operator CType(v As List(Of Double)) As NumericVector + Return New NumericVector With {.name = "NULL", .vector = v} + End Operator + Public Shared Widening Operator CType(v As Integer()) As NumericVector Return New NumericVector With { From e9228a936e317f72731edd65e036113a0815fdcd Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 28 Sep 2019 20:49:29 +0800 Subject: [PATCH 034/104] improvements of the wget tools and xml dataset api --- 47-dotnet_Microsoft.VisualBasic.vbproj | 5 +- Extensions/IO/Extensions/Extensions.vb | 3 +- Extensions/IO/Extensions/IO.vb | 4 + Extensions/StringHelpers/StringFormats.vb | 23 +++ Net/HTTP/wget.vb | 113 ++++++++------ Net/HTTP/wgetTask.vb | 175 +++++++++++++--------- Text/Xml/Linq/Linq.vb | 25 +++- Text/Xml/Linq/NodeIterator.vb | 13 +- 8 files changed, 234 insertions(+), 127 deletions(-) create mode 100644 Extensions/StringHelpers/StringFormats.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index fc074567..7e4f7ab6 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -91,7 +91,7 @@ true true true - ..\..\..\..\GCModeller\bin\ + bin\ FRAMEWORD_CORE=1 Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 @@ -106,7 +106,7 @@ true ..\..\..\..\GCModeller\bin\ FRAMEWORD_CORE=1 - false + true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml false 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 @@ -1021,6 +1021,7 @@ + diff --git a/Extensions/IO/Extensions/Extensions.vb b/Extensions/IO/Extensions/Extensions.vb index 9d06c36b..4ceba082 100644 --- a/Extensions/IO/Extensions/Extensions.vb +++ b/Extensions/IO/Extensions/Extensions.vb @@ -55,7 +55,8 @@ Namespace FileIO ''' 会和产生冲突， ''' 使用这个单独的拓展模块，但是位于不同的命名空间来解决这个问题。 ''' - Public Module Extensions + ''' + Public Module Extensions ''' ''' Write all object into a text file by using its method. diff --git a/Extensions/IO/Extensions/IO.vb b/Extensions/IO/Extensions/IO.vb index b1a8aee6..ea0eb655 100644 --- a/Extensions/IO/Extensions/IO.vb +++ b/Extensions/IO/Extensions/IO.vb @@ -164,6 +164,10 @@ Public Module IOExtensions End If End With + If path.FileName.Length > 200 Then + Throw New PathTooLongException(path) + End If + If doClear Then ' 在这里调用FlushStream函数的话会导致一个循环引用的问题 ClearFileBytes(path) diff --git a/Extensions/StringHelpers/StringFormats.vb b/Extensions/StringHelpers/StringFormats.vb new file mode 100644 index 00000000..13ab5a94 --- /dev/null +++ b/Extensions/StringHelpers/StringFormats.vb @@ -0,0 +1,23 @@ +Imports Microsoft.VisualBasic.Language.C +Imports stdNum = System.Math + +Public Module StringFormats + + ''' + ''' 对bytes数值进行格式自动优化显示 + ''' + ''' + ''' 经过自动格式优化过后的大小显示字符串 + Public Function Lanudry(bytes As Integer) As String + If bytes <= 0 Then + Return "0 B" + End If + + Dim symbols = {"B", "KB", "MB", "GB", "TB"} + Dim exp = stdNum.Floor(stdNum.Log(bytes) / stdNum.Log(1000)) + Dim symbol = symbols(exp) + Dim val = (bytes / (1000 ^ stdNum.Floor(exp))) + + Return sprintf($"%.2f %s", val, symbol) + End Function +End Module diff --git a/Net/HTTP/wget.vb b/Net/HTTP/wget.vb index 39ca74c1..27c19533 100644 --- a/Net/HTTP/wget.vb +++ b/Net/HTTP/wget.vb @@ -1,47 +1,48 @@ #Region "Microsoft.VisualBasic::e2f561de20747fa167eaa217bb586262, Microsoft.VisualBasic.Core\Net\HTTP\wget.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 . +' 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: +' Summaries: - ' Class wget - ' - ' Constructor: (+1 Overloads) Sub New - ' Sub: DownloadProcess, ReportRequest, Run - ' - ' - ' /********************************************************************************/ +' Class wget +' +' Constructor: (+1 Overloads) Sub New +' Sub: DownloadProcess, ReportRequest, Run +' +' +' /********************************************************************************/ #End Region Imports System.Net +Imports Microsoft.VisualBasic.Language Namespace Net.Http @@ -65,31 +66,55 @@ Namespace Net.Http Call task.Dispose() Call Console.WriteLine() - Call Console.WriteLine($"{Now.ToString} ({task.downloadSpeed} KB/s) - '{task.saveFile.FileName}' saved [{task.saveFile.FileLength}]") + Call Console.WriteLine($"{Now.ToString} ({StringFormats.Lanudry(task.downloadSpeed)}/s) - '{task.saveFile.FileName}' saved [{task.saveFile.FileLength}]") Call Console.WriteLine() End If End Sub Private Sub DownloadProcess(wget As wgetTask, percentage As Double) Handles task.DownloadProcess Console.CursorTop = cursorTop - Console.CursorLeft = 1 - Console.Write(New String(" "c, Console.BufferWidth)) - Console.CursorLeft = 1 + ClearLine() Console.WriteLine(wget.ToString) End Sub - Private Sub ReportRequest(req As WebRequest) Handles task.ReportRequest + Private Sub ClearLine() + Console.CursorLeft = 1 + Console.Write(New String(" "c, Console.BufferWidth - 1)) + Console.CursorLeft = 1 + Console.CursorTop -= 1 + End Sub + + ''' + ''' Do task summary + ''' + ''' + ''' + Private Sub ReportRequest(req As WebRequest, resp As WebResponse, remote$) Handles task.ReportRequest Dim domain As New DomainName(task.url) - Call Console.WriteLine($"--{Now.ToString}-- {task.url}") - Call Console.WriteLine($" => '{task.saveFile.FileName}'") - Call Console.WriteLine($"Resolving {domain} ({domain})... {req.RequestUri.Host}") - Call Console.WriteLine($"==> SIZE {task.saveFile.FileName} ... {req.ContentLength}") - Call Console.WriteLine($"==> CONTENT-TYPE ... {req.ContentType}") - Call Console.WriteLine($"Length: {req.ContentLength} ()") + Call Console.WriteLine() + + Call ClearLine() : Console.WriteLine($"--{Now.ToString}-- {task.url}") + Call ClearLine() : Console.WriteLine($" => '{task.saveFile.FileName}'") + Call ClearLine() : Console.WriteLine() + Call ClearLine() : Console.WriteLine($"Resolving {resp.ResponseUri.Host} ({domain})... {remote}") + Call ClearLine() : Console.WriteLine($"==> METHOD ... {req.Method}/{req.RequestUri.Scheme} {DirectCast(req, HttpWebRequest).ProtocolVersion}") + Call ClearLine() : Console.WriteLine($"==> SIZE {task.saveFile.FileName} ... {resp.ContentLength}") + Call ClearLine() : Console.WriteLine($"==> CONTENT-TYPE ... {resp.ContentType}") + Call ClearLine() : Console.WriteLine($"Length: {resp.ContentLength} ({StringFormats.Lanudry(resp.ContentLength)})") + Call Console.WriteLine() cursorTop = Console.CursorTop End Sub + + Public Shared Function Download(url$, Optional save$ = Nothing) As Boolean + Dim local As New Value(Of String) + Dim task As New wget(url, local = save Or $"./{url.Split("?"c).First.FileName}".AsDefault) + + Call task.Run() + + Return local.Value.FileLength > 0 + End Function End Class End Namespace diff --git a/Net/HTTP/wgetTask.vb b/Net/HTTP/wgetTask.vb index 1d0d0598..c3ae8d87 100644 --- a/Net/HTTP/wgetTask.vb +++ b/Net/HTTP/wgetTask.vb @@ -1,55 +1,56 @@ #Region "Microsoft.VisualBasic::65a79ec99c6b759492f9e2ac12130130, Microsoft.VisualBasic.Core\Net\HTTP\wgetTask.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 . +' 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: +' Summaries: - ' Class wgetTask - ' - ' Properties: currentSize, downloadSpeed, isDownloading, saveFile, totalSize - ' url - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: ToString - ' - ' Sub: (+2 Overloads) Dispose, doTaskInternal, StartTask, switchStat, taskWithContentLength - ' taskWithNoContentLength - ' - ' - ' /********************************************************************************/ +' Class wgetTask +' +' Properties: currentSize, downloadSpeed, isDownloading, saveFile, totalSize +' url +' +' Constructor: (+1 Overloads) Sub New +' +' Function: ToString +' +' Sub: (+2 Overloads) Dispose, doTaskInternal, StartTask, switchStat, taskWithContentLength +' taskWithNoContentLength +' +' +' /********************************************************************************/ #End Region Imports System.IO Imports System.Net +Imports Microsoft.VisualBasic.Linq Namespace Net.Http @@ -88,7 +89,7 @@ Namespace Net.Http End Property Public Event DownloadProcess(wget As wgetTask, percentage#) - Public Event ReportRequest(req As WebRequest) + Public Event ReportRequest(req As WebRequest, resp As WebResponse, remote$) ''' ''' Client status @@ -109,29 +110,61 @@ Namespace Net.Http Me.saveFile = saveFile End Sub - Public Sub StartTask() - If isDownloading Then Return + Public Function StartTask(Optional doRetry As Boolean = True) As Boolean + Dim retry As Integer = If(doRetry, 0, 5) + Dim result As Boolean = True - Call switchStat() - Call doTaskInternal() - Call switchStat() - End Sub + If isDownloading Then + Return False + Else + Call switchStat() + End If +RE: + Try + Call doTaskInternal() + Catch ex As Exception + If retry < 3 Then + retry += 1 + GoTo RE + Else + ' exit download + result = False + End If + Finally + Call switchStat() + End Try + + Return result + End Function Private Sub switchStat() _isDownloading = Not isDownloading End Sub + Dim _startTime& + Private Sub doTaskInternal() ' Make a request for the url of the file to be downloaded Dim req As WebRequest = WebRequest.Create(url) + Dim remote$ = "NA" + + If TypeOf req Is HttpWebRequest Then + DirectCast(req, HttpWebRequest).ServicePoint.BindIPEndPointDelegate = + Function(svrs, ip, counts) + remote = ip.ToString + Return Nothing + End Function + End If + ' Ask for the response Dim resp As WebResponse = req.GetResponse - _totalSize = req.ContentLength + _totalSize = resp.ContentLength _speedSamples = New List(Of Double) _currentSize = 0 + _startTime = App.ElapsedMilliseconds - RaiseEvent ReportRequest(req) + RaiseEvent ReportRequest(req, resp, remote) RaiseEvent DownloadProcess(Me, 100 * currentSize / totalSize) If totalSize = -1 Then @@ -150,40 +183,38 @@ Namespace Net.Http Private Sub taskWithContentLength(resp As WebResponse) ' Make a buffer Dim buffer(8192) As Byte - Dim downloadedsize As Long = 0 - Dim downloadedTime As Long = 0 - Dim dlSpeed As Long = 0 + Dim read As Integer + Dim interval As Double Do While currentSize < totalSize ' Read the buffer from the response the WebRequest gave you - Dim read As Integer = resp.GetResponseStream.Read(buffer, 0, 8192) - - ' Write to filestream that you declared at the beginning of the DoWork sub - Call fs.Write(buffer, 0, read) + read = resp.GetResponseStream.Read(buffer, 0, 8192) + ' Write to filestream that you declared at the beginning + ' of the DoWork sub + fs.Write(buffer, 0, read) _currentSize += read - ' Add 1 millisecond for every cycle the While field makes - downloadedsize += read - downloadedTime += 1 + interval = TimeSpan.FromMilliseconds(App.ElapsedMilliseconds - _startTime).TotalSeconds - If downloadedTime = 1000 Then - ' Then, if downloadedTime reaches 1000 then it will call this part - ' Calculate the download speed by dividing the downloadedSize - ' by the total formatted seconds of the downloadedTime - dlSpeed = (downloadedsize / TimeSpan.FromMilliseconds(downloadedTime).TotalSeconds) - ' Reset downloadedTime and downloadedSize - downloadedTime = 0 - downloadedsize = 0 + ' Then, if downloadedTime reaches 1000 then it will call this part + ' Calculate the download speed by dividing the downloadedSize + ' by the total formatted seconds of the downloadedTime + Call (currentSize / interval).DoCall(AddressOf _speedSamples.Add) - Call _speedSamples.Add(dlSpeed) - - RaiseEvent DownloadProcess(Me, 100 * currentSize / totalSize) - End If + RaiseEvent DownloadProcess(Me, 100 * currentSize / totalSize) Loop End Sub + Dim busy As Integer + Public Overrides Function ToString() As String - Return $"> '{saveFile.FileName}' {currentSize} [{(100 * _currentSize / _totalSize).ToString("F2")}%, {downloadSpeed}KB/sec]" + If busy = 5 Then + busy = 1 + Else + busy += 1 + End If + + Return $"> '{saveFile.FileName}'{New String("."c, busy)} {StringFormats.Lanudry(currentSize)} [{(100 * _currentSize / _totalSize).ToString("F2")}%, {StringFormats.Lanudry(downloadSpeed)}/sec], elapsed {TimeSpan.FromMilliseconds(App.ElapsedMilliseconds - _startTime).FormatTime}" End Function #Region "IDisposable Support" diff --git a/Text/Xml/Linq/Linq.vb b/Text/Xml/Linq/Linq.vb index 02dc5428..4bd9295f 100644 --- a/Text/Xml/Linq/Linq.vb +++ b/Text/Xml/Linq/Linq.vb @@ -147,11 +147,12 @@ Namespace Text.Xml.Linq Return type.Name End Function - Private Iterator Function InternalIterates(XML$, nodeName$) As IEnumerable(Of String) + Private Iterator Function InternalIterates(XML$, nodeName$, filter As Func(Of String, Boolean)) As IEnumerable(Of String) Dim XmlNodeList As XmlNodeList = XML _ .LoadXmlDocument _ .GetElementsByTagName(nodeName) Dim sb As New StringBuilder + Dim xmlText$ For Each xmlNode As XmlNode In XmlNodeList Call sb.Clear() @@ -167,7 +168,13 @@ Namespace Text.Xml.Linq Call sb.AppendLine(xmlNode.InnerXml) Call sb.AppendLine($"") - Yield sb.ToString + xmlText = sb.ToString + + If Not filter Is Nothing AndAlso filter(xmlText) Then + Continue For + End If + + Yield xmlText Next End Function @@ -184,18 +191,26 @@ Namespace Text.Xml.Linq ''' Using for the namespace replacement. ''' (当这个参数存在的时候，目标命名空间申明将会被替换为空字符串，数据对象才会被正确的加载) ''' + ''' + ''' 如果这个函数指针返回true, 则表示当前的数据元素节点需要被抛弃 + ''' ''' - Public Function LoadXmlDataSet(Of T As Class)(XML$, Optional typeName$ = Nothing, Optional xmlns$ = Nothing, Optional forceLargeMode As Boolean = False) As IEnumerable(Of T) + Public Function LoadXmlDataSet(Of T As Class)(XML$, + Optional typeName$ = Nothing, + Optional xmlns$ = Nothing, + Optional forceLargeMode As Boolean = False, + Optional elementFilter As Func(Of String, Boolean) = Nothing) As IEnumerable(Of T) + Dim nodeName$ = GetType(T).GetTypeName([default]:=typeName) Dim source As IEnumerable(Of String) If forceLargeMode OrElse XML.FileLength > 1024 * 1024 * 128 Then ' 这是一个超大的XML文档 - source = NodeIterator.IterateArrayNodes(XML, nodeName) + source = NodeIterator.IterateArrayNodes(XML, nodeName, elementFilter) xmlns = Nothing Else - source = InternalIterates(XML, nodeName) + source = InternalIterates(XML, nodeName, elementFilter) End If Return source.NodeInstanceBuilder(Of T)(xmlns, xmlNode:=nodeName) diff --git a/Text/Xml/Linq/NodeIterator.vb b/Text/Xml/Linq/NodeIterator.vb index 9cde8428..e4d7819c 100644 --- a/Text/Xml/Linq/NodeIterator.vb +++ b/Text/Xml/Linq/NodeIterator.vb @@ -72,7 +72,7 @@ Namespace Text.Xml.Linq ''' ''' ''' - Public Iterator Function IterateArrayNodes(path$, tag$) As IEnumerable(Of String) + Public Iterator Function IterateArrayNodes(path$, tag$, Optional filter As Func(Of String, Boolean) = Nothing) As IEnumerable(Of String) Dim buffer As New List(Of String) Dim start$ = "<" & tag Dim ends$ = $"" @@ -80,6 +80,7 @@ Namespace Text.Xml.Linq Dim tagOpen As Boolean = False Dim lefts$ Dim i% + Dim xmlText$ For Each line As String In path.IterateAllLines If tagOpen Then @@ -96,11 +97,17 @@ Namespace Text.Xml.Linq buffer += ends tagOpen = False - Yield buffer.JoinBy(vbLf) - + xmlText = buffer.JoinBy(vbLf) buffer *= 0 buffer += lefts + If Not filter Is Nothing AndAlso filter(xmlText) Then + ' skip + Else + ' populate data + Yield xmlText + End If + ' 这里要跳出来，否则后面buffer += line处任然会添加这个结束标签行的 Continue For End If From 90d89879b0aa207762b0ef0938bb500ea3aeb0b1 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 28 Sep 2019 22:19:02 +0800 Subject: [PATCH 035/104] renames module imports --- Extensions/Math/Random/RandomExtensions.vb | 27 ++++++++++++---------- 1 file changed, 15 insertions(+), 12 deletions(-) diff --git a/Extensions/Math/Random/RandomExtensions.vb b/Extensions/Math/Random/RandomExtensions.vb index dc898a49..52e700e0 100644 --- a/Extensions/Math/Random/RandomExtensions.vb +++ b/Extensions/Math/Random/RandomExtensions.vb @@ -58,9 +58,8 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.CommandLine.Reflection Imports Microsoft.VisualBasic.ComponentModel.Ranges.Model -Imports Microsoft.VisualBasic.Language.C Imports Microsoft.VisualBasic.Scripting.MetaData -Imports sys = System.Math +Imports stdNum = System.Math Namespace Math @@ -158,16 +157,20 @@ Namespace Math ''' ''' ''' + ''' + Public Function NextDouble(rnd As Random, range As DoubleRange) As Double Return range.Length * rnd.NextDouble + range.Min End Function + Public Function NextDouble(rand As Random, min#, max#) As Double Return (max - min) * rand.NextDouble + min End Function + Public Function GetRandomValue(rng As IntRange) As Integer Return rng.Length * seeds.NextDouble + rng.Min @@ -186,7 +189,7 @@ Namespace Math Dim u1 As Double = r.NextDouble() Dim u2 As Double = r.NextDouble() - Dim rand_std_normal = sys.Sqrt(-2.0 * sys.Log(u1)) * sys.Sin(2.0 * sys.PI * u2) + Dim rand_std_normal = stdNum.Sqrt(-2.0 * stdNum.Log(u1)) * stdNum.Sin(2.0 * stdNum.PI * u2) Dim rand_normal = mu + sigma * rand_std_normal Return rand_normal @@ -214,7 +217,7 @@ Namespace Math Public Function NextTriangular(r As Random, a As Double, b As Double, c As Double) As Double Dim u As Double = r.NextDouble() - Return If(u < (c - a) / (b - a), a + sys.Sqrt(u * (b - a) * (c - a)), b - sys.Sqrt((1 - u) * (b - a) * (b - c))) + Return If(u < (c - a) / (b - a), a + stdNum.Sqrt(u * (b - a) * (c - a)), b - stdNum.Sqrt((1 - u) * (b - a) * (b - c))) End Function ''' @@ -227,6 +230,7 @@ Namespace Math ''' ``` ''' + Public Function NextBoolean(r As Random) As Boolean Return r.[Next](2) > 0 ' 1 > 0 OR 0 > 0 End Function @@ -276,11 +280,11 @@ Namespace Math End Sub ''' - ''' Returns n unique random numbers in the range [1, n], inclusive. + ''' Returns n unique random numbers in the range ``[1, n]``, inclusive. ''' This is equivalent to getting the first n numbers of some random permutation of the sequential ''' numbers from 1 to max. ''' - ''' Runs in O(k^2) time. + ''' Runs in ``O(k^2)`` time. ''' ''' ''' Maximum number possible.(最大值) @@ -288,8 +292,8 @@ Namespace Math ''' ''' - Public Function Permutation(rand As Random, n As Integer, k As Integer) As Integer() - Dim result As New List(Of Integer)() + + Public Iterator Function Permutation(rand As Random, n As Integer, k As Integer) As IEnumerable(Of Integer) Dim sorted As New SortedSet(Of Integer)() For i As Integer = 0 To k - 1 @@ -301,11 +305,10 @@ Namespace Math End If Next - result.Add(r) - sorted.Add(r) - Next + Call sorted.Add(r) - Return result.ToArray() + Yield r + Next End Function End Module End Namespace From 12d91b8205b55385449e8942dbd625787712e095 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 30 Sep 2019 23:21:31 +0800 Subject: [PATCH 036/104] improvements of the data sample models --- 47-dotnet_Microsoft.VisualBasic.vbproj | 4 +- .../VBDev/ApplicationInfoUtils.vb | 3 +- ApplicationServices/VBDev/AssemblyInfo.vb | 2 + CommandLine/CLITools.vb | 88 ++++++----- CommandLine/Interpreters/View/SDKManual.vb | 139 ++++++++++-------- .../DataSource/Property/DynamicProperty.vb | 2 +- .../System.Collections.Generic/IndexOf.vb | 88 +++++------ .../Math/StatisticsMathExtensions/Average.vb | 25 +++- .../Math/StatisticsMathExtensions/Min.vb | 27 ++++ .../SampleObservation.vb | 26 ++++ 10 files changed, 259 insertions(+), 145 deletions(-) create mode 100644 Extensions/Math/StatisticsMathExtensions/Min.vb create mode 100644 Extensions/Math/StatisticsMathExtensions/SampleObservation.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 7e4f7ab6..b87df035 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -104,7 +104,7 @@ true true - ..\..\..\..\GCModeller\bin\ + bin\ FRAMEWORD_CORE=1 true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml @@ -1021,6 +1021,8 @@ + + diff --git a/ApplicationServices/VBDev/ApplicationInfoUtils.vb b/ApplicationServices/VBDev/ApplicationInfoUtils.vb index 70baaa11..9547bf0e 100644 --- a/ApplicationServices/VBDev/ApplicationInfoUtils.vb +++ b/ApplicationServices/VBDev/ApplicationInfoUtils.vb @@ -144,7 +144,8 @@ Namespace ApplicationServices.Development .AssemblyDescription = GetProductDescription(assm), .Guid = GetGuid(assm), .AssemblyVersion = assm.tryGetVersion.ToString, - .BuiltTime = assm.CalculateCompileTime + .BuiltTime = assm.CalculateCompileTime, + .AssemblyFullName = assm.GetName.ToString } End Function diff --git a/ApplicationServices/VBDev/AssemblyInfo.vb b/ApplicationServices/VBDev/AssemblyInfo.vb index c3e020fd..dc5453ef 100644 --- a/ApplicationServices/VBDev/AssemblyInfo.vb +++ b/ApplicationServices/VBDev/AssemblyInfo.vb @@ -39,6 +39,8 @@ Public Property AssemblyVersion As String Public Property AssemblyFileVersion As String + Public Property AssemblyFullName As String + ''' ''' The compile date and time of the assembly file. ''' diff --git a/CommandLine/CLITools.vb b/CommandLine/CLITools.vb index b7fd25eb..ba82a0eb 100644 --- a/CommandLine/CLITools.vb +++ b/CommandLine/CLITools.vb @@ -1,46 +1,46 @@ #Region "Microsoft.VisualBasic::c88f1ab496a70fade4cc8cca8f21437b, Microsoft.VisualBasic.Core\CommandLine\CLITools.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 . +' 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: +' Summaries: - ' Module CLITools - ' - ' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals - ' GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join, makesureQuot - ' Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix, (+3 Overloads) TryParse - ' - ' Sub: tupleParser - ' - ' - ' /********************************************************************************/ +' Module CLITools +' +' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals +' GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join, makesureQuot +' Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix, (+3 Overloads) TryParse +' +' Sub: tupleParser +' +' +' /********************************************************************************/ #End Region @@ -48,7 +48,9 @@ Imports System.IO Imports System.Runtime.CompilerServices Imports System.Text Imports System.Text.RegularExpressions +Imports Microsoft.VisualBasic.ApplicationServices.Development Imports Microsoft.VisualBasic.ApplicationServices.Terminal +Imports Microsoft.VisualBasic.CommandLine.ManView Imports Microsoft.VisualBasic.CommandLine.Reflection Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language @@ -70,6 +72,20 @@ Namespace CommandLine Revision:=52)> Public Module CLITools + ''' + ''' + ''' + ''' + ''' 命令行的使用功能描述信息文本 + ''' 命令行的使用语法 + ''' + ''' + + + Public Sub AppSummary(assem As AssemblyInfo, description$, SYNOPSIS$, write As TextWriter) + Call SDKManual.AppSummary(assem, description, SYNOPSIS, write) + End Sub + Public Function ShellExec(cli As IIORedirectAbstract) As String Call cli.Run() diff --git a/CommandLine/Interpreters/View/SDKManual.vb b/CommandLine/Interpreters/View/SDKManual.vb index bfc7d8ee..56bf8a42 100644 --- a/CommandLine/Interpreters/View/SDKManual.vb +++ b/CommandLine/Interpreters/View/SDKManual.vb @@ -1,46 +1,46 @@ #Region "Microsoft.VisualBasic::5f9f988fd11956c1f2392450da027f30, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\SDKManual.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 . +' 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: +' Summaries: - ' Module SDKManual - ' - ' Function: HelpSummary, LaunchManual, MarkdownDoc - ' - ' - ' /********************************************************************************/ +' Module SDKManual +' +' Function: HelpSummary, LaunchManual, MarkdownDoc +' +' +' /********************************************************************************/ #End Region -Imports System.Reflection +Imports System.IO Imports System.Runtime.CompilerServices Imports System.Text Imports Microsoft.VisualBasic.ApplicationServices.Debugging @@ -184,6 +184,45 @@ Namespace CommandLine.ManView Return sb.ToString End Function + ''' + ''' + ''' + ''' + ''' 命令行的使用功能描述信息文本 + ''' 命令行的使用语法 + ''' + + Public Sub AppSummary(assem As AssemblyInfo, description$, SYNOPSIS$, write As TextWriter) + Dim descr = assem.AssemblyDescription + + Call write.WriteLine() + + Call write.WriteLine(" // ") + Call write.WriteLine(" // " & Strings.Trim(descr) Or "[No description]".AsDefault) + Call write.WriteLine(" // ") + Call write.WriteLine(" // VERSION: " & (assem.AssemblyVersion Or "1.0.0.*".AsDefault)) + Call write.WriteLine(" // ASSEMBLY: " & assem.AssemblyFullName) + Call write.WriteLine(" // COPYRIGHT: " & assem.AssemblyCopyright) + Call write.WriteLine(" // GUID: " & assem.Guid) + Call write.WriteLine(" // BUILT: " & assem.BuiltTime.ToString) + Call write.WriteLine(" // ") + + Call write.WriteLine() + Call write.WriteLine() + + For Each line$ In Paragraph.SplitParagraph(description, 110) + Call write.WriteLine(" " & line$) + Next + + Call write.WriteLine() + Call write.WriteLine() + Call write.WriteLine("SYNOPSIS") + Call write.WriteLine(SYNOPSIS) + Call write.WriteLine() + + Call write.Flush() + End Sub + ''' ''' Returns the summary brief help information of all of the commands in current cli interpreter. ''' (枚举出本CLI解释器之中的所有的命令的帮助的摘要信息) @@ -199,32 +238,14 @@ Namespace CommandLine.ManView .Max If Not markdown Then - Dim descr = VBCore.Info.AssemblyDescription - - Call sb.AppendLine() - - Call sb.AppendLine(" // ") - Call sb.AppendLine(" // " & Strings.Trim(descr) Or "[No description]".AsDefault) - Call sb.AppendLine(" // ") - Call sb.AppendLine(" // VERSION: " & (VBCore.Info.AssemblyVersion Or "1.0.0.*".AsDefault)) - Call sb.AppendLine(" // ASSEMBLY: " & Assembly.LoadFile(VBCore.ExecutablePath).GetName.ToString) - Call sb.AppendLine(" // COPYRIGHT: " & VBCore.Info.AssemblyCopyright) - Call sb.AppendLine(" // GUID: " & VBCore.Info.Guid) - Call sb.AppendLine(" // BUILT: " & VBCore.Info.BuiltTime.ToString) - Call sb.AppendLine(" // ") - - Call sb.AppendLine() - Call sb.AppendLine() - - For Each line$ In Paragraph.SplitParagraph(App.Info.Description, 110) - Call sb.AppendLine(" " & line$) - Next - - Call sb.AppendLine() - Call sb.AppendLine() - Call sb.AppendLine("SYNOPSIS") - Call sb.AppendLine($"{VBCore.AssemblyName} command [/argument argument-value...] [/@set environment-variable=value...]") - Call sb.AppendLine() + Call ($"{VBCore.AssemblyName} command [/argument argument-value...] [/@set environment-variable=value...]") _ + .DoCall(Sub(SYNOPSIS) + Call VBCore.Info.AppSummary( + description:=App.Info.Description, + SYNOPSIS:=SYNOPSIS, + write:=New StringWriter(sb) + ) + End Sub) End If Call sb.AppendLine(ListAllCommandsPrompt) diff --git a/ComponentModel/DataSource/Property/DynamicProperty.vb b/ComponentModel/DataSource/Property/DynamicProperty.vb index d4078a07..08a08b59 100644 --- a/ComponentModel/DataSource/Property/DynamicProperty.vb +++ b/ComponentModel/DataSource/Property/DynamicProperty.vb @@ -88,7 +88,7 @@ Namespace ComponentModel.DataSourceModel ''' ''' ''' - Default Public Overloads Property ItemValue(name$) As T + Default Public Overridable Overloads Property ItemValue(name$) As T Get If Properties.ContainsKey(name) Then diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index 7780fc47..2fcefbbe 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -1,52 +1,52 @@ #Region "Microsoft.VisualBasic::c7181e3a1cca2f1c14aae77b3062892d, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.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 . +' 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: +' Summaries: - ' Class Index - ' - ' Properties: Count, Map, Objects - ' - ' Constructor: (+4 Overloads) Sub New - ' - ' Function: Add, GetEnumerator, IEnumerable_GetEnumerator, indexing, (+2 Overloads) Intersect - ' NotExists, ToString - ' - ' Sub: Clear, Delete - ' - ' Operators: -, (+2 Overloads) +, <>, =, (+2 Overloads) IsFalse - ' (+2 Overloads) IsTrue, (+2 Overloads) Like - ' - ' - ' /********************************************************************************/ +' Class Index +' +' Properties: Count, Map, Objects +' +' Constructor: (+4 Overloads) Sub New +' +' Function: Add, GetEnumerator, IEnumerable_GetEnumerator, indexing, (+2 Overloads) Intersect +' NotExists, ToString +' +' Sub: Clear, Delete +' +' Operators: -, (+2 Overloads) +, <>, =, (+2 Overloads) IsFalse +' (+2 Overloads) IsTrue, (+2 Overloads) Like +' +' +' /********************************************************************************/ #End Region @@ -184,6 +184,10 @@ Namespace ComponentModel.Collection End Get End Property + Public Function GetOrdinal(items As IEnumerable(Of T)) As Integer() + Return items.Select(Function(element) Me(element)).ToArray + End Function + Public Sub Delete(index As T) Dim i = Me.IndexOf(index) diff --git a/Extensions/Math/StatisticsMathExtensions/Average.vb b/Extensions/Math/StatisticsMathExtensions/Average.vb index ca081970..3ebc8b0d 100644 --- a/Extensions/Math/StatisticsMathExtensions/Average.vb +++ b/Extensions/Math/StatisticsMathExtensions/Average.vb @@ -48,22 +48,29 @@ Imports System.Runtime.CompilerServices Namespace Math.Statistics - Public Class Average + Public Class Average : Inherits SampleObservation Public Sum#, N% Public ReadOnly Property Average As Double Get - Return Sum / N + If N = 0 Then + Return 0 + Else + Return Sum / N + End If End Get End Property Sub New() + Call Me.New({}) End Sub Sub New(data As IEnumerable(Of Double)) - With data.ToArray + Call MyBase.New(data) + + With getRaw.ToArray Sum = .Sum N = .Length End With @@ -74,13 +81,21 @@ Namespace Math.Statistics End Function Public Shared Operator +(avg As Average, x#) As Average - avg.Sum += x - avg.N += 1 + Call avg.Add(x) Return avg End Operator Public Shared Widening Operator CType(avg As Double) As Average Return New Average() + avg End Operator + + Protected Overrides Sub addObservation(observation As Double) + Sum += observation + N += 1 + End Sub + + Protected Overrides Function getEigenvalue() As Double + Return Average + End Function End Class End Namespace diff --git a/Extensions/Math/StatisticsMathExtensions/Min.vb b/Extensions/Math/StatisticsMathExtensions/Min.vb new file mode 100644 index 00000000..a5b5ac7f --- /dev/null +++ b/Extensions/Math/StatisticsMathExtensions/Min.vb @@ -0,0 +1,27 @@ +Namespace Math.Statistics + + Public Class Min : Inherits SampleObservation + + Public ReadOnly Property MinValue As Double + + Sub New(value As Double) + Call MyBase.New({value}) + ' intialize value is the min value + MinValue = value + End Sub + + Protected Overrides Sub addObservation(observation As Double) + If observation < MinValue Then + _MinValue = observation + End If + End Sub + + Protected Overrides Function getEigenvalue() As Double + Return MinValue + End Function + + Public Overrides Function ToString() As String + Return MinValue + End Function + End Class +End Namespace \ No newline at end of file diff --git a/Extensions/Math/StatisticsMathExtensions/SampleObservation.vb b/Extensions/Math/StatisticsMathExtensions/SampleObservation.vb new file mode 100644 index 00000000..33f17061 --- /dev/null +++ b/Extensions/Math/StatisticsMathExtensions/SampleObservation.vb @@ -0,0 +1,26 @@ +Public MustInherit Class SampleObservation + + Dim samples As New List(Of Double) + + Sub New(samples As IEnumerable(Of Double)) + Me.samples = New List(Of Double)(samples) + End Sub + + Public Sub Add(observation As Double) + Call samples.Add(observation) + Call addObservation(observation) + End Sub + + Protected MustOverride Sub addObservation(observation As Double) + Protected MustOverride Function getEigenvalue() As Double + + Protected Iterator Function getRaw() As IEnumerable(Of Double) + For Each obs As Double In samples + Yield obs + Next + End Function + + Public Shared Narrowing Operator CType(observation As SampleObservation) As Double + Return observation.getEigenvalue + End Operator +End Class From 6b1b22f64464a6adf3ce6ef40b717aabe34f7154 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 4 Oct 2019 10:41:05 +0800 Subject: [PATCH 037/104] invoke value --- .../DataSource/Property/NamedValue.vb | 100 +++++++++++------- 1 file changed, 64 insertions(+), 36 deletions(-) diff --git a/ComponentModel/DataSource/Property/NamedValue.vb b/ComponentModel/DataSource/Property/NamedValue.vb index 0270b080..ea55c322 100644 --- a/ComponentModel/DataSource/Property/NamedValue.vb +++ b/ComponentModel/DataSource/Property/NamedValue.vb @@ -1,49 +1,50 @@ #Region "Microsoft.VisualBasic::529b3ac85939959a3564dad680f53aa1, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\NamedValue.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 . +' 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: +' Summaries: - ' Structure NamedValue - ' - ' Properties: Description, IsEmpty, Name, Value, ValueType - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: FixValue, ToString - ' Operators: (+2 Overloads) +, <>, = - ' - ' - ' /********************************************************************************/ +' Structure NamedValue +' +' Properties: Description, IsEmpty, Name, Value, ValueType +' +' Constructor: (+1 Overloads) Sub New +' Function: FixValue, ToString +' Operators: (+2 Overloads) +, <>, = +' +' +' /********************************************************************************/ #End Region +Imports System.Reflection Imports System.Runtime.CompilerServices Imports System.Web.Script.Serialization Imports System.Xml.Serialization @@ -105,6 +106,33 @@ Namespace ComponentModel.DataSourceModel End Get End Property + Default Public ReadOnly Property TryMethodInvoke(arg As Object) As Object + Get + If Value Is Nothing Then + Return Nothing + Else + Dim type As Type = ValueType + + If type.IsInheritsFrom(GetType([Delegate])) Then + Dim del As [Delegate] = CObj(Value) + Return del.DynamicInvoke({arg}) + Else + Dim indexProp As PropertyInfo = type _ + .GetProperties(PublicProperty) _ + .FirstOrDefault(Function(p) + Return p.CanRead AndAlso Not p.GetIndexParameters.IsNullOrEmpty + End Function) + + If Not indexProp Is Nothing Then + Return indexProp.GetMethod.Invoke(Value, {arg}) + Else + Return Nothing + End If + End If + End If + End Get + End Property + ''' ''' Creates a object bind with a specific . ''' From fb986550029bbb667151de90cf5145f23bc49c5b Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 4 Oct 2019 10:41:55 +0800 Subject: [PATCH 038/104] improvements of the enum description helper --- 47-dotnet_Microsoft.VisualBasic.vbproj | 4 +- Extensions/Reflection/Reflection.vb | 19 +++- .../WebServices => Net/HTTP}/HTTP_RFC.vb | 0 .../Protocol}/NetResponse.vb | 0 test/TypeTest.vb | 88 ++++++++++++------- test/test.vbproj | 4 +- 6 files changed, 76 insertions(+), 39 deletions(-) rename {Extensions/WebServices => Net/HTTP}/HTTP_RFC.vb (100%) rename {Extensions/WebServices => Net/Protocol}/NetResponse.vb (100%) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index b87df035..d26a8fe9 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1538,9 +1538,9 @@ - + - + diff --git a/Extensions/Reflection/Reflection.vb b/Extensions/Reflection/Reflection.vb index 1c537069..7691e113 100644 --- a/Extensions/Reflection/Reflection.vb +++ b/Extensions/Reflection/Reflection.vb @@ -522,7 +522,24 @@ NULL: If Not strict Then Dim memInfos As MemberInfo() = type.GetMember(name:=s) If memInfos.IsNullOrEmpty Then - Return s + ' 当枚举类型为OR组合的时候，得到的是一个数字 + If s.IsPattern("\d+") Then + Dim flag As Long = CLng(s) + Dim flags As New List(Of [Enum]) + Dim flagValue As Long + + For Each member In type.GetFields.Where(Function(field) field.FieldType Is type) + flagValue = CLng(member.GetValue(Nothing)) + + If flag And flagValue = flagValue Then + flags += CType(member.GetValue(Nothing), [Enum]) + End If + Next + + Return flags.Select(AddressOf Description).JoinBy("|") + Else + Return s + End If End If Return memInfos _ diff --git a/Extensions/WebServices/HTTP_RFC.vb b/Net/HTTP/HTTP_RFC.vb similarity index 100% rename from Extensions/WebServices/HTTP_RFC.vb rename to Net/HTTP/HTTP_RFC.vb diff --git a/Extensions/WebServices/NetResponse.vb b/Net/Protocol/NetResponse.vb similarity index 100% rename from Extensions/WebServices/NetResponse.vb rename to Net/Protocol/NetResponse.vb diff --git a/test/TypeTest.vb b/test/TypeTest.vb index 28d3b097..362aa9cc 100644 --- a/test/TypeTest.vb +++ b/test/TypeTest.vb @@ -1,53 +1,73 @@ #Region "Microsoft.VisualBasic::75917d1f7b9e3ef81aad687b788cae2e, Microsoft.VisualBasic.Core\test\TypeTest.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 . +' 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: +' Summaries: - ' Module TypeTest - ' - ' Function: CharArray - ' - ' Sub: Main, patternMatch, test - ' - ' /********************************************************************************/ +' Module TypeTest +' +' Function: CharArray +' +' Sub: Main, patternMatch, test +' +' /********************************************************************************/ #End Region +Imports System.ComponentModel Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Serialization.JSON +Public Enum FlagCombos + + A = 2 + B = 4 + C = 8 + +End Enum + Module TypeTest - Sub Main() + Sub descriptionTest() + Call Console.WriteLine(FlagCombos.A.Description) + Call Console.WriteLine(FlagCombos.B.Description) + Call Console.WriteLine(FlagCombos.C.Description) + + Call Console.WriteLine((FlagCombos.A Or FlagCombos.B Or FlagCombos.C).Description) + + Pause() + End Sub + + Sub Main() + Call descriptionTest() Call patternMatch() diff --git a/test/test.vbproj b/test/test.vbproj index bd601eaa..56a3b8b6 100644 --- a/test/test.vbproj +++ b/test/test.vbproj @@ -6,7 +6,7 @@ AnyCPU {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88} Exe - test.markdownDisplayTest + test.TypeTest test test 512 @@ -92,11 +92,11 @@ + - From 317b4dac7280aad729dae820bffffee9e8417411 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 12 Oct 2019 22:38:14 +0800 Subject: [PATCH 039/104] code style improvements --- 47-dotnet_Microsoft.VisualBasic.vbproj | 2 +- ...BucketExtensions.vb => BucketOperators.vb} | 27 ++++++++++--------- .../Collection/IsNullOrEmptyExtensions.vb | 1 + Extensions/Collection/KeyValuePair.vb | 2 ++ Extensions/Collection/Linq/Iterator.vb | 1 + Extensions/Collection/Linq/Linq.vb | 1 + Extensions/Collection/Linq/Takes.vb | 12 +++------ .../Collection/Linq/VectorAssertExtensions.vb | 1 + Extensions/Collection/Vector.vb | 19 ++++++++++--- Extensions/Math/NumberGroups.vb | 2 +- .../Reflection/Marshal/Pointer(Of T).vb | 13 ++++++++- Extensions/Reflection/Methods.vb | 1 + Language/Linq/Vectorization/Extensions.vb | 7 +++++ Scripting/ExternalCall.vb | 16 +++++------ Scripting/InputHandler.vb | 2 +- 15 files changed, 72 insertions(+), 35 deletions(-) rename Extensions/Collection/{BucketExtensions.vb => BucketOperators.vb} (87%) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index d26a8fe9..c4d863ae 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1084,7 +1084,7 @@ - + diff --git a/Extensions/Collection/BucketExtensions.vb b/Extensions/Collection/BucketOperators.vb similarity index 87% rename from Extensions/Collection/BucketExtensions.vb rename to Extensions/Collection/BucketOperators.vb index bb2caa22..f9da8482 100644 --- a/Extensions/Collection/BucketExtensions.vb +++ b/Extensions/Collection/BucketOperators.vb @@ -42,40 +42,43 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language - Public Module BucketExtensions +''' +''' 进行集合分块切割或者合并等操作 +''' +Public Module BucketOperators ''' ''' Data partitioning function. - ''' (将目标集合之中的数据按照参数分配到子集合之中， + ''' (将目标集合之中的数据按照参数分配到子集合之中， ''' 这个函数之中不能够使用并行化Linq拓展，以保证元素之间的相互原有的顺序， - ''' 每一个子集和之中的元素数量为) + ''' 每一个子集和之中的元素数量为) ''' ''' ''' - ''' 每一个子集合之中的元素的数目 + ''' 每一个子集合之中的元素的数目 ''' ''' - Public Function Split(Of T)(source As IEnumerable(Of T), parTokens As Integer) As T()() - Return source.SplitIterator(parTokens).ToArray + Public Function Split(Of T)(source As IEnumerable(Of T), partitionSize As Integer) As T()() + Return source.SplitIterator(partitionSize).ToArray End Function ''' ''' Performance the partitioning operation on the input sequence. - ''' (请注意，这个函数只适用于数量较少的序列。对所输入的序列进行分区操作，函数参数是每一个分区里面的元素的数量) + ''' (请注意，这个函数只适用于数量较少的序列。对所输入的序列进行分区操作，函数参数是每一个分区里面的元素的数量) ''' ''' ''' - ''' + ''' ''' - Public Iterator Function SplitIterator(Of T)(source As IEnumerable(Of T), parTokens As Integer) As IEnumerable(Of T()) - Dim buffer As New List(Of T)(capacity:=parTokens) + Public Iterator Function SplitIterator(Of T)(source As IEnumerable(Of T), partitionSize As Integer) As IEnumerable(Of T()) + Dim buffer As New List(Of T)(capacity:=partitionSize) For Each item As T In source - Call buffer.Add(item) + buffer += item - If buffer >= parTokens Then + If buffer >= partitionSize Then Yield buffer.ToArray buffer *= 0 diff --git a/Extensions/Collection/IsNullOrEmptyExtensions.vb b/Extensions/Collection/IsNullOrEmptyExtensions.vb index bf7e1c6a..01eade01 100644 --- a/Extensions/Collection/IsNullOrEmptyExtensions.vb +++ b/Extensions/Collection/IsNullOrEmptyExtensions.vb @@ -48,6 +48,7 @@ Imports Microsoft.VisualBasic.ComponentModel.Collection.Generic Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Vectorization + Public Module IsNullOrEmptyExtensions diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index eb1f09a5..90e7dbd8 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -65,6 +65,8 @@ Imports r = System.Text.RegularExpressions.Regex ''' ''' KeyValue pair data related extensions API. ''' +''' + Public Module KeyValuePairExtensions diff --git a/Extensions/Collection/Linq/Iterator.vb b/Extensions/Collection/Linq/Iterator.vb index a5b8e00a..82a53be8 100644 --- a/Extensions/Collection/Linq/Iterator.vb +++ b/Extensions/Collection/Linq/Iterator.vb @@ -46,6 +46,7 @@ Imports Microsoft.VisualBasic.Language Namespace Linq + Public Module IteratorExtensions diff --git a/Extensions/Collection/Linq/Linq.vb b/Extensions/Collection/Linq/Linq.vb index 5d25e920..a2c18e1e 100644 --- a/Extensions/Collection/Linq/Linq.vb +++ b/Extensions/Collection/Linq/Linq.vb @@ -60,6 +60,7 @@ Namespace Linq ''' + Public Module Extensions ''' diff --git a/Extensions/Collection/Linq/Takes.vb b/Extensions/Collection/Linq/Takes.vb index 058694b8..b2144187 100644 --- a/Extensions/Collection/Linq/Takes.vb +++ b/Extensions/Collection/Linq/Takes.vb @@ -71,15 +71,11 @@ Namespace Linq ''' ''' ''' + ''' + - Public Iterator Function Takes(Of T)(source As IEnumerable(Of T), flags As Boolean()) As IEnumerable(Of T) - Dim i As i32 = 0 - - For Each obj As T In source - If flags(++i) Then - Yield obj - End If - Next + Public Function Takes(Of T)(source As IEnumerable(Of T), flags As Boolean()) As IEnumerable(Of T) + Return source.Where(Function(obj, i) flags(i)) End Function ''' diff --git a/Extensions/Collection/Linq/VectorAssertExtensions.vb b/Extensions/Collection/Linq/VectorAssertExtensions.vb index e83463a1..e8738b7c 100644 --- a/Extensions/Collection/Linq/VectorAssertExtensions.vb +++ b/Extensions/Collection/Linq/VectorAssertExtensions.vb @@ -46,6 +46,7 @@ Imports Microsoft.VisualBasic.Linq Namespace Linq + Public Module VectorAssertExtensions ''' diff --git a/Extensions/Collection/Vector.vb b/Extensions/Collection/Vector.vb index 5dfda5b9..0d97389e 100644 --- a/Extensions/Collection/Vector.vb +++ b/Extensions/Collection/Vector.vb @@ -69,15 +69,27 @@ Imports Microsoft.VisualBasic.My.JavaScript.Linq ''' ''' Extension methods for the .NET object sequence ''' +''' + Public Module VectorExtensions + ''' + ''' + ''' + ''' + ''' + ''' + ''' 是否修改原始输入的序列? 否则会创建一个新的数组序列返回 + ''' Public Function Sort(Of T)(ByRef a As T(), compares As Comparison(Of T), Optional modification As Boolean = True) As T() If modification Then Call Array.Sort(a, compares) Else - Return a.AsEnumerable.Sort(compares).ToArray + Return a.AsEnumerable _ + .Sort(compares) _ + .ToArray End If Return a @@ -113,12 +125,13 @@ Public Module VectorExtensions End Function ''' - ''' Dynamics add a element into the target array. + ''' Dynamics add a element into the target array.(注意：不推荐使用这个函数来频繁的向数组中添加元素，这个函数会频繁的分配内存，效率非常低) ''' ''' ''' ''' - Public Sub Add(Of T)(ByRef vector As T(), value As T) + + Public Sub Add(Of T)(ByRef vector As T(), value As T) If vector.IsNullOrEmpty Then vector = {value} Else diff --git a/Extensions/Math/NumberGroups.vb b/Extensions/Math/NumberGroups.vb index 93fa2104..efa205bf 100644 --- a/Extensions/Math/NumberGroups.vb +++ b/Extensions/Math/NumberGroups.vb @@ -225,7 +225,7 @@ Namespace Math equals As GenericLambda(Of Double).IEquals, Optional chunkSize% = 20000) As IEnumerable(Of NamedCollection(Of T)) Dim partitions = source _ - .SplitIterator(parTokens:=chunkSize) _ + .SplitIterator(partitionSize:=chunkSize) _ .AsParallel _ .Select(Function(part) Return part.AsList.GroupByImpl(evaluate, equals) diff --git a/Extensions/Reflection/Marshal/Pointer(Of T).vb b/Extensions/Reflection/Marshal/Pointer(Of T).vb index d22835db..3867ee99 100644 --- a/Extensions/Reflection/Marshal/Pointer(Of T).vb +++ b/Extensions/Reflection/Marshal/Pointer(Of T).vb @@ -68,10 +68,13 @@ Namespace Emit.Marshal ''' -> its current value ''' ''' + ''' + ''' 当前的位置是指相对于当前的位置offset为0的位置就是当前的位置 + ''' Public Property Current As T Get - Return Value(Scan0) ' 当前的位置是指相对于当前的位置offset为0的位置就是当前的位置 + Return Value(Scan0) End Get Protected Friend Set(value As T) @@ -216,6 +219,14 @@ Namespace Emit.Marshal Return $"*{GetType(T).Name}: ({index}) {Current}" End Function + ''' + ''' 获取当前指针位置后面的所有元素 + ''' + ''' + Public Function GetLeftsAll() As T() + Return buffer.Skip(index).ToArray + End Function + '''' '''' 前移个单位，然后返回值，这个和Peek的作用一样，不会改变指针位置 '''' diff --git a/Extensions/Reflection/Methods.vb b/Extensions/Reflection/Methods.vb index de8755af..186186c7 100644 --- a/Extensions/Reflection/Methods.vb +++ b/Extensions/Reflection/Methods.vb @@ -43,6 +43,7 @@ Imports System.Linq.Expressions Imports System.Reflection Imports System.Runtime.CompilerServices + Public Module MethodsExtension ''' diff --git a/Language/Linq/Vectorization/Extensions.vb b/Language/Linq/Vectorization/Extensions.vb index 420e319d..c55898dd 100644 --- a/Language/Linq/Vectorization/Extensions.vb +++ b/Language/Linq/Vectorization/Extensions.vb @@ -63,6 +63,13 @@ Namespace Language.Vectorization Return New Vector(Of T)(list) End Function + ''' + ''' Dynamics add a element into the target array.(注意：不推荐使用这个函数来频繁的向数组中添加元素，这个函数会频繁的分配内存，效率非常低) + ''' + ''' + ''' + ''' + ''' Public Function Add(Of T)(x As Vector(Of T), obj As T) As Vector(Of T) Call x.Array.Add(obj) diff --git a/Scripting/ExternalCall.vb b/Scripting/ExternalCall.vb index 11b3df0a..8c32609c 100644 --- a/Scripting/ExternalCall.vb +++ b/Scripting/ExternalCall.vb @@ -63,8 +63,8 @@ Namespace Scripting ''' ''' 脚本宿主的可执行文件的路径 ''' - ReadOnly __host As String - ReadOnly __ext As String + ReadOnly host As String + ReadOnly ext As String ''' ''' @@ -72,8 +72,8 @@ Namespace Scripting ''' The program its file name to run the script ''' File extension name of this type of script Sub New(host As String, Optional ext As String = ".txt") - __host = FileIO.FileSystem.GetFileInfo(host).FullName - __ext = ext + Me.host = FileIO.FileSystem.GetFileInfo(host).FullName + Me.ext = ext End Sub ''' @@ -83,7 +83,7 @@ Namespace Scripting ''' ''' Public Function Run(script As String, Optional args As NameValueCollection = Nothing) As ShellValue - Dim tmp As String = App.GetAppSysTempFile(__ext) + Dim tmp As String = App.GetAppSysTempFile(ext) Call script.SaveTo(tmp, Encodings.ASCII.CodePage) Return Shell(path:=tmp, args:=args) End Function @@ -97,8 +97,8 @@ Namespace Scripting ''' Perl脚本测试通过！ Public Function Shell(path As String, Optional args As NameValueCollection = Nothing) As ShellValue Dim param As String = buildArguments(args) - Dim IO As New IORedirect(__host, path & " " & param) - Dim code As Integer = IO.Start(WaitForExit:=True) + Dim IO As New IORedirect(host, path & " " & param) + Dim code As Integer = IO.Start(waitForExit:=True) Return New ShellValue(IO, code) End Function @@ -116,7 +116,7 @@ Namespace Scripting End Function Public Overrides Function ToString() As String - Return __host + Return host End Function End Class diff --git a/Scripting/InputHandler.vb b/Scripting/InputHandler.vb index 8f9951c4..a058757e 100644 --- a/Scripting/InputHandler.vb +++ b/Scripting/InputHandler.vb @@ -145,7 +145,7 @@ Namespace Scripting errCaster.Add(expression & "|" & target.FullName) End If - ex = New Exception($"{expression} ==> {target.FullName}", ex) + ex = New Exception($"{expression} => {target.FullName}", ex) Call App.LogException(ex, MethodBase.GetCurrentMethod.GetFullName) Return Nothing End Try From 539aa7f45e79205e042da39345c5c2d3b16bcb68 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 12 Oct 2019 22:41:30 +0800 Subject: [PATCH 040/104] fix bugs for content-length = -1 --- Net/HTTP/wget.vb | 21 ++++++++++++++++++-- Net/HTTP/wgetTask.vb | 46 ++++++++++++++++++++++++++++---------------- 2 files changed, 48 insertions(+), 19 deletions(-) diff --git a/Net/HTTP/wget.vb b/Net/HTTP/wget.vb index 27c19533..2634e786 100644 --- a/Net/HTTP/wget.vb +++ b/Net/HTTP/wget.vb @@ -71,6 +71,10 @@ Namespace Net.Http End If End Sub + Public Overrides Function ToString() As String + Return task.url + End Function + Private Sub DownloadProcess(wget As wgetTask, percentage As Double) Handles task.DownloadProcess Console.CursorTop = cursorTop ClearLine() @@ -91,6 +95,12 @@ Namespace Net.Http ''' Private Sub ReportRequest(req As WebRequest, resp As WebResponse, remote$) Handles task.ReportRequest Dim domain As New DomainName(task.url) + Dim contentSize$ = resp.ContentLength + Dim sizePrettyPrint$ = StringFormats.Lanudry(resp.ContentLength) Or "N/A".When(resp.ContentLength = -1) + + If contentSize = "-1" Then + contentSize = "" + End If Call Console.WriteLine() @@ -99,15 +109,22 @@ Namespace Net.Http Call ClearLine() : Console.WriteLine() Call ClearLine() : Console.WriteLine($"Resolving {resp.ResponseUri.Host} ({domain})... {remote}") Call ClearLine() : Console.WriteLine($"==> METHOD ... {req.Method}/{req.RequestUri.Scheme} {DirectCast(req, HttpWebRequest).ProtocolVersion}") - Call ClearLine() : Console.WriteLine($"==> SIZE {task.saveFile.FileName} ... {resp.ContentLength}") + Call ClearLine() : Console.WriteLine($"==> SIZE {task.saveFile.FileName} ... {contentSize}") Call ClearLine() : Console.WriteLine($"==> CONTENT-TYPE ... {resp.ContentType}") - Call ClearLine() : Console.WriteLine($"Length: {resp.ContentLength} ({StringFormats.Lanudry(resp.ContentLength)})") + Call ClearLine() : Console.WriteLine($"Length: {contentSize} ({sizePrettyPrint})") Call Console.WriteLine() cursorTop = Console.CursorTop End Sub + ''' + ''' 执行有详细进度信息显示的文件下载操作, 如果只需要调用一个单纯的文件下载函数, + ''' 请使用拓展函数 + ''' + ''' + ''' + ''' Public Shared Function Download(url$, Optional save$ = Nothing) As Boolean Dim local As New Value(Of String) Dim task As New wget(url, local = save Or $"./{url.Split("?"c).First.FileName}".AsDefault) diff --git a/Net/HTTP/wgetTask.vb b/Net/HTTP/wgetTask.vb index c3ae8d87..11bfb9b2 100644 --- a/Net/HTTP/wgetTask.vb +++ b/Net/HTTP/wgetTask.vb @@ -62,6 +62,7 @@ Namespace Net.Http ReadOnly fs As FileStream Dim _speedSamples As List(Of Double) + Dim _isUnknownContentSize As Boolean = False ''' ''' Size that has been downloaded @@ -110,7 +111,7 @@ Namespace Net.Http Me.saveFile = saveFile End Sub - Public Function StartTask(Optional doRetry As Boolean = True) As Boolean + Public Function StartTask(Optional doRetry As Boolean = True, Optional bufferSize% = 1024) As Boolean Dim retry As Integer = If(doRetry, 0, 5) Dim result As Boolean = True @@ -121,8 +122,10 @@ Namespace Net.Http End If RE: Try - Call doTaskInternal() - Catch ex As Exception + Call doTaskInternal(bufferSize) + Catch ex As Exception When Not TypeOf ex Is NotImplementedException + Call ex.PrintException + If retry < 3 Then retry += 1 GoTo RE @@ -143,7 +146,7 @@ RE: Dim _startTime& - Private Sub doTaskInternal() + Private Sub doTaskInternal(bufferSize As Integer) ' Make a request for the url of the file to be downloaded Dim req As WebRequest = WebRequest.Create(url) Dim remote$ = "NA" @@ -163,35 +166,33 @@ RE: _speedSamples = New List(Of Double) _currentSize = 0 _startTime = App.ElapsedMilliseconds + _isUnknownContentSize = totalSize < 0 RaiseEvent ReportRequest(req, resp, remote) RaiseEvent DownloadProcess(Me, 100 * currentSize / totalSize) If totalSize = -1 Then - Call taskWithNoContentLength(resp) + ' task with no Content-Length + Call doDownloadTask(resp, bufferSize, Function(read) read = 0) Else - Call taskWithContentLength(resp) + Call doDownloadTask(resp, bufferSize, Function() currentSize < totalSize) End If resp.Close() End Sub - Private Sub taskWithNoContentLength(resp As WebResponse) - Throw New NotImplementedException - End Sub - - Private Sub taskWithContentLength(resp As WebResponse) + Private Sub doDownloadTask(resp As WebResponse, bufferSize%, exitJob As Func(Of Integer, Boolean)) ' Make a buffer - Dim buffer(8192) As Byte - Dim read As Integer + Dim buffer(bufferSize - 1) As Byte + Dim read As Integer = Integer.MaxValue Dim interval As Double - Do While currentSize < totalSize + Do While Not exitJob(read) ' Read the buffer from the response the WebRequest gave you - read = resp.GetResponseStream.Read(buffer, 0, 8192) + read = resp.GetResponseStream.Read(buffer, Scan0, buffer.Length) ' Write to filestream that you declared at the beginning ' of the DoWork sub - fs.Write(buffer, 0, read) + fs.Write(buffer, Scan0, read) _currentSize += read interval = TimeSpan.FromMilliseconds(App.ElapsedMilliseconds - _startTime).TotalSeconds @@ -214,7 +215,18 @@ RE: busy += 1 End If - Return $"> '{saveFile.FileName}'{New String("."c, busy)} {StringFormats.Lanudry(currentSize)} [{(100 * _currentSize / _totalSize).ToString("F2")}%, {StringFormats.Lanudry(downloadSpeed)}/sec], elapsed {TimeSpan.FromMilliseconds(App.ElapsedMilliseconds - _startTime).FormatTime}" + Dim progress$ + + If _isUnknownContentSize Then + progress = $"%, {StringFormats.Lanudry(downloadSpeed)}/sec" + Else + progress = $"{(100 * _currentSize / _totalSize).ToString("F2")}%, {StringFormats.Lanudry(downloadSpeed)}/sec" + End If + + Dim elapsed$ = TimeSpan.FromMilliseconds(App.ElapsedMilliseconds - _startTime).FormatTime + Dim busyStr As New String("."c, busy) + + Return $"> '{saveFile.FileName}'{busyStr} {StringFormats.Lanudry(currentSize)} [{progress}], elapsed {elapsed}" End Function #Region "IDisposable Support" From 33cda610783f02993b4b8b94703e12173f97cae1 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 19 Oct 2019 01:44:51 +0800 Subject: [PATCH 041/104] improvements of the http request creator --- Net/HTTP/wgetTask.vb | 4 ++-- Text/Parser/HtmlParser/TagAttributeParser.vb | 20 +++++++++++++------- 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/Net/HTTP/wgetTask.vb b/Net/HTTP/wgetTask.vb index 11bfb9b2..4903e71e 100644 --- a/Net/HTTP/wgetTask.vb +++ b/Net/HTTP/wgetTask.vb @@ -148,7 +148,7 @@ RE: Private Sub doTaskInternal(bufferSize As Integer) ' Make a request for the url of the file to be downloaded - Dim req As WebRequest = WebRequest.Create(url) + Dim req As WebRequest = HttpGet.BuildWebRequest(url, Nothing, Nothing, UserAgent.GoogleChrome) Dim remote$ = "NA" If TypeOf req Is HttpWebRequest Then @@ -175,7 +175,7 @@ RE: ' task with no Content-Length Call doDownloadTask(resp, bufferSize, Function(read) read = 0) Else - Call doDownloadTask(resp, bufferSize, Function() currentSize < totalSize) + Call doDownloadTask(resp, bufferSize, Function() currentSize >= totalSize) End If resp.Close() diff --git a/Text/Parser/HtmlParser/TagAttributeParser.vb b/Text/Parser/HtmlParser/TagAttributeParser.vb index cb9cc5c1..25f1c6e0 100644 --- a/Text/Parser/HtmlParser/TagAttributeParser.vb +++ b/Text/Parser/HtmlParser/TagAttributeParser.vb @@ -78,13 +78,19 @@ Namespace Text.Parser.HtmlParser Const attributePattern$ = "%s\s*=\s*([""].+?[""])|(['].+?['])" + ''' + ''' Get element attribute value + ''' + ''' + ''' + ''' - Public Function GetAttrValue(html$, attr$) As String + Public Function attr(html$, attrName$) As String If String.IsNullOrEmpty(html) Then Return "" Else - attr = attributePattern.Replace("%s", attr) - html = html.Match(attr, RegexICSng) + attrName = attributePattern.Replace("%s", attrName) + html = html.Match(attrName, RegexICSng) End If If String.IsNullOrEmpty(html) Then @@ -106,19 +112,19 @@ Namespace Text.Parser.HtmlParser Public Function href( html$) As String - Return html.GetAttrValue("href") + Return html.attr("href") End Function Public Function [class](tag As String) As String - Return tag.GetAttrValue("class") + Return tag.attr("class") End Function Public Function classList(tag As String) As String() - Return tag.GetAttrValue("class").StringSplit("\s+") + Return tag.attr("class").StringSplit("\s+") End Function #Region "Parsing image source url from the img html tag." @@ -144,7 +150,7 @@ Namespace Text.Parser.HtmlParser Public Function src(img As String) As String - Return img.GetAttrValue("src") + Return img.attr("src") End Function From 240e80e1ef2e6b0dffd1ad9e8df996fe3a077e94 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 19 Oct 2019 15:02:06 +0800 Subject: [PATCH 042/104] add dev notes --- Extensions/Image/GDI+/GraphicsExtensions.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Extensions/Image/GDI+/GraphicsExtensions.vb b/Extensions/Image/GDI+/GraphicsExtensions.vb index cc3630ff..b4fc61aa 100644 --- a/Extensions/Image/GDI+/GraphicsExtensions.vb +++ b/Extensions/Image/GDI+/GraphicsExtensions.vb @@ -332,7 +332,10 @@ Namespace Imaging ''' 则使用这个函数则没有这个问题，在图片加载之后会立即释放掉文件句柄) ''' ''' - ''' + ''' + ''' 当参数为false时候，函数返回空值的话，说明图片文件错误 + ''' 例如文件未下载完成或者发生了二进制移码 + ''' Public Function LoadImage(path$, Optional base64 As Boolean = False, From 57a2d66d9df64946ce25d1b7610db75201813229 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 22 Oct 2019 16:42:34 +0800 Subject: [PATCH 043/104] code style improvements --- ComponentModel/Ranges/RangeModel/IntRange.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ComponentModel/Ranges/RangeModel/IntRange.vb b/ComponentModel/Ranges/RangeModel/IntRange.vb index 00e37f68..296170ee 100644 --- a/ComponentModel/Ranges/RangeModel/IntRange.vb +++ b/ComponentModel/Ranges/RangeModel/IntRange.vb @@ -64,17 +64,17 @@ Namespace ComponentModel.Ranges.Model ''' ''' Minimum value ''' - Public Property Min() As Integer Implements IRanges(Of Integer).Min + Public Property Min As Integer Implements IRanges(Of Integer).Min ''' ''' Maximum value ''' - Public Property Max() As Integer Implements IRanges(Of Integer).Max + Public Property Max As Integer Implements IRanges(Of Integer).Max ''' ''' Length of the range (deffirence between maximum and minimum values) ''' - Public ReadOnly Property Length() As Integer + Public ReadOnly Property Length As Integer Get Return Max - Min End Get From 5bf46f0e1bc665d9e593848aab8d8ce794962a6b Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 22 Oct 2019 18:31:45 +0800 Subject: [PATCH 044/104] fix for file not exists --- Extensions/Doc/Text.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Extensions/Doc/Text.vb b/Extensions/Doc/Text.vb index d550be5b..e7a93c76 100644 --- a/Extensions/Doc/Text.vb +++ b/Extensions/Doc/Text.vb @@ -214,6 +214,10 @@ Public Module TextDoc ''' ''' Public Function ReadFirstLine(path$, Optional encoding As Encoding = Nothing) As String + If path.FileLength <= 0 Then + Return "" + End If + Using file As New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read) Using reader As New StreamReader(file, encoding Or DefaultEncoding) Dim first$ = reader.ReadLine From 20bdbe96709992fe495db1fd5242b2298cf09dd4 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 22 Oct 2019 19:42:59 +0800 Subject: [PATCH 045/104] improvements of the generic xml data model --- ComponentModel/File/XmlDataModel.vb | 4 ++++ Text/Xml/Models/ListOf.vb | 29 +++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+) diff --git a/ComponentModel/File/XmlDataModel.vb b/ComponentModel/File/XmlDataModel.vb index 71e5144b..b6d4a8b7 100644 --- a/ComponentModel/File/XmlDataModel.vb +++ b/ComponentModel/File/XmlDataModel.vb @@ -117,6 +117,10 @@ Namespace ComponentModel Return New XmlDocument().CreateComment(GetTypeReferenceComment(Me.GetType)) End Function + Public Shared Function CreateTypeReferenceComment(type As Type) As XmlComment + Return New XmlDocument().CreateComment(GetTypeReferenceComment(type)) + End Function + Public Shared Sub SaveTypeComment(model As IXmlType) model.TypeComment = New XmlDocument().CreateComment(GetTypeReferenceComment(model.GetType)) End Sub diff --git a/Text/Xml/Models/ListOf.vb b/Text/Xml/Models/ListOf.vb index 08995ae2..dcc454de 100644 --- a/Text/Xml/Models/ListOf.vb +++ b/Text/Xml/Models/ListOf.vb @@ -43,7 +43,11 @@ #End Region Imports System.Runtime.CompilerServices +Imports System.Runtime.Serialization +Imports System.Web.Script.Serialization +Imports System.Xml Imports System.Xml.Serialization +Imports Microsoft.VisualBasic.ComponentModel Imports Microsoft.VisualBasic.Linq Namespace Text.Xml.Models @@ -89,6 +93,31 @@ Namespace Text.Xml.Models End Class Public Class XmlList(Of T) : Inherits ListOf(Of T) + Implements XmlDataModel.IXmlType + + ''' + ''' ReadOnly, Data model type tracking use Xml Comment. + ''' + ''' + ''' + ''' JSON存储的时候,这个属性会被自动忽略掉 + ''' + + + + + + Public Property TypeComment As XmlComment Implements XmlDataModel.IXmlType.TypeComment + + Get + Return XmlDataModel.CreateTypeReferenceComment(GetType(T)) + End Get + Set(value As XmlComment) + ' Do Nothing + ' 2018-6-5 this xml comment node cause bug + ' when using xml deserialization + End Set + End Property Public Property items As T() From 5ea437a0466174fccfa2d6f43b6f0e4a8479c7a2 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 24 Oct 2019 00:26:30 +0800 Subject: [PATCH 046/104] still have an offset bug --- CommandLine/Interpreters/View/ManualBuilder.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index 050ac93d..0cf9e3b6 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -257,7 +257,8 @@ Namespace CommandLine.ManView End If ' 这里的blank调整的是命令开关名称与描述之间的字符间距 - blank = New String(" "c, helpOffset - l + 2) + l = helpOffset - l + 2 + blank = If(l > 0, New String(" "c, l), " ") infoLines$ = param.Description _ .LineTokens _ .Select(Function(str) str.Trim(" "c, ASCII.TAB)) _ From 3c540e6b07760283873d6ebd3e1584c190ca42b8 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 24 Oct 2019 20:32:32 +0800 Subject: [PATCH 047/104] ignores exception on linux --- My/Framework/Config.vb | 40 +++++++++++++++++++++++++++------------- 1 file changed, 27 insertions(+), 13 deletions(-) diff --git a/My/Framework/Config.vb b/My/Framework/Config.vb index ce515216..3ab41f11 100644 --- a/My/Framework/Config.vb +++ b/My/Framework/Config.vb @@ -112,26 +112,40 @@ Namespace My.FrameworkInternal Return file.BaseName.StartsWith("Microsoft.VisualBasic") End Function) _ .ToArray - Dim assembly As Assembly - Dim configNames As FrameworkConfigAttribute() For Each file As String In modules - assembly = Assembly.LoadFile(file) - configNames = assembly.GetTypes _ - .Select(Function(type) - Return type.GetCustomAttributes(Of FrameworkConfigAttribute) - End Function) _ - .IteratesALL _ - .ToArray - - For Each configName As FrameworkConfigAttribute In configNames - config.environment(configName.Name) = "" - Next +#If UNIX Then + Try + Call fetchConfig(config, file) + Catch ex As Exception + ' ignores the bugs in environment + ' mono on linux + ' Could not load file or assembly 'PresentationFramework, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35' or one of its dependencies. + Call ex.Message.Print + Call file.Warning + End Try +#Else + Call fetchConfig(config, file) +#End If Next Return config.Save End Function + Private Shared Sub fetchConfig(config As Config, file$) + Dim assembly As Assembly = Assembly.LoadFile(file) + Dim configNames As FrameworkConfigAttribute() = assembly.GetTypes _ + .Select(Function(type) + Return type.GetCustomAttributes(Of FrameworkConfigAttribute) + End Function) _ + .IteratesALL _ + .ToArray + + For Each configName As FrameworkConfigAttribute In configNames + config.environment(configName.Name) = "" + Next + End Sub + Private Function Save() As Config Call Me _ .GetJson(indent:=True) _ From aef777b9a54e892b6954cc1b51d0536c530bf376 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 25 Oct 2019 21:53:34 +0800 Subject: [PATCH 048/104] --- 47-dotnet_Microsoft.VisualBasic.vbproj | 2 +- .../Reflection/Attributes/ExportAPI.vb | 94 +++++++++---------- .../DataStructures/BitMap/HashModel.vb | 7 +- 3 files changed, 52 insertions(+), 51 deletions(-) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index c4d863ae..dc44685c 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -571,7 +571,7 @@ FRAMEWORD_CORE=1,UNIX=1 true Microsoft.VisualBasic.Framework_v47_dotnet_8da45dcd8060cc9a.xml - true + false 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 Full x64 diff --git a/CommandLine/Reflection/Attributes/ExportAPI.vb b/CommandLine/Reflection/Attributes/ExportAPI.vb index a0df5354..51367e00 100644 --- a/CommandLine/Reflection/Attributes/ExportAPI.vb +++ b/CommandLine/Reflection/Attributes/ExportAPI.vb @@ -1,54 +1,54 @@ #Region "Microsoft.VisualBasic::fb69fc76f81f00cb04dcaaab9410eb37, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\ExportAPI.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 . +' 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: +' Summaries: - ' Class LastUpdatedAttribute - ' - ' Constructor: (+3 Overloads) Sub New - ' Function: ToString - ' - ' Class ExportAPIAttribute - ' - ' Properties: Example, Info, Name, Type, Usage - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: GenerateHtmlDoc, printView, PrintView, printViewHTML, ToString - ' - ' Interface IExportAPI - ' - ' Properties: Example, Info, Name, Usage - ' - ' - ' /********************************************************************************/ +' Class LastUpdatedAttribute +' +' Constructor: (+3 Overloads) Sub New +' Function: ToString +' +' Class ExportAPIAttribute +' +' Properties: Example, Info, Name, Type, Usage +' +' Constructor: (+1 Overloads) Sub New +' Function: GenerateHtmlDoc, printView, PrintView, printViewHTML, ToString +' +' Interface IExportAPI +' +' Properties: Example, Info, Name, Usage +' +' +' /********************************************************************************/ #End Region @@ -103,14 +103,14 @@ Namespace CommandLine.Reflection ''' ''' ''' - Public Property Info As String Implements IExportAPI.Info + Public Property Info As String Implements IExportAPI.Info ''' ''' The usage of this command.(这个命令的用法，本属性仅仅是一个助记符，当用户没有编写任何的使用方法信息的时候才会使用本属性的值) ''' ''' ''' ''' - Public Property Usage As String Implements IExportAPI.Usage + Public Property Usage As String Implements IExportAPI.Usage ''' ''' A example that to useing this command. ''' (对这个命令的使用示例，本属性仅仅是一个助记符，当用户没有编写任何示例信息的时候才会使用本属性的值， @@ -119,7 +119,7 @@ Namespace CommandLine.Reflection ''' ''' ''' - Public Property Example As String Implements IExportAPI.Example + Public Property Example As String Implements IExportAPI.Example ''' ''' You are going to define a available export api for you application to another language or scripting program environment. diff --git a/ComponentModel/DataStructures/BitMap/HashModel.vb b/ComponentModel/DataStructures/BitMap/HashModel.vb index b55a59cb..be1e19ce 100644 --- a/ComponentModel/DataStructures/BitMap/HashModel.vb +++ b/ComponentModel/DataStructures/BitMap/HashModel.vb @@ -62,7 +62,6 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ComponentModel.Collection.Generic -Imports Microsoft.VisualBasic.Language Namespace ComponentModel @@ -117,14 +116,16 @@ Namespace ComponentModel End Sub End Class + + Public Module AddressedValueExtensions Public Function Vector(Of T As IAddress(Of Integer), TOut)(source As IEnumerable(Of T), length As Integer, getValue As Func(Of T, TOut)) As TOut() Dim chunk As TOut() = New TOut(length - 1) {} - For Each x As T In source - chunk(x.Address) = getValue(x) + For Each element As T In source + chunk(element.Address) = getValue(element) Next Return chunk From b670d69a3ef8a06f2dca8102b7bc1782a3cc84d8 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 26 Oct 2019 17:32:54 +0800 Subject: [PATCH 049/104] improvements of the scripting parser helpers --- Scripting/TokenIcer/LangModels/Token.vb | 170 +++++++++++++----- Text/Parser/CharEnumerator.vb | 5 + .../SearchEngine/TextIndexing/TextIndexing.vb | 6 +- 3 files changed, 130 insertions(+), 51 deletions(-) diff --git a/Scripting/TokenIcer/LangModels/Token.vb b/Scripting/TokenIcer/LangModels/Token.vb index fb085be7..71f42c31 100644 --- a/Scripting/TokenIcer/LangModels/Token.vb +++ b/Scripting/TokenIcer/LangModels/Token.vb @@ -1,57 +1,57 @@ #Region "Microsoft.VisualBasic::7fffce487e1390b4d89c80f247130cc2, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\Token.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 . +' 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: +' Summaries: - ' Class Token - ' - ' Properties: Arguments, Closure, IsClosure, IsFunction, IsNumeric - ' IsObject, name, Text, Type, UNDEFINED - ' Value - ' - ' Constructor: (+3 Overloads) Sub New - ' Function: GetValue, ToString - ' - ' Class Statement - ' - ' Properties: tokens, Trace - ' - ' Function: ToString - ' - ' Class Main - ' - ' Properties: program - ' - ' - ' /********************************************************************************/ +' Class Token +' +' Properties: Arguments, Closure, IsClosure, IsFunction, IsNumeric +' IsObject, name, Text, Type, UNDEFINED +' Value +' +' Constructor: (+3 Overloads) Sub New +' Function: GetValue, ToString +' +' Class Statement +' +' Properties: tokens, Trace +' +' Function: ToString +' +' Class Main +' +' Properties: program +' +' +' /********************************************************************************/ #End Region @@ -68,7 +68,7 @@ Namespace Scripting.TokenIcer ''' ''' A Token object holds the token and token value. ''' - Public Class Token(Of Tokens As IComparable) : Implements Value(Of String).IValueOf + Public Class Token(Of Tokens As IComparable) : Implements Value(Of String).IValueOf ''' ''' Token type @@ -218,4 +218,78 @@ Namespace Scripting.TokenIcer Public Class Main(Of T As IComparable) Public Property program As Statement(Of T)() End Class + + ''' + ''' 目标Token对象在原始代码文本之中的定位位置 + ''' + Public Class CodeSpan + + ''' + ''' 源代码中的起始位置 + ''' + ''' + Public Property start As Integer + ''' + ''' 源代码中的结束位置 + ''' + ''' + Public Property stops As Integer + ''' + ''' 在代码文本的行号 + ''' + ''' + Public Property line As Integer + + End Class + + ''' + ''' a Token object class, This defines the Token object + ''' + ''' 应该是枚举类型 + ''' + ''' A Token object holds the token and token value. + ''' + Public MustInherit Class CodeToken(Of Tokens As IComparable) : Implements Value(Of String).IValueOf + + ''' + ''' Token type + ''' + ''' + + Public Property name As Tokens + Public Property span As CodeSpan + + ''' + ''' The text that makes up the token. + ''' + ''' + Public Property text As String Implements Value(Of String).IValueOf.Value + + ''' + ''' Returns a Boolean value indicating whether an expression can be evaluated as + ''' a number. + ''' + ''' + Public ReadOnly Property isNumeric As Boolean + Get + Return Information.IsNumeric(text) + End Get + End Property + + Public Sub New(name As Tokens, value$) + Me.name = name + Me.text = value + End Sub + + Sub New(name As Tokens) + Me.name = name + End Sub + + Sub New() + End Sub + + Public Overrides Function ToString() As String + Return $"[{name}] {text}" + End Function + End Class End Namespace diff --git a/Text/Parser/CharEnumerator.vb b/Text/Parser/CharEnumerator.vb index 7a9d6d3e..d59740c3 100644 --- a/Text/Parser/CharEnumerator.vb +++ b/Text/Parser/CharEnumerator.vb @@ -79,6 +79,11 @@ Namespace Text.Parser Return $"{previous} ->[{current}]<- {remaining}" End Function + + Public Shared Operator Not(chars As CharPtr) As Boolean + Return Not chars.EndRead + End Operator + Public Overloads Shared Widening Operator CType(str As String) As CharPtr Return New CharPtr(str) diff --git a/Text/SearchEngine/TextIndexing/TextIndexing.vb b/Text/SearchEngine/TextIndexing/TextIndexing.vb index f30d0f29..07e52d37 100644 --- a/Text/SearchEngine/TextIndexing/TextIndexing.vb +++ b/Text/SearchEngine/TextIndexing/TextIndexing.vb @@ -74,7 +74,7 @@ Namespace Text.Search ''' Sub New(text As String, min As Integer, max As Integer) If min = max Then - cache = __cache(text, max) + cache = doCache(text, max) Else cache = LinqAPI.Exec(Of TextSegment) _ _ @@ -83,7 +83,7 @@ Namespace Text.Search .Sequence _ .AsParallel Let len As Integer = min + d - Select __cache(text, len) + Select doCache(text, len) End If _text = text @@ -100,7 +100,7 @@ Namespace Text.Search Return Mid(_text, 1, 120) & "..." End Function - Private Shared Function __cache(text As String, len As Integer) As TextSegment() + Private Shared Function doCache(text As String, len As Integer) As TextSegment() Dim out As New List(Of TextSegment) For i As Integer = 1 To text.Length - len From b34fa9002d53bf8f665834425ea736d60af20358 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 27 Oct 2019 21:01:32 +0800 Subject: [PATCH 050/104] fix numeric pattern test bugs --- Extensions/Collection/Linq/Enumeration.vb | 7 +++++++ Extensions/StringHelpers/Parser.vb | 7 +++++++ 2 files changed, 14 insertions(+) diff --git a/Extensions/Collection/Linq/Enumeration.vb b/Extensions/Collection/Linq/Enumeration.vb index a48277ee..5db93666 100644 --- a/Extensions/Collection/Linq/Enumeration.vb +++ b/Extensions/Collection/Linq/Enumeration.vb @@ -98,6 +98,13 @@ Namespace Linq End Function End Class + + Public Iterator Function AsEnumerable(enums As Array) As IEnumerable(Of Object) + For Each element As Object In enums + Yield element + Next + End Function + ''' ''' Returns the input typed as . ''' diff --git a/Extensions/StringHelpers/Parser.vb b/Extensions/StringHelpers/Parser.vb index 45c24137..889b8028 100644 --- a/Extensions/StringHelpers/Parser.vb +++ b/Extensions/StringHelpers/Parser.vb @@ -67,6 +67,8 @@ Public Module PrimitiveParser ''' ''' 用于匹配任意实数的正则表达式 + ''' + ''' (这个正则表达式有一个bug，会匹配上一个单独的字母E) ''' ''' ''' 这个表达式并不用于, 但是其他的模块的代码可能会需要这个通用的表达式来做一些判断 @@ -86,6 +88,11 @@ Public Module PrimitiveParser Dim c As Char = num(Scan0) Dim offset As Integer = 0 + ' 修复正则匹配的bug + If num = "e" OrElse num = "E" Then + Return False + End If + If c = "-"c OrElse c = "+"c Then ' check for number sign symbol ' From 241ddf1f76122443b7b73d4667f557ee9a47a0ec Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 28 Oct 2019 18:35:53 +0800 Subject: [PATCH 051/104] code style improvements of the tiff writer --- .../Reflection/Attributes/Attribute.vb | 104 ++++++++----- .../Reflection/EntryPoints/APIEntryPoint.vb | 8 + Extensions/Collection/Linq/Enumeration.vb | 10 +- Extensions/Image/TiffWriter.vb | 146 +++++++++--------- 4 files changed, 154 insertions(+), 114 deletions(-) diff --git a/CommandLine/Reflection/Attributes/Attribute.vb b/CommandLine/Reflection/Attributes/Attribute.vb index 8f6263df..064e0880 100644 --- a/CommandLine/Reflection/Attributes/Attribute.vb +++ b/CommandLine/Reflection/Attributes/Attribute.vb @@ -1,55 +1,57 @@ #Region "Microsoft.VisualBasic::14ab68a159339eca4da9b94e67cc896d, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Attribute.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 . +' 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: +' Summaries: - ' Class UsageAttribute - ' - ' Properties: UsageInfo - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: ToString - ' - ' Class ExampleAttribute - ' - ' Properties: ExampleInfo - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: ToString - ' - ' - ' /********************************************************************************/ +' Class UsageAttribute +' +' Properties: UsageInfo +' +' Constructor: (+1 Overloads) Sub New +' Function: ToString +' +' Class ExampleAttribute +' +' Properties: ExampleInfo +' +' Constructor: (+1 Overloads) Sub New +' Function: ToString +' +' +' /********************************************************************************/ #End Region +Imports System.ComponentModel + Namespace CommandLine.Reflection @@ -79,4 +81,22 @@ Namespace CommandLine.Reflection Return ExampleInfo End Function End Class + + ''' + ''' 这个自定义属性与的使用类似 + ''' 只不过是针对命令的简单说明 + ''' 以及描述 + ''' + ''' 这个自定义属性是针对命令内的某些注意事项的更加详细的描述，默认是不显示的 + ''' 会在man模式下被显示出来 + ''' + + Public Class NoteAttribute : Inherits Attribute + + Public ReadOnly Property noteText As String + + Sub New(note As String) + Me.noteText = note + End Sub + End Class End Namespace diff --git a/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb b/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb index 8c9a7f27..bf5a5d0b 100644 --- a/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb +++ b/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb @@ -187,6 +187,14 @@ Namespace CommandLine.Reflection.EntryPoints End If End If + Dim note As NoteAttribute = EntryPoint.GetCustomAttribute(Of NoteAttribute) + + If Not note Is Nothing Then + Call sb.AppendLine() + Call sb.AppendLine("Author Comment About This Command:") + Call sb.AppendLine(note.noteText) + End If + Return sb.ToString End Function diff --git a/Extensions/Collection/Linq/Enumeration.vb b/Extensions/Collection/Linq/Enumeration.vb index 5db93666..34e25bf3 100644 --- a/Extensions/Collection/Linq/Enumeration.vb +++ b/Extensions/Collection/Linq/Enumeration.vb @@ -98,8 +98,16 @@ Namespace Linq End Function End Class + ''' + ''' 将一个对象转换为一个对象的枚举序列 + ''' + ''' + ''' + ''' + ''' 使用这个拓展函数的原因是对象不能够产生对象的枚举序列用于Linq拓展函数 + ''' - Public Iterator Function AsEnumerable(enums As Array) As IEnumerable(Of Object) + Public Iterator Function AsObjectEnumerator(enums As Array) As IEnumerable(Of Object) For Each element As Object In enums Yield element Next diff --git a/Extensions/Image/TiffWriter.vb b/Extensions/Image/TiffWriter.vb index 95c6f6a1..e10998f2 100644 --- a/Extensions/Image/TiffWriter.vb +++ b/Extensions/Image/TiffWriter.vb @@ -1,60 +1,56 @@ #Region "Microsoft.VisualBasic::03ff858003686cc92d3eab5acd654e71, Microsoft.VisualBasic.Core\Extensions\Image\TiffWriter.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 . +' 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: +' Summaries: - ' Class TiffWriter - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: __bitmaps, __getPageNumber, ConvertToBitonal, ExistingFileSave, GetCodec - ' GetEnumerator, IEnumerable_GetEnumerator, MultipageTiffSave, SaveMultipage, SaveToExistingFile - ' - ' Sub: __saveImageExistingMultiplePage, __saveImageExistingSinglePage, __saveMultipage, __saveToExistingFile, Add - ' - ' - ' /********************************************************************************/ +' Class TiffWriter +' +' Constructor: (+1 Overloads) Sub New +' +' Function: __bitmaps, __getPageNumber, ConvertToBitonal, ExistingFileSave, GetCodec +' GetEnumerator, IEnumerable_GetEnumerator, MultipageTiffSave, SaveMultipage, SaveToExistingFile +' +' Sub: __saveImageExistingMultiplePage, __saveImageExistingSinglePage, __saveMultipage, __saveToExistingFile, Add +' +' +' /********************************************************************************/ #End Region -Imports System.ComponentModel -Imports System.Data Imports System.Drawing -Imports System.Collections -Imports System.Windows.Forms Imports System.Drawing.Imaging -Imports System.Runtime.InteropServices -Imports System.Runtime.InteropServices.Marshal Imports System.IO +Imports System.Runtime.InteropServices.Marshal Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Linq Namespace Imaging @@ -86,6 +82,8 @@ Namespace Imaging Public Function MultipageTiffSave(path As String) As Boolean If _imageLayers.Count = 0 Then Return False + ElseIf path.FileLength > 0 Then + Return ExistingFileSave(path) Else Return SaveMultipage(_imageLayers, path, "TIFF") End If @@ -94,36 +92,42 @@ Namespace Imaging Public Function ExistingFileSave(path As String) As Boolean If _imageLayers.IsNullOrEmpty Then Return False + Else + Return _imageLayers _ + .DoCall(AddressOf layers2Bitmaps) _ + .DoCall(Function(layers) + Return SaveToExistingFile(path, layers, "TIFF") + End Function) End If - - Dim Res = SaveToExistingFile(path, __bitmaps(_imageLayers), "TIFF") - Return Res End Function Public Shared Function SaveMultipage(bmp As List(Of Image), location As String, type As String) As Boolean If bmp Is Nothing Then Return False Try - Call __saveMultipage(__bitmaps(bmp), location, type) + Call location.ParentPath.MkDIR + Call saveMultipage(layers2Bitmaps(bmp), location, type) Return True Catch ex As Exception - ex = New Exception(location.ToFileURL & " ===> " & type, ex) + ex = New Exception(location.ToFileURL, ex) Call App.LogException(ex) + Call ex.PrintException End Try Return False End Function - Private Shared Function __bitmaps(bmps As IEnumerable(Of Image)) As Image() - Return LinqAPI.Exec(Of Image) <= - From image As Image - In bmps - Where Not image Is Nothing - Let bitonal = ConvertToBitonal(DirectCast(image, Bitmap)) - Select DirectCast(bitonal, Image) + Private Shared Function layers2Bitmaps(bmps As IEnumerable(Of Image)) As Image() + Return LinqAPI.Exec(Of Image) _ + _ + () <= From image As Image + In bmps + Where Not image Is Nothing + Let bitonal = ConvertToBitonal(DirectCast(image, Bitmap)) + Select DirectCast(bitonal, Image) End Function - Private Shared Sub __saveMultipage(bmp As Image(), location As String, type As String) + Private Shared Sub saveMultipage(bmp As Image(), location As String, type As String) Dim codecInfo As ImageCodecInfo = GetCodec(type) If bmp.Length = 1 Then @@ -189,7 +193,7 @@ Namespace Imaging ''' Public Shared Function SaveToExistingFile(fileName As String, bmp As Image(), type As String) As Boolean Try - Call __saveToExistingFile(fileName, bmp, type) + Call doSaveToExistingFile(fileName, bmp, type) Return True Catch ex As Exception Call App.LogException(ex) @@ -197,21 +201,21 @@ Namespace Imaging End Try End Function - Private Shared Sub __saveToExistingFile(fileName As String, bmp As Image(), type As String) - 'bmp[0] is containing Image from Existing file on which we will append newly scanned Images - 'SO first we will dicide wheter existing file is single page or multipage - Dim fr As FileStream = IO.File.Open(fileName, FileMode.Open, FileAccess.ReadWrite) - Dim origionalFile As Image = Image.FromStream(fr) - Dim PageNumber As Integer = __getPageNumber(origionalFile) + Private Shared Sub doSaveToExistingFile(fileName As String, bmp As Image(), type As String) + ' bmp[0] is containing Image from Existing file on which we will append newly scanned Images + ' SO first we will dicide wheter existing file is single page or multipage + Using fr As FileStream = IO.File.Open(fileName, FileMode.Open, FileAccess.ReadWrite) + Dim origionalFile As Image = Image.FromStream(fr) + Dim PageNumber As Integer = getPageNumber(origionalFile) - If PageNumber > 1 Then 'Existing File is multi page tiff file - __saveImageExistingMultiplePage(bmp, origionalFile, type, PageNumber, "shreeTemp.tif") - ElseIf PageNumber = 1 Then 'Existing file is single page file - __saveImageExistingSinglePage(bmp, origionalFile, type, "shreeTemp.tif") - End If + If PageNumber > 1 Then 'Existing File is multi page tiff file + __saveImageExistingMultiplePage(bmp, origionalFile, type, PageNumber, "shreeTemp.tif") + ElseIf PageNumber = 1 Then 'Existing file is single page file + __saveImageExistingSinglePage(bmp, origionalFile, type, "shreeTemp.tif") + End If - Call fr.Flush() - Call fr.Close() + Call fr.Flush() + End Using Call IO.File.Replace("shreeTemp.tif", fileName, "Backup.tif", True) End Sub @@ -301,7 +305,7 @@ Namespace Imaging pages.SaveAdd(EncoderParams) End Sub - Private Shared Function __getPageNumber(img As Image) As Integer + Private Shared Function getPageNumber(img As Image) As Integer Dim objGuid As Guid = img.FrameDimensionsList(0) Dim objDimension As New FrameDimension(objGuid) 'Gets the total number of frames in the .tiff file From 494dac761325934cc34c41647ac3285858d2452f Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 28 Oct 2019 21:53:23 +0800 Subject: [PATCH 052/104] improvements for code debug --- Extensions/StringHelpers/RegexExtensions.vb | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Extensions/StringHelpers/RegexExtensions.vb b/Extensions/StringHelpers/RegexExtensions.vb index a6c0ac21..3710dd55 100644 --- a/Extensions/StringHelpers/RegexExtensions.vb +++ b/Extensions/StringHelpers/RegexExtensions.vb @@ -270,7 +270,17 @@ Public Module RegexExtensions ' 2018-6-1 因为空字符串肯定无法匹配上目标模式 ' 所以match函数总回返回空字符串 ' 由于s参数本身就是空字符串，所以会造成空字符串可以被任意模式完全匹配的bug - Return Not s.StringEmpty AndAlso Regex.Match(s, pattern, opt).Value = s + If s.StringEmpty Then + Return False + End If + + Dim match$ = Regex.Match(s, pattern, opt).Value + + If match = s Then + Return True + Else + Return False + End If End Function ''' From 822c9d65382212f65af0ea145d9f5390266f69f8 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 29 Oct 2019 18:31:19 +0800 Subject: [PATCH 053/104] create stack frame object --- ApplicationServices/Debugger/Exception/StackFrame.vb | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ApplicationServices/Debugger/Exception/StackFrame.vb b/ApplicationServices/Debugger/Exception/StackFrame.vb index 6bc29897..6171e026 100644 --- a/ApplicationServices/Debugger/Exception/StackFrame.vb +++ b/ApplicationServices/Debugger/Exception/StackFrame.vb @@ -104,6 +104,9 @@ Namespace ApplicationServices.Debugging.Diagnostics Public Property [Module] As String Public Property Method As String + Sub New() + End Sub + Sub New(s As String) Dim t = s.Split("."c).AsList From 51f1149d51ea8eb99f7a6d3d0c56f5d5f0228142 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 29 Oct 2019 21:37:24 +0800 Subject: [PATCH 054/104] add debug view --- Scripting/TokenIcer/LangModels/Token.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Scripting/TokenIcer/LangModels/Token.vb b/Scripting/TokenIcer/LangModels/Token.vb index 71f42c31..511c1506 100644 --- a/Scripting/TokenIcer/LangModels/Token.vb +++ b/Scripting/TokenIcer/LangModels/Token.vb @@ -240,6 +240,10 @@ Namespace Scripting.TokenIcer ''' Public Property line As Integer + Public Overrides Function ToString() As String + Return $"[{start}, {[stops]}] at line {line}" + End Function + End Class ''' From 2573194a78b19e65f9ffb642e995e34b729c87c4 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 31 Oct 2019 19:05:03 +0800 Subject: [PATCH 055/104] Update Shell.vb add xml comment docs --- ApplicationServices/Terminal/InteractiveIODevice/Shell.vb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb index fecc7ed7..e101343a 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb @@ -60,6 +60,8 @@ Namespace Terminal ''' ''' Command text for exit the shell loop + ''' + ''' (默认的退出文本为vim的 ``:q`` 命令) ''' ''' Public Property Quite As String = ":q" From e3635daa83774dc2c7ed4a78fdf60b29aad58886 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 31 Oct 2019 20:25:01 +0800 Subject: [PATCH 056/104] mark output data types --- .../InteropService/SharedORM/CodeGenerator.vb | 82 ++++++++++--------- .../Interpreters/View/ManualBuilder.vb | 20 +++++ CommandLine/Reflection/Attributes/Argument.vb | 17 ++++ 3 files changed, 79 insertions(+), 40 deletions(-) diff --git a/CommandLine/InteropService/SharedORM/CodeGenerator.vb b/CommandLine/InteropService/SharedORM/CodeGenerator.vb index 181b1756..2e0baadc 100644 --- a/CommandLine/InteropService/SharedORM/CodeGenerator.vb +++ b/CommandLine/InteropService/SharedORM/CodeGenerator.vb @@ -1,47 +1,47 @@ #Region "Microsoft.VisualBasic::9f7ca69490a4b9091c58e6698b7c17bf, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\CodeGenerator.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 . +' 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: +' Summaries: - ' Class CodeGenerator - ' - ' Constructor: (+2 Overloads) Sub New - ' Function: EnumeratesAPI, GetManualPage - ' - ' Class APITuple - ' - ' Properties: API, CLI - ' - ' - ' /********************************************************************************/ +' Class CodeGenerator +' +' Constructor: (+2 Overloads) Sub New +' Function: EnumeratesAPI, GetManualPage +' +' Class APITuple +' +' Properties: API, CLI +' +' +' /********************************************************************************/ #End Region @@ -51,6 +51,8 @@ Imports Microsoft.VisualBasic.CommandLine.ManView Imports Microsoft.VisualBasic.CommandLine.Reflection.EntryPoints Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Text.Xml Namespace CommandLine.InteropService.SharedORM @@ -108,9 +110,9 @@ Namespace CommandLine.InteropService.SharedORM Try help = -$"``` -{apiUsage.Replace("<", "<")} -```" & vbCrLf & api.Info +$"```bash +{apiUsage.DoCall(AddressOf XmlEntity.EscapingXmlEntity)} +```" & vbCrLf & api.Info.DoCall(AddressOf XmlEntity.EscapingXmlEntity) CLI = New NamedValue(Of CommandLine) With { .Name = api.EntryPoint.Name, diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index 0cf9e3b6..ea65c359 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -117,6 +117,26 @@ Namespace CommandLine.ManView End With + Dim outputMarks = api.EntryPoint _ + .GetCustomAttributes(True) _ + .Where(Function(a) a.GetType Is GetType(OutputAttribute)) _ + .Select(Function(out) DirectCast(out, OutputAttribute)) _ + .ToArray + + If Not outputMarks.IsNullOrEmpty Then + Call Console.WriteLine() + Call Console.WriteLine(" This command produce these data files:") + Call Console.WriteLine(" ====================================================") + Call Console.WriteLine() + + Call outputMarks _ + .Select(Function(o) + Dim desc = o.extension.GetMIMEDescrib + Return {desc.FileExt, desc.MIMEType, desc.Name, o.result.FullName} + End Function) _ + .PrintTable(App.StdOut) + End If + If Not api.Arguments.IsNullOrEmpty Then Call Console.WriteLine() Call Console.WriteLine(" Command with arguments:") diff --git a/CommandLine/Reflection/Attributes/Argument.vb b/CommandLine/Reflection/Attributes/Argument.vb index e0889984..a7a04eea 100644 --- a/CommandLine/Reflection/Attributes/Argument.vb +++ b/CommandLine/Reflection/Attributes/Argument.vb @@ -206,4 +206,21 @@ Namespace CommandLine.Reflection Return sb.ToString End Function End Class + + + Public Class OutputAttribute : Inherits Attribute + + Public ReadOnly Property result As Type + ''' + ''' The file extension name, like ``*.csv`` + ''' + ''' + Public ReadOnly Property extension As String + + Sub New(resultType As Type, fileExt$) + result = resultType + extension = fileExt + End Sub + + End Class End Namespace From 8f50992b0365ffbf44b3dd5cd6dcf08e096339ca Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 1 Nov 2019 22:30:46 +0800 Subject: [PATCH 057/104] Update ListExtensions.vb add dev note --- Extensions/Collection/ListExtensions.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Extensions/Collection/ListExtensions.vb b/Extensions/Collection/ListExtensions.vb index acc2cecc..1ec2568b 100644 --- a/Extensions/Collection/ListExtensions.vb +++ b/Extensions/Collection/ListExtensions.vb @@ -177,7 +177,7 @@ Public Module ListExtensions End Function ''' - ''' 从一个对象集合中创建索引 + ''' 从一个对象集合中创建索引，请注意，传递进入这个函数的参数应该是经过去重操作之后的数据 ''' ''' ''' From 16c2fd1553128a19d0b39d098c1985ae74aedd63 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 4 Nov 2019 18:41:47 +0800 Subject: [PATCH 058/104] improvements of the gdi+ math helper --- .../Terminal/Utility/ProgressBar/SwayBar.vb | 12 ++- Extensions/Image/GDI+/GDICanvas.vb | 58 ++++------ Extensions/Image/GDI+/GraphicsExtensions.vb | 89 ++++++++-------- Extensions/Image/GDI+/Interface.vb | 20 ++-- Extensions/Image/Math/GeomTransform.vb | 36 +++++++ Extensions/Math/Math.vb | 100 +++++++++--------- 6 files changed, 168 insertions(+), 147 deletions(-) diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb index 50f8d6fb..eb7e12c5 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb @@ -126,6 +126,10 @@ Namespace Terminal.ProgressBar ''' prints the progress bar acorrding to pointers and current direction ''' Public Overrides Sub [Step]() + Call [Step](message:="") + End Sub + + Public Overloads Sub [Step](message As String) If currdir = direction.right Then PlacePointer(counter, pointer.Length) counter += 1 @@ -142,7 +146,13 @@ Namespace Terminal.ProgressBar End If End If - Call Console.Write(bar & vbCr) + message = bar & message + + If message.Length > Console.WindowWidth Then + message = Mid(message, 1, Console.WindowWidth - 15) & "..." + End If + + Call Console.Write(message & vbCr) End Sub End Class End Namespace diff --git a/Extensions/Image/GDI+/GDICanvas.vb b/Extensions/Image/GDI+/GDICanvas.vb index ee676b8f..d44d2af6 100644 --- a/Extensions/Image/GDI+/GDICanvas.vb +++ b/Extensions/Image/GDI+/GDICanvas.vb @@ -3909,49 +3909,27 @@ Namespace Imaging Public Overrides Sub FillEllipse(brush As Brush, x As Integer, y As Integer, width As Integer, height As Integer) Call Graphics.FillEllipse(brush, x, y, width, height) End Sub - ' - ' Summary: - ' Fills the interior of an ellipse defined by a bounding rectangle specified by - ' a pair of coordinates, a width, and a height. - ' - ' Parameters: - ' brush: - ' System.Drawing.Brush that determines the characteristics of the fill. - ' - ' x: - ' The x-coordinate of the upper-left corner of the bounding rectangle that defines - ' the ellipse. - ' - ' y: - ' The y-coordinate of the upper-left corner of the bounding rectangle that defines - ' the ellipse. - ' - ' width: - ' Width of the bounding rectangle that defines the ellipse. - ' - ' height: - ' Height of the bounding rectangle that defines the ellipse. - ' - ' Exceptions: - ' T:System.ArgumentNullException: - ' brush is null. + + ''' + ''' Fills the interior of an ellipse defined by a bounding rectangle specified by + ''' a pair of coordinates, a width, and a height. + ''' + ''' System.Drawing.Brush that determines the characteristics of the fill. + ''' The x-coordinate of the upper-left corner of the bounding rectangle that defines + ''' the ellipse. + ''' The y-coordinate of the upper-left corner of the bounding rectangle that defines + ''' the ellipse. + ''' Width of the bounding rectangle that defines the ellipse. + ''' Height of the bounding rectangle that defines the ellipse. Public Overrides Sub FillEllipse(brush As Brush, x As Single, y As Single, width As Single, height As Single) Call Graphics.FillEllipse(brush, x, y, width, height) End Sub - ' - ' Summary: - ' Fills the interior of a System.Drawing.Drawing2D.GraphicsPath. - ' - ' Parameters: - ' brush: - ' System.Drawing.Brush that determines the characteristics of the fill. - ' - ' path: - ' System.Drawing.Drawing2D.GraphicsPath that represents the path to fill. - ' - ' Exceptions: - ' T:System.ArgumentNullException: - ' brush is null.-or-path is null. + + ''' + ''' Fills the interior of a System.Drawing.Drawing2D.GraphicsPath. + ''' + ''' System.Drawing.Brush that determines the characteristics of the fill. + ''' System.Drawing.Drawing2D.GraphicsPath that represents the path to fill. Public Overrides Sub FillPath(brush As Brush, path As GraphicsPath) Call Graphics.FillPath(brush, path) End Sub diff --git a/Extensions/Image/GDI+/GraphicsExtensions.vb b/Extensions/Image/GDI+/GraphicsExtensions.vb index b4fc61aa..63640e91 100644 --- a/Extensions/Image/GDI+/GraphicsExtensions.vb +++ b/Extensions/Image/GDI+/GraphicsExtensions.vb @@ -1,52 +1,53 @@ #Region "Microsoft.VisualBasic::dcfdfa610e8d4062f28ff78bce86805c, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\GraphicsExtensions.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 . +' 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: +' Summaries: - ' Module GraphicsExtensions - ' - ' Function: BackgroundGraphics, CanvasCreateFromImageFile, (+2 Overloads) Clone, ColorBrush, CreateCanvas2D - ' (+4 Overloads) CreateGDIDevice, CreateGrayBitmap, EntireImage, GetBrush, GetBrushes - ' (+2 Overloads) GetIcon, GetStreamBuffer, GetStringPath, (+2 Overloads) GraphicsPath, ImageAddFrame - ' IsValidGDIParameter, (+3 Overloads) LoadImage, (+2 Overloads) Opacity, OpenDevice, (+2 Overloads) PointF - ' SaveIcon, SizeF, ToFloat, ToPoint, ToPoints - ' ToStream - ' - ' Sub: (+5 Overloads) DrawCircle - ' - ' - ' /********************************************************************************/ +' Module GraphicsExtensions +' +' Function: BackgroundGraphics, CanvasCreateFromImageFile, (+2 Overloads) Clone, ColorBrush, CreateCanvas2D +' (+4 Overloads) CreateGDIDevice, CreateGrayBitmap, EntireImage, GetBrush, GetBrushes +' (+2 Overloads) GetIcon, GetStreamBuffer, GetStringPath, (+2 Overloads) GraphicsPath, ImageAddFrame +' IsValidGDIParameter, (+3 Overloads) LoadImage, (+2 Overloads) Opacity, OpenDevice, (+2 Overloads) PointF +' SaveIcon, SizeF, ToFloat, ToPoint, ToPoints +' ToStream +' +' Sub: (+5 Overloads) DrawCircle +' +' +' /********************************************************************************/ #End Region +Imports System.ComponentModel Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Imaging @@ -72,6 +73,7 @@ Namespace Imaging Publisher:="xie.guigang@gmail.com", Revision:=58, Url:="http://gcmodeller.org")> + Public Module GraphicsExtensions @@ -390,7 +392,8 @@ Namespace Imaging End With End Function - + + Public Function CreateGrayBitmap(res As Image) As Image Using g As Graphics2D = DirectCast(res.Clone, Image).CreateCanvas2D With g @@ -441,11 +444,13 @@ Namespace Imaging ''' - Public Function CreateGDIDevice(r As SizeF, Optional filled As Color = Nothing) As Graphics2D + + Public Function CreateGDIDevice(r As SizeF, Optional filled As Color = Nothing) As Graphics2D Return (New Size(CInt(r.Width), CInt(r.Height))).CreateGDIDevice(filled) End Function - Public Function OpenDevice(ctrl As Control) As Graphics2D + + Public Function OpenDevice(ctrl As Control) As Graphics2D Dim img As Image = New Bitmap(ctrl.Width, ctrl.Height) Dim canvas = img.CreateCanvas2D diff --git a/Extensions/Image/GDI+/Interface.vb b/Extensions/Image/GDI+/Interface.vb index 7f95c848..2c9ffccd 100644 --- a/Extensions/Image/GDI+/Interface.vb +++ b/Extensions/Image/GDI+/Interface.vb @@ -3463,20 +3463,12 @@ Namespace Imaging ' T:System.ArgumentNullException: ' brush is null. Public MustOverride Sub FillEllipse(brush As Brush, x As Integer, y As Integer, width As Integer, height As Integer) - ' - ' Summary: - ' Fills the interior of a System.Drawing.Drawing2D.GraphicsPath. - ' - ' Parameters: - ' brush: - ' System.Drawing.Brush that determines the characteristics of the fill. - ' - ' path: - ' System.Drawing.Drawing2D.GraphicsPath that represents the path to fill. - ' - ' Exceptions: - ' T:System.ArgumentNullException: - ' brush is null.-or-path is null. + + ''' + ''' Fills the interior of a System.Drawing.Drawing2D.GraphicsPath. + ''' + ''' System.Drawing.Brush that determines the characteristics of the fill. + ''' System.Drawing.Drawing2D.GraphicsPath that represents the path to fill. Public MustOverride Sub FillPath(brush As Brush, path As GraphicsPath) ' ' Summary: diff --git a/Extensions/Image/Math/GeomTransform.vb b/Extensions/Image/Math/GeomTransform.vb index f734d691..a69686d8 100644 --- a/Extensions/Image/Math/GeomTransform.vb +++ b/Extensions/Image/Math/GeomTransform.vb @@ -136,6 +136,33 @@ Namespace Imaging.Math2D Return New Point(size.Width / 2, size.Height / 2) End Function + + + Public Function OffSet2D(rect As Rectangle, offset As Point) As Rectangle + Return New Rectangle With { + .Location = rect.Location.OffSet2D(offset), + .Size = rect.Size + } + End Function + + + + Public Function OffSet2D(rect As Rectangle, offset As PointF) As Rectangle + Return New Rectangle With { + .Location = rect.Location.OffSet2D(offset), + .Size = rect.Size + } + End Function + + + + Public Function OffSet2D(rect As Rectangle, offsetX!, offsetY!) As Rectangle + Return New Rectangle With { + .Location = rect.Location.OffSet2D(offsetX, offsetY), + .Size = rect.Size + } + End Function + ''' ''' 返回位移的新的点位置值 ''' @@ -415,6 +442,15 @@ Namespace Imaging.Math2D End With End Function + + Public Function Scale(rect As Rectangle, factorX!, factorY!) As Rectangle + With rect + With New RectangleF(.Location.PointF, .Size.SizeF).Scale(New SizeF(factorX, factorY)) + Return New Rectangle(.Location.ToPoint, .Size.ToSize) + End With + End With + End Function + ''' ''' 获取目标多边形对象的中心点的坐标位置 ''' diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb index c94a668a..6282d8ff 100644 --- a/Extensions/Math/Math.vb +++ b/Extensions/Math/Math.vb @@ -57,7 +57,7 @@ Imports Microsoft.VisualBasic.ComponentModel.Ranges.Model Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Scripting.MetaData -Imports sys = System.Math +Imports stdNum = System.Math Namespace Math @@ -73,11 +73,11 @@ Namespace Math ''' Represents the ratio of the circumference of a circle to its diameter, specified ''' by the constant, π. ''' - Public Const PI# = sys.PI + Public Const PI# = stdNum.PI ''' ''' Represents the natural logarithmic base, specified by the constant, e. ''' - Public Const E# = sys.E + Public Const E# = stdNum.E #Region "Imports System.Math" @@ -442,7 +442,7 @@ Namespace Math ' The number containing the product of the specified numbers. Public Function BigMul(a As Integer, b As Integer) As Long - Return sys.BigMul(a, b) + Return stdNum.BigMul(a, b) End Function ' ' Summary: @@ -611,7 +611,7 @@ Namespace Math ''' Public Function Log(a#, newBase#) As Double - Return sys.Log(a, newBase) + Return stdNum.Log(a, newBase) End Function ''' @@ -810,7 +810,7 @@ Namespace Math Public Function Tanh(value As Double) As Double - Return sys.Tanh(value) + Return stdNum.Tanh(value) End Function ' ' Summary: @@ -827,7 +827,7 @@ Namespace Math Public Function Sinh(value As Double) As Double - Return sys.Sinh(value) + Return stdNum.Sinh(value) End Function ' ' Summary: @@ -843,7 +843,7 @@ Namespace Math Public Function Tan(a As Double) As Double - Return sys.Tan(a) + Return stdNum.Tan(a) End Function ' ' Summary: @@ -859,7 +859,7 @@ Namespace Math Public Function Sin(a As Double) As Double - Return sys.Sin(a) + Return stdNum.Sin(a) End Function ' ' Summary: @@ -877,7 +877,7 @@ Namespace Math Public Function Floor(d As Double) As Double - Return sys.Floor(d) + Return stdNum.Floor(d) End Function @@ -894,7 +894,7 @@ Namespace Math ' integral value of type System.Math. Public Function Floor(d As Decimal) As Decimal - Return sys.Floor(d) + Return stdNum.Floor(d) End Function ' @@ -912,7 +912,7 @@ Namespace Math Public Function Round(a As Double) As Double - Return sys.Round(a) + Return stdNum.Round(a) End Function ''' @@ -927,7 +927,7 @@ Namespace Math Public Function Cosh(value As Double) As Double - Return sys.Cosh(value) + Return stdNum.Cosh(value) End Function ' ' Summary: @@ -946,7 +946,7 @@ Namespace Math Public Function Ceiling(a As Double) As Double - Return sys.Ceiling(a) + Return stdNum.Ceiling(a) End Function ' ' Summary: @@ -962,7 +962,7 @@ Namespace Math ' method returns a System.Decimal instead of an integral type. Public Function Ceiling(d As Decimal) As Decimal - Return sys.Ceiling(d) + Return stdNum.Ceiling(d) End Function ' ' Summary: @@ -988,7 +988,7 @@ Namespace Math Public Function Atan2(y As Double, x As Double) As Double - Return sys.Atan2(y, x) + Return stdNum.Atan2(y, x) End Function ' ' Summary: @@ -1006,7 +1006,7 @@ Namespace Math Public Function Atan(d As Double) As Double - Return sys.Atan(d) + Return stdNum.Atan(d) End Function ' ' Summary: @@ -1023,7 +1023,7 @@ Namespace Math Public Function Asin(d As Double) As Double - Return sys.Asin(d) + Return stdNum.Asin(d) End Function ' ' Summary: @@ -1040,7 +1040,7 @@ Namespace Math Public Function Acos(d As Double) As Double - Return sys.Acos(d) + Return stdNum.Acos(d) End Function ''' @@ -1051,7 +1051,7 @@ Namespace Math Public Function Cos(d As Double) As Double - Return sys.Cos(d) + Return stdNum.Cos(d) End Function ' ' Summary: @@ -1076,7 +1076,7 @@ Namespace Math ' b is zero. Public Function DivRem(a As Integer, b As Integer, ByRef result As Integer) As Integer - Return sys.DivRem(a, b, result) + Return stdNum.DivRem(a, b, result) End Function ''' @@ -1090,7 +1090,7 @@ Namespace Math ''' Public Function Round(value As Double, digits As Integer) As Double - Return sys.Round(value, digits) + Return stdNum.Round(value, digits) End Function ' ' Summary: @@ -1120,7 +1120,7 @@ Namespace Math ' mode is not a valid value of System.MidpointRounding. Public Function Round(value As Double, digits As Integer, mode As MidpointRounding) As Double - Return sys.Round(value, digits, mode) + Return stdNum.Round(value, digits, mode) End Function ' ' Summary: @@ -1188,7 +1188,7 @@ Namespace Math ' or -0 if x is negative.If y = 0, System.Double.NaN is returned. Public Function IEEERemainder(x As Double, y As Double) As Double - Return sys.IEEERemainder(x, y) + Return stdNum.IEEERemainder(x, y) End Function ''' @@ -1212,7 +1212,7 @@ Namespace Math Public Function Exp(d As Double) As Double - Return sys.Exp(d) + Return stdNum.Exp(d) End Function ' ' Summary: @@ -1229,7 +1229,7 @@ Namespace Math Public Function Log10(d As Double) As Double - Return sys.Log10(d) + Return stdNum.Log10(d) End Function ' ' Summary: @@ -1252,7 +1252,7 @@ Namespace Math ' mode is not a valid value of System.MidpointRounding. Public Function Round(value As Double, mode As MidpointRounding) As Double - Return sys.Round(value, mode) + Return stdNum.Round(value, mode) End Function ' ' Summary: @@ -1269,7 +1269,7 @@ Namespace Math Public Function Log(d As Double) As Double - Return sys.Log(d) + Return stdNum.Log(d) End Function ''' @@ -1286,7 +1286,7 @@ Namespace Math ''' Public Function Truncate(d As Double) As Double - Return sys.Truncate(d) + Return stdNum.Truncate(d) End Function ' ' Summary: @@ -1301,7 +1301,7 @@ Namespace Math ' digits have been discarded. Public Function Truncate(d As Decimal) As Decimal - Return sys.Truncate(d) + Return stdNum.Truncate(d) End Function ' ' Summary: @@ -1333,7 +1333,7 @@ Namespace Math ' The result is outside the range of a System.Decimal. Public Function Round(d As Decimal, decimals As Integer, mode As MidpointRounding) As Decimal - Return sys.Round(d, decimals, mode) + Return stdNum.Round(d, decimals, mode) End Function ' ' Summary: @@ -1359,7 +1359,7 @@ Namespace Math ' The result is outside the range of a System.Decimal. Public Function Round(d As Decimal, mode As MidpointRounding) As Decimal - Return sys.Round(d, mode) + Return stdNum.Round(d, mode) End Function ' ' Summary: @@ -1384,7 +1384,7 @@ Namespace Math ' The result is outside the range of a System.Decimal. Public Function Round(d As Decimal, decimals As Integer) As Decimal - Return sys.Round(d, decimals) + Return stdNum.Round(d, decimals) End Function ' ' Summary: @@ -1405,7 +1405,7 @@ Namespace Math ' The result is outside the range of a System.Decimal. Public Function Round(d As Decimal) As Decimal - Return sys.Round(d) + Return stdNum.Round(d) End Function ''' @@ -1418,7 +1418,7 @@ Namespace Math Public Function Sqrt(d As Double) As Double - Return sys.Sqrt(d) + Return stdNum.Sqrt(d) End Function ' ' Summary: @@ -1443,7 +1443,7 @@ Namespace Math ' b is zero. Public Function DivRem(a As Long, b As Long, ByRef result As Long) As Long - Return sys.DivRem(a, b, result) + Return stdNum.DivRem(a, b, result) End Function #End Region @@ -1455,7 +1455,7 @@ Namespace Math ''' Public Function Log2(x#) As Double - Return sys.Log(x, newBase:=2) + Return stdNum.Log(x, newBase:=2) End Function @@ -1574,7 +1574,7 @@ Namespace Math ''' Public Function LogN(x As Double, N As Double) As Double - Return sys.Log(x) / sys.Log(N) + Return stdNum.Log(x) / stdNum.Log(N) End Function ''' @@ -1586,7 +1586,7 @@ Namespace Math ''' Public Function Max(a As Integer, b As Integer, c As Integer) As Integer - Return sys.Max(a, sys.Max(b, c)) + Return stdNum.Max(a, stdNum.Max(b, c)) End Function ''' @@ -1599,12 +1599,12 @@ Namespace Math Public Function Hypot(a As Double, b As Double) As Double Dim r As Double - If sys.Abs(a) > sys.Abs(b) Then + If stdNum.Abs(a) > stdNum.Abs(b) Then r = b / a - r = sys.Abs(a) * sys.Sqrt(1 + r * r) + r = stdNum.Abs(a) * stdNum.Sqrt(1 + r * r) ElseIf b <> 0 Then r = a / b - r = sys.Abs(b) * sys.Sqrt(1 + r * r) + r = stdNum.Abs(b) * stdNum.Sqrt(1 + r * r) Else r = 0.0 End If @@ -1877,7 +1877,7 @@ Namespace Math Dim data#() = values.ToArray Dim avg# = data.Average Dim sumValue# = Aggregate n As Double In data Into Sum((n - avg) ^ 2) - Return sys.Sqrt(sumValue / data.Length) + Return stdNum.Sqrt(sumValue / data.Length) End Function ''' @@ -1923,13 +1923,13 @@ Namespace Math Public Function EuclideanDistance(vector As IEnumerable(Of Double)) As Double ' 由于是和令进行比较，减零仍然为原来的数，所以这里直接使用n^2了 - Return sys.Sqrt((From n In vector Select n ^ 2).Sum) + Return stdNum.Sqrt((From n In vector Select n ^ 2).Sum) End Function Public Function EuclideanDistance(Vector As IEnumerable(Of Integer)) As Double - Return sys.Sqrt((From n In Vector Select n ^ 2).Sum) + Return stdNum.Sqrt((From n In Vector Select n ^ 2).Sum) End Function @@ -1937,7 +1937,7 @@ Namespace Math If a.Count <> b.Count Then Return -1 Else - Return sys.Sqrt((From i As Integer In a.Sequence Select (a(i) - b(i)) ^ 2).Sum) + Return stdNum.Sqrt((From i As Integer In a.Sequence Select (a(i) - b(i)) ^ 2).Sum) End If End Function @@ -1958,7 +1958,7 @@ Namespace Math If a.Length <> b.Length Then Return -1.0R Else - Return sys.Sqrt((From i As Integer In a.Sequence Select (CInt(a(i)) - CInt(b(i))) ^ 2).Sum) + Return stdNum.Sqrt((From i As Integer In a.Sequence Select (CInt(a(i)) - CInt(b(i))) ^ 2).Sum) End If End Function @@ -1973,7 +1973,7 @@ Namespace Math If a.Length <> b.Length Then Return -1.0R Else - Return sys.Sqrt((From i As Integer In a.Sequence Select (a(i) - b(i)) ^ 2).Sum) + Return stdNum.Sqrt((From i As Integer In a.Sequence Select (a(i) - b(i)) ^ 2).Sum) End If End Function @@ -2009,7 +2009,7 @@ Namespace Math Public Function RMS(data As IEnumerable(Of Double)) As Double With (From n In data Select n ^ 2).ToArray - Return sys.Sqrt(.Sum / .Length) + Return stdNum.Sqrt(.Sum / .Length) End With End Function @@ -2040,7 +2040,7 @@ Namespace Math ''' Public Function PoissonPDF(x As Integer, lambda As Double) As Double - Dim result As Double = sys.Exp(-lambda) + Dim result As Double = stdNum.Exp(-lambda) Dim k As Integer = x While k >= 1 From 0ad585e1f14689847730b63301452638a7f06c74 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 6 Nov 2019 19:59:56 +0800 Subject: [PATCH 059/104] Update LevenshteinDistance.vb --- .../Levenshtein/LevenshteinDistance.vb | 37 +++++++++---------- 1 file changed, 18 insertions(+), 19 deletions(-) diff --git a/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb b/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb index c3b99eb6..18f43721 100644 --- a/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb +++ b/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb @@ -53,7 +53,7 @@ Imports Microsoft.VisualBasic.Linq.Extensions Imports Microsoft.VisualBasic.Net.Protocols Imports Microsoft.VisualBasic.Scripting.MetaData Imports Microsoft.VisualBasic.Text.Xml.Models -Imports sys = System.Math +Imports stdNum = System.Math Namespace Text.Levenshtein @@ -82,11 +82,11 @@ Vladimir I", ''' ''' ''' - Private Function __createTable(reference As Integer(), hypotheses As Integer(), cost As Double) As Double(,) - Return CreateTable(Of Integer)(reference, hypotheses, DynamicProgramming.Cost(Of Integer).DefaultCost(cost), AddressOf __int32Equals) + Private Function createMatrix(reference As Integer(), hypotheses As Integer(), cost As Double) As Double(,) + Return CreateTable(Of Integer)(reference, hypotheses, DynamicProgramming.Cost(Of Integer).DefaultCost(cost), AddressOf i32Equals) End Function - Private Function __int32Equals(a As Integer, b As Integer) As Boolean + Private Function i32Equals(a As Integer, b As Integer) As Boolean Return a = b End Function @@ -124,10 +124,10 @@ Vladimir I", ' if the letters are same distTable(i, j) = distTable(i - 1, j - 1) Else ' if not add 1 to its neighborhoods and assign minumun of its neighborhoods - Dim n As Double = sys.Min( + Dim n As Double = stdNum.Min( distTable(i - 1, j - 1) + cost.substitute(reference(i - 1), hypotheses(j - 1)), distTable(i - 1, j) + cost.delete(reference(i - 1))) - distTable(i, j) = sys.Min(n, distTable(i, j - 1) + cost.insert(hypotheses(j - 1))) + distTable(i, j) = stdNum.Min(n, distTable(i, j - 1) + cost.insert(hypotheses(j - 1))) End If Next Next @@ -177,7 +177,7 @@ Vladimir I", .Hypotheses = sHyp, .Reference = sRef } - Return __computeRoute(sHyp, result, i, j, distTable) + Return computeRouteImpl(sHyp, result, i, j, distTable) End Function @@ -204,16 +204,16 @@ Vladimir I", If hypotheses Is Nothing Then hypotheses = "" If reference Is Nothing Then reference = New Integer() {} - Dim distTable#(,) = __createTable(reference, + Dim distTable#(,) = createMatrix(reference, hypotheses.Select(Function(ch) Asc(ch)).ToArray, cost) - Dim i As Integer = reference.Length, - j As Integer = hypotheses.Length + Dim i As Integer = reference.Length + Dim j As Integer = hypotheses.Length Dim result As New DistResult With { .Hypotheses = hypotheses, .Reference = Nothing } - Return __computeRoute(hypotheses, result, i, j, distTable) + Return computeRouteImpl(hypotheses, result, i, j, distTable) End Function Const a As Integer = Asc("a"c) @@ -258,7 +258,7 @@ Vladimir I", ''' ''' ''' - Private Function __computeRoute(hypotheses$, + Private Function computeRouteImpl(hypotheses$, result As DistResult, i%, j%, distTable#(,)) As DistResult @@ -355,18 +355,17 @@ Vladimir I", If hypotheses Is Nothing Then hypotheses = "" If reference Is Nothing Then reference = "" - Dim distTable As Double(,) = __createTable( - reference.Select(Function(ch) AscW(ch)).ToArray, - hypotheses.Select(Function(ch) AscW(ch)).ToArray, - cost) - Dim i As Integer = reference.Length, - j As Integer = hypotheses.Length + Dim vectorRef = reference.Select(Function(ch) AscW(ch)).ToArray + Dim vectorHypo = hypotheses.Select(Function(ch) AscW(ch)).ToArray + Dim distTable As Double(,) = createMatrix(vectorRef, vectorHypo, cost) + Dim i As Integer = reference.Length + Dim j As Integer = hypotheses.Length Dim result As New DistResult With { .Hypotheses = hypotheses, .Reference = reference } - Return __computeRoute(hypotheses, result, i, j, distTable) + Return computeRouteImpl(hypotheses, result, i, j, distTable) End Function End Module End Namespace From 6822a52f16920e0471f009c09ef09fec1d6bf099 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 6 Nov 2019 20:01:24 +0800 Subject: [PATCH 060/104] improvements of the xml data models and index object --- ApplicationServices/VBDev/AssemblyInfo.vb | 10 +- ComponentModel/File/XmlDataModel.vb | 100 +++++++++--------- .../Ranges/Selector/IndexSelector.vb | 20 ++++ Extensions/IO/Extensions/IO.vb | 2 +- Extensions/Image/Math/GeomTransform.vb | 8 ++ .../Linq/EnumerableStatsMedian.vb | 3 +- Scripting/MetaData/Type.vb | 22 ++-- 7 files changed, 101 insertions(+), 64 deletions(-) diff --git a/ApplicationServices/VBDev/AssemblyInfo.vb b/ApplicationServices/VBDev/AssemblyInfo.vb index dc5453ef..c5665281 100644 --- a/ApplicationServices/VBDev/AssemblyInfo.vb +++ b/ApplicationServices/VBDev/AssemblyInfo.vb @@ -1,4 +1,6 @@ -Namespace ApplicationServices.Development +Imports System.Xml.Serialization + +Namespace ApplicationServices.Development ''' ''' ``My Project\AssemblyInfo.vb`` @@ -39,6 +41,8 @@ Public Property AssemblyVersion As String Public Property AssemblyFileVersion As String + + Public Property AssemblyFullName As String ''' @@ -49,9 +53,11 @@ Public Const ProjectFile As String = "My Project\AssemblyInfo.vb" + Sub New() + End Sub + Public Overrides Function ToString() As String Return AssemblyTitle End Function - End Class End Namespace \ No newline at end of file diff --git a/ComponentModel/File/XmlDataModel.vb b/ComponentModel/File/XmlDataModel.vb index b6d4a8b7..60eb2fd8 100644 --- a/ComponentModel/File/XmlDataModel.vb +++ b/ComponentModel/File/XmlDataModel.vb @@ -1,57 +1,57 @@ #Region "Microsoft.VisualBasic::c463731b5ea4ea70468881dc9e813dba, Microsoft.VisualBasic.Core\ComponentModel\File\XmlDataModel.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 . +' 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: +' Summaries: - ' Class XmlDataModel - ' - ' Properties: Stylesheet, TypeComment - ' - ' Function: (+2 Overloads) GetTypeReferenceComment - ' - ' Sub: SaveTypeComment - ' Interface IXmlType - ' - ' Properties: TypeComment - ' - ' Class XmlStyleProcessor - ' - ' Properties: alternate, href, media, title, type - ' - ' Function: getAttributes, ToString - ' - ' - ' - ' - ' /********************************************************************************/ +' Class XmlDataModel +' +' Properties: Stylesheet, TypeComment +' +' Function: (+2 Overloads) GetTypeReferenceComment +' +' Sub: SaveTypeComment +' Interface IXmlType +' +' Properties: TypeComment +' +' Class XmlStyleProcessor +' +' Properties: alternate, href, media, title, type +' +' Function: getAttributes, ToString +' +' +' +' +' /********************************************************************************/ #End Region @@ -61,6 +61,7 @@ Imports System.Runtime.Serialization Imports System.Web.Script.Serialization Imports System.Xml Imports System.Xml.Serialization +Imports Microsoft.VisualBasic.ApplicationServices.Development Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.SecurityString @@ -181,6 +182,7 @@ Namespace ComponentModel ''' Public Shared Function GetTypeReferenceComment(modelType As Type, Optional indent% = 4) As String Dim fullName$ = modelType.FullName + Dim devtools = modelType.Assembly.FromAssembly Dim assembly$ = modelType.Assembly.FullName Dim update As Date = File.GetLastWriteTime(modelType.Assembly.Location) Dim md5$ = modelType.Assembly.Location.GetFileMd5 @@ -188,8 +190,10 @@ Namespace ComponentModel Dim traceInfo$ = vbCrLf & $"{indentBlank} model: " & fullName & vbCrLf & $"{indentBlank} assembly: " & assembly & vbCrLf & + $"{indentBlank} version: " & devtools.AssemblyVersion & vbCrLf & + $"{indentBlank} built: " & devtools.BuiltTime.ToString & vbCrLf & $"{indentBlank} md5: " & md5 & vbCrLf & - $"{indentBlank} timestamp: " & update.ToLongDateString & vbCrLf & + $"{indentBlank} timestamp: " & update.ToString & vbCrLf & " " Return traceInfo diff --git a/ComponentModel/Ranges/Selector/IndexSelector.vb b/ComponentModel/Ranges/Selector/IndexSelector.vb index 1d3e9833..fdaecc03 100644 --- a/ComponentModel/Ranges/Selector/IndexSelector.vb +++ b/ComponentModel/Ranges/Selector/IndexSelector.vb @@ -123,6 +123,26 @@ Namespace ComponentModel.Ranges End Get End Property + Public ReadOnly Property Max As T + Get + If Desc Then + Return source.First + Else + Return source.Last + End If + End Get + End Property + + Public ReadOnly Property Min As T + Get + If Desc Then + Return source.Last + Else + Return source.First + End If + End Get + End Property + Public ReadOnly Property Count As Integer Implements IReadOnlyCollection(Of T).Count Get diff --git a/Extensions/IO/Extensions/IO.vb b/Extensions/IO/Extensions/IO.vb index ea0eb655..61645147 100644 --- a/Extensions/IO/Extensions/IO.vb +++ b/Extensions/IO/Extensions/IO.vb @@ -58,7 +58,7 @@ Imports Microsoft.VisualBasic.Text Public Module IOExtensions - ReadOnly UTF8 As [Default](Of Encoding) = Encoding.UTF8 + Public ReadOnly UTF8 As [Default](Of Encoding) = Encoding.UTF8 ''' ''' Open text writer interface from a given . diff --git a/Extensions/Image/Math/GeomTransform.vb b/Extensions/Image/Math/GeomTransform.vb index a69686d8..51f3ad91 100644 --- a/Extensions/Image/Math/GeomTransform.vb +++ b/Extensions/Image/Math/GeomTransform.vb @@ -276,6 +276,14 @@ Namespace Imaging.Math2D Return New PointF(x, y) End Function + ''' + ''' 计算两个二维坐标的欧几里得距离 + ''' + ''' + ''' + ''' + ''' + ''' Public Function Distance(x1#, y1#, x2#, y2#) As Double Return sys.Sqrt((x1 - x2) ^ 2 + (y1 - y2) ^ 2) diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb index e9c104cc..c26cea68 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb @@ -176,8 +176,7 @@ Namespace Math.Statistics.Linq ' source contains no elements. Public Function Median(source As IEnumerable(Of Single)) As Single - Dim sortedList = From number In source Order By number Select number - + Dim sortedList = (From number In source Order By number Select number).ToArray Dim count As Integer = sortedList.Count() Dim itemIndex As Integer = count \ 2 diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index 492d1543..dd316a4f 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -63,12 +63,12 @@ Namespace Scripting.MetaData ''' The assembly file which contains this type definition.(模块文件) ''' ''' - Public Property assm As String + Public Property assembly As String ''' ''' .(类型源) ''' ''' - Public Property fullIdentity As String + Public Property fullName As String ''' ''' Is this type object is a known system type?(是否是已知的类型？) @@ -76,7 +76,7 @@ Namespace Scripting.MetaData ''' Public ReadOnly Property isSystemKnownType As Boolean Get - Return Not Scripting.GetType(fullIdentity) Is Nothing + Return Not Scripting.GetType(fullName) Is Nothing End Get End Property @@ -88,7 +88,7 @@ Namespace Scripting.MetaData ''' ''' Sub New(info As Type) - Call doInfoParser(info, assm, fullIdentity) + Call doInfoParser(info, assembly, fullName) End Sub Private Shared Sub doInfoParser(info As Type, ByRef assm As String, ByRef id As String) @@ -97,7 +97,7 @@ Namespace Scripting.MetaData End Sub Public Overrides Function ToString() As String - Return $"{assm}!{fullIdentity}" + Return $"{assembly}!{fullName}" End Function ''' @@ -106,8 +106,8 @@ Namespace Scripting.MetaData ''' ''' Public Function LoadAssembly(Optional directory As DefaultString = Nothing) As Assembly - Dim path As String = $"{directory Or App.HOME}/{Me.assm}" - Dim assm As Assembly = Assembly.LoadFile(path) + Dim path As String = $"{directory Or App.HOME}/{Me.assembly}" + Dim assm As Assembly = System.Reflection.Assembly.LoadFile(path) Return assm End Function @@ -124,7 +124,7 @@ Namespace Scripting.MetaData Dim assm As Assembly If knownFirst Then - type = Scripting.GetType(fullIdentity) + type = Scripting.GetType(fullName) If Not type Is Nothing Then Return type @@ -132,7 +132,7 @@ Namespace Scripting.MetaData End If assm = LoadAssembly() - type = assm.GetType(Me.fullIdentity) + type = assm.GetType(Me.fullName) Return type End Function @@ -146,8 +146,8 @@ Namespace Scripting.MetaData Public Overloads Shared Operator =(a As TypeInfo, b As Type) As Boolean Dim assm As String = Nothing, type As String = Nothing Call doInfoParser(b, assm, type) - Return String.Equals(a.assm, assm, StringComparison.OrdinalIgnoreCase) AndAlso - String.Equals(a.fullIdentity, type, StringComparison.Ordinal) + Return String.Equals(a.assembly, assm, StringComparison.OrdinalIgnoreCase) AndAlso + String.Equals(a.fullName, type, StringComparison.Ordinal) End Operator Public Overloads Shared Operator <>(a As TypeInfo, b As Type) As Boolean From 791d8d41f5dd0b5e6701b2ef210fcc6e8e79f807 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 6 Nov 2019 20:14:13 +0800 Subject: [PATCH 061/104] improvements of the cli helper --- CommandLine/CLITools.vb | 13 +++++++++++++ CommandLine/Parsers/DictionaryParser.vb | 3 +-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/CommandLine/CLITools.vb b/CommandLine/CLITools.vb index ba82a0eb..1f457486 100644 --- a/CommandLine/CLITools.vb +++ b/CommandLine/CLITools.vb @@ -72,6 +72,19 @@ Namespace CommandLine Revision:=52)> Public Module CLITools + ''' + ''' 在命令行之中使用逗号作为分隔符分隔多个文件 + ''' + ''' + ''' + Public Function GetFileList(input As String) As IEnumerable(Of String) + If input.FileExists Then + Return {input} + Else + Return input.Split(","c) + End If + End Function + ''' ''' ''' diff --git a/CommandLine/Parsers/DictionaryParser.vb b/CommandLine/Parsers/DictionaryParser.vb index 4b492734..fa00cacb 100644 --- a/CommandLine/Parsers/DictionaryParser.vb +++ b/CommandLine/Parsers/DictionaryParser.vb @@ -96,8 +96,7 @@ Namespace CommandLine.Parsers For Each var$ In t Dim value = var.GetTagValue("="c) - out(value.Name) = - value.Value.GetString("'") + out(value.Name) = value.Value.GetString("'") Next Return out From ff056e05ee57db742989c1fdf302a961cd27f66e Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 8 Nov 2019 18:42:12 +0800 Subject: [PATCH 062/104] category data value api --- 47-dotnet_Microsoft.VisualBasic.vbproj | 1 + Extensions/Collection/CategoryOperations.vb | 61 +++++++++++++++++++++ Extensions/Collection/KeyValuePair.vb | 25 --------- 3 files changed, 62 insertions(+), 25 deletions(-) create mode 100644 Extensions/Collection/CategoryOperations.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index dc44685c..605fe5f3 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1021,6 +1021,7 @@ + diff --git a/Extensions/Collection/CategoryOperations.vb b/Extensions/Collection/CategoryOperations.vb new file mode 100644 index 00000000..c961de94 --- /dev/null +++ b/Extensions/Collection/CategoryOperations.vb @@ -0,0 +1,61 @@ +Imports System.Collections.Specialized +Imports System.Runtime.CompilerServices +Imports Microsoft.VisualBasic.CommandLine.Reflection +Imports Microsoft.VisualBasic.ComponentModel +Imports Microsoft.VisualBasic.ComponentModel.Collection +Imports Microsoft.VisualBasic.ComponentModel.Collection.Generic +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel +Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Serialization.JSON +Imports Microsoft.VisualBasic.Text +Imports Microsoft.VisualBasic.Text.Xml.Models +Imports r = System.Text.RegularExpressions.Regex + +Public Module CategoryOperations + + + Public Function AsGroups(Of T)(table As Dictionary(Of String, T())) As IEnumerable(Of NamedCollection(Of T)) + Return table.Select(Function(item) + Return New NamedCollection(Of T) With { + .Name = item.Key, + .Value = item.Value + } + End Function) + End Function + + + + Public Function IGrouping(Of T)(source As IEnumerable(Of NamedCollection(Of T))) As IEnumerable(Of IGrouping(Of String, T)) + Return source.Select(Function(x) DirectCast(x, IGrouping(Of String, T))) + End Function + + + Public Function AsNamedVector(Of T)(groups As IEnumerable(Of IGrouping(Of String, T))) As IEnumerable(Of NamedCollection(Of T)) + Return groups.Select(Function(group) + Return New NamedCollection(Of T) With { + .Name = group.Key, + .Value = group.ToArray + } + End Function) + End Function + + ''' + ''' transform ``[category => items]`` to ``[item -> category][]`` + ''' + ''' + ''' + ''' + + Public Function CategoryValues(Of T)(categories As IEnumerable(Of NamedCollection(Of T))) As Dictionary(Of T, String) + Return categories _ + .Select(Function(category) + Return category.Select(Function(item) (item, category.name)) + End Function) _ + .IteratesALL _ + .ToDictionary(Function(val) val.Item1, + Function(category) + Return category.Item2 + End Function) + End Function +End Module diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index 90e7dbd8..5957ac9c 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -297,37 +297,12 @@ Public Module KeyValuePairExtensions Next End Function - Public Function AsNamedVector(Of T)(groups As IEnumerable(Of IGrouping(Of String, T))) As IEnumerable(Of NamedCollection(Of T)) - Return groups.Select(Function(group) - Return New NamedCollection(Of T) With { - .Name = group.Key, - .Value = group.ToArray - } - End Function) - End Function - Public Function AsNamedValueTuples(Of T)(tuples As IEnumerable(Of KeyValuePair(Of String, T))) As IEnumerable(Of NamedValue(Of T)) Return tuples.Select(Function(p) New NamedValue(Of T)(p.Key, p.Value)) End Function - - Public Function AsGroups(Of T)(table As Dictionary(Of String, T())) As IEnumerable(Of NamedCollection(Of T)) - Return table.Select(Function(item) - Return New NamedCollection(Of T) With { - .Name = item.Key, - .Value = item.Value - } - End Function) - End Function - - - - Public Function IGrouping(Of T)(source As IEnumerable(Of NamedCollection(Of T))) As IEnumerable(Of IGrouping(Of String, T)) - Return source.Select(Function(x) DirectCast(x, IGrouping(Of String, T))) - End Function - ''' ''' Removes the target key in the dictionary table, and then gets the removed value. ''' (删除字典之中的指定的键值对，然后返回被删除的数据值) From 132a8957850114696760cce38017f2e5c38ea09a Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 8 Nov 2019 20:35:41 +0800 Subject: [PATCH 063/104] Update PrintAsTable.vb add dev note --- ApplicationServices/Terminal/PrintAsTable.vb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ApplicationServices/Terminal/PrintAsTable.vb b/ApplicationServices/Terminal/PrintAsTable.vb index 5d668274..6bf72531 100644 --- a/ApplicationServices/Terminal/PrintAsTable.vb +++ b/ApplicationServices/Terminal/PrintAsTable.vb @@ -115,10 +115,11 @@ Namespace ApplicationServices.Terminal Select p, s = p.GetValue(x)) _ .ToDictionary(Function(o) o.p.Identity, - Function(o) Scripting.ToString(o.s)) + Function(o) + Return Scripting.ToString(o.s) + End Function) - Dim table As List(Of String()) = - contents _ + Dim table As List(Of String()) = contents _ .Select(Function(line) Return titles.Select(Function(name) line(name)).ToArray End Function) _ @@ -134,7 +135,7 @@ Namespace ApplicationServices.Terminal ''' ''' 与函数所不同的是，这个函数还会添加边框 ''' - ''' + ''' Each element is a row in table matrix ''' ''' From bc472476304264a56ac78f21836fbf15c21f1906 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 10 Nov 2019 12:02:17 +0800 Subject: [PATCH 064/104] Update SDKManual.vb improvements of the debug echo --- CommandLine/Interpreters/View/SDKManual.vb | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/CommandLine/Interpreters/View/SDKManual.vb b/CommandLine/Interpreters/View/SDKManual.vb index 56bf8a42..c4d1a1d4 100644 --- a/CommandLine/Interpreters/View/SDKManual.vb +++ b/CommandLine/Interpreters/View/SDKManual.vb @@ -214,11 +214,13 @@ Namespace CommandLine.ManView Call write.WriteLine(" " & line$) Next - Call write.WriteLine() - Call write.WriteLine() - Call write.WriteLine("SYNOPSIS") - Call write.WriteLine(SYNOPSIS) - Call write.WriteLine() + If Not SYNOPSIS.StringEmpty Then + Call write.WriteLine() + Call write.WriteLine() + Call write.WriteLine("SYNOPSIS") + Call write.WriteLine(SYNOPSIS) + Call write.WriteLine() + End If Call write.Flush() End Sub From 7d75cab9daab9b74d663b093775036176383268a Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 10 Nov 2019 15:16:27 +0800 Subject: [PATCH 065/104] update source file headers --- ApplicationServices/App.vb | 2 +- .../Debugger/Exception/StackFrame.vb | 4 +- .../Terminal/InteractiveIODevice/Shell.vb | 2 +- .../Terminal/MarkdownRender.vb | 99 +++++++++------- ApplicationServices/Terminal/PrintAsTable.vb | 2 +- .../Terminal/Utility/CBusyIndicator.vb | 68 +++++------ .../Terminal/Utility/EventProc.vb | 2 +- .../Utility/ProgressBar/AbstractBar.vb | 2 +- .../Utility/ProgressBar/AnimatedBar.vb | 2 +- .../Terminal/Utility/ProgressBar/Program.vb | 2 +- .../Utility/ProgressBar/ProgressBar.vb | 2 +- .../Terminal/Utility/ProgressBar/SwayBar.vb | 4 +- .../VBDev/ApplicationInfoUtils.vb | 2 +- CommandLine/CLITools.vb | 75 ++++++------ .../InteropService/SharedORM/CodeGenerator.vb | 76 ++++++------ CommandLine/Interpreters/ExecuteImpl.vb | 2 +- CommandLine/Interpreters/Interpreter.vb | 2 +- CommandLine/Interpreters/View/CommandHelp.vb | 2 +- .../Interpreters/View/ManualBuilder.vb | 2 +- CommandLine/Interpreters/View/SDKManual.vb | 68 +++++------ CommandLine/Parsers/DictionaryParser.vb | 2 +- CommandLine/Reflection/Attributes/Argument.vb | 8 +- .../Reflection/Attributes/Attribute.vb | 92 ++++++++------- .../Reflection/Attributes/ExportAPI.vb | 90 +++++++-------- .../Reflection/EntryPoints/APIEntryPoint.vb | 2 +- .../Algorithm/BinaryTree/TreeBase.vb | 2 +- .../Levenshtein/LevenshteinDistance.vb | 6 +- .../DataSource/Property/DynamicProperty.vb | 2 +- .../DataSource/Property/NamedValue.vb | 74 ++++++------ .../DataStructures/BitMap/HashModel.vb | 2 +- ComponentModel/File/XmlDataModel.vb | 96 +++++++-------- ComponentModel/Ranges/RangeModel/IntRange.vb | 2 +- .../Ranges/Selector/IndexSelector.vb | 4 +- .../System.Collections.Generic/IndexOf.vb | 86 +++++++------- Extensions/Collection/BucketOperators.vb | 4 +- Extensions/Collection/CategoryOperations.vb | 44 ++++++- .../Collection/IsNullOrEmptyExtensions.vb | 2 +- Extensions/Collection/KeyValuePair.vb | 18 +-- Extensions/Collection/Linq/Enumeration.vb | 4 +- Extensions/Collection/Linq/Iterator.vb | 2 +- Extensions/Collection/Linq/Linq.vb | 2 +- Extensions/Collection/Linq/Pipeline.vb | 2 +- Extensions/Collection/Linq/Takes.vb | 2 +- .../Collection/Linq/VectorAssertExtensions.vb | 2 +- Extensions/Collection/ListExtensions.vb | 2 +- Extensions/Collection/Vector.vb | 2 +- Extensions/Doc/Text.vb | 2 +- Extensions/IO/Extensions/Extensions.vb | 2 +- Extensions/IO/Extensions/IO.vb | 2 +- Extensions/Image/GDI+/GDICanvas.vb | 2 +- Extensions/Image/GDI+/GraphicsExtensions.vb | 80 ++++++------- Extensions/Image/GDI+/Interface.vb | 2 +- Extensions/Image/Math/GeomTransform.vb | 6 +- Extensions/Image/TiffWriter.vb | 76 ++++++------ Extensions/Math/Math.vb | 2 +- Extensions/Math/NumberGroups.vb | 2 +- Extensions/Math/Random/RandomExtensions.vb | 2 +- .../Math/StatisticsMathExtensions/Average.vb | 8 +- .../Linq/EnumerableStatsMedian.vb | 2 +- .../Math/StatisticsMathExtensions/Min.vb | 52 ++++++++- .../SampleObservation.vb | 48 +++++++- .../Reflection/Marshal/Pointer(Of T).vb | 4 +- Extensions/Reflection/Methods.vb | 2 +- Extensions/Reflection/Reflection.vb | 2 +- Extensions/StringHelpers/Parser.vb | 2 +- Extensions/StringHelpers/RegexExtensions.vb | 2 +- Extensions/StringHelpers/StringFormats.vb | 44 ++++++- Language/Linq/Vectorization/Extensions.vb | 2 +- My/Framework/Config.vb | 4 +- My/Log4VB.vb | 70 +++++------ Net/HTTP/HTTP_RFC.vb | 2 +- Net/HTTP/wget.vb | 71 ++++++------ Net/HTTP/wgetTask.vb | 81 +++++++------ Net/Protocol/NetResponse.vb | 2 +- Scripting/ExternalCall.vb | 2 +- Scripting/InputHandler.vb | 2 +- Scripting/MetaData/Type.vb | 4 +- Scripting/TokenIcer/LangModels/Token.vb | 109 ++++++++++-------- Text/Parser/CharEnumerator.vb | 3 +- Text/Parser/HtmlParser/TagAttributeParser.vb | 4 +- .../SearchEngine/TextIndexing/TextIndexing.vb | 4 +- Text/Xml/Linq/Linq.vb | 2 +- Text/Xml/Linq/NodeIterator.vb | 2 +- Text/Xml/Models/ListOf.vb | 80 +++++++------ Text/Xml/Models/Vector.vb | 2 +- test/TypeTest.vb | 75 ++++++------ test/markdownDisplayTest.vb | 44 ++++++- test/wgetTest.vb | 3 +- 88 files changed, 1087 insertions(+), 799 deletions(-) diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index c14dab43..2208698a 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0ef8bf344a7af30b53867732f3d6f4e5, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" +#Region "Microsoft.VisualBasic::215525b640c608ea63aa1549f3a52762, Microsoft.VisualBasic.Core\ApplicationServices\App.vb" ' Author: ' diff --git a/ApplicationServices/Debugger/Exception/StackFrame.vb b/ApplicationServices/Debugger/Exception/StackFrame.vb index 6171e026..cef8552e 100644 --- a/ApplicationServices/Debugger/Exception/StackFrame.vb +++ b/ApplicationServices/Debugger/Exception/StackFrame.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a64a2f3951ad63fc29ea88edc624c9da, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Exception\StackFrame.vb" +#Region "Microsoft.VisualBasic::3c448b90b2b792689b5be21774ae4637, Microsoft.VisualBasic.Core\ApplicationServices\Debugger\Exception\StackFrame.vb" ' Author: ' @@ -41,7 +41,7 @@ ' ' Properties: [Module], [Namespace], Method ' - ' Constructor: (+1 Overloads) Sub New + ' Constructor: (+2 Overloads) Sub New ' Function: ToString ' ' diff --git a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb index e101343a..4553eb3c 100644 --- a/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb +++ b/ApplicationServices/Terminal/InteractiveIODevice/Shell.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d216526a496bf2fc312ec925d21209a9, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\Shell.vb" +#Region "Microsoft.VisualBasic::383b8feb02f6318617da073544d3b724, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\InteractiveIODevice\Shell.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender.vb index 71f70e99..fff0fac0 100644 --- a/ApplicationServices/Terminal/MarkdownRender.vb +++ b/ApplicationServices/Terminal/MarkdownRender.vb @@ -1,51 +1,66 @@ -#Region "Microsoft.VisualBasic::a5699a5d49ef0db4aa216c04f353be47, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\MarkdownRender.vb" +#Region "Microsoft.VisualBasic::7d62185c9ec4469f9bbebbf4abff8481, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\MarkdownRender.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 . + ' 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: + ' Summaries: -' Class MarkdownRender -' -' Constructor: (+1 Overloads) Sub New -' Sub: (+2 Overloads) DoPrint, Print, WalkChar -' -' Class MarkdownTheme -' -' Properties: [Global], BlockQuote, CodeBlock, InlineCodeSpan, Url -' -' Class ConsoleFontStyle -' -' Properties: BackgroundColor, ForeColor -' -' -' /********************************************************************************/ + ' Class MarkdownRender + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: bufferAllIs, bufferIs + ' + ' Sub: DoParseSpans, DoPrint, EndSpan, Print, PrintSpans + ' restoreStyle, WalkChar + ' + ' Class MarkdownTheme + ' + ' Properties: [Global], BlockQuote, Bold, CodeBlock, InlineCodeSpan + ' Url + ' + ' Class ConsoleFontStyle + ' + ' Properties: BackgroundColor, ForeColor + ' + ' Function: Clone, CreateSpan, Equals + ' + ' Sub: SetConfig + ' + ' Class Span + ' + ' Properties: IsEndByNewLine, style, text + ' + ' Sub: Print + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ApplicationServices/Terminal/PrintAsTable.vb b/ApplicationServices/Terminal/PrintAsTable.vb index 6bf72531..5a53d503 100644 --- a/ApplicationServices/Terminal/PrintAsTable.vb +++ b/ApplicationServices/Terminal/PrintAsTable.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::87ff800f84a01faadeeb402ebf125a11, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\PrintAsTable.vb" +#Region "Microsoft.VisualBasic::a275c83c8bc14c6ae8ba6fdc99769986, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\PrintAsTable.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/CBusyIndicator.vb b/ApplicationServices/Terminal/Utility/CBusyIndicator.vb index 1a3e8a17..d2529b23 100644 --- a/ApplicationServices/Terminal/Utility/CBusyIndicator.vb +++ b/ApplicationServices/Terminal/Utility/CBusyIndicator.vb @@ -1,43 +1,43 @@ -#Region "Microsoft.VisualBasic::6e8b09e7218d99da99b8ace3223a2777, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\CBusyIndicator.vb" +#Region "Microsoft.VisualBasic::aa267559a941d77296fe1975ee1b590b, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\CBusyIndicator.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 . + ' 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: + ' Summaries: -' Class CBusyIndicator -' -' Constructor: (+1 Overloads) Sub New -' Sub: [Stop], (+2 Overloads) Dispose, DoEvents, Start -' -' -' /********************************************************************************/ + ' Class CBusyIndicator + ' + ' Constructor: (+1 Overloads) Sub New + ' Sub: [Stop], (+2 Overloads) Dispose, DoEvents, Start + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ApplicationServices/Terminal/Utility/EventProc.vb b/ApplicationServices/Terminal/Utility/EventProc.vb index e1687275..b52a448a 100644 --- a/ApplicationServices/Terminal/Utility/EventProc.vb +++ b/ApplicationServices/Terminal/Utility/EventProc.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cf9c2b1393a625f0030b0dc643af94c9, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\EventProc.vb" +#Region "Microsoft.VisualBasic::c8b2331b708aeb685fc608df50947246, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\EventProc.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/AbstractBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/AbstractBar.vb index 29559597..8ccc65bb 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/AbstractBar.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/AbstractBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::cb989a65864302229727d204bec99e19, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\AbstractBar.vb" +#Region "Microsoft.VisualBasic::cb989a65864302229727d204bec99e19, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\ProgressBar\AbstractBar.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/AnimatedBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/AnimatedBar.vb index 3b94185c..1142c951 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/AnimatedBar.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/AnimatedBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::add5e7662691a588b501cb9803aff443, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\AnimatedBar.vb" +#Region "Microsoft.VisualBasic::add5e7662691a588b501cb9803aff443, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\ProgressBar\AnimatedBar.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/Program.vb b/ApplicationServices/Terminal/Utility/ProgressBar/Program.vb index fad16354..f46c04de 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/Program.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/Program.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ed83e7b7feb6cc4ee61e7cc071105a28, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\Program.vb" +#Region "Microsoft.VisualBasic::ed83e7b7feb6cc4ee61e7cc071105a28, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\ProgressBar\Program.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb index 7bf254b5..d7fd7594 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::70e68318cf1bdf1b9675d9786ea4858e, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\ProgressBar.vb" +#Region "Microsoft.VisualBasic::70e68318cf1bdf1b9675d9786ea4858e, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\ProgressBar\ProgressBar.vb" ' Author: ' diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb index eb7e12c5..494e1621 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/SwayBar.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::e93d47961896d9fcaad122fc7e9c01ed, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\ProgressBar\SwayBar.vb" +#Region "Microsoft.VisualBasic::048f32846f78aa68beea6ea3aad8aab0, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\Utility\ProgressBar\SwayBar.vb" ' Author: ' @@ -46,7 +46,7 @@ ' ' Function: buildBlankPointer ' - ' Sub: [Step], ClearBar, PlacePointer + ' Sub: (+2 Overloads) [Step], ClearBar, PlacePointer ' ' ' /********************************************************************************/ diff --git a/ApplicationServices/VBDev/ApplicationInfoUtils.vb b/ApplicationServices/VBDev/ApplicationInfoUtils.vb index 9547bf0e..58922946 100644 --- a/ApplicationServices/VBDev/ApplicationInfoUtils.vb +++ b/ApplicationServices/VBDev/ApplicationInfoUtils.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5e071016dbd75bb9fd6a352e061c08a3, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\ApplicationInfoUtils.vb" +#Region "Microsoft.VisualBasic::cf8455df341b24dd64c369f064f14400, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\ApplicationInfoUtils.vb" ' Author: ' diff --git a/CommandLine/CLITools.vb b/CommandLine/CLITools.vb index 1f457486..1919858e 100644 --- a/CommandLine/CLITools.vb +++ b/CommandLine/CLITools.vb @@ -1,46 +1,47 @@ -#Region "Microsoft.VisualBasic::c88f1ab496a70fade4cc8cca8f21437b, Microsoft.VisualBasic.Core\CommandLine\CLITools.vb" +#Region "Microsoft.VisualBasic::2e374be0f7a6492d316353282f4ea409, Microsoft.VisualBasic.Core\CommandLine\CLITools.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 . + ' 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: + ' Summaries: -' Module CLITools -' -' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals -' GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join, makesureQuot -' Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix, (+3 Overloads) TryParse -' -' Sub: tupleParser -' -' -' /********************************************************************************/ + ' Module CLITools + ' + ' Function: __checkKeyDuplicated, Args, CreateObject, CreateParameterValues, Equals + ' GetFileList, GetLogicalFlags, GetTokens, IsPossibleLogicFlag, Join + ' makesureQuot, Print, ShellExec, SingleValueOrStdIn, TrimParamPrefix + ' (+3 Overloads) TryParse + ' + ' Sub: AppSummary, tupleParser + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/InteropService/SharedORM/CodeGenerator.vb b/CommandLine/InteropService/SharedORM/CodeGenerator.vb index 2e0baadc..ab9bfc77 100644 --- a/CommandLine/InteropService/SharedORM/CodeGenerator.vb +++ b/CommandLine/InteropService/SharedORM/CodeGenerator.vb @@ -1,47 +1,47 @@ -#Region "Microsoft.VisualBasic::9f7ca69490a4b9091c58e6698b7c17bf, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\CodeGenerator.vb" +#Region "Microsoft.VisualBasic::dd77343e150b055962b20367cbc85c37, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\CodeGenerator.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 . + ' 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: + ' Summaries: -' Class CodeGenerator -' -' Constructor: (+2 Overloads) Sub New -' Function: EnumeratesAPI, GetManualPage -' -' Class APITuple -' -' Properties: API, CLI -' -' -' /********************************************************************************/ + ' Class CodeGenerator + ' + ' Constructor: (+2 Overloads) Sub New + ' Function: EnumeratesAPI, GetManualPage + ' + ' Class APITuple + ' + ' Properties: API, CLI + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/Interpreters/ExecuteImpl.vb b/CommandLine/Interpreters/ExecuteImpl.vb index b8c0cab8..51e9d29b 100644 --- a/CommandLine/Interpreters/ExecuteImpl.vb +++ b/CommandLine/Interpreters/ExecuteImpl.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::93f43a5a57b153b6a25a7e7d4ea72ad6, Microsoft.VisualBasic.Core\CommandLine\Interpreters\ExecuteImpl.vb" +#Region "Microsoft.VisualBasic::ab8efcb9c4794bfbb95e6be96ee8920b, Microsoft.VisualBasic.Core\CommandLine\Interpreters\ExecuteImpl.vb" ' Author: ' diff --git a/CommandLine/Interpreters/Interpreter.vb b/CommandLine/Interpreters/Interpreter.vb index 3ea8733f..ef5838ae 100644 --- a/CommandLine/Interpreters/Interpreter.vb +++ b/CommandLine/Interpreters/Interpreter.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c6c2b3e5d881c8a129a2f3fe5f61c166, Microsoft.VisualBasic.Core\CommandLine\Interpreters\Interpreter.vb" +#Region "Microsoft.VisualBasic::8809e5ad7b8bb9480cf6ffb246d01139, Microsoft.VisualBasic.Core\CommandLine\Interpreters\Interpreter.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/CommandHelp.vb b/CommandLine/Interpreters/View/CommandHelp.vb index 219c2451..b9e11072 100644 --- a/CommandLine/Interpreters/View/CommandHelp.vb +++ b/CommandLine/Interpreters/View/CommandHelp.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::14574b8822db88dd0c7be339f9911d81, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\CommandHelp.vb" +#Region "Microsoft.VisualBasic::9ab9d9fc38a7984d3704413ecb4369dd, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\CommandHelp.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/ManualBuilder.vb b/CommandLine/Interpreters/View/ManualBuilder.vb index ea65c359..2003f05e 100644 --- a/CommandLine/Interpreters/View/ManualBuilder.vb +++ b/CommandLine/Interpreters/View/ManualBuilder.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fe1d04091f554682726c58ac65cabf51, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\ManualBuilder.vb" +#Region "Microsoft.VisualBasic::dc32204e0965efc9b065ce0270d0b93a, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\ManualBuilder.vb" ' Author: ' diff --git a/CommandLine/Interpreters/View/SDKManual.vb b/CommandLine/Interpreters/View/SDKManual.vb index c4d1a1d4..0004a23b 100644 --- a/CommandLine/Interpreters/View/SDKManual.vb +++ b/CommandLine/Interpreters/View/SDKManual.vb @@ -1,42 +1,44 @@ -#Region "Microsoft.VisualBasic::5f9f988fd11956c1f2392450da027f30, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\SDKManual.vb" +#Region "Microsoft.VisualBasic::d1a21000559db76fee5e46129eaf6664, Microsoft.VisualBasic.Core\CommandLine\Interpreters\View\SDKManual.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 . + ' 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: + ' Summaries: -' Module SDKManual -' -' Function: HelpSummary, LaunchManual, MarkdownDoc -' -' -' /********************************************************************************/ + ' Module SDKManual + ' + ' Function: HelpSummary, LaunchManual, MarkdownDoc + ' + ' Sub: AppSummary + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/Parsers/DictionaryParser.vb b/CommandLine/Parsers/DictionaryParser.vb index fa00cacb..08eeabeb 100644 --- a/CommandLine/Parsers/DictionaryParser.vb +++ b/CommandLine/Parsers/DictionaryParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ea86ff9e843facd124b362478be0bb71, Microsoft.VisualBasic.Core\CommandLine\Parsers\DictionaryParser.vb" +#Region "Microsoft.VisualBasic::f332dc69aefd68863b03f3edc856ddbd, Microsoft.VisualBasic.Core\CommandLine\Parsers\DictionaryParser.vb" ' Author: ' diff --git a/CommandLine/Reflection/Attributes/Argument.vb b/CommandLine/Reflection/Attributes/Argument.vb index a7a04eea..beed1c32 100644 --- a/CommandLine/Reflection/Attributes/Argument.vb +++ b/CommandLine/Reflection/Attributes/Argument.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::75f8ae1bb23daaa167294cbe5d4d92fc, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Argument.vb" +#Region "Microsoft.VisualBasic::64214d9aa13eb893c9ab261d3880468b, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Argument.vb" ' Author: ' @@ -39,6 +39,12 @@ ' Constructor: (+1 Overloads) Sub New ' Function: ToString ' + ' Class OutputAttribute + ' + ' Properties: extension, result + ' + ' Constructor: (+1 Overloads) Sub New + ' ' ' /********************************************************************************/ diff --git a/CommandLine/Reflection/Attributes/Attribute.vb b/CommandLine/Reflection/Attributes/Attribute.vb index 064e0880..2216bc5b 100644 --- a/CommandLine/Reflection/Attributes/Attribute.vb +++ b/CommandLine/Reflection/Attributes/Attribute.vb @@ -1,52 +1,58 @@ -#Region "Microsoft.VisualBasic::14ab68a159339eca4da9b94e67cc896d, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Attribute.vb" +#Region "Microsoft.VisualBasic::6c99645dbbe3d3bf19078771fb9f1c88, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\Attribute.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 . + ' 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: + ' Summaries: -' Class UsageAttribute -' -' Properties: UsageInfo -' -' Constructor: (+1 Overloads) Sub New -' Function: ToString -' -' Class ExampleAttribute -' -' Properties: ExampleInfo -' -' Constructor: (+1 Overloads) Sub New -' Function: ToString -' -' -' /********************************************************************************/ + ' Class UsageAttribute + ' + ' Properties: UsageInfo + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: ToString + ' + ' Class ExampleAttribute + ' + ' Properties: ExampleInfo + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: ToString + ' + ' Class NoteAttribute + ' + ' Properties: noteText + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/Reflection/Attributes/ExportAPI.vb b/CommandLine/Reflection/Attributes/ExportAPI.vb index 51367e00..d6024057 100644 --- a/CommandLine/Reflection/Attributes/ExportAPI.vb +++ b/CommandLine/Reflection/Attributes/ExportAPI.vb @@ -1,54 +1,54 @@ -#Region "Microsoft.VisualBasic::fb69fc76f81f00cb04dcaaab9410eb37, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\ExportAPI.vb" +#Region "Microsoft.VisualBasic::624394559d1f26443f64cf6789fd5ebb, Microsoft.VisualBasic.Core\CommandLine\Reflection\Attributes\ExportAPI.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 . + ' 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: + ' Summaries: -' Class LastUpdatedAttribute -' -' Constructor: (+3 Overloads) Sub New -' Function: ToString -' -' Class ExportAPIAttribute -' -' Properties: Example, Info, Name, Type, Usage -' -' Constructor: (+1 Overloads) Sub New -' Function: GenerateHtmlDoc, printView, PrintView, printViewHTML, ToString -' -' Interface IExportAPI -' -' Properties: Example, Info, Name, Usage -' -' -' /********************************************************************************/ + ' Class LastUpdatedAttribute + ' + ' Constructor: (+3 Overloads) Sub New + ' Function: ToString + ' + ' Class ExportAPIAttribute + ' + ' Properties: Example, Info, Name, Type, Usage + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: GenerateHtmlDoc, printView, PrintView, printViewHTML, ToString + ' + ' Interface IExportAPI + ' + ' Properties: Example, Info, Name, Usage + ' + ' + ' /********************************************************************************/ #End Region diff --git a/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb b/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb index bf5a5d0b..51384405 100644 --- a/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb +++ b/CommandLine/Reflection/EntryPoints/APIEntryPoint.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a96cb85fcf17d0101fbb7e187ce62576, Microsoft.VisualBasic.Core\CommandLine\Reflection\EntryPoints\APIEntryPoint.vb" +#Region "Microsoft.VisualBasic::10a0fc85496398c6ac5f6a1be9eb7bf6, Microsoft.VisualBasic.Core\CommandLine\Reflection\EntryPoints\APIEntryPoint.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/BinaryTree/TreeBase.vb b/ComponentModel/Algorithm/BinaryTree/TreeBase.vb index b15ce003..dc9c1a32 100644 --- a/ComponentModel/Algorithm/BinaryTree/TreeBase.vb +++ b/ComponentModel/Algorithm/BinaryTree/TreeBase.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::5ea4bf16488c3938884e26b6f9cf6e76, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\TreeBase.vb" +#Region "Microsoft.VisualBasic::0cbb33942790924b29c741e8ceaf2528, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\BinaryTree\TreeBase.vb" ' Author: ' diff --git a/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb b/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb index 18f43721..6bbff00e 100644 --- a/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb +++ b/ComponentModel/Algorithm/Levenshtein/LevenshteinDistance.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1b934dbc1d0d334500ccbc8997fed1dc, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\Levenshtein\LevenshteinDistance.vb" +#Region "Microsoft.VisualBasic::b6d0782260ba6c301e1a8969edc40cac, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\Levenshtein\LevenshteinDistance.vb" ' Author: ' @@ -33,11 +33,11 @@ ' Module LevenshteinDistance ' - ' Function: __createTable, __int32Equals, (+2 Overloads) ComputeDistance, CreateTable, GetVisulization + ' Function: (+2 Overloads) ComputeDistance, createMatrix, CreateTable, GetVisulization, i32Equals ' SaveMatch ' Delegate Function ' - ' Function: __computeRoute, (+2 Overloads) ComputeDistance, Similarity + ' Function: (+2 Overloads) ComputeDistance, computeRouteImpl, Similarity ' ' ' diff --git a/ComponentModel/DataSource/Property/DynamicProperty.vb b/ComponentModel/DataSource/Property/DynamicProperty.vb index 08a08b59..84f5e35a 100644 --- a/ComponentModel/DataSource/Property/DynamicProperty.vb +++ b/ComponentModel/DataSource/Property/DynamicProperty.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::10639614f100433a4eb09a252f359a2b, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\DynamicProperty.vb" +#Region "Microsoft.VisualBasic::92f84c2ceb27d47add3515044ec49605, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\DynamicProperty.vb" ' Author: ' diff --git a/ComponentModel/DataSource/Property/NamedValue.vb b/ComponentModel/DataSource/Property/NamedValue.vb index ea55c322..f3305548 100644 --- a/ComponentModel/DataSource/Property/NamedValue.vb +++ b/ComponentModel/DataSource/Property/NamedValue.vb @@ -1,46 +1,46 @@ -#Region "Microsoft.VisualBasic::529b3ac85939959a3564dad680f53aa1, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\NamedValue.vb" +#Region "Microsoft.VisualBasic::f4507e59be237ed145377ad63c2de46d, Microsoft.VisualBasic.Core\ComponentModel\DataSource\Property\NamedValue.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 . + ' 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: + ' Summaries: -' Structure NamedValue -' -' Properties: Description, IsEmpty, Name, Value, ValueType -' -' Constructor: (+1 Overloads) Sub New -' Function: FixValue, ToString -' Operators: (+2 Overloads) +, <>, = -' -' -' /********************************************************************************/ + ' Structure NamedValue + ' + ' Properties: Description, IsEmpty, Name, Value, ValueType + ' + ' Constructor: (+1 Overloads) Sub New + ' Function: FixValue, ToString + ' Operators: (+2 Overloads) +, <>, = + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ComponentModel/DataStructures/BitMap/HashModel.vb b/ComponentModel/DataStructures/BitMap/HashModel.vb index be1e19ce..405425cc 100644 --- a/ComponentModel/DataStructures/BitMap/HashModel.vb +++ b/ComponentModel/DataStructures/BitMap/HashModel.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6454ef3a138ca347bcd3778898de75ea, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\BitMap\HashModel.vb" +#Region "Microsoft.VisualBasic::41ba2dd93115d064fca9cd3c745bf034, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\BitMap\HashModel.vb" ' Author: ' diff --git a/ComponentModel/File/XmlDataModel.vb b/ComponentModel/File/XmlDataModel.vb index 60eb2fd8..714562ae 100644 --- a/ComponentModel/File/XmlDataModel.vb +++ b/ComponentModel/File/XmlDataModel.vb @@ -1,57 +1,57 @@ -#Region "Microsoft.VisualBasic::c463731b5ea4ea70468881dc9e813dba, Microsoft.VisualBasic.Core\ComponentModel\File\XmlDataModel.vb" +#Region "Microsoft.VisualBasic::0186ad048f2a0e13a6b06622544fbc07, Microsoft.VisualBasic.Core\ComponentModel\File\XmlDataModel.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 . + ' 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: + ' Summaries: -' Class XmlDataModel -' -' Properties: Stylesheet, TypeComment -' -' Function: (+2 Overloads) GetTypeReferenceComment -' -' Sub: SaveTypeComment -' Interface IXmlType -' -' Properties: TypeComment -' -' Class XmlStyleProcessor -' -' Properties: alternate, href, media, title, type -' -' Function: getAttributes, ToString -' -' -' -' -' /********************************************************************************/ + ' Class XmlDataModel + ' + ' Properties: Stylesheet, TypeComment + ' + ' Function: CreateTypeReferenceComment, (+2 Overloads) GetTypeReferenceComment + ' + ' Sub: SaveTypeComment + ' Interface IXmlType + ' + ' Properties: TypeComment + ' + ' Class XmlStyleProcessor + ' + ' Properties: alternate, href, media, title, type + ' + ' Function: getAttributes, ToString + ' + ' + ' + ' + ' /********************************************************************************/ #End Region diff --git a/ComponentModel/Ranges/RangeModel/IntRange.vb b/ComponentModel/Ranges/RangeModel/IntRange.vb index 296170ee..8accb423 100644 --- a/ComponentModel/Ranges/RangeModel/IntRange.vb +++ b/ComponentModel/Ranges/RangeModel/IntRange.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7aaf99a205d4a67af35d7827b2a91f2f, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\IntRange.vb" +#Region "Microsoft.VisualBasic::a22ce0ce5b9821bc33f44903dc549653, Microsoft.VisualBasic.Core\ComponentModel\Ranges\RangeModel\IntRange.vb" ' Author: ' diff --git a/ComponentModel/Ranges/Selector/IndexSelector.vb b/ComponentModel/Ranges/Selector/IndexSelector.vb index fdaecc03..1be10fc4 100644 --- a/ComponentModel/Ranges/Selector/IndexSelector.vb +++ b/ComponentModel/Ranges/Selector/IndexSelector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b7b6985a0997ef3768ef740897ce76e6, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Selector\IndexSelector.vb" +#Region "Microsoft.VisualBasic::95139befeafc8875d31a9c3935bef117, Microsoft.VisualBasic.Core\ComponentModel\Ranges\Selector\IndexSelector.vb" ' Author: ' @@ -38,7 +38,7 @@ ' ' Class OrderSelector ' - ' Properties: Count, Desc + ' Properties: Count, Desc, Max, Min ' ' Constructor: (+1 Overloads) Sub New ' Function: Find, FirstGreaterThan, GetEnumerator, IEnumerable_GetEnumerator, SelectByRange diff --git a/ComponentModel/System.Collections.Generic/IndexOf.vb b/ComponentModel/System.Collections.Generic/IndexOf.vb index 2fcefbbe..f3d938b2 100644 --- a/ComponentModel/System.Collections.Generic/IndexOf.vb +++ b/ComponentModel/System.Collections.Generic/IndexOf.vb @@ -1,52 +1,52 @@ -#Region "Microsoft.VisualBasic::c7181e3a1cca2f1c14aae77b3062892d, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.vb" +#Region "Microsoft.VisualBasic::a6498fbe4fe1e79159f3793ea7e5ddf9, Microsoft.VisualBasic.Core\ComponentModel\System.Collections.Generic\IndexOf.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 . + ' 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: + ' Summaries: -' Class Index -' -' Properties: Count, Map, Objects -' -' Constructor: (+4 Overloads) Sub New -' -' Function: Add, GetEnumerator, IEnumerable_GetEnumerator, indexing, (+2 Overloads) Intersect -' NotExists, ToString -' -' Sub: Clear, Delete -' -' Operators: -, (+2 Overloads) +, <>, =, (+2 Overloads) IsFalse -' (+2 Overloads) IsTrue, (+2 Overloads) Like -' -' -' /********************************************************************************/ + ' Class Index + ' + ' Properties: Count, Map, Objects + ' + ' Constructor: (+4 Overloads) Sub New + ' + ' Function: Add, GetEnumerator, GetOrdinal, IEnumerable_GetEnumerator, indexing + ' (+2 Overloads) Intersect, NotExists, ToString + ' + ' Sub: Clear, Delete + ' + ' Operators: -, (+2 Overloads) +, <>, =, (+2 Overloads) IsFalse + ' (+2 Overloads) IsTrue, (+2 Overloads) Like + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Extensions/Collection/BucketOperators.vb b/Extensions/Collection/BucketOperators.vb index f9da8482..022f729c 100644 --- a/Extensions/Collection/BucketOperators.vb +++ b/Extensions/Collection/BucketOperators.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b2874cf966dde9b3b6b71e903cf32a2d, Microsoft.VisualBasic.Core\Extensions\Collection\BucketExtensions.vb" +#Region "Microsoft.VisualBasic::051df9d9d951aea29e194e13c8232320, Microsoft.VisualBasic.Core\Extensions\Collection\BucketOperators.vb" ' Author: ' @@ -31,7 +31,7 @@ ' Summaries: - ' Module BucketExtensions + ' Module BucketOperators ' ' Function: (+4 Overloads) Join, Split, SplitIterator ' diff --git a/Extensions/Collection/CategoryOperations.vb b/Extensions/Collection/CategoryOperations.vb index c961de94..8970c233 100644 --- a/Extensions/Collection/CategoryOperations.vb +++ b/Extensions/Collection/CategoryOperations.vb @@ -1,4 +1,45 @@ -Imports System.Collections.Specialized +#Region "Microsoft.VisualBasic::434db169458d24f2d89ad4536406db44, Microsoft.VisualBasic.Core\Extensions\Collection\CategoryOperations.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: + + ' Module CategoryOperations + ' + ' Function: AsGroups, AsNamedVector, CategoryValues, IGrouping + ' + ' /********************************************************************************/ + +#End Region + +Imports System.Collections.Specialized Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.CommandLine.Reflection Imports Microsoft.VisualBasic.ComponentModel @@ -59,3 +100,4 @@ Public Module CategoryOperations End Function) End Function End Module + diff --git a/Extensions/Collection/IsNullOrEmptyExtensions.vb b/Extensions/Collection/IsNullOrEmptyExtensions.vb index 01eade01..2fce3835 100644 --- a/Extensions/Collection/IsNullOrEmptyExtensions.vb +++ b/Extensions/Collection/IsNullOrEmptyExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d5e16014c313463cfdc1db5fb83d1bfd, Microsoft.VisualBasic.Core\Extensions\Collection\IsNullOrEmptyExtensions.vb" +#Region "Microsoft.VisualBasic::624954b0d976d4ee1ecf713953a6fcc5, Microsoft.VisualBasic.Core\Extensions\Collection\IsNullOrEmptyExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index 5957ac9c..25df58f9 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4c026d261e64952d9a7ef92a273c04ed, Microsoft.VisualBasic.Core\Extensions\Collection\KeyValuePair.vb" +#Region "Microsoft.VisualBasic::4c34fe7ef695119d13070eda59ef9163, Microsoft.VisualBasic.Core\Extensions\Collection\KeyValuePair.vb" ' Author: ' @@ -33,14 +33,14 @@ ' Module KeyValuePairExtensions ' - ' Function: (+3 Overloads) [Select], (+2 Overloads) Add, AsEnumerable, AsGroups, AsNamedValueTuples - ' AsNamedVector, AsTable, ComputeIfAbsent, (+3 Overloads) ContainsKey, DictionaryData - ' (+2 Overloads) EnumerateTuples, EnumParser, FlatTable, (+2 Overloads) GetByKey, GetValueOrDefault - ' GroupByKey, HaveData, IGrouping, IterateNameCollections, IterateNameValues - ' IteratesAll, Join, KeyItem, (+2 Overloads) Keys, (+2 Overloads) NamedValues - ' (+3 Overloads) NameValueCollection, ParserDictionary, RemoveAndGet, ReverseMaps, (+2 Overloads) Selects - ' SetOfKeyValuePairs, (+2 Overloads) Subset, tableInternal, Takes, (+3 Overloads) ToDictionary - ' Tsv, Tuple, (+2 Overloads) Values, XMLModel + ' Function: (+3 Overloads) [Select], (+2 Overloads) Add, AsEnumerable, AsNamedValueTuples, AsTable + ' ComputeIfAbsent, (+3 Overloads) ContainsKey, DictionaryData, (+2 Overloads) EnumerateTuples, EnumParser + ' FlatTable, (+2 Overloads) GetByKey, GetValueOrDefault, GroupByKey, HaveData + ' IterateNameCollections, IterateNameValues, IteratesAll, Join, KeyItem + ' (+2 Overloads) Keys, (+2 Overloads) NamedValues, (+3 Overloads) NameValueCollection, ParserDictionary, RemoveAndGet + ' ReverseMaps, (+2 Overloads) Selects, SetOfKeyValuePairs, (+2 Overloads) Subset, tableInternal + ' Takes, (+3 Overloads) ToDictionary, ToLower, ToUpper, Tsv + ' Tuple, (+2 Overloads) Values, XMLModel ' ' Sub: SortByKey, SortByValue ' diff --git a/Extensions/Collection/Linq/Enumeration.vb b/Extensions/Collection/Linq/Enumeration.vb index 34e25bf3..54be0fa7 100644 --- a/Extensions/Collection/Linq/Enumeration.vb +++ b/Extensions/Collection/Linq/Enumeration.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::b024577ea1fdaa7118bd6e089a956260, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Enumeration.vb" +#Region "Microsoft.VisualBasic::207b8c7e8f905170be918a69f5f6cc7f, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Enumeration.vb" ' Author: ' @@ -37,7 +37,7 @@ ' ' Module EnumerationExtensions ' - ' Function: AsEnumerable + ' Function: AsEnumerable, AsObjectEnumerator ' Class Enumerator ' ' Function: GetEnumerator, IEnumerable_GetEnumerator diff --git a/Extensions/Collection/Linq/Iterator.vb b/Extensions/Collection/Linq/Iterator.vb index 82a53be8..b035a3af 100644 --- a/Extensions/Collection/Linq/Iterator.vb +++ b/Extensions/Collection/Linq/Iterator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4f967b32a35764690c19ec884768c35f, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Iterator.vb" +#Region "Microsoft.VisualBasic::bb00189b6576ae1fa45c9498bd125215, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Iterator.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Linq.vb b/Extensions/Collection/Linq/Linq.vb index a2c18e1e..8c97b24a 100644 --- a/Extensions/Collection/Linq/Linq.vb +++ b/Extensions/Collection/Linq/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::157301c28eb348f8edfe58d6477fadcb, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Linq.vb" +#Region "Microsoft.VisualBasic::4d437d0440fa9495dffb10e273c2b53b, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Linq.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Pipeline.vb b/Extensions/Collection/Linq/Pipeline.vb index 03b55ba3..185e1713 100644 --- a/Extensions/Collection/Linq/Pipeline.vb +++ b/Extensions/Collection/Linq/Pipeline.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::fe84ccf8077c358c9ab04b94a27bd35c, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Pipeline.vb" +#Region "Microsoft.VisualBasic::abed2ce454022b1fc8bd07931ab2dc5c, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Pipeline.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/Takes.vb b/Extensions/Collection/Linq/Takes.vb index b2144187..b91ac97f 100644 --- a/Extensions/Collection/Linq/Takes.vb +++ b/Extensions/Collection/Linq/Takes.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ac1a4d12fe1a6b584c83cb78b4dfff06, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Takes.vb" +#Region "Microsoft.VisualBasic::c2368b41d83cc9e285798beca0da0501, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\Takes.vb" ' Author: ' diff --git a/Extensions/Collection/Linq/VectorAssertExtensions.vb b/Extensions/Collection/Linq/VectorAssertExtensions.vb index e8738b7c..e7768678 100644 --- a/Extensions/Collection/Linq/VectorAssertExtensions.vb +++ b/Extensions/Collection/Linq/VectorAssertExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2aa1d595aa123f2c055f05a31040cfd1, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\VectorAssertExtensions.vb" +#Region "Microsoft.VisualBasic::30f0809533229e3dc85abb86041f8892, Microsoft.VisualBasic.Core\Extensions\Collection\Linq\VectorAssertExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/ListExtensions.vb b/Extensions/Collection/ListExtensions.vb index 1ec2568b..a4269dce 100644 --- a/Extensions/Collection/ListExtensions.vb +++ b/Extensions/Collection/ListExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a5ffde156f52abbe08a37925af47ec4b, Microsoft.VisualBasic.Core\Extensions\Collection\ListExtensions.vb" +#Region "Microsoft.VisualBasic::60fb88c016e2a1f955bfe3846e73a073, Microsoft.VisualBasic.Core\Extensions\Collection\ListExtensions.vb" ' Author: ' diff --git a/Extensions/Collection/Vector.vb b/Extensions/Collection/Vector.vb index 0d97389e..87a93994 100644 --- a/Extensions/Collection/Vector.vb +++ b/Extensions/Collection/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::0c24963248bf4cc292874ecfd4a073fa, Microsoft.VisualBasic.Core\Extensions\Collection\Vector.vb" +#Region "Microsoft.VisualBasic::ce2df7a59972d694106c33828b71d099, Microsoft.VisualBasic.Core\Extensions\Collection\Vector.vb" ' Author: ' diff --git a/Extensions/Doc/Text.vb b/Extensions/Doc/Text.vb index e7a93c76..93539727 100644 --- a/Extensions/Doc/Text.vb +++ b/Extensions/Doc/Text.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::400f086acc384a348306716fc505f3ed, Microsoft.VisualBasic.Core\Extensions\Doc\Text.vb" +#Region "Microsoft.VisualBasic::e5a620c86564678f819b3f227ef922bf, Microsoft.VisualBasic.Core\Extensions\Doc\Text.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/Extensions.vb b/Extensions/IO/Extensions/Extensions.vb index 4ceba082..3926e8d6 100644 --- a/Extensions/IO/Extensions/Extensions.vb +++ b/Extensions/IO/Extensions/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::dd2a158234e426a88e2e3a25a1b611e3, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\Extensions.vb" +#Region "Microsoft.VisualBasic::525b40766f7173a3cc12d8a1d5ef9a88, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\Extensions.vb" ' Author: ' diff --git a/Extensions/IO/Extensions/IO.vb b/Extensions/IO/Extensions/IO.vb index 61645147..5720f71b 100644 --- a/Extensions/IO/Extensions/IO.vb +++ b/Extensions/IO/Extensions/IO.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2fc962b5cafdc719056489d0069a2859, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\IO.vb" +#Region "Microsoft.VisualBasic::246ec7fd648a0710c153cd510e397a3e, Microsoft.VisualBasic.Core\Extensions\IO\Extensions\IO.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/GDICanvas.vb b/Extensions/Image/GDI+/GDICanvas.vb index d44d2af6..e91dea3a 100644 --- a/Extensions/Image/GDI+/GDICanvas.vb +++ b/Extensions/Image/GDI+/GDICanvas.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ec414b409ccfae2670da0d33969d8b8b, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\GDICanvas.vb" +#Region "Microsoft.VisualBasic::0d97c15df631518b75bb0b2755879fe0, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\GDICanvas.vb" ' Author: ' diff --git a/Extensions/Image/GDI+/GraphicsExtensions.vb b/Extensions/Image/GDI+/GraphicsExtensions.vb index 63640e91..8e217c5c 100644 --- a/Extensions/Image/GDI+/GraphicsExtensions.vb +++ b/Extensions/Image/GDI+/GraphicsExtensions.vb @@ -1,49 +1,49 @@ -#Region "Microsoft.VisualBasic::dcfdfa610e8d4062f28ff78bce86805c, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\GraphicsExtensions.vb" +#Region "Microsoft.VisualBasic::29d28d1c9bf75616c338a4fb4db3decc, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\GraphicsExtensions.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 . + ' 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: + ' Summaries: -' Module GraphicsExtensions -' -' Function: BackgroundGraphics, CanvasCreateFromImageFile, (+2 Overloads) Clone, ColorBrush, CreateCanvas2D -' (+4 Overloads) CreateGDIDevice, CreateGrayBitmap, EntireImage, GetBrush, GetBrushes -' (+2 Overloads) GetIcon, GetStreamBuffer, GetStringPath, (+2 Overloads) GraphicsPath, ImageAddFrame -' IsValidGDIParameter, (+3 Overloads) LoadImage, (+2 Overloads) Opacity, OpenDevice, (+2 Overloads) PointF -' SaveIcon, SizeF, ToFloat, ToPoint, ToPoints -' ToStream -' -' Sub: (+5 Overloads) DrawCircle -' -' -' /********************************************************************************/ + ' Module GraphicsExtensions + ' + ' Function: BackgroundGraphics, CanvasCreateFromImageFile, (+2 Overloads) Clone, ColorBrush, CreateCanvas2D + ' (+4 Overloads) CreateGDIDevice, CreateGrayBitmap, EntireImage, GetBrush, GetBrushes + ' (+2 Overloads) GetIcon, GetStreamBuffer, GetStringPath, (+2 Overloads) GraphicsPath, ImageAddFrame + ' IsValidGDIParameter, (+3 Overloads) LoadImage, (+2 Overloads) Opacity, OpenDevice, (+2 Overloads) PointF + ' SaveIcon, SizeF, ToFloat, ToPoint, ToPoints + ' ToStream + ' + ' Sub: (+5 Overloads) DrawCircle + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Extensions/Image/GDI+/Interface.vb b/Extensions/Image/GDI+/Interface.vb index 2c9ffccd..723dcfb0 100644 --- a/Extensions/Image/GDI+/Interface.vb +++ b/Extensions/Image/GDI+/Interface.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::2f63e51e93c6d27b742043386c10d5bd, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Interface.vb" +#Region "Microsoft.VisualBasic::cbf1fe46bf239d552640ce7a2ea8bd89, Microsoft.VisualBasic.Core\Extensions\Image\GDI+\Interface.vb" ' Author: ' diff --git a/Extensions/Image/Math/GeomTransform.vb b/Extensions/Image/Math/GeomTransform.vb index 51f3ad91..1f7fa3f0 100644 --- a/Extensions/Image/Math/GeomTransform.vb +++ b/Extensions/Image/Math/GeomTransform.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ee4aaadfff928a88ce98216f467dc3a6, Microsoft.VisualBasic.Core\Extensions\Image\Math\GeomTransform.vb" +#Region "Microsoft.VisualBasic::d8bd1c6a0fc7d93851919387150272dc, Microsoft.VisualBasic.Core\Extensions\Image\Math\GeomTransform.vb" ' Author: ' @@ -35,8 +35,8 @@ ' ' Function: Angle, Area, (+2 Overloads) CalculateAngle, CenterAlign, (+2 Overloads) CentralOffset ' (+4 Overloads) Centre, CircleRectangle, (+4 Overloads) Distance, (+2 Overloads) GetBounds, GetCenter - ' (+2 Overloads) InRegion, MirrorX, MirrorY, (+5 Overloads) OffSet2D, Offsets - ' (+4 Overloads) Scale, ShapePoints, SquareSize + ' (+2 Overloads) InRegion, MirrorX, MirrorY, (+8 Overloads) OffSet2D, Offsets + ' (+5 Overloads) Scale, ShapePoints, SquareSize ' ' ' /********************************************************************************/ diff --git a/Extensions/Image/TiffWriter.vb b/Extensions/Image/TiffWriter.vb index e10998f2..a6150319 100644 --- a/Extensions/Image/TiffWriter.vb +++ b/Extensions/Image/TiffWriter.vb @@ -1,47 +1,47 @@ -#Region "Microsoft.VisualBasic::03ff858003686cc92d3eab5acd654e71, Microsoft.VisualBasic.Core\Extensions\Image\TiffWriter.vb" +#Region "Microsoft.VisualBasic::057fc5da2dcf25d977dd52a55e858a9a, Microsoft.VisualBasic.Core\Extensions\Image\TiffWriter.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 . + ' 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: + ' Summaries: -' Class TiffWriter -' -' Constructor: (+1 Overloads) Sub New -' -' Function: __bitmaps, __getPageNumber, ConvertToBitonal, ExistingFileSave, GetCodec -' GetEnumerator, IEnumerable_GetEnumerator, MultipageTiffSave, SaveMultipage, SaveToExistingFile -' -' Sub: __saveImageExistingMultiplePage, __saveImageExistingSinglePage, __saveMultipage, __saveToExistingFile, Add -' -' -' /********************************************************************************/ + ' Class TiffWriter + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: ConvertToBitonal, ExistingFileSave, GetCodec, GetEnumerator, getPageNumber + ' IEnumerable_GetEnumerator, layers2Bitmaps, MultipageTiffSave, SaveMultipage, SaveToExistingFile + ' + ' Sub: __saveImageExistingMultiplePage, __saveImageExistingSinglePage, Add, doSaveToExistingFile, saveMultipage + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Extensions/Math/Math.vb b/Extensions/Math/Math.vb index 6282d8ff..8b9da488 100644 --- a/Extensions/Math/Math.vb +++ b/Extensions/Math/Math.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4bca11f5a23f2f8c8e9759335752c762, Microsoft.VisualBasic.Core\Extensions\Math\Math.vb" +#Region "Microsoft.VisualBasic::7995a8959bcd3d358a5b82d40806ed93, Microsoft.VisualBasic.Core\Extensions\Math\Math.vb" ' Author: ' diff --git a/Extensions/Math/NumberGroups.vb b/Extensions/Math/NumberGroups.vb index efa205bf..1c8cd200 100644 --- a/Extensions/Math/NumberGroups.vb +++ b/Extensions/Math/NumberGroups.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9e98a35ee7e87dbe82f6b620db3ac30c, Microsoft.VisualBasic.Core\Extensions\Math\NumberGroups.vb" +#Region "Microsoft.VisualBasic::1b7414a43a1cbb03f1c9676d2ccd56eb, Microsoft.VisualBasic.Core\Extensions\Math\NumberGroups.vb" ' Author: ' diff --git a/Extensions/Math/Random/RandomExtensions.vb b/Extensions/Math/Random/RandomExtensions.vb index 52e700e0..c7bfb30a 100644 --- a/Extensions/Math/Random/RandomExtensions.vb +++ b/Extensions/Math/Random/RandomExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::c73b04794f5e4ba485c6532d554cc8de, Microsoft.VisualBasic.Core\Extensions\Math\Random\RandomExtensions.vb" +#Region "Microsoft.VisualBasic::014d0fe60839db58c722b14c8bc5d1ca, Microsoft.VisualBasic.Core\Extensions\Math\Random\RandomExtensions.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Average.vb b/Extensions/Math/StatisticsMathExtensions/Average.vb index 3ebc8b0d..06573d9e 100644 --- a/Extensions/Math/StatisticsMathExtensions/Average.vb +++ b/Extensions/Math/StatisticsMathExtensions/Average.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4c8b3e8db9275b8503a5616f91739596, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Average.vb" +#Region "Microsoft.VisualBasic::5111f0c69fb580eeca22b6f2dd77136e, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Average.vb" ' Author: ' @@ -36,7 +36,11 @@ ' Properties: Average ' ' Constructor: (+2 Overloads) Sub New - ' Function: ToString + ' + ' Function: getEigenvalue, ToString + ' + ' Sub: addObservation + ' ' Operators: + ' ' diff --git a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb index c26cea68..591e7954 100644 --- a/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb +++ b/Extensions/Math/StatisticsMathExtensions/Linq/EnumerableStatsMedian.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::483cde5ad46acf2c65ce1061000bb57f, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsMedian.vb" +#Region "Microsoft.VisualBasic::94719152a098083183a484812c6f9ecc, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Linq\EnumerableStatsMedian.vb" ' Author: ' diff --git a/Extensions/Math/StatisticsMathExtensions/Min.vb b/Extensions/Math/StatisticsMathExtensions/Min.vb index a5b5ac7f..71bbcf1c 100644 --- a/Extensions/Math/StatisticsMathExtensions/Min.vb +++ b/Extensions/Math/StatisticsMathExtensions/Min.vb @@ -1,4 +1,52 @@ -Namespace Math.Statistics +#Region "Microsoft.VisualBasic::8a23b3f3ab00bbcfc05cb0d5141312bc, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\Min.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 Min + ' + ' Properties: MinValue + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: getEigenvalue, ToString + ' + ' Sub: addObservation + ' + ' + ' /********************************************************************************/ + +#End Region + +Namespace Math.Statistics Public Class Min : Inherits SampleObservation @@ -24,4 +72,4 @@ Return MinValue End Function End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/Extensions/Math/StatisticsMathExtensions/SampleObservation.vb b/Extensions/Math/StatisticsMathExtensions/SampleObservation.vb index 33f17061..b7b10560 100644 --- a/Extensions/Math/StatisticsMathExtensions/SampleObservation.vb +++ b/Extensions/Math/StatisticsMathExtensions/SampleObservation.vb @@ -1,4 +1,49 @@ -Public MustInherit Class SampleObservation +#Region "Microsoft.VisualBasic::01075462c48aca3574ed9afd8b279f8a, Microsoft.VisualBasic.Core\Extensions\Math\StatisticsMathExtensions\SampleObservation.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 SampleObservation + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: getRaw + ' + ' Sub: Add + ' + ' /********************************************************************************/ + +#End Region + +Public MustInherit Class SampleObservation Dim samples As New List(Of Double) @@ -24,3 +69,4 @@ Return observation.getEigenvalue End Operator End Class + diff --git a/Extensions/Reflection/Marshal/Pointer(Of T).vb b/Extensions/Reflection/Marshal/Pointer(Of T).vb index 3867ee99..2efb159b 100644 --- a/Extensions/Reflection/Marshal/Pointer(Of T).vb +++ b/Extensions/Reflection/Marshal/Pointer(Of T).vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::7dd5c1d2fee57d6554f72f09efdc32fe, Microsoft.VisualBasic.Core\Extensions\Reflection\Marshal\Pointer(Of T).vb" +#Region "Microsoft.VisualBasic::42fba770825092fe619b346e47f20092, Microsoft.VisualBasic.Core\Extensions\Reflection\Marshal\Pointer(Of T).vb" ' Author: ' @@ -37,7 +37,7 @@ ' RawBuffer, UBound ' ' Constructor: (+4 Overloads) Sub New - ' Function: MoveNext, PeekNext, stackalloc, ToString + ' Function: GetLeftsAll, MoveNext, PeekNext, stackalloc, ToString ' Operators: (+2 Overloads) -, (+2 Overloads) +, <<, (+2 Overloads) <=, <> ' =, (+2 Overloads) >=, >> ' diff --git a/Extensions/Reflection/Methods.vb b/Extensions/Reflection/Methods.vb index 186186c7..8ba8e3b0 100644 --- a/Extensions/Reflection/Methods.vb +++ b/Extensions/Reflection/Methods.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::965a865aa28a8655735ad083bc1825d6, Microsoft.VisualBasic.Core\Extensions\Reflection\Methods.vb" +#Region "Microsoft.VisualBasic::0d7ae7110132956aa65578e918caa52f, Microsoft.VisualBasic.Core\Extensions\Reflection\Methods.vb" ' Author: ' diff --git a/Extensions/Reflection/Reflection.vb b/Extensions/Reflection/Reflection.vb index 7691e113..a6d5127f 100644 --- a/Extensions/Reflection/Reflection.vb +++ b/Extensions/Reflection/Reflection.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::587fe76edd1b1658bf6c230bfac12179, Microsoft.VisualBasic.Core\Extensions\Reflection\Reflection.vb" +#Region "Microsoft.VisualBasic::0fa9504917d00a86a2aec7d80f86e523, Microsoft.VisualBasic.Core\Extensions\Reflection\Reflection.vb" ' Author: ' diff --git a/Extensions/StringHelpers/Parser.vb b/Extensions/StringHelpers/Parser.vb index 889b8028..f33e6d68 100644 --- a/Extensions/StringHelpers/Parser.vb +++ b/Extensions/StringHelpers/Parser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::061d3943f477ad923144a3cbaca58177, Microsoft.VisualBasic.Core\Extensions\StringHelpers\Parser.vb" +#Region "Microsoft.VisualBasic::581557608c03c422167a0717138431b7, Microsoft.VisualBasic.Core\Extensions\StringHelpers\Parser.vb" ' Author: ' diff --git a/Extensions/StringHelpers/RegexExtensions.vb b/Extensions/StringHelpers/RegexExtensions.vb index 3710dd55..38a51690 100644 --- a/Extensions/StringHelpers/RegexExtensions.vb +++ b/Extensions/StringHelpers/RegexExtensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ee859640b797034c8e1716e154eef6fb, Microsoft.VisualBasic.Core\Extensions\StringHelpers\RegexExtensions.vb" +#Region "Microsoft.VisualBasic::09bd4a4a62b3cfc73d60a7e328520acf, Microsoft.VisualBasic.Core\Extensions\StringHelpers\RegexExtensions.vb" ' Author: ' diff --git a/Extensions/StringHelpers/StringFormats.vb b/Extensions/StringHelpers/StringFormats.vb index 13ab5a94..6436fe6d 100644 --- a/Extensions/StringHelpers/StringFormats.vb +++ b/Extensions/StringHelpers/StringFormats.vb @@ -1,4 +1,45 @@ -Imports Microsoft.VisualBasic.Language.C +#Region "Microsoft.VisualBasic::da4434752d457c7384f2b5368523f1ec, Microsoft.VisualBasic.Core\Extensions\StringHelpers\StringFormats.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: + + ' Module StringFormats + ' + ' Function: Lanudry + ' + ' /********************************************************************************/ + +#End Region + +Imports Microsoft.VisualBasic.Language.C Imports stdNum = System.Math Public Module StringFormats @@ -21,3 +62,4 @@ Public Module StringFormats Return sprintf($"%.2f %s", val, symbol) End Function End Module + diff --git a/Language/Linq/Vectorization/Extensions.vb b/Language/Linq/Vectorization/Extensions.vb index c55898dd..d29576cf 100644 --- a/Language/Linq/Vectorization/Extensions.vb +++ b/Language/Linq/Vectorization/Extensions.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::3c4353d24abf909ca2603923128841d9, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\Extensions.vb" +#Region "Microsoft.VisualBasic::a04d31342f9719ac8e8b95597bb778b3, Microsoft.VisualBasic.Core\Language\Linq\Vectorization\Extensions.vb" ' Author: ' diff --git a/My/Framework/Config.vb b/My/Framework/Config.vb index 3ab41f11..52239c08 100644 --- a/My/Framework/Config.vb +++ b/My/Framework/Config.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::6af94cfea22ccf423dbfe4fe5db5d5ac, Microsoft.VisualBasic.Core\My\Framework\Config.vb" +#Region "Microsoft.VisualBasic::ec9bbaee6431787cf17776fb8f0c20c4, Microsoft.VisualBasic.Core\My\Framework\Config.vb" ' Author: ' @@ -37,6 +37,8 @@ ' ' Function: Load, Save, saveDefault, ToString ' + ' Sub: fetchConfig + ' ' ' /********************************************************************************/ diff --git a/My/Log4VB.vb b/My/Log4VB.vb index 1637148c..238e9d2b 100644 --- a/My/Log4VB.vb +++ b/My/Log4VB.vb @@ -1,44 +1,44 @@ -#Region "Microsoft.VisualBasic::5210ca600366a201431189d4c7463c8c, Microsoft.VisualBasic.Core\My\Log4VB.vb" +#Region "Microsoft.VisualBasic::a68941d725cbbfd23a2990bcbf568514, Microsoft.VisualBasic.Core\My\Log4VB.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 . + ' 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: + ' Summaries: -' Module Log4VB -' -' Function: getColor, Print -' -' Sub: Print, Println -' -' -' /********************************************************************************/ + ' Module Log4VB + ' + ' Function: getColor, Print + ' + ' Sub: (+2 Overloads) Print, Println + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Net/HTTP/HTTP_RFC.vb b/Net/HTTP/HTTP_RFC.vb index ffbcbe96..b217172c 100644 --- a/Net/HTTP/HTTP_RFC.vb +++ b/Net/HTTP/HTTP_RFC.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::61425b732450b4a9e6446347bd269581, Microsoft.VisualBasic.Core\Extensions\WebServices\HTTP_RFC.vb" +#Region "Microsoft.VisualBasic::61425b732450b4a9e6446347bd269581, Microsoft.VisualBasic.Core\Net\HTTP\HTTP_RFC.vb" ' Author: ' diff --git a/Net/HTTP/wget.vb b/Net/HTTP/wget.vb index 2634e786..c8cf1007 100644 --- a/Net/HTTP/wget.vb +++ b/Net/HTTP/wget.vb @@ -1,43 +1,46 @@ -#Region "Microsoft.VisualBasic::e2f561de20747fa167eaa217bb586262, Microsoft.VisualBasic.Core\Net\HTTP\wget.vb" +#Region "Microsoft.VisualBasic::567e21c12e44d8783e08a0e6d78e0980, Microsoft.VisualBasic.Core\Net\HTTP\wget.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 . + ' 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: + ' Summaries: -' Class wget -' -' Constructor: (+1 Overloads) Sub New -' Sub: DownloadProcess, ReportRequest, Run -' -' -' /********************************************************************************/ + ' Class wget + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: Download, ToString + ' + ' Sub: ClearLine, DownloadProcess, ReportRequest, Run + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Net/HTTP/wgetTask.vb b/Net/HTTP/wgetTask.vb index 4903e71e..0089fd20 100644 --- a/Net/HTTP/wgetTask.vb +++ b/Net/HTTP/wgetTask.vb @@ -1,50 +1,49 @@ -#Region "Microsoft.VisualBasic::65a79ec99c6b759492f9e2ac12130130, Microsoft.VisualBasic.Core\Net\HTTP\wgetTask.vb" +#Region "Microsoft.VisualBasic::e615a7c6adaa9974a382d09816854b8a, Microsoft.VisualBasic.Core\Net\HTTP\wgetTask.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 . + ' 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: + ' Summaries: -' Class wgetTask -' -' Properties: currentSize, downloadSpeed, isDownloading, saveFile, totalSize -' url -' -' Constructor: (+1 Overloads) Sub New -' -' Function: ToString -' -' Sub: (+2 Overloads) Dispose, doTaskInternal, StartTask, switchStat, taskWithContentLength -' taskWithNoContentLength -' -' -' /********************************************************************************/ + ' Class wgetTask + ' + ' Properties: currentSize, downloadSpeed, isDownloading, saveFile, totalSize + ' url + ' + ' Constructor: (+1 Overloads) Sub New + ' + ' Function: StartTask, ToString + ' + ' Sub: (+2 Overloads) Dispose, doDownloadTask, doTaskInternal, switchStat + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Net/Protocol/NetResponse.vb b/Net/Protocol/NetResponse.vb index 1433e7e4..74d76983 100644 --- a/Net/Protocol/NetResponse.vb +++ b/Net/Protocol/NetResponse.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::d9badf946a5bcbeb6e6e350feeddc3c9, Microsoft.VisualBasic.Core\Extensions\WebServices\NetResponse.vb" +#Region "Microsoft.VisualBasic::d9badf946a5bcbeb6e6e350feeddc3c9, Microsoft.VisualBasic.Core\Net\Protocol\NetResponse.vb" ' Author: ' diff --git a/Scripting/ExternalCall.vb b/Scripting/ExternalCall.vb index 8c32609c..2d49e10d 100644 --- a/Scripting/ExternalCall.vb +++ b/Scripting/ExternalCall.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::1472354ab6a5d2b672d99b8df06c3298, Microsoft.VisualBasic.Core\Scripting\ExternalCall.vb" +#Region "Microsoft.VisualBasic::e4dba50f114e8fd90ba9acdb50c20ed5, Microsoft.VisualBasic.Core\Scripting\ExternalCall.vb" ' Author: ' diff --git a/Scripting/InputHandler.vb b/Scripting/InputHandler.vb index a058757e..6bb45829 100644 --- a/Scripting/InputHandler.vb +++ b/Scripting/InputHandler.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::977e2800b5b5a1a01e74f93e04fd092e, Microsoft.VisualBasic.Core\Scripting\InputHandler.vb" +#Region "Microsoft.VisualBasic::26f38fa3a0c0846c829640aa4daf27b8, Microsoft.VisualBasic.Core\Scripting\InputHandler.vb" ' Author: ' diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index dd316a4f..6229c4a4 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::84ebe917805a662f87a5ed3016710b8b, Microsoft.VisualBasic.Core\Scripting\MetaData\Type.vb" +#Region "Microsoft.VisualBasic::e5ae64f845b53aa6957e99cc714b1792, Microsoft.VisualBasic.Core\Scripting\MetaData\Type.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Class TypeInfo ' - ' Properties: assm, fullIdentity, isSystemKnownType + ' Properties: assembly, fullName, isSystemKnownType ' ' Constructor: (+2 Overloads) Sub New ' diff --git a/Scripting/TokenIcer/LangModels/Token.vb b/Scripting/TokenIcer/LangModels/Token.vb index 511c1506..0431e789 100644 --- a/Scripting/TokenIcer/LangModels/Token.vb +++ b/Scripting/TokenIcer/LangModels/Token.vb @@ -1,57 +1,70 @@ -#Region "Microsoft.VisualBasic::7fffce487e1390b4d89c80f247130cc2, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\Token.vb" +#Region "Microsoft.VisualBasic::fcb5999da9e68e133c1c60dd7bdea6ef, Microsoft.VisualBasic.Core\Scripting\TokenIcer\LangModels\Token.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 . + ' 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: + ' Summaries: -' Class Token -' -' Properties: Arguments, Closure, IsClosure, IsFunction, IsNumeric -' IsObject, name, Text, Type, UNDEFINED -' Value -' -' Constructor: (+3 Overloads) Sub New -' Function: GetValue, ToString -' -' Class Statement -' -' Properties: tokens, Trace -' -' Function: ToString -' -' Class Main -' -' Properties: program -' -' -' /********************************************************************************/ + ' Class Token + ' + ' Properties: Arguments, Closure, IsClosure, IsFunction, IsNumeric + ' IsObject, name, Text, Type, UNDEFINED + ' Value + ' + ' Constructor: (+3 Overloads) Sub New + ' Function: GetValue, ToString + ' + ' Class Statement + ' + ' Properties: tokens, Trace + ' + ' Function: ToString + ' + ' Class Main + ' + ' Properties: program + ' + ' Class CodeSpan + ' + ' Properties: line, start, stops + ' + ' Function: ToString + ' + ' Class CodeToken + ' + ' Properties: isNumeric, name, span, text + ' + ' Constructor: (+3 Overloads) Sub New + ' Function: ToString + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Text/Parser/CharEnumerator.vb b/Text/Parser/CharEnumerator.vb index d59740c3..90be2638 100644 --- a/Text/Parser/CharEnumerator.vb +++ b/Text/Parser/CharEnumerator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::9419b8655e218d4b7f1b8f381fa51413, Microsoft.VisualBasic.Core\Text\Parser\CharEnumerator.vb" +#Region "Microsoft.VisualBasic::29dc38b29e66e73683051b92cbab9ae6, Microsoft.VisualBasic.Core\Text\Parser\CharEnumerator.vb" ' Author: ' @@ -37,6 +37,7 @@ ' ' Constructor: (+1 Overloads) Sub New ' Function: ToString + ' Operators: (+2 Overloads) Not ' ' ' /********************************************************************************/ diff --git a/Text/Parser/HtmlParser/TagAttributeParser.vb b/Text/Parser/HtmlParser/TagAttributeParser.vb index 25f1c6e0..3cac4517 100644 --- a/Text/Parser/HtmlParser/TagAttributeParser.vb +++ b/Text/Parser/HtmlParser/TagAttributeParser.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::77ba6865a0d027987d269c889094aaa4, Microsoft.VisualBasic.Core\Text\Parser\HtmlParser\TagAttributeParser.vb" +#Region "Microsoft.VisualBasic::182a146ac882c4d58c0f95e982e1b4ce, Microsoft.VisualBasic.Core\Text\Parser\HtmlParser\TagAttributeParser.vb" ' Author: ' @@ -33,7 +33,7 @@ ' Module TagAttributeParser ' - ' Function: [class], classList, GetAttrValue, GetImageLinks, href + ' Function: [class], attr, classList, GetImageLinks, href ' img, (+2 Overloads) src, TagAttributes ' ' diff --git a/Text/SearchEngine/TextIndexing/TextIndexing.vb b/Text/SearchEngine/TextIndexing/TextIndexing.vb index 07e52d37..66d53971 100644 --- a/Text/SearchEngine/TextIndexing/TextIndexing.vb +++ b/Text/SearchEngine/TextIndexing/TextIndexing.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::ca3d0e340bd2f56ece58e491d6b679e9, Microsoft.VisualBasic.Core\Text\SearchEngine\TextIndexing\TextIndexing.vb" +#Region "Microsoft.VisualBasic::be3802916c68edfc974b51d8ac60f8ee, Microsoft.VisualBasic.Core\Text\SearchEngine\TextIndexing\TextIndexing.vb" ' Author: ' @@ -36,7 +36,7 @@ ' Properties: cache ' ' Constructor: (+1 Overloads) Sub New - ' Function: __cache, __indexing, __workParts, (+2 Overloads) Found, (+2 Overloads) FuzzyIndex + ' Function: __indexing, __workParts, doCache, (+2 Overloads) Found, (+2 Overloads) FuzzyIndex ' IsMatch, ToString ' ' diff --git a/Text/Xml/Linq/Linq.vb b/Text/Xml/Linq/Linq.vb index 4bd9295f..4c6197a6 100644 --- a/Text/Xml/Linq/Linq.vb +++ b/Text/Xml/Linq/Linq.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::56ccdc0840104d302a13ffe87cfdc7d3, Microsoft.VisualBasic.Core\Text\Xml\Linq\Linq.vb" +#Region "Microsoft.VisualBasic::5802be14e8c699167da9e7871d12bcec, Microsoft.VisualBasic.Core\Text\Xml\Linq\Linq.vb" ' Author: ' diff --git a/Text/Xml/Linq/NodeIterator.vb b/Text/Xml/Linq/NodeIterator.vb index e4d7819c..8cda2a41 100644 --- a/Text/Xml/Linq/NodeIterator.vb +++ b/Text/Xml/Linq/NodeIterator.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::a105e1a3b491012a57d3acb07d226bf8, Microsoft.VisualBasic.Core\Text\Xml\Linq\NodeIterator.vb" +#Region "Microsoft.VisualBasic::ddeeb7ad1a7ce33ee9840b24595558b1, Microsoft.VisualBasic.Core\Text\Xml\Linq\NodeIterator.vb" ' Author: ' diff --git a/Text/Xml/Models/ListOf.vb b/Text/Xml/Models/ListOf.vb index dcc454de..02cf6039 100644 --- a/Text/Xml/Models/ListOf.vb +++ b/Text/Xml/Models/ListOf.vb @@ -1,44 +1,54 @@ -#Region "Microsoft.VisualBasic::e2f15bb49db3b01391718957a00a0b37, Microsoft.VisualBasic.Core\Text\Xml\Models\ListOf.vb" +#Region "Microsoft.VisualBasic::413025d5bebef4b2c5d6423ed3e4ad28, Microsoft.VisualBasic.Core\Text\Xml\Models\ListOf.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 . + ' 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: + ' Summaries: -' Class ListOf -' -' Properties: size -' -' Function: GenericEnumerator, GetEnumerator -' -' -' /********************************************************************************/ + ' Interface IList + ' + ' Properties: size + ' + ' Class ListOf + ' + ' Properties: size + ' + ' Function: GenericEnumerator, GetEnumerator + ' + ' Class XmlList + ' + ' Properties: items, TypeComment + ' + ' Function: getCollection, getSize + ' + ' + ' /********************************************************************************/ #End Region diff --git a/Text/Xml/Models/Vector.vb b/Text/Xml/Models/Vector.vb index 838310ff..8a54b7f6 100644 --- a/Text/Xml/Models/Vector.vb +++ b/Text/Xml/Models/Vector.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::4f0214ae618650f3a99c95a879d49d42, Microsoft.VisualBasic.Core\Text\Xml\Models\Vector.vb" +#Region "Microsoft.VisualBasic::66246ecfcb788370cee68475bb8589c9, Microsoft.VisualBasic.Core\Text\Xml\Models\Vector.vb" ' Author: ' diff --git a/test/TypeTest.vb b/test/TypeTest.vb index 362aa9cc..bedb896a 100644 --- a/test/TypeTest.vb +++ b/test/TypeTest.vb @@ -1,43 +1,50 @@ -#Region "Microsoft.VisualBasic::75917d1f7b9e3ef81aad687b788cae2e, Microsoft.VisualBasic.Core\test\TypeTest.vb" +#Region "Microsoft.VisualBasic::309722185e7a73cc8dc96f3491126449, Microsoft.VisualBasic.Core\test\TypeTest.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 . + ' 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: + ' Summaries: -' Module TypeTest -' -' Function: CharArray -' -' Sub: Main, patternMatch, test -' -' /********************************************************************************/ + ' Enum FlagCombos + ' + ' + ' + ' + ' + ' + ' Module TypeTest + ' + ' Function: CharArray + ' + ' Sub: descriptionTest, Main, patternMatch, test + ' + ' /********************************************************************************/ #End Region diff --git a/test/markdownDisplayTest.vb b/test/markdownDisplayTest.vb index 2d1d4294..a9723d22 100644 --- a/test/markdownDisplayTest.vb +++ b/test/markdownDisplayTest.vb @@ -1,4 +1,45 @@ -Module markdownDisplayTest +#Region "Microsoft.VisualBasic::6f16b43b9788a95d0c6cae89b7ffc0fc, Microsoft.VisualBasic.Core\test\markdownDisplayTest.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: + + ' Module markdownDisplayTest + ' + ' Sub: Main + ' + ' /********************************************************************************/ + +#End Region + +Module markdownDisplayTest Sub Main() Call ApplicationServices.Terminal.MarkdownRender.Print("# title @@ -20,3 +61,4 @@ A url test: http://test.url/a/b/c/xxxx.txt Pause() End Sub End Module + diff --git a/test/wgetTest.vb b/test/wgetTest.vb index ee029bc0..057f2b47 100644 --- a/test/wgetTest.vb +++ b/test/wgetTest.vb @@ -1,4 +1,4 @@ -#Region "Microsoft.VisualBasic::81bfce9f8839d2b593d575f83b06afde, Microsoft.VisualBasic.Core\test\wgetTest.vb" +#Region "Microsoft.VisualBasic::a180b46a9f813533d200877a64df6b52, Microsoft.VisualBasic.Core\test\wgetTest.vb" ' Author: ' @@ -48,4 +48,3 @@ Module wgetTest Call wget.Run() End Sub End Module - From c71a91ed25ac15eaa8233021df69f7153f44cbc7 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 11 Nov 2019 22:35:44 +0800 Subject: [PATCH 066/104] improvements of the command line interpreter object --- CommandLine/Interpreters/Interpreter.vb | 5 ++++- Scripting/MetaData/Type.vb | 26 ++++++++++++++++++++++--- 2 files changed, 27 insertions(+), 4 deletions(-) diff --git a/CommandLine/Interpreters/Interpreter.vb b/CommandLine/Interpreters/Interpreter.vb index ef5838ae..415bc376 100644 --- a/CommandLine/Interpreters/Interpreter.vb +++ b/CommandLine/Interpreters/Interpreter.vb @@ -154,13 +154,16 @@ Namespace CommandLine ''' Private Function __executeEmpty() As Integer If Not ExecuteEmptyCli Is Nothing Then +#If DEBUG Then + Return _ExecuteEmptyCli() +#Else Try Return _ExecuteEmptyCli() Catch ex As Exception Call App.LogException(ex) Call ex.PrintException End Try - +#End If Return -100 Else ' 当用户什么也不输入的时候，打印出所有的命令名称帮助信息 diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index 6229c4a4..ca63e8a2 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -118,8 +118,13 @@ Namespace Scripting.MetaData ''' ''' 如果这个参数为真的话, 则会尝试直接从当前的应用程序域中查找类信息, 反之则会加载目标程序集进行类型信息查找 ''' + ''' + ''' 如果这个参数设置为False的话，则出错的时候会返回空值 + ''' ''' - Public Overloads Function [GetType](Optional knownFirst As Boolean = False) As Type + Public Overloads Function [GetType](Optional knownFirst As Boolean = False, + Optional throwEx As Boolean = True, + Optional ByRef getException As Exception = Nothing) As Type Dim type As Type Dim assm As Assembly @@ -131,8 +136,23 @@ Namespace Scripting.MetaData End If End If - assm = LoadAssembly() - type = assm.GetType(Me.fullName) + ' 错误一般出现在loadassembly阶段 + ' 主要是文件未找到 + Try + assm = LoadAssembly() + type = assm.GetType(Me.fullName) + getException = Nothing + Catch ex As Exception + ex = New DllNotFoundException(ToString, ex) + + If throwEx Then + Throw ex + Else + getException = ex + End If + Finally + type = Nothing + End Try Return type End Function From e0b9ce057fe226f7f38c591406b3334300f20cb2 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 11 Nov 2019 22:38:00 +0800 Subject: [PATCH 067/104] Update DoConfiguration.vb fix bugs of load framework configuration --- My/Framework/DoConfiguration.vb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/My/Framework/DoConfiguration.vb b/My/Framework/DoConfiguration.vb index 1090ac48..96fae4f4 100644 --- a/My/Framework/DoConfiguration.vb +++ b/My/Framework/DoConfiguration.vb @@ -60,7 +60,16 @@ Namespace My.FrameworkInternal ' load config from config file. For Each config In configuration.environment.SafeQuery - Call App.JoinVariable(config.Key, config.Value) + ' 在加载配置文件的时候需要注意一下 + ' 用户从命令行中配置的变量的优先级应该要高于配置文件中加载的默认变量值 + ' 所以在这个for循环中 + ' 需要首先检查一下配置项是否存在 + ' 不可以直接赋值 + If App.GetVariable(config.Key) Is Nothing Then + ' 只写入未存在的变量就可以了 + ' 已存在的变量是在App模块自动初始化加载的 + Call App.JoinVariable(config.Key, config.Value) + End If Next ' --load_options.disable 开关将会禁止所有的环境项目的设置 From 663b96bc5f9b5baf94eda6132152821eac7c57ba Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 13 Nov 2019 21:50:29 +0800 Subject: [PATCH 068/104] Update KeyValuePair.vb tuple dictionary --- Extensions/Collection/KeyValuePair.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index 25df58f9..df06ba3d 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -69,6 +69,17 @@ Imports r = System.Text.RegularExpressions.Regex Public Module KeyValuePairExtensions + + Public Function TupleTable(tuple As (String(), String())) As Dictionary(Of String, String) + Dim table As New Dictionary(Of String, String) + + For i As Integer = 0 To tuple.Item1.Length - 1 + Call table.Add(tuple.Item1(i), tuple.Item2(i)) + Next + + Return table + End Function + Public Function ToLower(Of T)(table As Dictionary(Of String, T)) As Dictionary(Of String, T) From 758b8c972b88a2905c0007c653f0cdfc0a98aea9 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 13 Nov 2019 22:42:15 +0800 Subject: [PATCH 069/104] wmf graphics engine --- Extensions/Image/Wmf.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Extensions/Image/Wmf.vb b/Extensions/Image/Wmf.vb index 31444317..fb041e9b 100644 --- a/Extensions/Image/Wmf.vb +++ b/Extensions/Image/Wmf.vb @@ -103,12 +103,12 @@ Namespace Imaging Sub New(size As Size, save$, Optional backgroundColor$ = NameOf(Color.Transparent)) Dim bitmap As New Bitmap(size.Width, size.Height) - gSource = Graphics.FromImage(bitmap) + Me.gSource = Graphics.FromImage(bitmap) gSource.Clear(backgroundColor.TranslateColor) - hdc = gSource.GetHdc() - size = bitmap.Size - curMetafile = New Metafile(save, hdc) + Me.hdc = gSource.GetHdc() + Me.Size = bitmap.Size + Me.curMetafile = New Metafile(save, hdc) Graphics = Graphics.FromImage(curMetafile) Graphics.SmoothingMode = SmoothingMode.HighQuality From 2a571a1b393f4ff3aa5fa62c1da31da6d17fe875 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 14 Nov 2019 19:53:24 +0800 Subject: [PATCH 070/104] value try cast for variant type --- Language/Value/Variant.vb | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/Language/Value/Variant.vb b/Language/Value/Variant.vb index eb713307..7d447fb7 100644 --- a/Language/Value/Variant.vb +++ b/Language/Value/Variant.vb @@ -70,17 +70,33 @@ Namespace Language End If End Function + ''' + ''' TryCast to + ''' + ''' Public ReadOnly Property VA As A Get - Return Value + If Me Like GetType(A) Then + Return Value + Else + Return Nothing + End If End Get End Property + ''' + ''' TryCast to + ''' + ''' Public ReadOnly Property VB As B Get - Return Value + If Me Like GetType(B) Then + Return Value + Else + Return Nothing + End If End Get End Property From 47f33d2c5064b18443cfe9b241f3fd1e084ee1ad Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 14 Nov 2019 20:05:40 +0800 Subject: [PATCH 071/104] wmf canvas --- Extensions/Image/GDI+/GDICanvas.vb | 8 +- Extensions/Image/Wmf.vb | 127 ++++++++++++++---------- Scripting/TokenIcer/LangModels/Token.vb | 8 ++ test/test.vbproj | 4 +- test/wmfTest.vb | 16 +++ 5 files changed, 109 insertions(+), 54 deletions(-) create mode 100644 test/wmfTest.vb diff --git a/Extensions/Image/GDI+/GDICanvas.vb b/Extensions/Image/GDI+/GDICanvas.vb index e91dea3a..a8ecf0b3 100644 --- a/Extensions/Image/GDI+/GDICanvas.vb +++ b/Extensions/Image/GDI+/GDICanvas.vb @@ -68,6 +68,9 @@ Imports System.Runtime.CompilerServices Namespace Imaging + ''' + ''' 这个对象是以及公用的基础类型 + ''' Public MustInherit Class GDICanvas : Inherits IGraphics Implements IDisposable @@ -5128,10 +5131,11 @@ Namespace Imaging #End Region ''' - ''' Releases all resources used by this . + ''' Releases all resources used by this . ''' Public Overrides Sub Dispose() Implements IDisposable.Dispose - Call Graphics.Dispose() ' 在这里不应该将图片资源给消灭掉，只需要释放掉gdi+资源就行了 + ' 在这里不应该将图片资源给消灭掉，只需要释放掉gdi+资源就行了 + Call Graphics.Dispose() End Sub End Class End Namespace diff --git a/Extensions/Image/Wmf.vb b/Extensions/Image/Wmf.vb index fb041e9b..aa1e6408 100644 --- a/Extensions/Image/Wmf.vb +++ b/Extensions/Image/Wmf.vb @@ -1,45 +1,45 @@ #Region "Microsoft.VisualBasic::eadbd4efb1d726b1fd5f590f37e528e8, Microsoft.VisualBasic.Core\Extensions\Image\Wmf.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 . +' 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: +' Summaries: - ' Class Wmf - ' - ' Properties: FilePath, Size - ' - ' Constructor: (+1 Overloads) Sub New - ' Sub: __release, Dispose, DrawCircle - ' - ' - ' /********************************************************************************/ +' Class Wmf +' +' Properties: FilePath, Size +' +' Constructor: (+1 Overloads) Sub New +' Sub: __release, Dispose, DrawCircle +' +' +' /********************************************************************************/ #End Region @@ -77,16 +77,24 @@ Namespace Imaging Public Class Wmf : Inherits GDICanvas Implements IDisposable - ReadOnly curMetafile As Metafile - ReadOnly gSource As Graphics + ''' + ''' 矢量图的数据存储在这个元数据文件里面 + ''' + ReadOnly vectorMetafile As Metafile ReadOnly hdc As IntPtr + ReadOnly bounds As Size ''' ''' The file path of the target wmf image file. ''' ''' - Public ReadOnly Property FilePath As String + Public ReadOnly Property wmfFile As String + Public Overrides ReadOnly Property Size As Size + Get + Return bounds + End Get + End Property ''' ''' The WMF format was designed to be executed by the Windows GDI layer in order to restore the image, but as @@ -102,28 +110,45 @@ Namespace Imaging ''' Sub New(size As Size, save$, Optional backgroundColor$ = NameOf(Color.Transparent)) Dim bitmap As New Bitmap(size.Width, size.Height) + Dim bounds As New RectangleF(0, 0, size.Width, size.Height) - Me.gSource = Graphics.FromImage(bitmap) - gSource.Clear(backgroundColor.TranslateColor) + ' Make a Graphics object so we can use its hDC as a reference. + Dim gSource = Graphics.FromImage(bitmap) + Dim hdc As IntPtr = gSource.GetHdc() - Me.hdc = gSource.GetHdc() - Me.Size = bitmap.Size - Me.curMetafile = New Metafile(save, hdc) - Graphics = Graphics.FromImage(curMetafile) - Graphics.SmoothingMode = SmoothingMode.HighQuality + Me.hdc = hdc + Me.bounds = bounds.Size.ToSize - FilePath = save + ' Make the Metafile, using the reference hDC. + save.ParentPath.MkDIR + vectorMetafile = New Metafile(save, hdc, bounds, MetafileFrameUnit.Pixel) + gSource.ReleaseHdc(hdc) + + ' Make a Graphics object and draw. + g = Graphics.FromImage(vectorMetafile) + g.SmoothingMode = SmoothingMode.HighQuality + g.PageUnit = GraphicsUnit.Pixel + g.CompositingQuality = CompositingQuality.HighQuality + g.CompositingMode = CompositingMode.SourceOver + g.InterpolationMode = InterpolationMode.HighQualityBicubic + g.PixelOffsetMode = PixelOffsetMode.HighQuality + g.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit + g.Clear(backgroundColor.TranslateColor) + + wmfFile = save End Sub - Private Sub __release() - Call gSource.ReleaseHdc(hdc) + ''' + ''' Close the metafile and free resources. + ''' + Private Sub releaseInternal() Call Graphics.Dispose() - Call gSource.Dispose() + Call vectorMetafile.Dispose() End Sub Public Overrides Sub Dispose() - Call __release() - MyBase.Dispose() + Call releaseInternal() + Call MyBase.Dispose() End Sub Public Overrides Sub DrawCircle(center As PointF, fill As Color, stroke As Pen, radius As Single) diff --git a/Scripting/TokenIcer/LangModels/Token.vb b/Scripting/TokenIcer/LangModels/Token.vb index 0431e789..9b333672 100644 --- a/Scripting/TokenIcer/LangModels/Token.vb +++ b/Scripting/TokenIcer/LangModels/Token.vb @@ -308,5 +308,13 @@ Namespace Scripting.TokenIcer Public Overrides Function ToString() As String Return $"[{name}] {text}" End Function + + Public Overloads Shared Operator =(token As CodeToken(Of Tokens), element As (Tokens, String)) As Boolean + Return token.name.Equals(element.Item1) AndAlso token.text = element.Item2 + End Operator + + Public Overloads Shared Operator <>(token As CodeToken(Of Tokens), element As (Tokens, String)) As Boolean + Return Not token = element + End Operator End Class End Namespace diff --git a/test/test.vbproj b/test/test.vbproj index 56a3b8b6..02b78b21 100644 --- a/test/test.vbproj +++ b/test/test.vbproj @@ -6,7 +6,7 @@ AnyCPU {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88} Exe - test.TypeTest + test.wmfTest test test 512 @@ -74,6 +74,7 @@ + @@ -97,6 +98,7 @@ + diff --git a/test/wmfTest.vb b/test/wmfTest.vb new file mode 100644 index 00000000..61cc9b8b --- /dev/null +++ b/test/wmfTest.vb @@ -0,0 +1,16 @@ +Imports System.Drawing +Imports Microsoft.VisualBasic.Imaging + +Module wmfTest + + Sub Main() + Using wmf As New Wmf(New Size(1200, 500), "./test.wmf", backgroundColor:="white") + Call wmf.DrawString("Hello world", New Font("Microsoft YaHei", 64, FontStyle.Bold), Brushes.Red, New PointF(100, 100)) + End Using + + Using png As Graphics2D = New Size(1200, 500).CreateGDIDevice(Color.White) + Call png.DrawString("Hello world", New Font("Microsoft YaHei", 64, FontStyle.Bold), Brushes.Red, New PointF(100, 100)) + Call png.ImageResource.SaveAs("./test.png") + End Using + End Sub +End Module From 808334a8b1cc0ab8837b91bf1f32d4474c711c33 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 14 Nov 2019 21:09:32 +0800 Subject: [PATCH 072/104] Update Variant.vb fix for value trycast --- Language/Value/Variant.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Language/Value/Variant.vb b/Language/Value/Variant.vb index 7d447fb7..e72cb190 100644 --- a/Language/Value/Variant.vb +++ b/Language/Value/Variant.vb @@ -77,7 +77,7 @@ Namespace Language Public ReadOnly Property VA As A Get - If Me Like GetType(A) Then + If Me Like GetType(A) OrElse GetUnderlyingType.IsInheritsFrom(GetType(A)) Then Return Value Else Return Nothing @@ -92,7 +92,7 @@ Namespace Language Public ReadOnly Property VB As B Get - If Me Like GetType(B) Then + If Me Like GetType(B) OrElse GetUnderlyingType.IsInheritsFrom(GetType(B)) Then Return Value Else Return Nothing @@ -160,6 +160,12 @@ Namespace Language Return Not obj = b End Operator + ''' + ''' 请注意Like是直接进行比较，不会比较继承关系链的？ + ''' + ''' + ''' + ''' Public Overloads Shared Operator Like(var As [Variant](Of A, B), type As Type) As Boolean Return var.GetUnderlyingType Is type From d3fab22ffe9031e91c05dc3fa2106396d165956f Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 15 Nov 2019 23:01:04 +0800 Subject: [PATCH 073/104] improvements for the shell command --- CommandLine/CLI/IORedirectFile.vb | 15 ++++++++++----- CommandLine/CLI/Scripting.vb | 22 +++++++++++++++------- 2 files changed, 25 insertions(+), 12 deletions(-) diff --git a/CommandLine/CLI/IORedirectFile.vb b/CommandLine/CLI/IORedirectFile.vb index f9399372..753cd450 100644 --- a/CommandLine/CLI/IORedirectFile.vb +++ b/CommandLine/CLI/IORedirectFile.vb @@ -141,7 +141,8 @@ Namespace CommandLine Optional FolkNew As Boolean = False, Optional stdRedirect$ = "", Optional stdin$ = Nothing, - Optional debug As Boolean = True) + Optional debug As Boolean = True, + Optional isShellCommand As Boolean = False) If Not String.IsNullOrEmpty(stdRedirect) Then _TempRedirect = stdRedirect.CLIPath @@ -150,7 +151,7 @@ Namespace CommandLine ' 没有小数点，说明可能只是一个命令，而不是具体的可执行程序文件名 If InStr(file, ".") = 0 Then ' do nothing - Else + ElseIf Not isShellCommand Then ' 对于具体的程序文件的调用，在这里获取其完整路径 Try file = FileIO.FileSystem.GetFileInfo(file).FullName @@ -171,13 +172,17 @@ Namespace CommandLine Call "".SaveTo(_TempRedirect) If App.IsMicrosoftPlatform Then - shellScript = ScriptingExtensions.Cmd(file, argv, environment, FolkNew, stdin) + shellScript = ScriptingExtensions.Cmd(file, argv, environment, FolkNew, stdin, isShellCommand) Else - shellScript = ScriptingExtensions.Bash(file, argv, environment, FolkNew, stdin) + shellScript = ScriptingExtensions.Bash(file, argv, environment, FolkNew, stdin, isShellCommand) End If If debug Then - Call $"""{file.ToFileURL}"" {argv}".__DEBUG_ECHO + If isShellCommand Then + Call $"""{file}"" {argv}".__DEBUG_ECHO + Else + Call $"""{file.ToFileURL}"" {argv}".__DEBUG_ECHO + End If End If End Sub diff --git a/CommandLine/CLI/Scripting.vb b/CommandLine/CLI/Scripting.vb index fd2551a3..b1d66e12 100644 --- a/CommandLine/CLI/Scripting.vb +++ b/CommandLine/CLI/Scripting.vb @@ -51,7 +51,7 @@ Namespace CommandLine Module ScriptingExtensions - Public Function Cmd(program$, argv$, environment As IEnumerable(Of ValueTuple), folkNew As Boolean, stdin$) As String + Public Function Cmd(program$, argv$, environment As IEnumerable(Of ValueTuple), folkNew As Boolean, stdin$, isShellCommand As Boolean) As String Dim bat As New StringBuilder(1024) ' 切换工作目录至当前的进程所处的文件夹 @@ -82,7 +82,7 @@ Namespace CommandLine ' 生成IO重定向的命令行 ' https://stackoverflow.com/questions/3680977/can-a-batch-file-capture-the-exit-codes-of-the-commands-it-is-invoking Call bat.AppendLine("set errorlevel=") - Call bat.start(program, argv, stdin) + Call bat.start(program, argv, stdin, isShellCommand) Call bat.AppendLine("exit /b %errorlevel%") End If @@ -90,15 +90,23 @@ Namespace CommandLine End Function - Private Sub start(script As StringBuilder, program$, argv$, stdin$) + Private Sub start(script As StringBuilder, program$, argv$, stdin$, isShellCommand As Boolean) If stdin.StringEmpty Then - Call script.AppendLine($"""{program}"" {argv}") + If isShellCommand Then + Call script.AppendLine($"{program} {argv}") + Else + Call script.AppendLine($"""{program}"" {argv}") + End If Else - Call script.AppendLine($"echo {stdin} | ""{program}"" {argv}") + If isShellCommand Then + Call script.AppendLine($"echo {stdin} | {program} {argv}") + Else + Call script.AppendLine($"echo {stdin} | ""{program}"" {argv}") + End If End If End Sub - Public Function Bash(program$, argv$, environment As IEnumerable(Of ValueTuple), folkNew As Boolean, stdin$) As String + Public Function Bash(program$, argv$, environment As IEnumerable(Of ValueTuple), folkNew As Boolean, stdin$, isShellCommand As Boolean) As String Dim shell As New StringBuilder("#!/bin/bash") Call shell.AppendLine() @@ -114,7 +122,7 @@ Namespace CommandLine End If Call shell.AppendLine($"cd {App.CurrentDirectory.CLIPath}") - Call shell.start(program, argv, stdin) + Call shell.start(program, argv, stdin, isShellCommand) Return shell.ToString End Function From 2976cea9f48ead8f502be84ae48bf789e5dcd6d9 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 18 Nov 2019 19:19:21 +0800 Subject: [PATCH 074/104] Data namespace? --- ApplicationServices/Tools/Resources.vb | 87 +++++++++++----------- ComponentModel/DataSource/DataFramework.vb | 81 ++++++++++---------- Scripting/InputHandler.vb | 2 + 3 files changed, 86 insertions(+), 84 deletions(-) diff --git a/ApplicationServices/Tools/Resources.vb b/ApplicationServices/Tools/Resources.vb index ae9f5312..14bca4a2 100644 --- a/ApplicationServices/Tools/Resources.vb +++ b/ApplicationServices/Tools/Resources.vb @@ -1,48 +1,48 @@ #Region "Microsoft.VisualBasic::342a6de1f7bc3c807986dc5a2d76b044, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Resources.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 . +' 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: +' Summaries: - ' Class ResourcesSatellite - ' - ' Properties: FileName, MyResource, Resources - ' - ' Constructor: (+5 Overloads) Sub New - ' - ' Function: DirectLoadFrom, (+2 Overloads) GetObject, (+2 Overloads) GetStream, (+3 Overloads) GetString, LoadMy - ' - ' Sub: __load, __resParser - ' - ' - ' /********************************************************************************/ +' Class ResourcesSatellite +' +' Properties: FileName, MyResource, Resources +' +' Constructor: (+5 Overloads) Sub New +' +' Function: DirectLoadFrom, (+2 Overloads) GetObject, (+2 Overloads) GetStream, (+3 Overloads) GetString, LoadMy +' +' Sub: __load, __resParser +' +' +' /********************************************************************************/ #End Region @@ -54,6 +54,7 @@ Imports System.Resources Imports System.Runtime.CompilerServices Imports System.Runtime.InteropServices Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Text Namespace ApplicationServices @@ -296,14 +297,14 @@ Namespace ApplicationServices Sub New(dll As String) FileName = FileIO.FileSystem.GetFileInfo(dll).FullName - Call __resParser() + Call resourceAssemblyParser() End Sub - Private Sub __resParser() - Call __load(Assembly.LoadFile(FileName)) + Private Sub resourceAssemblyParser() + Call Assembly.LoadFile(FileName).DoCall(AddressOf doLoad) End Sub - Private Sub __load(assm As Assembly) + Private Sub doLoad(assm As Assembly) #If NET_40 = 0 Then Dim resource As Type = GetType(ExportAttribute) Dim resourceMgr As Type = LinqAPI.DefaultFirst(Of Type) _ @@ -340,7 +341,7 @@ Namespace ApplicationServices ''' null ''' Private Sub New(my As Type, assm As Assembly) - Call __load(assm) + Call doLoad(assm) End Sub ''' diff --git a/ComponentModel/DataSource/DataFramework.vb b/ComponentModel/DataSource/DataFramework.vb index ad7cf286..da051ba9 100644 --- a/ComponentModel/DataSource/DataFramework.vb +++ b/ComponentModel/DataSource/DataFramework.vb @@ -1,54 +1,53 @@ #Region "Microsoft.VisualBasic::38800f3dcbb663b37b43bab7bfcd361f, Microsoft.VisualBasic.Core\ComponentModel\DataSource\DataFramework.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 . +' 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: +' Summaries: - ' Module DataFramework - ' - ' Properties: Flags, StringBuilders, StringParsers - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: DictionaryTable, getOrCache, (+2 Overloads) Schema, ValueTable - ' Delegate Function - ' - ' Function: CreateObject, GetValue, IsComplexType, IsNumericType, IsPrimitive - ' ParseSchemaInternal, valueToString - ' - ' - ' - ' /********************************************************************************/ +' Module DataFramework +' +' Properties: Flags, StringBuilders, StringParsers +' +' Constructor: (+1 Overloads) Sub New +' Function: DictionaryTable, getOrCache, (+2 Overloads) Schema, ValueTable +' Delegate Function +' +' Function: CreateObject, GetValue, IsComplexType, IsNumericType, IsPrimitive +' ParseSchemaInternal, valueToString +' +' +' +' /********************************************************************************/ #End Region -Imports System.Data Imports System.Reflection Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel.SchemaMaps diff --git a/Scripting/InputHandler.vb b/Scripting/InputHandler.vb index 6bb45829..53904ca1 100644 --- a/Scripting/InputHandler.vb +++ b/Scripting/InputHandler.vb @@ -371,6 +371,8 @@ Namespace Scripting ''' ''' 数组里面的元素的类型 ''' + ''' + Public Function [DirectCast](array As Object(), type As Type) As Object Dim out = CreateInstance(type, array.Length) Call Copy(array, out, array.Length) ' 直接复制不能够正常工作 From 85529a1155ac784294b83d29b166fad4583abbe8 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 18 Nov 2019 20:33:47 +0800 Subject: [PATCH 075/104] data namespace --- 47-dotnet_Microsoft.VisualBasic.vbproj | 1 + Data/NamespaceDoc.vb | 5 +++++ 2 files changed, 6 insertions(+) create mode 100644 Data/NamespaceDoc.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 605fe5f3..c193664c 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1021,6 +1021,7 @@ + diff --git a/Data/NamespaceDoc.vb b/Data/NamespaceDoc.vb new file mode 100644 index 00000000..a3930185 --- /dev/null +++ b/Data/NamespaceDoc.vb @@ -0,0 +1,5 @@ +Namespace Data + + Module NamespaceDoc + End Module +End Namespace \ No newline at end of file From 1ac7d2c011204547b4663261ade0383412e4287b Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 18 Nov 2019 20:34:51 +0800 Subject: [PATCH 076/104] data namespace --- 47-dotnet_Microsoft.VisualBasic.vbproj | 10 +++++----- {Extensions => Data}/Trinity/Expression.vb | 0 {Extensions => Data}/Trinity/Extensions.vb | 0 {Extensions => Data}/Trinity/NLP/TextTokens.vb | 0 {Extensions => Data}/Trinity/Word.vb | 0 {Extensions => Data}/Trinity/WordClass.vb | 0 6 files changed, 5 insertions(+), 5 deletions(-) rename {Extensions => Data}/Trinity/Expression.vb (100%) rename {Extensions => Data}/Trinity/Extensions.vb (100%) rename {Extensions => Data}/Trinity/NLP/TextTokens.vb (100%) rename {Extensions => Data}/Trinity/Word.vb (100%) rename {Extensions => Data}/Trinity/WordClass.vb (100%) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index c193664c..20affc4c 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1104,10 +1104,10 @@ - - - - + + + + @@ -1357,7 +1357,7 @@ - + diff --git a/Extensions/Trinity/Expression.vb b/Data/Trinity/Expression.vb similarity index 100% rename from Extensions/Trinity/Expression.vb rename to Data/Trinity/Expression.vb diff --git a/Extensions/Trinity/Extensions.vb b/Data/Trinity/Extensions.vb similarity index 100% rename from Extensions/Trinity/Extensions.vb rename to Data/Trinity/Extensions.vb diff --git a/Extensions/Trinity/NLP/TextTokens.vb b/Data/Trinity/NLP/TextTokens.vb similarity index 100% rename from Extensions/Trinity/NLP/TextTokens.vb rename to Data/Trinity/NLP/TextTokens.vb diff --git a/Extensions/Trinity/Word.vb b/Data/Trinity/Word.vb similarity index 100% rename from Extensions/Trinity/Word.vb rename to Data/Trinity/Word.vb diff --git a/Extensions/Trinity/WordClass.vb b/Data/Trinity/WordClass.vb similarity index 100% rename from Extensions/Trinity/WordClass.vb rename to Data/Trinity/WordClass.vb From f7085a477f25554791850f1f1909f59d1c405a70 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 18 Nov 2019 20:37:32 +0800 Subject: [PATCH 077/104] data module --- 47-dotnet_Microsoft.VisualBasic.vbproj | 10 +++++----- {ComponentModel/DataSource => Data}/Abstract.vb | 0 {ComponentModel/DataSource => Data}/DataFramework.vb | 0 .../DataSource => Data}/DefaultAttribute.vb | 0 {ComponentModel/DataSource => Data}/Tsv.vb | 0 {ComponentModel/DataSource => Data}/TypeCaster.vb | 0 6 files changed, 5 insertions(+), 5 deletions(-) rename {ComponentModel/DataSource => Data}/Abstract.vb (100%) rename {ComponentModel/DataSource => Data}/DataFramework.vb (100%) rename {ComponentModel/DataSource => Data}/DefaultAttribute.vb (100%) rename {ComponentModel/DataSource => Data}/Tsv.vb (100%) rename {ComponentModel/DataSource => Data}/TypeCaster.vb (100%) diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 20affc4c..dd092d69 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1067,8 +1067,8 @@ - - + + @@ -1163,7 +1163,7 @@ - + @@ -1172,7 +1172,7 @@ - + @@ -1651,7 +1651,7 @@ - + diff --git a/ComponentModel/DataSource/Abstract.vb b/Data/Abstract.vb similarity index 100% rename from ComponentModel/DataSource/Abstract.vb rename to Data/Abstract.vb diff --git a/ComponentModel/DataSource/DataFramework.vb b/Data/DataFramework.vb similarity index 100% rename from ComponentModel/DataSource/DataFramework.vb rename to Data/DataFramework.vb diff --git a/ComponentModel/DataSource/DefaultAttribute.vb b/Data/DefaultAttribute.vb similarity index 100% rename from ComponentModel/DataSource/DefaultAttribute.vb rename to Data/DefaultAttribute.vb diff --git a/ComponentModel/DataSource/Tsv.vb b/Data/Tsv.vb similarity index 100% rename from ComponentModel/DataSource/Tsv.vb rename to Data/Tsv.vb diff --git a/ComponentModel/DataSource/TypeCaster.vb b/Data/TypeCaster.vb similarity index 100% rename from ComponentModel/DataSource/TypeCaster.vb rename to Data/TypeCaster.vb From f1c1b4d22f0622380dfeb90422305221344008b2 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 18 Nov 2019 21:30:48 +0800 Subject: [PATCH 078/104] code style improvements --- ApplicationServices/App.vb | 2 +- CommandLine/Interpreters/Interpreter.vb | 45 ++++++++++++++++--------- 2 files changed, 30 insertions(+), 17 deletions(-) diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 2208698a..602e1a62 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -440,7 +440,7 @@ Public Module App End If Call FileIO.FileSystem.CreateDirectory(AppSystemTemp) - Call FileIO.FileSystem.CreateDirectory(App.HOME & "/Resources/") + ' Call FileIO.FileSystem.CreateDirectory(App.HOME & "/Resources/") ' 2018-08-14 因为经过测试发现text encoding模块会优先于命令行参数设置模块的初始化的加载 ' 所以会导致环境变量为空 diff --git a/CommandLine/Interpreters/Interpreter.vb b/CommandLine/Interpreters/Interpreter.vb index 415bc376..b35d898d 100644 --- a/CommandLine/Interpreters/Interpreter.vb +++ b/CommandLine/Interpreters/Interpreter.vb @@ -143,7 +143,8 @@ Namespace CommandLine #End If Return i Else - Return __executeEmpty() ' 命令行是空的 + ' 命令行是空的 + Return doExecuteNonCLIInput() End If End Function @@ -152,7 +153,7 @@ Namespace CommandLine ''' 否则打印出所有的命令名称信息 ''' ''' - Private Function __executeEmpty() As Integer + Private Function doExecuteNonCLIInput() As Integer If Not ExecuteEmptyCli Is Nothing Then #If DEBUG Then Return _ExecuteEmptyCli() @@ -420,32 +421,23 @@ Namespace CommandLine ''' Private Shared Function getAPI(methodInfo As MethodInfo, commandAttribute As Type, [throw] As Boolean) As APIEntryPoint Dim cmdAttr As ExportAPIAttribute = Nothing - Dim commandInfo As APIEntryPoint Try Dim attrs As Object() = methodInfo.GetCustomAttributes(commandAttribute, False) + If attrs.IsNullOrEmpty Then Return Nothing + Else + cmdAttr = DirectCast(attrs(0), ExportAPIAttribute) End If - cmdAttr = DirectCast(attrs(0), ExportAPIAttribute) - commandInfo = New APIEntryPoint(cmdAttr, methodInfo, [throw]) ' 在这里将外部的属性标记和所属的函数的入口点进行连接 - If cmdAttr.Info.StringEmpty Then - cmdAttr.Info = methodInfo.Description ' 帮助信息的获取兼容系统的Description方法 - End If - If cmdAttr.Usage.StringEmpty Then - cmdAttr.Usage = methodInfo.Usage - End If - If cmdAttr.Example.StringEmpty Then - cmdAttr.Example = methodInfo.ExampleInfo - End If - - Return commandInfo + Return doLoadApiInternal(cmdAttr, methodInfo, [throw]) Catch ex As Exception If Not cmdAttr Is Nothing Then ex = New Exception("This command API can not be imports: " & cmdAttr.GetJson, ex) ex = New Exception(CheckNotice, ex) End If + Call App.LogException(New Exception(methodInfo.FullName(True), ex)) Call ex.PrintException @@ -453,6 +445,27 @@ Namespace CommandLine End Try End Function + ''' + ''' 在这里将外部的属性标记和所属的函数的入口点进行连接 + ''' + ''' + Private Shared Function doLoadApiInternal(cmdAttr As ExportAPIAttribute, methodInfo As MethodInfo, [throw] As Boolean) As APIEntryPoint + Dim commandInfo As New APIEntryPoint(cmdAttr, methodInfo, [throw]) + + If cmdAttr.Info.StringEmpty Then + ' 帮助信息的获取兼容系统的Description方法 + cmdAttr.Info = methodInfo.Description + End If + If cmdAttr.Usage.StringEmpty Then + cmdAttr.Usage = methodInfo.Usage + End If + If cmdAttr.Example.StringEmpty Then + cmdAttr.Example = methodInfo.ExampleInfo + End If + + Return commandInfo + End Function + Const CheckNotice As String = "Please checks for the export api definition on your CLI interface function." ''' From 3835c50a184fbbcacb3ce2a9b7652a1190b47ecb Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 19 Nov 2019 20:44:12 +0800 Subject: [PATCH 079/104] improvements of the xml doc tools --- .../VBDev/XmlDoc/Extensions/APIExtensions2.vb | 8 +- ApplicationServices/VBDev/XmlDoc/Project.vb | 16 ++- .../VBDev/XmlDoc/ProjectNamespace.vb | 6 +- .../VBDev/XmlDoc/ProjectSpace.vb | 105 +++++++++++------- .../VBDev/XmlDoc/ProjectType.vb | 16 ++- .../XmlDoc/Serialization/NamespaceDoc.vb | 2 +- 6 files changed, 96 insertions(+), 57 deletions(-) diff --git a/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb b/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb index 9fad13da..c5e05a9d 100644 --- a/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb +++ b/ApplicationServices/VBDev/XmlDoc/Extensions/APIExtensions2.vb @@ -61,7 +61,7 @@ Namespace ApplicationServices.Development.XmlDoc.Serialization Dim skip As Boolean = False For Each nsName As String In excludeNamespace - If InStr(ns.Path, nsName) = 1 Then + If InStr(ns.fullName, nsName) = 1 Then skip = True Exit For End If @@ -72,7 +72,7 @@ Namespace ApplicationServices.Development.XmlDoc.Serialization End If End If - With ns.Path.ToLower + With ns.fullName.ToLower If namespaces.ContainsKey(.ByRef) Then namespaces(.ByRef) = namespaces(.ByRef).Add(ns, proj:=out) Else @@ -100,7 +100,7 @@ Namespace ApplicationServices.Development.XmlDoc.Serialization Private Function Add(ns1 As ProjectNamespace, ns2 As ProjectNamespace, proj As Project) As ProjectNamespace - Dim path$ = ns1.Path + Dim path$ = ns1.fullName Dim types As New Dictionary(Of String, ProjectType) For Each type As ProjectType In ns1.Types + ns2.Types.AsList @@ -114,7 +114,7 @@ Namespace ApplicationServices.Development.XmlDoc.Serialization Next Return New ProjectNamespace(proj, types) With { - .Path = path + .fullName = path } End Function diff --git a/ApplicationServices/VBDev/XmlDoc/Project.vb b/ApplicationServices/VBDev/XmlDoc/Project.vb index ca526133..8b2405da 100644 --- a/ApplicationServices/VBDev/XmlDoc/Project.vb +++ b/ApplicationServices/VBDev/XmlDoc/Project.vb @@ -64,7 +64,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Dim _namespaces As Dictionary(Of String, ProjectNamespace) - Public Property Name() As String + Public Property Name As String Public ReadOnly Property Namespaces() As IEnumerable(Of ProjectNamespace) @@ -95,12 +95,22 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return Nothing End Function - Public Function EnsureNamespace(namespacePath As String) As ProjectNamespace + Public Overloads Function [GetType](fullName As String) As ProjectType + Dim tokens = fullName.Split("."c) + Dim typeName As String = tokens.Last + Dim namespaceRef As String = tokens.Take(tokens.Length - 1).JoinBy(".") + Dim namespaceDoc As ProjectNamespace = GetNamespace(namespaceRef) + Dim typeDoc As ProjectType = namespaceDoc.GetType(typeName) + + Return typeDoc + End Function + + Friend Function EnsureNamespace(namespacePath As String) As ProjectNamespace Dim pn As ProjectNamespace = GetNamespace(namespacePath) If pn Is Nothing Then pn = New ProjectNamespace(Me) With { - .Path = namespacePath + .fullName = namespacePath } _namespaces.Add(namespacePath.ToLower(), pn) End If diff --git a/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb b/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb index 9be4a39c..7f05b217 100644 --- a/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb +++ b/ApplicationServices/VBDev/XmlDoc/ProjectNamespace.vb @@ -58,7 +58,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Protected project As Project Protected _types As Dictionary(Of String, ProjectType) - Public Property Path() As String + Public Property fullName As String Public ReadOnly Property Types() As IEnumerable(Of ProjectType) @@ -82,7 +82,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly End Sub Public Overrides Function ToString() As String - Return Path + Return fullName End Function Public Overloads Function [GetType](typeName As String) As ProjectType @@ -93,7 +93,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return Nothing End Function - Public Function EnsureType(typeName As String) As ProjectType + Friend Function EnsureType(typeName As String) As ProjectType Dim pt As ProjectType = Me.[GetType](typeName) If pt Is Nothing Then diff --git a/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb b/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb index 565295eb..60c80991 100644 --- a/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb +++ b/ApplicationServices/VBDev/XmlDoc/ProjectSpace.vb @@ -1,46 +1,46 @@ #Region "Microsoft.VisualBasic::72583ecbe0ad701ec1f8fbc8c7be7a1c, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\ProjectSpace.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 . +' 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: +' Summaries: - ' Class ProjectSpace - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: EnsureProject, GetEnumerator, GetProject, IEnumerable_GetEnumerator, ToString - ' - ' Sub: ImportFromXmlDocFile, ImportFromXmlDocFolder, LoadFile - ' - ' - ' /********************************************************************************/ +' Class ProjectSpace +' +' Constructor: (+1 Overloads) Sub New +' +' Function: EnsureProject, GetEnumerator, GetProject, IEnumerable_GetEnumerator, ToString +' +' Sub: ImportFromXmlDocFile, ImportFromXmlDocFolder, LoadFile +' +' +' /********************************************************************************/ #End Region @@ -49,6 +49,7 @@ Imports System.IO +Imports System.Runtime.CompilerServices Imports System.Xml Imports Microsoft.VisualBasic.ApplicationServices.Development.XmlDoc.Serialization Imports Microsoft.VisualBasic.FileIO.FileSystem @@ -134,8 +135,26 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly End If End Sub + Private Sub LoadFile(fi As FileInfo) - Using fs As New FileStream(fi.FullName, FileMode.Open) + Call CreateDocProject(fi, excludeVBSpecific, AddressOf EnsureProject) + End Sub + + Public Shared Function CreateDocProject(xmlfile As [Variant](Of String, FileInfo), + Optional excludeVBSpecific As Boolean = True, + Optional projActivator As Func(Of String, Project) = Nothing) As Project + + If xmlfile Like GetType(FileInfo) Then + xmlfile = xmlfile.TryCast(Of FileInfo).FullName + Else + xmlfile = xmlfile.TryCast(Of String).GetFullPath + End If + + If projActivator Is Nothing Then + projActivator = Function(name) New Project(name) + End If + + Using fs As New FileStream(xmlfile, FileMode.Open) Dim streamWriter As New StreamReader(fs) Dim xml$ = streamWriter.ReadToEnd.TrimAssemblyDoc() Dim s As New StringReader(xml) @@ -148,15 +167,21 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Dim nameNode As XmlNode = xd _ .DocumentElement _ .SelectSingleNode("assembly/name") + Dim proj As Project If nameNode IsNot Nothing Then xml = nameNode.InnerText - Call EnsureProject(xml) _ - .ProcessXmlDoc(xd, excludeVBSpecific) + proj = projActivator(xml) + + Call proj.ProcessXmlDoc(xd, excludeVBSpecific) + + Return proj + Else + Return Nothing End If End Using End Using - End Sub + End Function Public Iterator Function GetEnumerator() As IEnumerator(Of Project) Implements IEnumerable(Of Project).GetEnumerator For Each proj As Project In projects diff --git a/ApplicationServices/VBDev/XmlDoc/ProjectType.vb b/ApplicationServices/VBDev/XmlDoc/ProjectType.vb index b4c691a7..7a41967d 100644 --- a/ApplicationServices/VBDev/XmlDoc/ProjectType.vb +++ b/ApplicationServices/VBDev/XmlDoc/ProjectType.vb @@ -54,8 +54,8 @@ Imports System.Runtime.CompilerServices Imports System.Xml Imports Microsoft.VisualBasic.ApplicationServices.Development.XmlDoc.Serialization -Imports Microsoft.VisualBasic.Text Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Text Namespace ApplicationServices.Development.XmlDoc.Assembly @@ -81,6 +81,10 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly ''' Protected Friend methods As Dictionary(Of String, List(Of ProjectMember)) + ''' + ''' The namespace container of this type + ''' + ''' Public ReadOnly Property [Namespace]() As ProjectNamespace Get @@ -134,7 +138,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return getInternal(methods, methodName.ToLower) End Function - Public Function EnsureMethod(methodName As String) As ProjectMember + Friend Function EnsureMethod(methodName As String) As ProjectMember Dim pmlist As List(Of ProjectMember) = Me.GetMethods(methodName) Dim pm As New ProjectMember(Me) With { .Name = methodName @@ -160,7 +164,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return getInternal(properties, propertyName.ToLower) End Function - Public Function EnsureProperty(propertyName As String) As ProjectMember + Friend Function EnsureProperty(propertyName As String) As ProjectMember Dim pmlist As List(Of ProjectMember) = Me.GetProperties(propertyName) Dim pm As New ProjectMember(Me) With { .Name = propertyName @@ -179,7 +183,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return Nothing End Function - Public Function EnsureField(fieldName As String) As ProjectMember + Friend Function EnsureField(fieldName As String) As ProjectMember Dim pm As ProjectMember = Me.GetField(fieldName) If pm Is Nothing Then @@ -201,7 +205,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return Nothing End Function - Public Function EnsureEvent(eventName As String) As ProjectMember + Friend Function EnsureEvent(eventName As String) As ProjectMember Dim pm As ProjectMember = Me.GetField(eventName) If pm Is Nothing Then @@ -215,7 +219,7 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return pm End Function - Public Sub LoadFromNode(xn As XmlNode) + Friend Sub LoadFromNode(xn As XmlNode) Dim summaryNode As XmlNode = xn.SelectSingleNode("summary") If summaryNode IsNot Nothing Then diff --git a/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb b/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb index 8e388da3..950ed9d7 100644 --- a/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb +++ b/ApplicationServices/VBDev/XmlDoc/Serialization/NamespaceDoc.vb @@ -69,7 +69,7 @@ Namespace ApplicationServices.Development.XmlDoc.Serialization .Select(Function(ns) ns.Types) _ .IteratesALL _ .Where(AddressOf IsNamespaceDoc) _ - .GroupBy(Function(doc) doc.Namespace.Path) _ + .GroupBy(Function(doc) doc.Namespace.fullName) _ .ToDictionary(Function(ns) ns.Key, Function(nsGroup) Return nsGroup _ From c12b654dbd48295342eed12b80e5b2fc64a7d0db Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 19 Nov 2019 23:16:14 +0800 Subject: [PATCH 080/104] Update List.vb --- Language/Linq/List.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Language/Linq/List.vb b/Language/Linq/List.vb index efacb86d..7197baa1 100644 --- a/Language/Linq/List.vb +++ b/Language/Linq/List.vb @@ -479,6 +479,11 @@ Namespace Language ' Return list 'End Operator + + Public Shared Operator +(vals As T(), list As List(Of T)) As List(Of T) + Return New List(Of T)(vals) + list.AsEnumerable + End Operator + ''' ''' 批量的从目标列表之中移除集合之中的对象 ''' From fd31ace5cb226f031fd032b936b49bea884986fa Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 22 Nov 2019 21:43:05 +0800 Subject: [PATCH 081/104] make internal logging helper to public --- .../Parallel/Threads/ThreadQueue.vb | 2 +- My/Log4VB.vb | 71 +++++++++---------- 2 files changed, 36 insertions(+), 37 deletions(-) diff --git a/ApplicationServices/Parallel/Threads/ThreadQueue.vb b/ApplicationServices/Parallel/Threads/ThreadQueue.vb index e6f46c01..0234589e 100644 --- a/ApplicationServices/Parallel/Threads/ThreadQueue.vb +++ b/ApplicationServices/Parallel/Threads/ThreadQueue.vb @@ -124,7 +124,7 @@ Namespace Parallel ''' Public Sub WaitQueue() While QSolverRunning = True - Thread.Sleep(10) + Call Thread.Sleep(10) End While End Sub diff --git a/My/Log4VB.vb b/My/Log4VB.vb index 238e9d2b..96bfe458 100644 --- a/My/Log4VB.vb +++ b/My/Log4VB.vb @@ -1,48 +1,47 @@ #Region "Microsoft.VisualBasic::a68941d725cbbfd23a2990bcbf568514, Microsoft.VisualBasic.Core\My\Log4VB.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 . +' 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: +' Summaries: - ' Module Log4VB - ' - ' Function: getColor, Print - ' - ' Sub: (+2 Overloads) Print, Println - ' - ' - ' /********************************************************************************/ +' Module Log4VB +' +' Function: getColor, Print +' +' Sub: (+2 Overloads) Print, Println +' +' +' /********************************************************************************/ #End Region -Imports System.ComponentModel.Composition Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ApplicationServices.Debugging.Logging Imports Microsoft.VisualBasic.ApplicationServices.Terminal @@ -53,7 +52,7 @@ Namespace My ''' ''' VB.NET log framework. ''' - Module Log4VB + Public Module Log4VB Friend ReadOnly logs As New List(Of LoggingDriver) From fbe62a117feffe0123ce7cc96b9af1b2e8cac55c Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 22 Nov 2019 23:53:56 +0800 Subject: [PATCH 082/104] Update Type.vb fix errors in get type --- Scripting/MetaData/Type.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index ca63e8a2..2619c1b8 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -125,7 +125,7 @@ Namespace Scripting.MetaData Public Overloads Function [GetType](Optional knownFirst As Boolean = False, Optional throwEx As Boolean = True, Optional ByRef getException As Exception = Nothing) As Type - Dim type As Type + Dim type As Type = Nothing Dim assm As Assembly If knownFirst Then @@ -151,7 +151,7 @@ Namespace Scripting.MetaData getException = ex End If Finally - type = Nothing + End Try Return type From aed1e8ce171bc3369e98211a2673d31000d9b562 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 25 Nov 2019 19:42:43 +0800 Subject: [PATCH 083/104] Update InnerQueue.vb --- My/InnerQueue.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/My/InnerQueue.vb b/My/InnerQueue.vb index 5eeb4a7c..d0fd9887 100644 --- a/My/InnerQueue.vb +++ b/My/InnerQueue.vb @@ -52,6 +52,10 @@ Namespace My ''' Module InnerQueue + ''' + ''' The internal task queue of the sciBASIC.NET framework + ''' + ''' Public ReadOnly Property InnerThread As New ThreadQueue ''' From b4c8801f7c10f5220bdeef1e2ff9e9de77d130ba Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 25 Nov 2019 19:54:49 +0800 Subject: [PATCH 084/104] improvements of the object tostring helper --- 47-dotnet_Microsoft.VisualBasic.sln | 4 +-- Extensions/Reflection/Methods.vb | 11 +++++++ Scripting/InputHandler.vb | 7 ++-- .../Runtime/CType/NumberConversionRoutines.vb | 33 ++++++++++++++++--- test/objToStringTest.vb | 24 ++++++++++++++ test/test.vbproj | 26 ++++++++++++++- 6 files changed, 95 insertions(+), 10 deletions(-) create mode 100644 test/objToStringTest.vb diff --git a/47-dotnet_Microsoft.VisualBasic.sln b/47-dotnet_Microsoft.VisualBasic.sln index 0e295273..acade65c 100644 --- a/47-dotnet_Microsoft.VisualBasic.sln +++ b/47-dotnet_Microsoft.VisualBasic.sln @@ -263,8 +263,8 @@ Global {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|Any CPU.Build.0 = Debug|Any CPU {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|Win32.ActiveCfg = Debug|Any CPU {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|Win32.Build.0 = Debug|Any CPU - {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|x64.ActiveCfg = Debug|Any CPU - {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|x64.Build.0 = Debug|Any CPU + {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|x64.ActiveCfg = Debug|x64 + {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|x64.Build.0 = Debug|x64 {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|x86.ActiveCfg = Debug|x86 {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.Debug|x86.Build.0 = Debug|x86 {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88}.DEMO|Any CPU.ActiveCfg = Debug|Any CPU diff --git a/Extensions/Reflection/Methods.vb b/Extensions/Reflection/Methods.vb index 8ba8e3b0..895148e9 100644 --- a/Extensions/Reflection/Methods.vb +++ b/Extensions/Reflection/Methods.vb @@ -103,4 +103,15 @@ Public Module MethodsExtension Public Function Invoke(method As MethodInfo) As Object Return method.Invoke(Nothing, Nothing) End Function + + ''' + ''' Does current is overrides from the base + ''' + ''' + ''' + ''' + + Public Function IsMethodOverridesOf(method As MethodInfo, type As Type) As Boolean + Return Not method.DeclaringType Is type AndAlso method.DeclaringType.IsInheritsFrom(type, strict:=False) + End Function End Module diff --git a/Scripting/InputHandler.vb b/Scripting/InputHandler.vb index 53904ca1..a27b5b7a 100644 --- a/Scripting/InputHandler.vb +++ b/Scripting/InputHandler.vb @@ -330,11 +330,14 @@ Namespace Scripting ''' 2. 对于数组则是被编码为base64字符串 ''' ''' + ''' + ''' Result of as nothing + ''' ''' ''' - Public Function ToString(obj As Object, Optional null$ = "") As String - Return CStrSafe(obj, null) + Public Function ToString(obj As Object, Optional null$ = "", Optional originToStringAsNothing As Boolean = False) As String + Return CStrSafe(obj, null, originToStringAsNothing) End Function ''' diff --git a/Scripting/Runtime/CType/NumberConversionRoutines.vb b/Scripting/Runtime/CType/NumberConversionRoutines.vb index 1838eb2c..1818bf28 100644 --- a/Scripting/Runtime/CType/NumberConversionRoutines.vb +++ b/Scripting/Runtime/CType/NumberConversionRoutines.vb @@ -110,6 +110,7 @@ Namespace Scripting.Runtime End Function ReadOnly cstrCache As New Dictionary(Of Type, INarrowingOperator(Of Object, String)) + ReadOnly objToStringCache As New Dictionary(Of Type, Boolean) ''' ''' 安全的将目标对象转换为字符串值 @@ -118,7 +119,7 @@ Namespace Scripting.Runtime ''' ''' 如果目标是字节数组，则会被转换为base64字符串 ''' - Public Function CStrSafe(obj As Object, Optional default$ = "") As String + Public Function CStrSafe(obj As Object, Optional default$ = "", Optional originToStringAsNothing As Boolean = False) As String If obj Is Nothing Then Return String.Empty ElseIf Convert.IsDBNull(obj) Then @@ -126,7 +127,7 @@ Namespace Scripting.Runtime Else Try - Return CStrInternal(obj, [default]) + Return CStrInternal(obj, [default], originToStringAsNothing) Catch ex As Exception Try ' 调用ToString函数来返回字符串值 @@ -139,7 +140,7 @@ Namespace Scripting.Runtime End If End Function - Private Function CStrInternal(obj As Object, default$) As String + Private Function CStrInternal(obj As Object, default$, originToStringAsNothing As Boolean) As String Dim type As Type = obj.GetType Dim delg As INarrowingOperator(Of Object, String) @@ -175,8 +176,30 @@ Namespace Scripting.Runtime Try If delg Is Nothing Then - ' 调用ToString函数来返回字符串值 - Return obj.ToString + If originToStringAsNothing Then + If objToStringCache.ContainsKey(type) Then + Return False + End If + + Dim isObjToString As Boolean = type.GetMethods() _ + .Where(Function(m) + Return m.Name = "ToString" AndAlso + m.GetParameters.IsNullOrEmpty AndAlso + m.GetGenericArguments.IsNullOrEmpty + End Function) _ + .First _ + .DeclaringType Is GetType(Object) + + If isObjToString Then + objToStringCache.Add(type, True) + Return Nothing + Else + Return obj.ToString + End If + Else + ' 调用ToString函数来返回字符串值 + Return obj.ToString + End If Else Return delg(obj) End If diff --git a/test/objToStringTest.vb b/test/objToStringTest.vb new file mode 100644 index 00000000..427bc275 --- /dev/null +++ b/test/objToStringTest.vb @@ -0,0 +1,24 @@ +Module objToStringTest + + Sub Main() + Dim m1 = GetType(overridesToString).GetMethods.Where(Function(m) m.Name = "ToString" AndAlso m.GetParameters.IsNullOrEmpty AndAlso m.GetGenericArguments.IsNullOrEmpty).First + Dim m2 = GetType(notOverridesToString).GetMethods.Where(Function(m) m.Name = "ToString" AndAlso m.GetParameters.IsNullOrEmpty AndAlso m.GetGenericArguments.IsNullOrEmpty).First + Dim objToString = GetType(Object).GetMethod("ToString") + + Console.WriteLine(m1.DeclaringType Is objToString.DeclaringType) + Console.WriteLine(m2.DeclaringType Is objToString.DeclaringType) + + Pause() + End Sub +End Module + +Public Class overridesToString + Public Overrides Function ToString() As String + Return "1" + End Function +End Class + +Public Class notOverridesToString + +End Class + diff --git a/test/test.vbproj b/test/test.vbproj index 02b78b21..48151181 100644 --- a/test/test.vbproj +++ b/test/test.vbproj @@ -6,7 +6,7 @@ AnyCPU {8CDE6B49-9B2B-4A0E-8954-5A46E9AECB88} Exe - test.wmfTest + test.objToStringTest test test 512 @@ -24,6 +24,7 @@ bin\Debug\ test.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false AnyCPU @@ -70,6 +71,28 @@ MinimumRecommendedRules.ruleset true + + true + true + true + bin\x64\Debug\ + test.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + full + x64 + MinimumRecommendedRules.ruleset + + + true + bin\x64\Release\ + test.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + pdbonly + x64 + MinimumRecommendedRules.ruleset + true + @@ -98,6 +121,7 @@ + From 08e2fb1ad45139800984246d9b66620ee46615b6 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 25 Nov 2019 20:00:59 +0800 Subject: [PATCH 085/104] fix xml docs --- ComponentModel/Algorithm/BinaryTree/TreeNode.vb | 2 +- Scripting/Runtime/CType/CastStringVector.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ComponentModel/Algorithm/BinaryTree/TreeNode.vb b/ComponentModel/Algorithm/BinaryTree/TreeNode.vb index 9133a0ef..51a0f55d 100644 --- a/ComponentModel/Algorithm/BinaryTree/TreeNode.vb +++ b/ComponentModel/Algorithm/BinaryTree/TreeNode.vb @@ -135,7 +135,7 @@ Namespace ComponentModel.Algorithm.BinaryTree ''' ''' ''' - ''' Default debug view is + ''' Default debug view is Sub New(key As K, value As V, Optional parent As BinaryTree(Of K, V) = Nothing, Optional toString As Func(Of K, String) = Nothing) diff --git a/Scripting/Runtime/CType/CastStringVector.vb b/Scripting/Runtime/CType/CastStringVector.vb index 143308f4..4536c704 100644 --- a/Scripting/Runtime/CType/CastStringVector.vb +++ b/Scripting/Runtime/CType/CastStringVector.vb @@ -61,7 +61,7 @@ Namespace Scripting.Runtime End Function ''' - ''' Convert the numeric type as the text type by . + ''' Convert the numeric type as the text type by . ''' ''' ''' @@ -86,7 +86,7 @@ Namespace Scripting.Runtime End Function ''' - ''' 使用方法将对象集合转换为字符串序列 + ''' 使用方法将对象集合转换为字符串序列 ''' ''' ''' From dc0b389ade2914852a707aae6e2096f3e02b7d73 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 25 Nov 2019 22:09:58 +0800 Subject: [PATCH 086/104] Update NamedValues.vb create xml data model from namedvalue object --- Text/Xml/Models/ValueTuples/NamedValues.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Text/Xml/Models/ValueTuples/NamedValues.vb b/Text/Xml/Models/ValueTuples/NamedValues.vb index 5a3fec35..ffdf2b3e 100644 --- a/Text/Xml/Models/ValueTuples/NamedValues.vb +++ b/Text/Xml/Models/ValueTuples/NamedValues.vb @@ -92,6 +92,11 @@ Namespace Text.Xml.Models Me.text = value End Sub + Sub New(namedValue As NamedValue(Of String)) + Me.name = namedValue.Name + Me.text = namedValue.Value + End Sub + Sub New() End Sub From 59e66f5401589047416aa1d2d5328364ca6cc64c Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 26 Nov 2019 22:11:32 +0800 Subject: [PATCH 087/104] Update NamespaceDoc.vb --- Data/NamespaceDoc.vb | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Data/NamespaceDoc.vb b/Data/NamespaceDoc.vb index a3930185..6c3093ee 100644 --- a/Data/NamespaceDoc.vb +++ b/Data/NamespaceDoc.vb @@ -1,5 +1,8 @@ Namespace Data + ''' + ''' The sciBASIC.NET data handling module + ''' Module NamespaceDoc End Module End Namespace \ No newline at end of file From c09db3402b6e70824a252cacb6fc9b300d086c6b Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 27 Nov 2019 20:40:11 +0800 Subject: [PATCH 088/104] fix a possible null reference null reference error will happend when target type have no xml docs comments --- ApplicationServices/VBDev/XmlDoc/Project.vb | 9 +++++++-- CommandLine/CommandLine.vb | 20 +++++++++++++------- 2 files changed, 20 insertions(+), 9 deletions(-) diff --git a/ApplicationServices/VBDev/XmlDoc/Project.vb b/ApplicationServices/VBDev/XmlDoc/Project.vb index 8b2405da..f27138fe 100644 --- a/ApplicationServices/VBDev/XmlDoc/Project.vb +++ b/ApplicationServices/VBDev/XmlDoc/Project.vb @@ -100,9 +100,14 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Dim typeName As String = tokens.Last Dim namespaceRef As String = tokens.Take(tokens.Length - 1).JoinBy(".") Dim namespaceDoc As ProjectNamespace = GetNamespace(namespaceRef) - Dim typeDoc As ProjectType = namespaceDoc.GetType(typeName) - Return typeDoc + ' if no xml comment docs, + ' then namespaceDoc object will be nothing + If namespaceDoc Is Nothing Then + Return Nothing + Else + Return namespaceDoc.GetType(typeName) + End If End Function Friend Function EnsureNamespace(namespacePath As String) As ProjectNamespace diff --git a/CommandLine/CommandLine.vb b/CommandLine/CommandLine.vb index 213db5d5..823df571 100644 --- a/CommandLine/CommandLine.vb +++ b/CommandLine/CommandLine.vb @@ -212,13 +212,14 @@ Namespace CommandLine ''' Default Public ReadOnly Property Item(paramName As String) As DefaultString Get - Dim LQuery As NamedValue(Of String) = - arguments _ - .Where(Function(a) - Return String.Equals(a.Name, paramName, StringComparison.OrdinalIgnoreCase) OrElse - String.Equals(a.Name.Trim("\", "/", "-"), paramName, StringComparison.OrdinalIgnoreCase) - End Function) _ - .FirstOrDefault + Dim LQuery As NamedValue(Of String) = arguments _ + .Where(Function(a) + Return a.Name.TextEquals(paramName) OrElse + a.Name.DoCall(AddressOf TrimNamePrefix) _ + .TextEquals(paramName) + End Function) _ + .FirstOrDefault + ' 是值类型，不会出现空引用的情况 Dim value As String = LQuery.Value @@ -278,6 +279,11 @@ Namespace CommandLine Return cliCommandArgvs End Function + + Public Shared Function TrimNamePrefix(argName As String) As String + Return argName.Trim("\", "/", "-") + End Function + ''' ''' Get specific argument value as full directory path. ''' From 80744c3859473394c3612cc9eb3c0fd60f71fc8a Mon Sep 17 00:00:00 2001 From: xieguigang Date: Wed, 27 Nov 2019 22:19:46 +0800 Subject: [PATCH 089/104] safequery of the enumeration collection --- Extensions/Collection/Linq/Linq.vb | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Extensions/Collection/Linq/Linq.vb b/Extensions/Collection/Linq/Linq.vb index 8c97b24a..6ce16099 100644 --- a/Extensions/Collection/Linq/Linq.vb +++ b/Extensions/Collection/Linq/Linq.vb @@ -116,6 +116,15 @@ Namespace Linq End If End Function + + Public Function SafeQuery(Of T)(source As Enumeration(Of T)) As IEnumerable(Of T) + If source Is Nothing Then + Return {} + Else + Return source.AsEnumerable + End If + End Function + Public Delegate Sub DoWith(Of T)(obj As T) ''' From 751ead38ed5c0ce5c39b9781b464577aef3cb870 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 28 Nov 2019 20:11:50 +0800 Subject: [PATCH 090/104] split source file into multiple modules --- 47-dotnet_Microsoft.VisualBasic.vbproj | 1 + ApplicationServices/App.vb | 11 +- .../Utility/ProgressBar/ProgressBar.vb | 21 ++ .../DataStructures/Set/SetsExtension.vb | 10 +- Data/Repository/RepositoryFileSystem.vb | 220 ++++++++++++++++++ Extensions/Collection/KeyValuePair.vb | 19 ++ Extensions/IO/Extensions/PathExtensions.vb | 219 +---------------- Scripting/InputHandler.vb | 6 +- 8 files changed, 289 insertions(+), 218 deletions(-) create mode 100644 Data/Repository/RepositoryFileSystem.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index dd092d69..3b24eedd 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1022,6 +1022,7 @@ + diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 602e1a62..1b4f3997 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -1067,21 +1067,21 @@ Public Module App ''' The command line arguments value, which its value can be gets from the function. ''' Returns the function execute result to the operating system. ''' - + Public Function RunCLI(Interpreter As Type, args$, Optional caller$ = Nothing) As Integer Return Interpreter.RunCLIInternal(CLITools.TryParse(args), caller, Nothing, Nothing, Nothing) End Function ''' - ''' Running the string as a cli command line.(请注意，在调试模式之下，命令行解释器会在运行完命令之后暂停，而Release模式之下则不会。 + ''' Running the string as a cli command line, Running the string as cli command line and the specific type define as a interpreter. + ''' (请注意，在调试模式之下，命令行解释器会在运行完命令之后暂停，而Release模式之下则不会。 ''' 假若在调试模式之下发现程序有很长一段时间处于cpu占用为零的静止状态，则很有可能已经运行完命令并且等待回车退出) ''' ''' The command line arguments value, which its value can be gets from the function. ''' Returns the function execute result to the operating system. ''' - + Public Function RunCLI(Interpreter As Type, args As CLI, Optional caller$ = Nothing) As Integer Return Interpreter.RunCLIInternal(args, caller, Nothing, Nothing, Nothing) End Function @@ -1093,8 +1093,7 @@ Public Module App ''' The command line arguments value, which its value can be gets from the function. ''' Returns the function execute result to the operating system. ''' - + Public Function RunCLI(Interpreter As Type, args As CLI, executeEmpty As ExecuteEmptyCLI, Optional caller$ = Nothing) As Integer diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb index d7fd7594..1fc666ee 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb @@ -168,6 +168,11 @@ Namespace Terminal.ProgressBar Shared disabled As Boolean + ''' + ''' If this global value is not null, then set y value in constructor will be disabled. + ''' + Shared pinnedTop As Integer? + Public Shared Property Enable As Boolean Get Return Not disabled @@ -199,6 +204,10 @@ Namespace Terminal.ProgressBar Me.theme = theme Or ColorTheme.DefaultTheme Me.y = Y + If Not pinnedTop Is Nothing Then + Me.y = pinnedTop + End If + If Not disabled Then AddHandler TerminalEvents.Resize, AddressOf consoleWindowResize @@ -315,6 +324,18 @@ Namespace Terminal.ProgressBar End If End Sub + Public Shared Sub ClearPinnedTop() + pinnedTop = Nothing + End Sub + + Public Shared Sub PinTop(top As Integer) + pinnedTop = top + End Sub + + Public Shared Function GetCurrentConsoleTop() As Integer + Return Console.CursorTop + End Function + #Region "IDisposable Support" Private disposedValue As Boolean ' To detect redundant calls diff --git a/ComponentModel/DataStructures/Set/SetsExtension.vb b/ComponentModel/DataStructures/Set/SetsExtension.vb index f7f6e4a2..c34d4f54 100644 --- a/ComponentModel/DataStructures/Set/SetsExtension.vb +++ b/ComponentModel/DataStructures/Set/SetsExtension.vb @@ -80,25 +80,27 @@ Public Module SetsExtension End Function ''' - ''' 就并集 + ''' Performs a union of two sets. + ''' (就并集) ''' ''' ''' ''' - + Public Function Union(s1 As [Set], s2 As [Set]) As [Set] Return s1 Or s2 End Function ''' - ''' 求交集 + ''' Performs an intersection of two sets. + ''' (求交集) ''' ''' ''' ''' - + Public Function Intersection(s1 As [Set], s2 As [Set]) As [Set] Return s1 And s2 End Function diff --git a/Data/Repository/RepositoryFileSystem.vb b/Data/Repository/RepositoryFileSystem.vb new file mode 100644 index 00000000..546a96f1 --- /dev/null +++ b/Data/Repository/RepositoryFileSystem.vb @@ -0,0 +1,220 @@ +Imports System.Runtime.CompilerServices +Imports Microsoft.VisualBasic.CommandLine.Reflection +Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel +Imports Microsoft.VisualBasic.FileIO.Path +Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Language.Default +Imports Microsoft.VisualBasic.Language.UnixBash +Imports Microsoft.VisualBasic.Linq.Extensions +Imports Microsoft.VisualBasic.Scripting.MetaData + +Namespace Data.Repository + + ''' + ''' Using file system as repository system provider + ''' + Public Module RepositoryFileSystem + + ''' + ''' + ''' + ''' + ''' + ''' 元素的排布是有顺序的 + ''' + ''' + ''' + + Public Function GetFile(DIR As String, + keyword As String, + ParamArray ext As String()) _ + As String() + + Dim Files As IEnumerable(Of String) = ls - l - wildcards(ext) <= DIR + Dim matches = (From Path As String + In Files.AsParallel + Let NameID = BaseName(Path) + Where InStr(NameID, keyword, CompareMethod.Text) > 0 + Let ExtValue = Path.Split("."c).Last + Select Path, + ExtValue) + Dim LQuery = + From extType As String + In ext + Select From path + In matches + Where InStr(extType, path.ExtValue, CompareMethod.Text) > 0 + Select path.Path + Return LQuery.IteratesALL.Distinct.ToArray + End Function + + ''' + ''' Load the file from a specific directory from the source parameter as the resource entry list. + ''' + ''' [，这个函数会扫描目标文件夹下面的所有文件。] + ''' 请注意，本方法是不能够产生具有相同的主文件名的数据的。假若目标GBK是使用本模块之中的方法保存或者导出来的， + ''' 则可以使用本方法生成Entry列表；（在返回的结果之中，KEY为文件名，没有拓展名，VALUE为文件的路径） + ''' + ''' + ''' + ''' + ''' + + + Public Function LoadSourceEntryList( source As String, + ext As String(), + Optional topLevel As Boolean = True) As Dictionary(Of String, String) + + If ext.IsNullOrEmpty Then + ext = {"*.*"} + End If + + Dim LQuery = (From path As String + In If(topLevel, ls - l, ls - l - r) - wildcards(ext) <= source + Select ID = BaseName(path), + path + Group By ID Into Group).ToArray + + ext = LinqAPI.Exec(Of String) <= From value As String + In ext + Select value.Split(CChar(".")).Last.ToLower + + Dim res As Dictionary(Of String, String) = LQuery _ + .ToDictionary(Function(x) x.ID, + Function(x) + + Return LinqAPI.DefaultFirst(Of String) _ + _ + () <= From path + In x.Group + Let pathValue = path.path + Let extValue As String = pathValue.Split("."c).Last.ToLower + Where Array.IndexOf(ext, extValue) > -1 + Select pathValue + + End Function) + + With From entry + In res + Where Not String.IsNullOrEmpty(entry.Value) + Select entry + + res = .ToDictionary(Function(x) x.Key, + Function(x) x.Value) + End With + + Call $"{NameOf(ProgramPathSearchTool)} load {res.Count} source entry...".__DEBUG_ECHO + + Return res + End Function + + ''' + ''' 可以使用本方法生成Entry列表；（在返回的结果之中，KEY为文件名，没有拓展名，VALUE为文件的路径） + ''' 请注意，这个函数会搜索目标文件夹下面的所有的文件夹的 + ''' + ''' + ''' 文件类型的拓展名称 + ''' + ''' + Public Function LoadSourceEntryList(source$, ParamArray ext$()) As Dictionary(Of String, String) + If Not FileIO.FileSystem.DirectoryExists(source) Then + Return New Dictionary(Of String, String) + End If + + Dim LQuery = From path As String + In FileIO.FileSystem.GetFiles(source, FileIO.SearchOption.SearchAllSubDirectories, ext) + Select ID = BaseName(path), + path + Group By ID Into Group + Dim dict As Dictionary(Of String, String) = + LQuery.ToDictionary(Function(x) x.ID, + Function(x) x.Group.First.path) + Return dict + End Function + + ''' + ''' 允许有重复的数据 + ''' + ''' + ''' + ''' + ''' + + + Public Function LoadEntryList( DIR$, ParamArray exts$()) As NamedValue(Of String)() + Return LinqAPI.Exec(Of NamedValue(Of String)) _ + _ + () <= From path As String + In ls - l - ShellSyntax.r - wildcards(exts) <= DIR + Select New NamedValue(Of String) With { + .Name = path.BaseName, + .Value = path + } + + End Function + + ''' + ''' Load the file from a specific directory from the source parameter as the resource entry list. + ''' + ''' + ''' + + + Public Function LoadSourceEntryList(source As IEnumerable(Of String)) As Dictionary(Of String, String) + Dim LQuery = From path As String + In source + Select ID = BaseName(path), + path + Group By ID Into Group + Dim res As Dictionary(Of String, String) = + LQuery.ToDictionary(Function(x) x.ID, + Function(x) x.Group.First.path) + Return res + End Function + + ''' + ''' Copy the file in the source list into the copyto directory, function returns the failed operation list. + ''' (将不同来源的文件复制到目标文件夹之中) + ''' + ''' + ''' + ''' 返回失败的文件列表 + ''' + + Public Function SourceCopy(source As IEnumerable(Of String), CopyTo As String, Optional [Overrides] As Boolean = False) As String() + Dim failedList As New List(Of String) + + For Each file As String In source + Try + Call FileIO.FileSystem.CopyFile(file, CopyTo & "/" & FileIO.FileSystem.GetFileInfo(file).Name, [Overrides]) + Catch ex As Exception + Call failedList.Add(file) + Call App.LogException(New Exception(file, ex)) + End Try + Next + + Return failedList.ToArray + End Function + + ''' + ''' Gets a directory path which is most frequent appeared in the file list. + ''' + ''' + ''' + + Public Function GetMostAppreancePath(files As IEnumerable(Of String)) As String + If files Is Nothing Then + Return "" + End If + + Dim LQuery = From strPath As String + In files + Select FileIO.FileSystem.GetParentPath(strPath) + Return LQuery _ + .TokenCount(ignoreCase:=True) _ + .OrderByDescending(Function(x) x.Value) _ + .FirstOrDefault _ + .Key + End Function + End Module +End Namespace \ No newline at end of file diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index df06ba3d..44c9ea1f 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -69,6 +69,25 @@ Imports r = System.Text.RegularExpressions.Regex Public Module KeyValuePairExtensions + ''' + ''' 从目标字典中按照给定的键名称获取值然后删除给定的键名称对应的数据 + ''' + ''' + ''' + ''' + ''' + ''' + + Public Function Popout(Of K, V)(table As Dictionary(Of K, V), key As K) As V + If table.ContainsKey(key) Then + Dim value As V = table(key) + table.Remove(key) + Return value + Else + Return Nothing + End If + End Function + Public Function TupleTable(tuple As (String(), String())) As Dictionary(Of String, String) Dim table As New Dictionary(Of String, String) diff --git a/Extensions/IO/Extensions/PathExtensions.vb b/Extensions/IO/Extensions/PathExtensions.vb index 59d2a59f..e4ee6b16 100644 --- a/Extensions/IO/Extensions/PathExtensions.vb +++ b/Extensions/IO/Extensions/PathExtensions.vb @@ -54,10 +54,7 @@ Imports System.Reflection Imports System.Runtime.CompilerServices Imports System.Text Imports Microsoft.VisualBasic.CommandLine.Reflection -Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.FileIO -Imports Microsoft.VisualBasic.FileIO.Path -Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Default Imports Microsoft.VisualBasic.Language.UnixBash Imports Microsoft.VisualBasic.Linq.Extensions @@ -333,7 +330,7 @@ Public Module PathExtensions ''' ''' ''' - + Public Function ToFileURL(path As String) As String If String.IsNullOrEmpty(path) Then Return "" @@ -553,7 +550,7 @@ Public Module PathExtensions ''' ''' #If FRAMEWORD_CORE Then - + Public Function FileExists(path$, Optional ZERO_Nonexists As Boolean = False) As Boolean #Else Public Function FileExists(path As String) As Boolean @@ -590,7 +587,7 @@ Public Module PathExtensions ''' ''' ''' - + Public Function DirectoryExists(DIR As String) As Boolean @@ -618,7 +615,7 @@ Public Module PathExtensions ''' ''' - + Public Function FileOpened(FileName As String) As Boolean Try Using FileOpenDetect As New FileStream( @@ -649,7 +646,7 @@ Public Module PathExtensions ''' 所以在这里为了更加方便的兼容文件夹或者文件路径，在这使用字符串的方法来 ''' 进行截取 ''' - + Public Function BaseName(fsObj$, Optional allowEmpty As Boolean = False) As String If fsObj.StringEmpty Then If allowEmpty Then @@ -746,205 +743,14 @@ Public Module PathExtensions End Function ''' - ''' - ''' - ''' - ''' - ''' 元素的排布是有顺序的 - ''' - ''' - ''' - - Public Function GetFile(DIR As String, - keyword As String, - ParamArray ext As String()) _ - As String() - - Dim Files As IEnumerable(Of String) = ls - l - wildcards(ext) <= DIR - Dim matches = (From Path As String - In Files.AsParallel - Let NameID = BaseName(Path) - Where InStr(NameID, keyword, CompareMethod.Text) > 0 - Let ExtValue = Path.Split("."c).Last - Select Path, - ExtValue) - Dim LQuery = - From extType As String - In ext - Select From path - In matches - Where InStr(extType, path.ExtValue, CompareMethod.Text) > 0 - Select path.Path - Return LQuery.IteratesALL.Distinct.ToArray - End Function - - ''' - ''' [，这个函数会扫描目标文件夹下面的所有文件。] - ''' 请注意，本方法是不能够产生具有相同的主文件名的数据的。假若目标GBK是使用本模块之中的方法保存或者导出来的， - ''' 则可以使用本方法生成Entry列表；（在返回的结果之中，KEY为文件名，没有拓展名，VALUE为文件的路径） - ''' - ''' - ''' - ''' - ''' - - - Public Function LoadSourceEntryList( source As String, - ext As String(), - Optional topLevel As Boolean = True) As Dictionary(Of String, String) - - If ext.IsNullOrEmpty Then - ext = {"*.*"} - End If - - Dim LQuery = (From path As String - In If(topLevel, ls - l, ls - l - r) - wildcards(ext) <= source - Select ID = BaseName(path), - path - Group By ID Into Group).ToArray - - ext = LinqAPI.Exec(Of String) <= From value As String - In ext - Select value.Split(CChar(".")).Last.ToLower - - Dim res As Dictionary(Of String, String) = LQuery _ - .ToDictionary(Function(x) x.ID, - Function(x) - - Return LinqAPI.DefaultFirst(Of String) _ - _ - () <= From path - In x.Group - Let pathValue = path.path - Let extValue As String = pathValue.Split("."c).Last.ToLower - Where Array.IndexOf(ext, extValue) > -1 - Select pathValue - - End Function) - - With From entry - In res - Where Not String.IsNullOrEmpty(entry.Value) - Select entry - - res = .ToDictionary(Function(x) x.Key, - Function(x) x.Value) - End With - - Call $"{NameOf(ProgramPathSearchTool)} load {res.Count} source entry...".__DEBUG_ECHO - - Return res - End Function - - ''' - ''' 可以使用本方法生成Entry列表；（在返回的结果之中，KEY为文件名，没有拓展名，VALUE为文件的路径） - ''' 请注意，这个函数会搜索目标文件夹下面的所有的文件夹的 - ''' - ''' - ''' 文件类型的拓展名称 - ''' - ''' - Public Function LoadSourceEntryList(source$, ParamArray ext$()) As Dictionary(Of String, String) - If Not FileIO.FileSystem.DirectoryExists(source) Then - Return New Dictionary(Of String, String) - End If - - Dim LQuery = From path As String - In FileIO.FileSystem.GetFiles(source, FileIO.SearchOption.SearchAllSubDirectories, ext) - Select ID = BaseName(path), - path - Group By ID Into Group - Dim dict As Dictionary(Of String, String) = - LQuery.ToDictionary(Function(x) x.ID, - Function(x) x.Group.First.path) - Return dict - End Function - - ''' - ''' 允许有重复的数据 - ''' - ''' - ''' - ''' - ''' - - - Public Function LoadEntryList( DIR$, ParamArray exts$()) As NamedValue(Of String)() - Return LinqAPI.Exec(Of NamedValue(Of String)) _ - _ - () <= From path As String - In ls - l - ShellSyntax.r - wildcards(exts) <= DIR - Select New NamedValue(Of String) With { - .Name = path.BaseName, - .Value = path - } - - End Function - - - - Public Function LoadSourceEntryList(source As IEnumerable(Of String)) As Dictionary(Of String, String) - Dim LQuery = From path As String - In source - Select ID = BaseName(path), - path - Group By ID Into Group - Dim res As Dictionary(Of String, String) = - LQuery.ToDictionary(Function(x) x.ID, - Function(x) x.Group.First.path) - Return res - End Function - - ''' - ''' 将不同来源的文件复制到目标文件夹之中 - ''' - ''' - ''' - ''' 返回失败的文件列表 - ''' - - Public Function SourceCopy(source As IEnumerable(Of String), CopyTo As String, Optional [Overrides] As Boolean = False) As String() - Dim failedList As New List(Of String) - - For Each file As String In source - Try - Call FileIO.FileSystem.CopyFile(file, CopyTo & "/" & FileIO.FileSystem.GetFileInfo(file).Name, [Overrides]) - Catch ex As Exception - Call failedList.Add(file) - Call App.LogException(New Exception(file, ex)) - End Try - Next - - Return failedList.ToArray - End Function - - - Public Function GetMostAppreancePath(files As IEnumerable(Of String)) As String - If files Is Nothing Then - Return "" - End If - - Dim LQuery = From strPath As String - In files - Select FileIO.FileSystem.GetParentPath(strPath) - Return LQuery _ - .TokenCount(ignoreCase:=True) _ - .OrderByDescending(Function(x) x.Value) _ - .FirstOrDefault _ - .Key - End Function - - ''' - ''' 获取相对于本应用程序的目标文件的相对路径(请注意，所生成的相对路径之中的字符串最后是没有文件夹的分隔符\或者/的) + ''' Get the specific file system object its relative path to the application base directory. + ''' + ''' (获取相对于本应用程序的目标文件的相对路径(请注意，所生成的相对路径之中的字符串最后是没有文件夹的分隔符\或者/的)) ''' ''' ''' - + Public Function RelativePath(path As String) As String Return RelativePath(App.HOME, path) End Function @@ -957,8 +763,7 @@ Public Module PathExtensions ''' 所需要生成相对路径的目标文件系统对象的绝对路径或者相对路径 ''' 是否将父目录的路径也添加进入相对路径之中？默认是 ''' - + Public Function RelativePath(pcFrom$, pcTo$, Optional appendParent As Boolean = True, Optional fixZipPath As Boolean = False) As String @@ -1042,7 +847,7 @@ Public Module PathExtensions ''' ''' - + Public Function GetFullPath(file As String) As String Return FileIO.FileSystem.GetFileInfo(file).FullName.Replace("\", "/") End Function @@ -1054,7 +859,7 @@ Public Module PathExtensions ''' ''' 当程序出错误的时候记录进入日志的一个追踪目标参数，调试用 ''' - + Public Function GetDirectoryFullPath(dir$, Optional stack$ = Nothing) As String Try Return FileIO.FileSystem _ diff --git a/Scripting/InputHandler.vb b/Scripting/InputHandler.vb index a27b5b7a..83e826bb 100644 --- a/Scripting/InputHandler.vb +++ b/Scripting/InputHandler.vb @@ -117,7 +117,11 @@ Namespace Scripting ''' The string expression to convert. ''' The type to which to convert the object. ''' An object whose type at run time is the requested target type. - Public Function CTypeDynamic(expression$, target As Type) As Object + ''' + ''' If all failure, then will try + ''' + + Public Function CTypeDynamic(expression$, target As Type) As Object If expression.StringEmpty Then Return Nothing End If From ae71d6ab56c366e5f601cd8b7dd69cc6f14f31e7 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 29 Nov 2019 23:41:43 +0800 Subject: [PATCH 091/104] Update KeyValuePair.vb ignores of the misisng keys --- Extensions/Collection/KeyValuePair.vb | 107 ++++++++++++++------------ 1 file changed, 57 insertions(+), 50 deletions(-) diff --git a/Extensions/Collection/KeyValuePair.vb b/Extensions/Collection/KeyValuePair.vb index 44c9ea1f..f8bdde31 100644 --- a/Extensions/Collection/KeyValuePair.vb +++ b/Extensions/Collection/KeyValuePair.vb @@ -1,50 +1,50 @@ #Region "Microsoft.VisualBasic::4c34fe7ef695119d13070eda59ef9163, Microsoft.VisualBasic.Core\Extensions\Collection\KeyValuePair.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 . +' 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: +' Summaries: - ' Module KeyValuePairExtensions - ' - ' Function: (+3 Overloads) [Select], (+2 Overloads) Add, AsEnumerable, AsNamedValueTuples, AsTable - ' ComputeIfAbsent, (+3 Overloads) ContainsKey, DictionaryData, (+2 Overloads) EnumerateTuples, EnumParser - ' FlatTable, (+2 Overloads) GetByKey, GetValueOrDefault, GroupByKey, HaveData - ' IterateNameCollections, IterateNameValues, IteratesAll, Join, KeyItem - ' (+2 Overloads) Keys, (+2 Overloads) NamedValues, (+3 Overloads) NameValueCollection, ParserDictionary, RemoveAndGet - ' ReverseMaps, (+2 Overloads) Selects, SetOfKeyValuePairs, (+2 Overloads) Subset, tableInternal - ' Takes, (+3 Overloads) ToDictionary, ToLower, ToUpper, Tsv - ' Tuple, (+2 Overloads) Values, XMLModel - ' - ' Sub: SortByKey, SortByValue - ' - ' /********************************************************************************/ +' Module KeyValuePairExtensions +' +' Function: (+3 Overloads) [Select], (+2 Overloads) Add, AsEnumerable, AsNamedValueTuples, AsTable +' ComputeIfAbsent, (+3 Overloads) ContainsKey, DictionaryData, (+2 Overloads) EnumerateTuples, EnumParser +' FlatTable, (+2 Overloads) GetByKey, GetValueOrDefault, GroupByKey, HaveData +' IterateNameCollections, IterateNameValues, IteratesAll, Join, KeyItem +' (+2 Overloads) Keys, (+2 Overloads) NamedValues, (+3 Overloads) NameValueCollection, ParserDictionary, RemoveAndGet +' ReverseMaps, (+2 Overloads) Selects, SetOfKeyValuePairs, (+2 Overloads) Subset, tableInternal +' Takes, (+3 Overloads) ToDictionary, ToLower, ToUpper, Tsv +' Tuple, (+2 Overloads) Values, XMLModel +' +' Sub: SortByKey, SortByValue +' +' /********************************************************************************/ #End Region @@ -261,13 +261,20 @@ Public Module KeyValuePairExtensions ''' - Public Function Subset(Of T)(table As Dictionary(Of String, T), keys$()) As Dictionary(Of String, T) - Return keys _ - .Select(Function(key) - Return (key:=key, val:=table(key)) - End Function) _ - .ToDictionary(Function(o) o.key, - Function(o) o.val) + Public Function Subset(Of T)(table As Dictionary(Of String, T), keys$(), Optional ignoreMissing As Boolean = False) As Dictionary(Of String, T) + If ignoreMissing Then + Return keys _ + .Where(AddressOf table.ContainsKey) _ + .ToDictionary(Function(key) key, + Function(key) + Return table(key) + End Function) + Else + Return keys.ToDictionary(Function(key) key, + Function(key) + Return table(key) + End Function) + End If End Function @@ -357,7 +364,7 @@ Public Module KeyValuePairExtensions ''' Public Function IteratesAll(Of T As INamedValue)(source As IEnumerable(Of NamedCollection(Of T))) As T() - Return source.Select(Function(c) c.Value).IteratesALL.ToArray + Return source.Select(Function(c) c.value).IteratesALL.ToArray End Function ''' @@ -372,8 +379,8 @@ Public Module KeyValuePairExtensions .GroupBy(Function(o) o.Key) _ .Select(Function(g) Return New NamedCollection(Of T) With { - .Name = g.Key, - .Value = g.ToArray + .name = g.Key, + .value = g.ToArray } End Function) _ .ToArray From 84580efd4cbd6c86368c00117339472bd0e30c0e Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 30 Nov 2019 11:51:07 +0800 Subject: [PATCH 092/104] Update DynamicProperty.vb get item value --- ComponentModel/DataSource/Property/DynamicProperty.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ComponentModel/DataSource/Property/DynamicProperty.vb b/ComponentModel/DataSource/Property/DynamicProperty.vb index 84f5e35a..c2906807 100644 --- a/ComponentModel/DataSource/Property/DynamicProperty.vb +++ b/ComponentModel/DataSource/Property/DynamicProperty.vb @@ -135,6 +135,11 @@ Namespace ComponentModel.DataSourceModel Call propertyTable.Add(propertyName, value) End Sub + + Public Function GetItemValue(propertyName As String) As T + Return ItemValue(propertyName) + End Function + ''' ''' Determines whether the System.Collections.Generic.Dictionary`2 contains the specified ''' key. From 8776e1969aa8798a7ba13da83e7e8805629307e7 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sat, 30 Nov 2019 14:14:02 +0800 Subject: [PATCH 093/104] Update VisualBasic.vb --- .../SharedORM/Languages/VisualBasic.vb | 132 +++++++++++------- 1 file changed, 83 insertions(+), 49 deletions(-) diff --git a/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb b/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb index bfd634ee..fed518ae 100644 --- a/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb +++ b/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb @@ -1,54 +1,56 @@ #Region "Microsoft.VisualBasic::a0e120cd0724c822a82a40107e2e0093, Microsoft.VisualBasic.Core\CommandLine\InteropService\SharedORM\Languages\VisualBasic.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 . +' 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: +' Summaries: - ' Class VisualBasic - ' - ' Constructor: (+2 Overloads) Sub New - ' - ' Function: addXmlComments, createCliCalls, GetSourceCode, normAsVisualBasicName, optionalDefaultValue - ' vbParameters - ' - ' Sub: cliCallsInternal - ' - ' - ' /********************************************************************************/ +' Class VisualBasic +' +' Constructor: (+2 Overloads) Sub New +' +' Function: addXmlComments, createCliCalls, GetSourceCode, normAsVisualBasicName, optionalDefaultValue +' vbParameters +' +' Sub: cliCallsInternal +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports System.Text +Imports Microsoft.VisualBasic.CommandLine.Reflection Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language +Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.Scripting.SymbolBuilder.VBLanguage Imports Microsoft.VisualBasic.Text Imports Microsoft.VisualBasic.Text.Xml @@ -99,14 +101,19 @@ Namespace CommandLine.InteropService.SharedORM Call vb.AppendLine(" Sub New(App$)") Call vb.AppendLine($" MyBase.{NameOf(InteropService._executableAssembly)} = App$") Call vb.AppendLine(" End Sub") - Call vb.AppendLine() + Call vb.AppendLine(" +''' +''' Create an internal CLI pipeline invoker from a given environment path. +''' +''' A directory path that contains the target application +''' ") Call vb.AppendLine(" ") Call vb.AppendLine($" Public Shared Function FromEnvironment(directory As String) As {appName}") Call vb.AppendLine($" Return New {appName}(App:=directory & ""/"" & {appName}.App)") Call vb.AppendLine(" End Function") - For Each API In Me.EnumeratesAPI - Call cliCallsInternal(vb, API.CLI, incompatible:=Not InCompatibleAttribute.CLRProcessCompatible(API.API)) + For Each api As APITuple In Me.EnumeratesAPI + Call cliCallsInternal(vb, api, incompatible:=Not InCompatibleAttribute.CLRProcessCompatible(api.API)) Next Call vb.AppendLine("End Class") @@ -115,6 +122,11 @@ Namespace CommandLine.InteropService.SharedORM Return vb.ToString End Function + ''' + ''' + ''' + ''' + ''' Private Shared Function addXmlComments(description$) As String If description.StringEmpty Then description = "'''" @@ -136,10 +148,11 @@ Namespace CommandLine.InteropService.SharedORM ''' 生成一个命令行API的调用代码 ''' ''' - ''' + ''' ''' ''' - Private Sub cliCallsInternal(vb As StringBuilder, API As NamedValue(Of CommandLine), incompatible As Boolean) + Private Sub cliCallsInternal(vb As StringBuilder, cli As APITuple, incompatible As Boolean) + #Region "Code template" ' Public Function CommandName(args$,....Optional args$....) As Integer @@ -150,11 +163,19 @@ Namespace CommandLine.InteropService.SharedORM ' End Function #End Region + Dim api As NamedValue(Of CommandLine) = cli.CLI ' 直接使用函数原型的名字了，会比较容易辨别一些 - Dim func$ = API.Name + Dim func$ = api.Name ' Xml comment 已经是经过转义了的，所以不需要再做xml entity的转义了 - Dim xmlComments$ = addXmlComments(API.Description) + Dim xmlComments$ = addXmlComments(api.Description) Dim params$() + Dim usage As Argument() = cli.API _ + .GetCustomAttributes(True) _ + .Where(Function(a) + Return a.GetType Is GetType(Argument) + End Function) _ + .Select(Function(use) DirectCast(use, Argument)) _ + .ToArray Try If func.First <= "9" AndAlso func.First >= "0"c Then @@ -163,20 +184,20 @@ Namespace CommandLine.InteropService.SharedORM ' 不是以数字开头的，则尝试解决关键词的问题 func = KeywordProcessor.AutoEscapeVBKeyword(func) End If - params = vbParameters(API.Value) + params = vbParameters(api.Value) Catch ex As Exception - ex = New Exception("Check for your CLI Usage definition: " & API.Value.ToString, ex) + ex = New Exception("Check for your CLI Usage definition: " & api.Value.ToString, ex) Throw ex End Try Call vb.AppendLine(xmlComments) - + Call vb.AppendLine(usage.DoCall(AddressOf ArgumentXmlDocs).JoinBy(vbCrLf)) Call vb.AppendLine($"Public Function {func}({params.JoinBy(", ")}) As Integer") - Call vb.AppendLine($" Dim CLI As New StringBuilder(""{API.Value.Name}"")") + Call vb.AppendLine($" Dim CLI As New StringBuilder(""{api.Value.Name}"")") ' 插入命令名称和参数值之间的一个必须的空格 Call vb.AppendLine(" Call CLI.Append("" "")") - Call vb.AppendLine(createCliCalls(+API)) + Call vb.AppendLine(createCliCalls(+api)) Call vb.AppendLine() If incompatible Then @@ -191,6 +212,19 @@ Namespace CommandLine.InteropService.SharedORM Call vb.AppendLine("End Function") End Sub + Private Shared Function ArgumentXmlDocs(args As Argument()) As String() + Dim out As New List(Of String) + Dim param$ + + For Each arg As Argument In args + param = $"''' +{XmlEntity.EscapingXmlEntity(arg.Description).Replace("\n", vbCrLf).LineTokens.Select(Function(l) "''' " & l).JoinBy(vbCrLf)} +''' " + out += param + Next + + Return out + End Function ''' ''' 在这个函数之中会生成函数的参数列表 From e8301438c010d67fc0975d0955f3a43752ae6020 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 1 Dec 2019 10:03:51 +0800 Subject: [PATCH 094/104] removes getbasename --- Extensions/IO/Extensions/PathExtensions.vb | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/Extensions/IO/Extensions/PathExtensions.vb b/Extensions/IO/Extensions/PathExtensions.vb index e4ee6b16..2bb6ed4a 100644 --- a/Extensions/IO/Extensions/PathExtensions.vb +++ b/Extensions/IO/Extensions/PathExtensions.vb @@ -674,17 +674,6 @@ Public Module PathExtensions Return name End Function - ''' - ''' shortcuts extension. - ''' - ''' - ''' - ''' - - Public Function GetBaseName(path As String) As String - Return BaseName(path) - End Function - ''' ''' Gets the name of the file's parent directory, returns value is a name, not path. ''' (获取目标文件的父文件夹的文件夹名称，是名称而非路径) From a2a829b1657c5d495b079fd1d1ae6a1e4b874524 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 2 Dec 2019 20:33:26 +0800 Subject: [PATCH 095/104] improvements of the chart enumerator and fix the text encoding of the script --- CommandLine/CLI/IORedirectFile.vb | 79 ++++++++-------- Extensions/Collection/Linq/Enumeration.vb | 15 +++ Extensions/Collection/Linq/Linq.vb | 6 ++ .../Reflection/Marshal/Pointer(Of T).vb | 2 +- Text/Parser/CharEnumerator.vb | 92 +++++++++++-------- 5 files changed, 118 insertions(+), 76 deletions(-) diff --git a/CommandLine/CLI/IORedirectFile.vb b/CommandLine/CLI/IORedirectFile.vb index 753cd450..320b6dda 100644 --- a/CommandLine/CLI/IORedirectFile.vb +++ b/CommandLine/CLI/IORedirectFile.vb @@ -1,48 +1,48 @@ #Region "Microsoft.VisualBasic::c2622e56797782ff7ecee40e1c895766, Microsoft.VisualBasic.Core\CommandLine\CLI\IORedirectFile.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 . +' 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: +' Summaries: - ' Class IORedirectFile - ' - ' Properties: Bin, CLIArguments, StandardOutput - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: CopyRedirect, Run, (+2 Overloads) Start, ToString, writeScript - ' - ' Sub: __processExitHandle, (+2 Overloads) Dispose, Start - ' - ' - ' /********************************************************************************/ +' Class IORedirectFile +' +' Properties: Bin, CLIArguments, StandardOutput +' +' Constructor: (+1 Overloads) Sub New +' +' Function: CopyRedirect, Run, (+2 Overloads) Start, ToString, writeScript +' +' Sub: __processExitHandle, (+2 Overloads) Dispose, Start +' +' +' /********************************************************************************/ #End Region @@ -50,6 +50,7 @@ Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.ApplicationServices Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Parallel +Imports Microsoft.VisualBasic.Text Imports ValueTuple = System.Collections.Generic.KeyValuePair(Of String, String) Namespace CommandLine @@ -239,7 +240,7 @@ Namespace CommandLine Private Function writeScript() As String Dim ext$ = If(App.IsMicrosoftPlatform, ".bat", ".sh") Dim path$ = App.GetAppSysTempFile(ext, App.PID) - Call shellScript.SaveTo(path) + Call shellScript.SaveTo(path, Encodings.UTF8WithoutBOM.CodePage) Return path End Function diff --git a/Extensions/Collection/Linq/Enumeration.vb b/Extensions/Collection/Linq/Enumeration.vb index 54be0fa7..dae191fd 100644 --- a/Extensions/Collection/Linq/Enumeration.vb +++ b/Extensions/Collection/Linq/Enumeration.vb @@ -113,6 +113,21 @@ Namespace Linq Next End Function + ''' + ''' 将一个对象转换为一个对象的枚举序列 + ''' + ''' + ''' + ''' + ''' 使用这个拓展函数的原因是对象不能够产生对象的枚举序列用于Linq拓展函数 + ''' + + Public Iterator Function AsObjectEnumerator(Of T)(enums As Array) As IEnumerable(Of T) + For Each element As Object In enums + Yield DirectCast(element, T) + Next + End Function + ''' ''' Returns the input typed as . ''' diff --git a/Extensions/Collection/Linq/Linq.vb b/Extensions/Collection/Linq/Linq.vb index 6ce16099..c57de360 100644 --- a/Extensions/Collection/Linq/Linq.vb +++ b/Extensions/Collection/Linq/Linq.vb @@ -88,6 +88,12 @@ Namespace Linq Return New DataValue(Of T)(src) End Function + ''' + ''' DirectCast of the sequence into T() array. + ''' + ''' + ''' + ''' Public Function ToArray(Of T)(source As IEnumerable(Of Object)) As T() If source Is Nothing Then diff --git a/Extensions/Reflection/Marshal/Pointer(Of T).vb b/Extensions/Reflection/Marshal/Pointer(Of T).vb index 2efb159b..776cc100 100644 --- a/Extensions/Reflection/Marshal/Pointer(Of T).vb +++ b/Extensions/Reflection/Marshal/Pointer(Of T).vb @@ -212,7 +212,7 @@ Namespace Emit.Marshal ''' Public Function PeekNext() As T - Return Me(index + 1) + Return buffer(index + 1) End Function Public Overrides Function ToString() As String diff --git a/Text/Parser/CharEnumerator.vb b/Text/Parser/CharEnumerator.vb index 90be2638..04cfab10 100644 --- a/Text/Parser/CharEnumerator.vb +++ b/Text/Parser/CharEnumerator.vb @@ -1,55 +1,59 @@ #Region "Microsoft.VisualBasic::29dc38b29e66e73683051b92cbab9ae6, Microsoft.VisualBasic.Core\Text\Parser\CharEnumerator.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 . +' 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: +' Summaries: - ' Class CharPtr - ' - ' Properties: Remaining - ' - ' Constructor: (+1 Overloads) Sub New - ' Function: ToString - ' Operators: (+2 Overloads) Not - ' - ' - ' /********************************************************************************/ +' Class CharPtr +' +' Properties: Remaining +' +' Constructor: (+1 Overloads) Sub New +' Function: ToString +' Operators: (+2 Overloads) Not +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Emit.Marshal Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Language Namespace Text.Parser + ''' + ''' Char enumerator + ''' Public Class CharPtr : Inherits Pointer(Of Char) ''' @@ -68,6 +72,22 @@ Namespace Text.Parser Call MyBase.New(data.SafeQuery) End Sub + Public Overloads Function PeekNext(length As Integer) As String + Dim buf As New List(Of Char) + + For i As Integer = 0 To length - 1 + buf += Me(i) + Next + + Return buf.CharString + End Function + + Public Function PopNext(length As Integer) As String + Dim result As String = PeekNext(length) + index += length + Return result + End Function + ''' ''' 这个调试试图函数会将当前的读取位置给标记出来 ''' From 046a772d668c6525ed3991099a2248507f6c25fd Mon Sep 17 00:00:00 2001 From: xieguigang Date: Mon, 2 Dec 2019 22:00:05 +0800 Subject: [PATCH 096/104] set property value --- ComponentModel/DataSource/Property/DynamicProperty.vb | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/ComponentModel/DataSource/Property/DynamicProperty.vb b/ComponentModel/DataSource/Property/DynamicProperty.vb index c2906807..cae789fb 100644 --- a/ComponentModel/DataSource/Property/DynamicProperty.vb +++ b/ComponentModel/DataSource/Property/DynamicProperty.vb @@ -135,6 +135,14 @@ Namespace ComponentModel.DataSourceModel Call propertyTable.Add(propertyName, value) End Sub + Public Sub SetValue(propertyName$, value As T) + If propertyTable Is Nothing Then + propertyTable = New Dictionary(Of String, T) + End If + + propertyTable(propertyName) = value + End Sub + Public Function GetItemValue(propertyName As String) As T Return ItemValue(propertyName) From bd7648e18d1890165a8a3f02bcfa1e334ec670fb Mon Sep 17 00:00:00 2001 From: xieguigang Date: Tue, 3 Dec 2019 22:00:24 +0800 Subject: [PATCH 097/104] idynamics object --- .../DataSource/Property/DynamicProperty.vb | 24 +++++++++++++++++++ .../DataSource/Property/IProperty.vb | 13 ++++++++++ 2 files changed, 37 insertions(+) diff --git a/ComponentModel/DataSource/Property/DynamicProperty.vb b/ComponentModel/DataSource/Property/DynamicProperty.vb index cae789fb..b6df7a55 100644 --- a/ComponentModel/DataSource/Property/DynamicProperty.vb +++ b/ComponentModel/DataSource/Property/DynamicProperty.vb @@ -59,6 +59,7 @@ Namespace ComponentModel.DataSourceModel Public MustInherit Class DynamicPropertyBase(Of T) Implements IDynamicMeta(Of T) Implements IEnumerable(Of NamedValue(Of T)) + Implements IDynamicsObject ''' ''' The dynamics property object with specific type of value. @@ -148,6 +149,21 @@ Namespace ComponentModel.DataSourceModel Return ItemValue(propertyName) End Function + + Private Sub Add(propertyName As String, value As Object) Implements IDynamicsObject.Add + Call Add(propertyName, Conversion.CTypeDynamic(Of T)(value)) + End Sub + + + Private Sub SetValue(propertyName As String, value As Object) Implements IDynamicsObject.SetValue + Call SetValue(propertyName, Conversion.CTypeDynamic(Of T)(value)) + End Sub + + + Private Function IDynamicsObject_GetItemValue(propertyName As String) As Object Implements IDynamicsObject.GetItemValue + Return GetItemValue(propertyName) + End Function + ''' ''' Determines whether the System.Collections.Generic.Dictionary`2 contains the specified ''' key. @@ -165,6 +181,14 @@ Namespace ComponentModel.DataSourceModel End If End Function + ''' + ''' Get all keys in + ''' + ''' + Private Function GetNames() As IEnumerable(Of String) Implements IDynamicsObject.GetNames + Return Properties.Keys + End Function + ''' ''' 枚举这个动态字典类型之中的所有的键名，这个函数是默认不包含有类型自有的属性名称的 ''' diff --git a/ComponentModel/DataSource/Property/IProperty.vb b/ComponentModel/DataSource/Property/IProperty.vb index c63feb53..729f7528 100644 --- a/ComponentModel/DataSource/Property/IProperty.vb +++ b/ComponentModel/DataSource/Property/IProperty.vb @@ -67,6 +67,19 @@ Namespace ComponentModel.DataSourceModel Sub SetValue(target As Object, value As Object) End Interface + ''' + ''' Apply for R# object + ''' + Public Interface IDynamicsObject + + Sub Add(propertyName$, value As Object) + Sub SetValue(propertyName$, value As Object) + + Function GetNames() As IEnumerable(Of String) + Function GetItemValue(propertyName As String) As Object + + End Interface + ''' ''' Abstracts for the dynamics property. ''' From b1fb89b07ae7c830e7ddac2598900c1fdbc41ba2 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 5 Dec 2019 20:44:42 +0800 Subject: [PATCH 098/104] Update wget.vb --- Net/HTTP/wget.vb | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Net/HTTP/wget.vb b/Net/HTTP/wget.vb index c8cf1007..a6328f41 100644 --- a/Net/HTTP/wget.vb +++ b/Net/HTTP/wget.vb @@ -57,11 +57,19 @@ Namespace Net.Http Dim WithEvents task As wgetTask Dim cursorTop% + ''' + ''' Create a new file download task + ''' + ''' The remote resource to download. + ''' The file save location Sub New(url$, save$) task = New wgetTask(url, save) cursorTop = Console.CursorTop End Sub + ''' + ''' Run the file download task + ''' Public Sub Run() Call task.StartTask() From 7d8c315d2f2250949bce020b38bd3503f837410b Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 5 Dec 2019 21:08:39 +0800 Subject: [PATCH 099/104] Update Type.vb --- Scripting/MetaData/Type.vb | 116 +++++++++++++++++++++++-------------- 1 file changed, 74 insertions(+), 42 deletions(-) diff --git a/Scripting/MetaData/Type.vb b/Scripting/MetaData/Type.vb index 2619c1b8..40ad2864 100644 --- a/Scripting/MetaData/Type.vb +++ b/Scripting/MetaData/Type.vb @@ -1,56 +1,58 @@ #Region "Microsoft.VisualBasic::e5ae64f845b53aa6957e99cc714b1792, Microsoft.VisualBasic.Core\Scripting\MetaData\Type.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 . +' 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: +' Summaries: - ' Class TypeInfo - ' - ' Properties: assembly, fullName, isSystemKnownType - ' - ' Constructor: (+2 Overloads) Sub New - ' - ' Function: [GetType], LoadAssembly, ToString - ' - ' Sub: doInfoParser - ' - ' Operators: <>, = - ' - ' - ' /********************************************************************************/ +' Class TypeInfo +' +' Properties: assembly, fullName, isSystemKnownType +' +' Constructor: (+2 Overloads) Sub New +' +' Function: [GetType], LoadAssembly, ToString +' +' Sub: doInfoParser +' +' Operators: <>, = +' +' +' /********************************************************************************/ #End Region Imports System.Reflection Imports System.Xml.Serialization +Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Default +Imports Microsoft.VisualBasic.Linq Namespace Scripting.MetaData @@ -112,6 +114,24 @@ Namespace Scripting.MetaData Return assm End Function + ''' + ''' Loads the assembly file which contains this type. + ''' + ''' + Public Function LoadAssembly(searchPath As String()) As Assembly + Dim path As Value(Of String) = "" + Dim assm As Assembly = Nothing + + For Each directory As String In searchPath.SafeQuery.JoinIterates(App.HOME) + If (path = $"{directory}/{Me.assembly}").FileExists Then + assm = System.Reflection.Assembly.LoadFile(path) + Exit For + End If + Next + + Return assm + End Function + ''' ''' Get mapping type information. ''' @@ -124,7 +144,8 @@ Namespace Scripting.MetaData ''' Public Overloads Function [GetType](Optional knownFirst As Boolean = False, Optional throwEx As Boolean = True, - Optional ByRef getException As Exception = Nothing) As Type + Optional ByRef getException As Exception = Nothing, + Optional searchPath$() = Nothing) As Type Dim type As Type = Nothing Dim assm As Assembly @@ -139,7 +160,18 @@ Namespace Scripting.MetaData ' 错误一般出现在loadassembly阶段 ' 主要是文件未找到 Try - assm = LoadAssembly() + assm = searchPath.DoCall(AddressOf LoadAssembly) + + If assm Is Nothing Then + getException = New DllNotFoundException(Me.assembly) + + If throwEx Then + Throw getException + Else + Return Nothing + End If + End If + type = assm.GetType(Me.fullName) getException = Nothing Catch ex As Exception From a2e0222bcf096246f40636b08f6fb874e2cb2438 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Thu, 5 Dec 2019 21:21:53 +0800 Subject: [PATCH 100/104] fix for for create xml code comments --- .../InteropService/SharedORM/Languages/VisualBasic.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb b/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb index fed518ae..ce812f56 100644 --- a/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb +++ b/CommandLine/InteropService/SharedORM/Languages/VisualBasic.vb @@ -215,10 +215,16 @@ Namespace CommandLine.InteropService.SharedORM Private Shared Function ArgumentXmlDocs(args As Argument()) As String() Dim out As New List(Of String) Dim param$ + Dim comments$ For Each arg As Argument In args - param = $"''' -{XmlEntity.EscapingXmlEntity(arg.Description).Replace("\n", vbCrLf).LineTokens.Select(Function(l) "''' " & l).JoinBy(vbCrLf)} + comments = XmlEntity.EscapingXmlEntity(arg.Description) _ + .Replace("\n", vbCrLf) _ + .LineTokens _ + .Select(Function(l) "''' " & l) _ + .JoinBy(vbCrLf) _ + .Trim("'"c) + param = $"''' {comments} ''' " out += param Next From 53e8c818495cf88bf01e9d086e61e92668f5283a Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 6 Dec 2019 20:12:16 +0800 Subject: [PATCH 101/104] Update Project.vb --- ApplicationServices/VBDev/XmlDoc/Project.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ApplicationServices/VBDev/XmlDoc/Project.vb b/ApplicationServices/VBDev/XmlDoc/Project.vb index f27138fe..51c75e74 100644 --- a/ApplicationServices/VBDev/XmlDoc/Project.vb +++ b/ApplicationServices/VBDev/XmlDoc/Project.vb @@ -95,6 +95,11 @@ Namespace ApplicationServices.Development.XmlDoc.Assembly Return Nothing End Function + ''' + ''' 当目标对象没有xml注释的时候，这个函数返回的是空值 + ''' + ''' + ''' Public Overloads Function [GetType](fullName As String) As ProjectType Dim tokens = fullName.Split("."c) Dim typeName As String = tokens.Last From 1ef0ab82ad87d5f43e1ceef2c3306c1328a337c2 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 6 Dec 2019 20:16:02 +0800 Subject: [PATCH 102/104] fix bugs of the markdown console render --- 47-dotnet_Microsoft.VisualBasic.vbproj | 3 +- ApplicationServices/App.vb | 4 +- ApplicationServices/Debugger/DebuggerArgs.vb | 2 - .../{ => MarkdownRender}/MarkdownRender.vb | 186 ++++++------------ .../Terminal/MarkdownRender/Theme.vb | 91 +++++++++ .../Utility/ProgressBar/ProgressBar.vb | 5 + 6 files changed, 163 insertions(+), 128 deletions(-) rename ApplicationServices/Terminal/{ => MarkdownRender}/MarkdownRender.vb (62%) create mode 100644 ApplicationServices/Terminal/MarkdownRender/Theme.vb diff --git a/47-dotnet_Microsoft.VisualBasic.vbproj b/47-dotnet_Microsoft.VisualBasic.vbproj index 3b24eedd..3386f22e 100644 --- a/47-dotnet_Microsoft.VisualBasic.vbproj +++ b/47-dotnet_Microsoft.VisualBasic.vbproj @@ -1015,7 +1015,8 @@ - + + diff --git a/ApplicationServices/App.vb b/ApplicationServices/App.vb index 1b4f3997..6666c967 100644 --- a/ApplicationServices/App.vb +++ b/ApplicationServices/App.vb @@ -629,7 +629,7 @@ Public Module App ''' ''' ''' - + Public Sub FlushMemory() Call GC.Collect() Call GC.WaitForPendingFinalizers() @@ -671,7 +671,7 @@ Public Module App ''' ''' ''' - + Public Sub Pause(Optional prompted$ = "Press any key to continute...") Call My.InnerQueue.WaitQueue() Call Console.WriteLine(prompted) diff --git a/ApplicationServices/Debugger/DebuggerArgs.vb b/ApplicationServices/Debugger/DebuggerArgs.vb index a7d26b7b..a6a97e42 100644 --- a/ApplicationServices/Debugger/DebuggerArgs.vb +++ b/ApplicationServices/Debugger/DebuggerArgs.vb @@ -43,9 +43,7 @@ #End Region Imports System.Runtime.CompilerServices -Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel Imports Microsoft.VisualBasic.Language.UnixBash -Imports Microsoft.VisualBasic.Linq Imports Microsoft.VisualBasic.My.FrameworkInternal Imports CLI = Microsoft.VisualBasic.CommandLine.CommandLine diff --git a/ApplicationServices/Terminal/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb similarity index 62% rename from ApplicationServices/Terminal/MarkdownRender.vb rename to ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb index fff0fac0..6401404a 100644 --- a/ApplicationServices/Terminal/MarkdownRender.vb +++ b/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb @@ -1,73 +1,72 @@ #Region "Microsoft.VisualBasic::7d62185c9ec4469f9bbebbf4abff8481, Microsoft.VisualBasic.Core\ApplicationServices\Terminal\MarkdownRender.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 . +' 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: +' Summaries: - ' Class MarkdownRender - ' - ' Constructor: (+1 Overloads) Sub New - ' - ' Function: bufferAllIs, bufferIs - ' - ' Sub: DoParseSpans, DoPrint, EndSpan, Print, PrintSpans - ' restoreStyle, WalkChar - ' - ' Class MarkdownTheme - ' - ' Properties: [Global], BlockQuote, Bold, CodeBlock, InlineCodeSpan - ' Url - ' - ' Class ConsoleFontStyle - ' - ' Properties: BackgroundColor, ForeColor - ' - ' Function: Clone, CreateSpan, Equals - ' - ' Sub: SetConfig - ' - ' Class Span - ' - ' Properties: IsEndByNewLine, style, text - ' - ' Sub: Print - ' - ' - ' /********************************************************************************/ +' Class MarkdownRender +' +' Constructor: (+1 Overloads) Sub New +' +' Function: bufferAllIs, bufferIs +' +' Sub: DoParseSpans, DoPrint, EndSpan, Print, PrintSpans +' restoreStyle, WalkChar +' +' Class MarkdownTheme +' +' Properties: [Global], BlockQuote, Bold, CodeBlock, InlineCodeSpan +' Url +' +' Class ConsoleFontStyle +' +' Properties: BackgroundColor, ForeColor +' +' Function: Clone, CreateSpan, Equals +' +' Sub: SetConfig +' +' Class Span +' +' Properties: IsEndByNewLine, style, text +' +' Sub: Print +' +' +' /********************************************************************************/ #End Region Imports System.Runtime.CompilerServices Imports Microsoft.VisualBasic.Language Imports Microsoft.VisualBasic.Language.Default -Imports Microsoft.VisualBasic.Serialization Imports Microsoft.VisualBasic.Text Imports Microsoft.VisualBasic.Text.Parser @@ -114,6 +113,10 @@ Namespace ApplicationServices.Terminal Do While Not markdown.EndRead Call WalkChar(++markdown) Loop + + If textBuf > 0 Then + Call EndSpan(False) + End If End Sub Dim boldSpan As Boolean = False @@ -264,73 +267,10 @@ Namespace ApplicationServices.Terminal Public Shared Sub Print(markdown As String, Optional theme As MarkdownTheme = Nothing, Optional indent% = 0) Call New MarkdownRender(theme Or defaultTheme).DoPrint(markdown, indent) End Sub - End Class - - Public Class MarkdownTheme - - Public Property Url As ConsoleFontStyle - Public Property InlineCodeSpan As ConsoleFontStyle - Public Property CodeBlock As ConsoleFontStyle - Public Property BlockQuote As ConsoleFontStyle - Public Property [Global] As ConsoleFontStyle - Public Property Bold As ConsoleFontStyle - - End Class - - Public Class ConsoleFontStyle - Implements IEquatable(Of ConsoleFontStyle) - Implements ICloneable(Of ConsoleFontStyle) - - Public Property ForeColor As ConsoleColor = ConsoleColor.White - Public Property BackgroundColor As ConsoleColor = ConsoleColor.Black - - Public Sub SetConfig(render As MarkdownRender) - Console.ForegroundColor = ForeColor - Console.BackgroundColor = BackgroundColor - - render.currentStyle = Me - render.styleStack.Push(Me) - End Sub - - Public Function CreateSpan(text As String) As Span - Return New Span With { - .style = Me, - .text = text - } - End Function - - Public Function Clone() As ConsoleFontStyle Implements ICloneable(Of ConsoleFontStyle).Clone - Return New ConsoleFontStyle With { - .BackgroundColor = BackgroundColor, - .ForeColor = ForeColor - } - End Function - - Public Overloads Function Equals(other As ConsoleFontStyle) As Boolean Implements IEquatable(Of ConsoleFontStyle).Equals - If other Is Nothing Then - Return False - Else - Return BackgroundColor = other.BackgroundColor AndAlso ForeColor = other.ForeColor - End If - End Function - - Public Shared Widening Operator CType(colors As (fore As ConsoleColor, back As ConsoleColor)) As ConsoleFontStyle - Return New ConsoleFontStyle With { - .ForeColor = colors.fore, - .BackgroundColor = colors.back - } - End Operator - End Class - - Public Class Span - - Public Property text As String - Public Property style As ConsoleFontStyle - Public Property IsEndByNewLine As Boolean - Public Sub Print() - Call My.Log4VB.Print(Me) - End Sub + Public Shared Function DefaultStyleRender() As MarkdownRender + Return New MarkdownRender(defaultTheme) + End Function End Class End Namespace diff --git a/ApplicationServices/Terminal/MarkdownRender/Theme.vb b/ApplicationServices/Terminal/MarkdownRender/Theme.vb new file mode 100644 index 00000000..965da034 --- /dev/null +++ b/ApplicationServices/Terminal/MarkdownRender/Theme.vb @@ -0,0 +1,91 @@ +Imports System.Runtime.CompilerServices +Imports Microsoft.VisualBasic.Imaging +Imports Microsoft.VisualBasic.Linq +Imports Microsoft.VisualBasic.Serialization + +Namespace ApplicationServices.Terminal + + Public Class MarkdownTheme + + Public Property Url As ConsoleFontStyle + Public Property InlineCodeSpan As ConsoleFontStyle + Public Property CodeBlock As ConsoleFontStyle + Public Property BlockQuote As ConsoleFontStyle + Public Property [Global] As ConsoleFontStyle + Public Property Bold As ConsoleFontStyle + + End Class + + Public Class ConsoleFontStyle + Implements IEquatable(Of ConsoleFontStyle) + Implements ICloneable(Of ConsoleFontStyle) + + Public Property ForeColor As ConsoleColor = ConsoleColor.White + Public Property BackgroundColor As ConsoleColor = ConsoleColor.Black + + Public Sub SetConfig(render As MarkdownRender) + Console.ForegroundColor = ForeColor + Console.BackgroundColor = BackgroundColor + + render.currentStyle = Me + render.styleStack.Push(Me) + End Sub + + Public Function CreateSpan(text As String) As Span + Return New Span With { + .style = Me, + .text = text + } + End Function + + Public Function Clone() As ConsoleFontStyle Implements ICloneable(Of ConsoleFontStyle).Clone + Return New ConsoleFontStyle With { + .BackgroundColor = BackgroundColor, + .ForeColor = ForeColor + } + End Function + + Public Overloads Function Equals(other As ConsoleFontStyle) As Boolean Implements IEquatable(Of ConsoleFontStyle).Equals + If other Is Nothing Then + Return False + Else + Return BackgroundColor = other.BackgroundColor AndAlso ForeColor = other.ForeColor + End If + End Function + + Public Shared Widening Operator CType(colors As (fore As ConsoleColor, back As ConsoleColor)) As ConsoleFontStyle + Return New ConsoleFontStyle With { + .ForeColor = colors.fore, + .BackgroundColor = colors.back + } + End Operator + + Public Shared Function HtmlColorCode(color As ConsoleColor) As String + Return Drawing.Color.FromName(color.ToString).ToHtmlColor + End Function + End Class + + Public Class Span + + Public Property text As String + Public Property style As ConsoleFontStyle + Public Property IsEndByNewLine As Boolean + + + Public Sub Print() + Call My.Log4VB.Print(Me) + End Sub + + Public Overrides Function ToString() As String + Dim text$ = Me.text + + If text.StringEmpty Then + text = "" + Else + text = $"""{text}""" + End If + + Return style.ForeColor.DoCall(AddressOf ConsoleFontStyle.HtmlColorCode) & " " & text + End Function + End Class +End Namespace \ No newline at end of file diff --git a/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb index 1fc666ee..35a11fc3 100644 --- a/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb +++ b/ApplicationServices/Terminal/Utility/ProgressBar/ProgressBar.vb @@ -186,6 +186,11 @@ Namespace Terminal.ProgressBar Shared Sub New() disabled = App.GetVariable(TerminalProgressBarEnvironmentConfigName).TextEquals(NameOf(disabled)) + + ' The progress bar is also be disable in internal pipeline mode + If App.GetVariable(name:=FlagInternalPipeline).ParseBoolean = True Then + disabled = True + End If End Sub ''' From 5c2887bf8e40d0f55fbfbee85e7924eaebcdb219 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Fri, 6 Dec 2019 23:50:06 +0800 Subject: [PATCH 103/104] Update MarkdownRender.vb --- .../Terminal/MarkdownRender/MarkdownRender.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb index 6401404a..5fffc93d 100644 --- a/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb +++ b/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb @@ -131,6 +131,17 @@ Namespace ApplicationServices.Terminal Dim spans As New List(Of Span) + Public Sub Reset() + blockquote = False + boldSpan = False + inlineCodespan = False + lastNewLine = False + controlBuf *= 0 + textBuf *= 0 + styleStack.Clear() + spans *= 0 + End Sub + Private Function bufferIs(term As String) As Boolean If controlBuf <> term.Length Then Return False From 0d1094233646c3e68cdb810522a7fe52d6541450 Mon Sep 17 00:00:00 2001 From: xieguigang Date: Sun, 8 Dec 2019 13:43:39 +0800 Subject: [PATCH 104/104] unsure for the parser bugs --- .../Terminal/MarkdownRender/MarkdownRender.vb | 5 ++++- ApplicationServices/Terminal/MarkdownRender/Theme.vb | 1 + 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb b/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb index 5fffc93d..2435552e 100644 --- a/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb +++ b/ApplicationServices/Terminal/MarkdownRender/MarkdownRender.vb @@ -90,7 +90,8 @@ Namespace ApplicationServices.Terminal .CodeBlock = (ConsoleColor.Red, ConsoleColor.Yellow), .InlineCodeSpan = (ConsoleColor.Red, ConsoleColor.Black), .Url = (ConsoleColor.Blue, ConsoleColor.Black), - .Bold = (ConsoleColor.Yellow, ConsoleColor.Black) + .Bold = (ConsoleColor.Black, ConsoleColor.Yellow), + .Italy = (ConsoleColor.Yellow, ConsoleColor.DarkGray) } Dim theme As MarkdownTheme @@ -122,6 +123,7 @@ Namespace ApplicationServices.Terminal Dim boldSpan As Boolean = False Dim inlineCodespan As Boolean = False Dim blockquote As Boolean = False + Dim italySpan As Boolean = False Dim lastNewLine As Boolean Dim controlBuf As New List(Of Char) Dim textBuf As New List(Of Char) @@ -136,6 +138,7 @@ Namespace ApplicationServices.Terminal boldSpan = False inlineCodespan = False lastNewLine = False + italySpan = False controlBuf *= 0 textBuf *= 0 styleStack.Clear() diff --git a/ApplicationServices/Terminal/MarkdownRender/Theme.vb b/ApplicationServices/Terminal/MarkdownRender/Theme.vb index 965da034..341bcb5a 100644 --- a/ApplicationServices/Terminal/MarkdownRender/Theme.vb +++ b/ApplicationServices/Terminal/MarkdownRender/Theme.vb @@ -13,6 +13,7 @@ Namespace ApplicationServices.Terminal Public Property BlockQuote As ConsoleFontStyle Public Property [Global] As ConsoleFontStyle Public Property Bold As ConsoleFontStyle + Public Property Italy As ConsoleFontStyle End Class