wandyine
/
Darwinism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix of object reference errors

Browse Source
master
xieguigang 6 years ago
parent 12358e8539
commit c3616b2fe6
7 changed files with 236 additions and 236 deletions
Show Stats Download Patch File Download Diff File

4
ComputingServices/ComputingServices.vbproj
Unescape View File

@ -409,6 +409,10 @@
<Project>{fecce1fd-e1d4-49e3-a668-60bb5e7aed99}</Project>
<Name>47-dotnet_Microsoft.VisualBasic</Name>
</ProjectReference>
<ProjectReference Include="..\..\sciBASIC#\www\Microsoft.VisualBasic.NETProtocol\Microsoft.VisualBasic.Network.vbproj">
<Project>{a60240d1-e78b-4b96-85e3-45256571c2cb}</Project>
<Name>Microsoft.VisualBasic.Network</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.

98
ComputingServices/Linq/ILinq(Of T).vb
Unescape View File

@ -1,59 +1,59 @@
#Region "Microsoft.VisualBasic::09b5ce9e3f22ac012836f59301421f48, ComputingServices\Taskhost.d\Linq\ILinq(Of T).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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class ILinqReader
'
' Properties: Portal, Type
'
' Constructor: (+1 Overloads) Sub New
'
' Function: AsQuerable, Moves
'
' Sub: __free, (+2 Overloads) Dispose
'
' Class ILinq
'
' Constructor: (+1 Overloads) Sub New
' Function: AsQuerable, IEnumerable_GetEnumerator, Moves, ToString
'
'
' /********************************************************************************/
' 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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class ILinqReader
'
' Properties: Portal, Type
'
' Constructor: (+1 Overloads) Sub New
'
' Function: AsQuerable, Moves
'
' Sub: __free, (+2 Overloads) Dispose
'
' Class ILinq
'
' Constructor: (+1 Overloads) Sub New
' Function: AsQuerable, IEnumerable_GetEnumerator, Moves, ToString
'
'
' /********************************************************************************/
#End Region
Imports Microsoft.VisualBasic.Net
Imports Microsoft.VisualBasic.Net.Protocols
Imports Microsoft.VisualBasic.Net.Tcp
Imports Microsoft.VisualBasic.Parallel
Imports Microsoft.VisualBasic.Serialization.JSON
Namespace TaskHost

88
ComputingServices/Linq/LinqProvider.vb
Unescape View File

@ -1,57 +1,57 @@
#Region "Microsoft.VisualBasic::95496139167a3b11530bef7278fc680a, ComputingServices\Taskhost.d\Linq\LinqProvider.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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class LinqProvider
'
' Properties: BaseType, IsOpen, Portal
'
' Constructor: (+1 Overloads) Sub New
'
' Function: __moveNext, __reset, CreateObject, GetReturns, Moves
'
' Sub: (+2 Overloads) Dispose
'
'
' /********************************************************************************/
' 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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class LinqProvider
'
' Properties: BaseType, IsOpen, Portal
'
' Constructor: (+1 Overloads) Sub New
'
' Function: __moveNext, __reset, CreateObject, GetReturns, Moves
'
' Sub: (+2 Overloads) Dispose
'
'
' /********************************************************************************/
#End Region
Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel
Imports Microsoft.VisualBasic.Net
Imports Microsoft.VisualBasic.Net.Http
Imports Microsoft.VisualBasic.Net.Protocols
Imports Microsoft.VisualBasic.Net.Protocols.Reflection
Imports Microsoft.VisualBasic.Net.Tcp
Imports Microsoft.VisualBasic.Parallel
Imports Microsoft.VisualBasic.Scripting.InputHandler
Imports Microsoft.VisualBasic.Serialization.JSON

2
ComputingServices/Taskhost.d/Extensions.vb
Unescape View File

@ -69,7 +69,7 @@ Namespace TaskHost
_local = value
If _local Then
_IPAddress = TcpRequest.LocalIPAddress
_IPAddress = LocalIPAddress
Else
_IPAddress = GetMyIPAddress()
End If

85
ComputingServices/Taskhost.d/Invoke/TaskHost.vb
Unescape View File

