From 7d823067d0ae9f747c7229c2cb45eeab1905b069 Mon Sep 17 00:00:00 2001
From: Bernat Romagosa <bromagosa@e-citilab.eu>
Date: Mon, 2 Jul 2018 11:28:19 +0200
Subject: [PATCH] added JSON library

---
 libraries/LIBRARIES | 1 +
 libraries/json.xml  | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 libraries/json.xml

diff --git a/libraries/LIBRARIES b/libraries/LIBRARIES
index bc922679..7822eaf1 100644
--- a/libraries/LIBRARIES
+++ b/libraries/LIBRARIES
@@ -19,3 +19,4 @@ pixel_module.xml	Pixels	manipulate costumes pixel-wise.
 audioComp_module.xml	Audio Comp	analyze, manipulate and generate sound samples.
 atomic_HOFs_module.xml	"Bigger" Data	[EXPERIMENTAL] crunch large lists very fast
 make-variables.xml	create variables in program	declare global or sprite-local variables in a script
+json.xml	Deal with JSON data	Turn JSON strings into lists with the listify block, then retrieve data out of them by using the value at key block.
diff --git a/libraries/json.xml b/libraries/json.xml
new file mode 100644
index 00000000..1b37cc27
--- /dev/null
+++ b/libraries/json.xml
@@ -0,0 +1 @@
+<blocks app="Snap! 4.1, http://snap.berkeley.edu" version="1"><block-definition s="listify %&apos;jsonString&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doReport"><block s="evaluate"><block s="reportJSFunction"><list><l>jsonString</l></list><l>return listify(JSON.parse(jsonString));&#xD;&#xD;function listify(jsonObject) {&#xD;  if (jsonObject instanceof Array) {&#xD;    return new List(jsonObject.map(function(eachElement) { return listify(eachElement)}));&#xD;  } else if (jsonObject instanceof Object) {&#xD;    return new List(Object.keys(jsonObject).map(function(eachKey) { return new List([eachKey,listify(jsonObject[eachKey])])} ))&#xD;  } else {&#xD;    return jsonObject&#xD;  }&#xD;}</l></block><list><block var="jsonString"/></list></block></block></script></block-definition><block-definition s="value at key %&apos;key&apos; of %&apos;lst&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s"></input><input type="%l"></input></inputs><script><block s="doWarp"><script><block s="doForEach"><l>each item</l><block var="lst"/><script><block s="doIf"><block s="reportEquals"><block s="reportListItem"><l>1</l><block var="each item"/></block><block var="key"/></block><script><block s="doReport"><block s="reportListItem"><l>2</l><block var="each item"/></block></block></script></block></script></block></script></block><block s="doReport"><l></l></block></script></block-definition></blocks>
\ No newline at end of file