Update VBA-JSON to v2.0.1

Author: timhall

src/WebHelpers.bas

@@ -221,6 +221,23 @@ Private Declare Sub json_CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
     (json_MemoryDestination As Any, json_MemorySource As Any, ByVal json_ByteLength As Long)
 
 #End If
+
+Private Type json_Options
+    ' VBA only stores 15 significant digits, so any numbers larger than that are truncated
+    ' This can lead to issues when BIGINT's are used (e.g. for Ids or Credit Cards), as they will be invalid above 15 digits
+    ' See: http://support.microsoft.com/kb/269370
+    '
+    ' By default, VBA-JSON will use String for numbers longer than 15 characters that contain only digits
+    ' to override set `JsonConverter.JsonOptions.UseDoubleForLargeNumbers = True`
+    UseDoubleForLargeNumbers As Boolean
+
+    ' The JSON standard requires object keys to be quoted (" or '), use this option to allow unquoted keys
+    AllowUnquotedKeys As Boolean
+
+    ' The solidus (/) is not required to be escaped, use this option to escape them as \/ in ConvertToJson
+    EscapeSolidus As Boolean
+End Type
+Public JsonOptions As json_Options
 ' === End VBA-JSON
 
 #If Mac Then
@@ -1767,7 +1784,7 @@ Private Function web_GetUrlEncodedKeyValue(Key As Variant, Value As Variant) As
 End Function
 
 ''
-' VBA-JSON v2.0.0
+' VBA-JSON v2.0.1
 ' (c) Tim Hall - https://github.com/VBA-tools/VBA-JSON
 '
 ' JSON Converter for VBA
@@ -1813,23 +1830,6 @@ End Function
 
 ' (Declarations moved to top)
 
-Private Type json_Options
-    ' VBA only stores 15 significant digits, so any numbers larger than that are truncated
-    ' This can lead to issues when BIGINT's are used (e.g. for Ids or Credit Cards), as they will be invalid above 15 digits
-    ' See: http://support.microsoft.com/kb/269370
-    '
-    ' By default, VBA-JSON will use String for numbers longer than 15 characters that contain only digits
-    ' to override set `JsonConverter.JsonOptions.UseDoubleForLargeNumbers = True`
-    UseDoubleForLargeNumbers As Boolean
-
-    ' The JSON standard requires object keys to be quoted (" or '), use this option to allow unquoted keys
-    AllowUnquotedKeys As Boolean
-
-    ' The solidus (/) is not required to be escaped, use this option to escape them as \/ in ConvertToJson
-    EscapeSolidus As Boolean
-End Type
-Public JsonOptions As json_Options
-
 ' ============================================= '
 ' Public Methods
 ' ============================================= '
@@ -1901,7 +1901,7 @@ Public Function ConvertToJson(ByVal json_DictionaryCollectionOrArray As Variant)
         ConvertToJson = """" & json_DateStr & """"
     Case VBA.vbString
         ' String (or large number encoded as string)
-        If Not JsonConverter.JsonOptions.UseDoubleForLargeNumbers And json_StringIsLargeNumber(json_DictionaryCollectionOrArray) Then
+        If Not JsonOptions.UseDoubleForLargeNumbers And json_StringIsLargeNumber(json_DictionaryCollectionOrArray) Then
             ConvertToJson = json_DictionaryCollectionOrArray
         Else
             ConvertToJson = """" & json_Encode(json_DictionaryCollectionOrArray) & """"
@@ -2172,7 +2172,7 @@ Private Function json_ParseNumber(json_String As String, ByRef json_Index As Lon
             ' See: http://support.microsoft.com/kb/269370
             '
             ' Fix: Parse -> String, Convert -> String longer than 15 characters containing only numbers and decimal points -> Number
-            If Not JsonConverter.JsonOptions.UseDoubleForLargeNumbers And Len(json_Value) >= 16 Then
+            If Not JsonOptions.UseDoubleForLargeNumbers And Len(json_Value) >= 16 Then
                 json_ParseNumber = json_Value
             Else
                 ' VBA.Val does not use regional settings, so guard for comma is not needed
@@ -2187,7 +2187,7 @@ Private Function json_ParseKey(json_String As String, ByRef json_Index As Long)
     ' Parse key with single or double quotes
     If VBA.Mid$(json_String, json_Index, 1) = """" Or VBA.Mid$(json_String, json_Index, 1) = "'" Then
         json_ParseKey = json_ParseString(json_String, json_Index)
-    ElseIf JsonConverter.JsonOptions.AllowUnquotedKeys Then
+    ElseIf JsonOptions.AllowUnquotedKeys Then
         Dim json_Char As String
         Do While json_Index > 0 And json_Index <= Len(json_String)
             json_Char = VBA.Mid$(json_String, json_Index, 1)
@@ -2243,7 +2243,7 @@ Private Function json_Encode(ByVal json_Text As Variant) As String
             json_Char = "\\"
         Case 47
             ' / -> 47 -> \/ (optional)
-            If JsonConverter.JsonOptions.EscapeSolidus Then
+            If JsonOptions.EscapeSolidus Then
                 json_Char = "\/"
             End If
         Case 8