From 42a7ee9376261c14d6d5c6193c81d443bf3d771c Mon Sep 17 00:00:00 2001
From: jmoenig <jens@moenig.org>
Date: Thu, 3 Sep 2020 11:20:41 +0200
Subject: [PATCH] experimental: Inspect & export dependencies for global custom
 blocks (shift-right-click for context menu)

"transitive hull" extorted by @brianharvey. Sigh.
---
 HISTORY.md  |  4 ++++
 snap.html   |  2 +-
 src/byob.js | 54 +++++++++++++++++++++++++++++++++++++++++++++++++++--
 3 files changed, 57 insertions(+), 3 deletions(-)

diff --git a/HISTORY.md b/HISTORY.md
index 589631bd..bdf07681 100755
--- a/HISTORY.md
+++ b/HISTORY.md
@@ -5,11 +5,15 @@
     * show message senders and receivers from the blocks context menu, thanks, Bernat!
     * new "Database" library operating on localstore, thanks, Jadga!
     * hyperized "distance/direction to _" reporter primitive
+    * experimental: Inspect & export dependencies for global custom blocks (shift-right-click for context menu)
 * **Translation Updates:**
     * Catalan, thanks, Joan!
     * Norwegian, thanks, Olav!
     * German
 
+### 2020-09-03
+* byob: experimental: Inspect & export dependencies for global custom blocks (shift-right-click for context menu)
+
 ### 2020-09-02
 * threads: hyperized "distance/direction to _" reporter primitive
 
diff --git a/snap.html b/snap.html
index 333ac258..29e2d8c4 100755
--- a/snap.html
+++ b/snap.html
@@ -14,7 +14,7 @@
         <script src="src/gui.js?version=2020-09-01"></script>
         <script src="src/paint.js?version=2020-05-17"></script>
         <script src="src/lists.js?version=2020-07-01"></script>
-        <script src="src/byob.js?version=2020-07-24"></script>
+        <script src="src/byob.js?version=2020-09-03"></script>
         <script src="src/tables.js?version=2020-05-18"></script>
         <script src="src/sketch.js?version=2020-07-13"></script>
         <script src="src/video.js?version=2019-06-27"></script>
diff --git a/src/byob.js b/src/byob.js
index 1a5bddba..78862572 100644
--- a/src/byob.js
+++ b/src/byob.js
@@ -108,7 +108,7 @@ BooleanSlotMorph, XML_Serializer, SnapTranslator*/
 
 // Global stuff ////////////////////////////////////////////////////////
 
-modules.byob = '2020-July-24';
+modules.byob = '2020-September-03';
 
 // Declarations
 
@@ -561,6 +561,34 @@ CustomBlockDefinition.prototype.purgeCorpses = function () {
     );
 };
 
+// CustomBlockDefinition dependencies
+
+CustomBlockDefinition.prototype.collectDependencies = function (
+    excluding = [],
+    result = []
+) {
+    if (!this.isGlobal) {
+        throw new Error('collecting dependencies is only supported\n' +
+            'for global custom blocks');
+    }
+    excluding.push(this);
+    this.scripts.concat(
+        this.body ? [this.body.expression] : []
+    ).forEach(script => {
+        script.forAllChildren(morph => {
+            if (morph.isCustomBlock &&
+                morph.isGlobal &&
+                !contains(excluding, morph.definition) &&
+                !contains(result, morph.definition)
+            ) {
+                result.push(morph.definition);
+                morph.definition.collectDependencies(excluding, result);
+            }
+        });
+    });
+    return result;
+};
+
 // CustomCommandBlockMorph /////////////////////////////////////////////
 
 // CustomCommandBlockMorph inherits from CommandBlockMorph:
@@ -1008,7 +1036,7 @@ CustomCommandBlockMorph.prototype.userMenu = function () {
     var hat = this.parentThatIsA(PrototypeHatBlockMorph),
         rcvr = this.scriptTarget(),
         myself = this,
-        // shiftClicked = this.world().currentKey === 16,
+        shiftClicked = this.world().currentKey === 16,
         menu;
 
     function addOption(label, toggle, test, onHint, offHint) {
@@ -1183,10 +1211,29 @@ CustomCommandBlockMorph.prototype.userMenu = function () {
             monitor(vName)
         );
     }
+    if (shiftClicked && this.isGlobal) {
+        var dependencies = this.definition.collectDependencies();
+        if (dependencies.length) {
+            menu.addItem(
+                "dependencies...",
+                () => this.exportDependencies(dependencies),
+                'EXPERIMENTAL!\nExport custom blocks this block relies on',
+                new Color(100, 0, 0)
+            );
+        }
+    }
     menu.addItem("edit...", 'edit'); // works also for prototypes
     return menu;
 };
 
+CustomCommandBlockMorph.prototype.exportDependencies = function (definitions) {
+    var ide = this.parentThatIsA(IDE_Morph);
+    new BlockExportDialogMorph(
+        ide.serializer,
+        definitions
+    ).popUp(this.world());
+};
+
 CustomCommandBlockMorph.prototype.exportBlockDefinition = function () {
     var xml = new SnapSerializer().serialize(this.definition),
         ide = this.parentThatIsA(IDE_Morph);
@@ -1424,6 +1471,9 @@ CustomReporterBlockMorph.prototype.duplicateBlockDefinition
 CustomReporterBlockMorph.prototype.deleteBlockDefinition
     = CustomCommandBlockMorph.prototype.deleteBlockDefinition;
 
+CustomReporterBlockMorph.prototype.exportDependencies
+    = CustomCommandBlockMorph.prototype.exportDependencies;
+
 // CustomReporterBlockMorph events:
 
 // hover help - commented out for now