stepus53/psil
1
0
Fork 0
mirror of https://github.com/usatiuk/psil.git synced 2025-10-29 03:07:49 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

even better parser

Browse Source
This commit is contained in:
Stepan Usatiuk
2023-12-26 13:41:14 +01:00
parent 27cbe8a200
commit a0febfba0e
5 changed files with 22 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/vm/VMWithParserTest.cpp
View File

@@ -10,7 +10,7 @@ TEST(VMWithParserTest, BasicHello) {
MemoryContext mc;
VM vm(ssin, ssout);
Parser parser;
parser.loadStr("( LDC 104 PUTCHAR STOP )");
parser.loadStr("(LDC 104 PUTCHAR STOP)");
vm.loadControl(parser.parseExpr());
vm.run();
}
@@ -26,7 +26,7 @@ TEST(VMWithParserTest, BasicBranch) {
VM vm(ssin, ssout);
Parser parser;
parser.loadStr(
"( LDC 1 SEL ( LDC 10 PUTNUM JOIN ) ( LDC 20 PUTNUM JOIN ) LDC 0 SEL ( LDC 30 PUTNUM JOIN ) ( LDC 40 PUTNUM JOIN ) STOP )");
"(LDC 1 SEL (LDC 10 PUTNUM JOIN) (LDC 20 PUTNUM JOIN) LDC 0 SEL (LDC 30 PUTNUM JOIN) (LDC 40 PUTNUM JOIN) STOP)");
vm.loadControl(parser.parseExpr());
vm.run();
}
@@ -41,7 +41,7 @@ TEST(VMWithParserTest, BasicFunction) {
MemoryContext mc;
VM vm(ssin, ssout);
Parser parser;
parser.loadStr("( NIL LDC 1 CONS LDC 2 CONS LDF ( LD ( 1 . 1 ) LD ( 1 . 2 ) ADD RET ) AP PUTNUM STOP )");
parser.loadStr("(NIL LDC 1 CONS LDC 2 CONS LDF (LD (1 . 1) LD (1.2) ADD RET) AP PUTNUM STOP)");
vm.loadControl(parser.parseExpr());
vm.run();
}