From a6bc68b4f2fb39a7ce560e4471e2bf766240c13a Mon Sep 17 00:00:00 2001
From: xieguigang <xie.guigang@gcmodeller.org>
Date: Sat, 19 Jun 2021 14:08:16 +0800
Subject: [PATCH] bugs fixed for parse parameters

---
 LINQ/Drivers/NetCDF/NetCDF.vbproj                | 6 ++++--
 LINQ/LINQ/Interpreter/Script/SyntaxImplements.vb | 9 ++++++++-
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/LINQ/Drivers/NetCDF/NetCDF.vbproj b/LINQ/Drivers/NetCDF/NetCDF.vbproj
index 2acccef..c27056d 100644
--- a/LINQ/Drivers/NetCDF/NetCDF.vbproj
+++ b/LINQ/Drivers/NetCDF/NetCDF.vbproj
@@ -75,10 +75,12 @@
     <DefineTrace>true</DefineTrace>
     <OutputPath>..\..\..\build\Drivers\</OutputPath>
     <DocumentationFile>NetCDF.xml</DocumentationFile>
-    <Optimize>true</Optimize>
+    <Optimize>false</Optimize>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-    <DebugType>pdbonly</DebugType>
+    <DebugType>full</DebugType>
     <PlatformTarget>x64</PlatformTarget>
+    <RemoveIntegerChecks>true</RemoveIntegerChecks>
+    <DebugSymbols>true</DebugSymbols>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
diff --git a/LINQ/LINQ/Interpreter/Script/SyntaxImplements.vb b/LINQ/LINQ/Interpreter/Script/SyntaxImplements.vb
index e8e7cc2..c6ff7ea 100644
--- a/LINQ/LINQ/Interpreter/Script/SyntaxImplements.vb
+++ b/LINQ/LINQ/Interpreter/Script/SyntaxImplements.vb
@@ -236,7 +236,14 @@ Namespace Script
                         tokenList = tokenList.Take(tokenList.Length - 1).ToArray
 
                         Dim values As Token()() = tokenList _
-                            .SplitByTopLevelStack _
+                            .SplitParameters _
+                            .Select(Function(block)
+                                        If block(Scan0).name = Tokens.Comma Then
+                                            Return block.Skip(1).ToArray
+                                        Else
+                                            Return block
+                                        End If
+                                    End Function) _
                             .ToArray
 
                         arguments = values _