Implement data_setvariableto

Author: adazem009

src/dev/blocks/variableblocks.cpp

@@ -24,6 +24,7 @@ std::string VariableBlocks::description() const
 void VariableBlocks::registerBlocks(IEngine *engine)
 {
     engine->addCompileFunction(this, "data_variable", &compileVariable);
+    engine->addCompileFunction(this, "data_setvariableto", &compileSetVariableTo);
 }
 
 CompilerValue *VariableBlocks::compileVariable(Compiler *compiler)
@@ -37,3 +38,15 @@ CompilerValue *VariableBlocks::compileVariable(Compiler *compiler)
     else
         return compiler->addConstValue(Value());
 }
+
+CompilerValue *VariableBlocks::compileSetVariableTo(Compiler *compiler)
+{
+    Field *varField = compiler->field("VARIABLE");
+    Variable *var = static_cast<Variable *>(varField->valuePtr().get());
+    assert(var);
+
+    if (var)
+        compiler->createVariableWrite(var, compiler->addInput("VALUE"));
+
+    return nullptr;
+}

src/dev/blocks/variableblocks.h

@@ -17,6 +17,7 @@ class VariableBlocks : public IExtension
 
     private:
         static CompilerValue *compileVariable(Compiler *compiler);
+        static CompilerValue *compileSetVariableTo(Compiler *compiler);
 };
 
 } // namespace libscratchcpp

test/dev/blocks/variable_blocks_test.cpp

@@ -54,3 +54,26 @@ TEST_F(VariableBlocksTest, Variable)
     ASSERT_EQ(Value(values[0]), 835.21);
     ASSERT_EQ(Value(values[1]), "Hello world");
 }
+
+TEST_F(VariableBlocksTest, SetVariableTo)
+{
+    auto target = std::make_shared<Sprite>();
+    auto var1 = std::make_shared<Variable>("", "", 835.21);
+    target->addVariable(var1);
+    auto var2 = std::make_shared<Variable>("", "", "Hello world");
+    target->addVariable(var2);
+    ScriptBuilder builder(m_extension.get(), m_engine, target);
+
+    builder.addBlock("data_setvariableto");
+    builder.addEntityField("VARIABLE", var1);
+    builder.addValueInput("VALUE", "test");
+
+    builder.addBlock("data_setvariableto");
+    builder.addEntityField("VARIABLE", var2);
+    builder.addValueInput("VALUE", 123);
+
+    builder.build();
+    builder.run();
+    ASSERT_EQ(var1->value(), "test");
+    ASSERT_EQ(var2->value(), 123);
+}