From ecc5e357073de78bdbf9be10ae1b03466a141eb9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E8=AC=9D=E6=A1=82=E7=B6=B1?= Date: Fri, 4 Mar 2016 15:10:43 +0800 Subject: [PATCH] url decodes problems --- .../ComputingServices/Taskhost.d/Linq/LinqPool.vb | 2 +- LINQ/TestMain/Module1.vb | 2 +- RQL/Repository/Repository.vb | 7 +++++++ 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb b/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb index 04982bf..3e6d735 100644 --- a/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb +++ b/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb @@ -40,7 +40,7 @@ Namespace TaskHost ''' ''' Public Function OpenQuery(source As IEnumerable, type As Type) As IPEndPoint - Dim elType As Type = type.GetArrayElement(True) + Dim elType As Type = type.GetTypeElement(True) If elType Is Nothing Then elType = type End If diff --git a/LINQ/TestMain/Module1.vb b/LINQ/TestMain/Module1.vb index e586b51..fed15fd 100644 --- a/LINQ/TestMain/Module1.vb +++ b/LINQ/TestMain/Module1.vb @@ -58,7 +58,7 @@ Module Module1 MsgBox("test2") - Dim lquerrrr = (From i As Integer In 1000000.SeqIterator.AsParallel Select "http://127.0.0.1/test123.vb".GetRequest).ToArray + Dim lquerrrr = (From i As Integer In 1000000.SeqIterator.AsParallel Select "http://127.0.0.1/test123.vb".GetRequest.__DEBUG_ECHO).ToArray MsgBox("DONE!") For i As Integer = 0 To 100000 Call Trace.WriteLine("http://127.0.0.1/test123.vb".GET) diff --git a/RQL/Repository/Repository.vb b/RQL/Repository/Repository.vb index fb58626..959604b 100644 --- a/RQL/Repository/Repository.vb +++ b/RQL/Repository/Repository.vb @@ -27,6 +27,13 @@ Namespace Linq Sub New() __api = APIProvider.LoadDefault __types = TypeRegistry.LoadDefault + __compiler = New DynamicCompiler(__types, __api) + End Sub + + Sub New(compiler As DynamicCompiler) + __compiler = compiler + __api = compiler.ApiProvider + __types = compiler.EntityProvider End Sub Public Sub AddLinq(url As String, resource As String, Linq As GetLinqResource)