Add custom blocks section

Author: adazem009

src/blocks/CMakeLists.txt

@@ -11,6 +11,7 @@ target_sources(scratchcpp
     operatorblocks.cpp
     variableblocks.cpp
     listblocks.cpp
+    customblocks.cpp
   PUBLIC
     motionblocks.h
     looksblocks.h
@@ -21,4 +22,5 @@ target_sources(scratchcpp
     operatorblocks.h
     variableblocks.h
     listblocks.h
+    customblocks.h
 )

src/blocks/customblocks.cpp

@@ -0,0 +1,24 @@
+// SPDX-License-Identifier: Apache-2.0
+
+#include "customblocks.h"
+#include "../engine/compiler.h"
+
+using namespace libscratchcpp;
+
+CustomBlocks::CustomBlocks()
+{
+    // Blocks
+    addHatBlock("procedures_definition");
+    addCompileFunction("procedures_call", &compileCall);
+}
+
+std::string CustomBlocks::name() const
+{
+    return "Custom blocks";
+}
+
+void CustomBlocks::compileCall(Compiler *compiler)
+{
+    const std::string &code = compiler->block()->mutationPrototype()->procCode();
+    compiler->addInstruction(vm::OP_CALL_PROCEDURE, { compiler->procedureIndex(code) });
+}

src/blocks/customblocks.h

@@ -0,0 +1,20 @@
+// SPDX-License-Identifier: Apache-2.0
+
+#pragma once
+
+#include "../engine/iblocksection.h"
+
+namespace libscratchcpp
+{
+
+class CustomBlocks : public IBlockSection
+{
+    public:
+        CustomBlocks();
+
+        std::string name() const override;
+
+        static void compileCall(Compiler *compiler);
+};
+
+} // namespace libscratchcpp

src/blocks/standardblocks.cpp

@@ -10,6 +10,7 @@
 #include "operatorblocks.h"
 #include "variableblocks.h"
 #include "listblocks.h"
+#include "customblocks.h"
 
 using namespace libscratchcpp;
 
@@ -39,4 +40,5 @@ void StandardBlocks::registerSections(Engine *engine)
     engine->registerSection(std::make_shared<OperatorBlocks>());
     engine->registerSection(std::make_shared<VariableBlocks>());
     engine->registerSection(std::make_shared<ListBlocks>());
+    engine->registerSection(std::make_shared<CustomBlocks>());
 }