From c0aab0feadd1ede2cc2d900811f0678f8901de6a Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 13 Oct 2023 22:41:28 +0200
Subject: global-functions: $ParseJson: properly handle array

---
 global-functions.rsc | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'global-functions.rsc')

diff --git a/global-functions.rsc b/global-functions.rsc
index 8dc8c02..8d06cb1 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -723,6 +723,19 @@
         :set Skip 2;
         :set Done true;
       }
+      :if ($Done = false && $Val1 = ":[") do={
+        :local Tmp "";
+        :local End;
+        :set Skip 1;
+        :do {
+          :set Skip ($Skip + 1);
+          :local ValX ($Input->($I + $Skip));
+          :set End [ :pick $ValX ([ :len $ValX ] - 1) ];
+          :set Tmp ($Tmp . "},{" . $ValX);
+        } while=($End != "]");
+        :set ($Return->$Key) ("{" . [ :pick $Tmp 0 ([ :len $Tmp ] - 1) ] . "}");
+        :set Done true;
+      }
       :if ($Done = false) do={
         :set ($Return->$Key) [ :pick $Val1 1 [ :len $Val1 ] ];
         :set Skip 1;
-- 
cgit v1.2.3-54-g00ecf