@ -1,45 +1,45 @@
#Region "Microsoft.VisualBasic::3a52ca73af59bd4e745e131d24cdd22a, ComputingServices\Taskhost.d\Invoke\TaskHost.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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class TaskRemote
'
' Properties: FileSystem, Key, Load
'
' Constructor: (+2 Overloads) Sub New
' Function: [Select], AsLinq, (+3 Overloads) Invoke, Shell
'
'
' /********************************************************************************/
' 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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class TaskRemote
'
' Properties: FileSystem, Key, Load
'
' Constructor: (+2 Overloads) Sub New
' Function: [Select], AsLinq, (+3 Overloads) Invoke, Shell
'
'
' /********************************************************************************/
#End Region
@ -48,6 +48,7 @@ Imports Microsoft.VisualBasic.Net
Imports Microsoft.VisualBasic.Net.Http
Imports Microsoft.VisualBasic.Net.Protocols
Imports Microsoft.VisualBasic.Net.Tcp
Imports Microsoft.VisualBasic.Parallel
Imports Microsoft.VisualBasic.Serialization.JSON
Namespace TaskHost
@ -63,10 +64,10 @@ Namespace TaskHost
Private Property Key As String Implements INamedValue.Key
Get
Return _remote.IPAddress
Return _remote.ipAddress
End Get
Set(value As String)
_remote.IPAddress = value
_remote.ipAddress = value
End Set
End Property

91
ComputingServices/Taskhost.d/Invoke/TaskInvoke.vb
Unescape View File

@ -1,59 +1,58 @@
#Region "Microsoft.VisualBasic::a5c8a6ad26052cb2bd9928f1eb09ff41, ComputingServices\Taskhost.d\Invoke\TaskInvoke.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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class TaskInvoke
'
' Properties: FileSystem, LinqProvider, Portal
'
' Constructor: (+1 Overloads) Sub New
'
' Function: __invoke, Free, GetNodeLoad, Handshake, (+2 Overloads) Invoke
' InvokeLinq, LinqSelect, Run, TryInvoke
'
' Sub: (+2 Overloads) Dispose
'
'
' /********************************************************************************/
' 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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class TaskInvoke
'
' Properties: FileSystem, LinqProvider, Portal
'
' Constructor: (+1 Overloads) Sub New
'
' Function: __invoke, Free, GetNodeLoad, Handshake, (+2 Overloads) Invoke
' InvokeLinq, LinqSelect, Run, TryInvoke
'
' Sub: (+2 Overloads) Dispose
'
'
' /********************************************************************************/
#End Region
Imports System.Reflection
Imports Microsoft.VisualBasic.Linq
Imports Microsoft.VisualBasic.Net
Imports Microsoft.VisualBasic.Net.Http
Imports Microsoft.VisualBasic.Net.Protocols
Imports Microsoft.VisualBasic.Net.Protocols.Reflection
Imports Microsoft.VisualBasic.Net.Tcp
Imports Microsoft.VisualBasic.Parallel
Imports Microsoft.VisualBasic.Serialization.JSON
Imports Microsoft.VisualBasic.Win32

104
ComputingServices/Taskhost.d/Protocols.vb
Unescape View File

@ -1,64 +1,60 @@
#Region "Microsoft.VisualBasic::fa83edfe7f64a5afde0ec295eb81ae44, ComputingServices\Taskhost.d\Protocols.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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Module Protocols
'
'
' Enum TaskProtocols
'
' [Select], Handshake, InvokeLinq, MoveNext, NodeLoad
' RemoteFileSystem, Reset
'
'
'
'
'
' Properties: ProtocolEntry
'
' Function: GetPortal, LinqReset, Shell
'
'
' /********************************************************************************/
' 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 <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Module Protocols
'
'
' Enum TaskProtocols
'
' [Select], Handshake, InvokeLinq, MoveNext, NodeLoad
' RemoteFileSystem, Reset
'
'
'
'
'
' Properties: ProtocolEntry
'
' Function: GetPortal, LinqReset, Shell
'
'
' /********************************************************************************/
#End Region
Imports System.Runtime.CompilerServices
Imports Microsoft.VisualBasic.CommandLine
Imports Microsoft.VisualBasic.Net
Imports Microsoft.VisualBasic.Net.Abstract
Imports Microsoft.VisualBasic.Net.Protocols
Imports Microsoft.VisualBasic.Net.Protocols.Reflection
Imports Microsoft.VisualBasic.Net.Tcp
Imports Microsoft.VisualBasic.Parallel
Namespace TaskHost

Write Preview
Loading…
Cancel
Save