Language/VirtualMachine: push-pop value

Author: MorganCaron

modules/Language/TreeParser.mpp

@@ -36,7 +36,7 @@ export namespace CppUtils::Language::TreeParser
 		*
 
 		@{.parseNode#<@} / def parseNode
-			/ [ ( {.getChar#>*} getChar();
+			[0: [0" [0 ( {.getChar#>*} ]] / getChar();
 			{.skipSpaces#>*} / skipSpaces();
 			{.parseKeyword#>*} / parseKeyword();
 		*

modules/Language/VirtualMachine.mpp

@@ -225,7 +225,7 @@ export namespace CppUtils::Language::VirtualMachine
 					return std::unexpected{"No type defined"sv};
 				else if (auto typeId = stack.template pop<std::size_t>(); not typeId) [[unlikely]]
 					return std::unexpected{typeId.error()};
-				else if (auto result = Type::Tuple::visitAt(types, typeId.value(), [](const auto& value) { return value; });
+				else if (auto result = Type::Tuple::visitAt(types, typeId.value(), [&stack](const auto& value) { return stack.push(value); });
 					not result) [[unlikely]]
 					return std::unexpected{result.error()};
 				break;

tests/Language/TreeParser.mpp

@@ -7,7 +7,7 @@ export namespace CppUtils::UnitTest::Language::TreeParser
 {
 	inline auto _ = TestSuite{
 		"Language/TreeParser",
-		{"Logger"},
+		{"Logger", "Language/VirtualMachine"},
 		[](auto& suite) {
 		using namespace std::literals;
 		using namespace CppUtils::String::Literals;

tests/Language/VirtualMachine.mpp

@@ -5,7 +5,10 @@ import CppUtils;
 
 export namespace CppUtils::UnitTest::Language::VirtualMachine
 {
-	inline auto _ = TestSuite{"Language/VirtualMachine", {"Logger", "Container/Stack"}, [](auto& suite) {
+	inline auto _ = TestSuite{
+		"Language/VirtualMachine",
+		{"Logger", "Container/Stack"},
+		[](auto& suite) {
 		using namespace std::literals;
 		using Logger = CppUtils::Logger<"CppUtils">;
 		namespace VM = CppUtils::Language::VirtualMachine;
@@ -26,8 +29,32 @@ export namespace CppUtils::UnitTest::Language::VirtualMachine
 			suite.expect(result.has_value());
 		});
 
+		suite.addTest("push-pop bool", [&] {
+			constexpr auto source = u8",[0:,[0_,"sv;
+			auto result = VM::execute<bool>(source);
+			if (not result)
+				Logger::print<"error">("{}", result.error());
+			suite.expect(result.has_value());
+		});
+
+		suite.addTest("push-pop char", [&] {
+			constexpr auto source = u8",[0:,[0_,"sv;
+			auto result = VM::execute<char>(source);
+			if (not result)
+				Logger::print<"error">("{}", result.error());
+			suite.expect(result.has_value());
+		});
+
 		suite.addTest("push-pop int", [&] {
-			constexpr auto source = u8R"(,[0", [0~,)"sv;
+			constexpr auto source = u8",[0:,[0_,"sv;
+			auto result = VM::execute<int>(source);
+			if (not result)
+				Logger::print<"error">("{}", result.error());
+			suite.expect(result.has_value());
+		});
+
+		suite.addTest("import int", [&] {
+			constexpr auto source = u8R"(,[0",)"sv;
 			auto number = 42;
 			auto result = VM::execute(source, VM::NoFunctions{}, VM::makeReferences(number));
 			if (not result)