tesses50/crosslang
1
0
Fork 0
mirror of https://onedev.site.tesses.net/crosslang synced 2026-02-09 01:25:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add dvd builder script

Browse Source
This commit is contained in:
Mike Nolan
2025-05-08 20:19:44 -05:00
parent 8b1f0786f4
commit 0c1ead790d
14 changed files with 1359 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
src/compiler/codegen.cpp
View File

@@ -3,6 +3,7 @@
#include <array>
#include <map>
#include <cstring>
#include <variant>
namespace Tesses::CrossLang
{
void Write(Tesses::Framework::Streams::Stream* strm, uint8_t* buffer, size_t len)
@@ -31,6 +32,7 @@ namespace Tesses::CrossLang
}
}
void CodeGen::Save(Tesses::Framework::Filesystem::VFS* vfs, Tesses::Framework::Streams::Stream* stream)
{
TVMVersion runtime_version(TVM_MAJOR,TVM_MINOR,TVM_PATCH,TVM_BUILD,TVM_VERSIONSTAGE);
@@ -409,6 +411,32 @@ namespace Tesses::CrossLang
}
#define ONE_EXPR(EXPRESSION, INSTRUCTION) if(adv.nodeName == EXPRESSION && adv.nodes.size() == 1) {GenNode(instructions,adv.nodes[0],scope,contscope,brkscope,contI,brkI);instructions.push_back(new SimpleInstruction(INSTRUCTION));}
#define TWO_EXPR(EXPRESSION, INSTRUCTION) if(adv.nodeName == EXPRESSION && adv.nodes.size() == 2) {GenNode(instructions,adv.nodes[0],scope,contscope,brkscope,contI,brkI);GenNode(instructions,adv.nodes[1],scope,contscope,brkscope,contI,brkI);instructions.push_back(new SimpleInstruction(INSTRUCTION));}
SyntaxNode CodeGen::StringifyListOfVars(SyntaxNode n)
{
if(std::holds_alternative<std::string>(n))
{
return n;
}
else if(std::holds_alternative<AdvancedSyntaxNode>(n))
{
auto itemA=std::get<AdvancedSyntaxNode>(n);
if(itemA.nodeName == GetVariableExpression && itemA.nodes.size()==1 && std::holds_alternative<std::string>(itemA.nodes[0]))
{
return std::get<std::string>(itemA.nodes[0]);
}
else if(itemA.nodeName == CommaExpression && itemA.nodes.size()==2)
{
return AdvancedSyntaxNode::Create(CommaExpression,true,{StringifyListOfVars(itemA.nodes[0]),StringifyListOfVars(itemA.nodes[1])});
}
}
return nullptr;
}
void CodeGen::GenNode(std::vector<ByteCodeInstruction*>& instructions, SyntaxNode n,int32_t scope,int32_t contscope, int32_t brkscope, int32_t contI, int32_t brkI)
{
if(std::holds_alternative<std::nullptr_t>(n))
@@ -1018,18 +1046,48 @@ namespace Tesses::CrossLang
else if(adv.nodeName == AssignExpression && adv.nodes.size() == 2 && std::holds_alternative<AdvancedSyntaxNode>(adv.nodes[0]))
{
auto varNode = std::get<AdvancedSyntaxNode>(adv.nodes[0]);
if(varNode.nodeName == GetVariableExpression && varNode.nodes.size() == 1 && std::holds_alternative<std::string>(varNode.nodes[0]))
{
instructions.push_back(new StringInstruction(GetString(std::get<std::string>(varNode.nodes[0]))));
GenNode(instructions,adv.nodes[1],scope,contscope,brkscope,contI,brkI);
instructions.push_back(new SimpleInstruction(SETVARIABLE));
}
else if(varNode.nodeName == ArrayExpression && varNode.nodes.size() >= 1)
{
auto vars= StringifyListOfVars(varNode.nodes[0]);
auto nArray = AdvancedSyntaxNode::Create(ArrayExpression,true,{vars});
this->GenNode(instructions,nArray ,scope ,contscope ,brkscope ,contI , brkI);
GenNode(instructions,adv.nodes[1],scope,contscope,brkscope,contI,brkI);
instructions.push_back(new SimpleInstruction(SETVARIABLE));
}
else if(varNode.nodeName == DeclareExpression && varNode.nodes.size() == 1 && std::holds_alternative<std::string>(varNode.nodes[0]))
{
instructions.push_back(new StringInstruction(GetString(std::get<std::string>(varNode.nodes[0]))));
GenNode(instructions,adv.nodes[1],scope,contscope,brkscope,contI,brkI);
instructions.push_back(new SimpleInstruction(DECLAREVARIABLE));
}
else if(varNode.nodeName == DeclareExpression && varNode.nodes.size() == 1 && std::holds_alternative<AdvancedSyntaxNode>(varNode.nodes[0]))
{
auto adv2 = std::get<AdvancedSyntaxNode>(varNode.nodes[0]);
if(adv2.nodeName == ArrayExpression && adv2.nodes.size() == 1)
{
auto vars= StringifyListOfVars(adv2.nodes[0]);
auto nArray = AdvancedSyntaxNode::Create(ArrayExpression,true,{vars});
this->GenNode(instructions,nArray ,scope ,contscope ,brkscope ,contI , brkI);
GenNode(instructions,adv.nodes[1],scope,contscope,brkscope,contI,brkI);
instructions.push_back(new SimpleInstruction(DECLAREVARIABLE));
}
}
else if(varNode.nodeName == GetFieldExpression && varNode.nodes.size() == 2 && std::holds_alternative<std::string>(varNode.nodes[1]))
{
GenNode(instructions,varNode.nodes[0],scope,contscope,brkscope,contI,brkI);
@@ -1050,9 +1108,41 @@ namespace Tesses::CrossLang
GenNode(instructions,n,scope,contscope,brkscope,contI,brkI);
}
}
else if(adv.nodeName == ThrowStatement && adv.nodes.size() == 1)
else if(adv.nodeName == BreakpointStatement && adv.nodes.size() == 5)
{
instructions.push_back(new SimpleInstruction(CREATEDICTIONARY));
instructions.push_back(new StringInstruction(GetString("Data")));
GenNode(instructions,adv.nodes[0],scope,contscope,brkscope,contI,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new StringInstruction(GetString("Filename")));
GenNode(instructions,adv.nodes[1] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new StringInstruction(GetString("Line")));
GenNode(instructions,adv.nodes[2] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new StringInstruction(GetString("Column")));
GenNode(instructions,adv.nodes[3] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new StringInstruction(GetString("Offset")));
GenNode(instructions,adv.nodes[4] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new SimpleInstruction(BREAKPOINT));
}
else if(adv.nodeName == ThrowStatement && adv.nodes.size() == 5)
{
GenNode(instructions,adv.nodes[0],scope,contscope,brkscope,contI,brkI);
instructions.push_back(new StringInstruction(GetString("Filename")));
GenNode(instructions,adv.nodes[1] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new StringInstruction(GetString("Line")));
GenNode(instructions,adv.nodes[2] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new StringInstruction(GetString("Column")));
GenNode(instructions,adv.nodes[3] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new StringInstruction(GetString("Offset")));
GenNode(instructions,adv.nodes[4] ,scope,contscope ,brkscope ,contI ,brkI);
instructions.push_back(new SimpleInstruction(APPENDDICT));
instructions.push_back(new SimpleInstruction(THROW));
}
else if(adv.nodeName == ReturnStatement && adv.nodes.size() == 1)
@@ -1451,4 +1541,4 @@ namespace Tesses::CrossLang
instrs.push_back(new SimpleInstruction(POP));
}
}
}
}

29
src/compiler/parser.cpp
View File

@@ -588,9 +588,20 @@ namespace Tesses::CrossLang
{
if(i >= tokens.size()) throw std::out_of_range("End of file");
auto variable = tokens[i];
i++;
if(variable.type != LexTokenType::Identifier) throw SyntaxException(variable.lineInfo, "Expected an identifier got a " + LexTokenType_ToString(variable.type) + " \"" + variable.text + "\"");
i++;
if(variable.type == LexTokenType::Symbol && variable.text == "[")
{
node = AdvancedSyntaxNode::Create(DeclareExpression,true,{
AdvancedSyntaxNode::Create(ArrayExpression ,true,{ParseExpression()})
});
EnsureSymbol("]");
}
else if(variable.type != LexTokenType::Identifier) throw SyntaxException(variable.lineInfo, "Expected an identifier got a " + LexTokenType_ToString(variable.type) + " \"" + variable.text + "\"");
else
{
node = AdvancedSyntaxNode::Create(DeclareExpression,true,{variable.text});
}
}
else if(IsIdentifier("operator"))
{
@@ -1189,9 +1200,19 @@ namespace Tesses::CrossLang
}
if(IsIdentifier("throw"))
{
auto tkn2 = tkn;
auto v = ParseExpression();
EnsureSymbol(";");
return AdvancedSyntaxNode::Create(ThrowStatement,false,{v});
return AdvancedSyntaxNode::Create(ThrowStatement,false,{v,tkn2.lineInfo.filename,(int64_t)tkn2.lineInfo.line,(int64_t)tkn2.lineInfo.column,(int64_t)tkn.lineInfo.offset});
}
if(IsIdentifier("breakpoint"))
{
auto tkn2 = tkn;
auto v = ParseExpression();
EnsureSymbol(";");
return AdvancedSyntaxNode::Create(BreakpointStatement,false,{v,tkn2.lineInfo.filename,(int64_t)tkn2.lineInfo.line,(int64_t)tkn2.lineInfo.column,(int64_t)tkn.lineInfo.offset});
}
if(IsIdentifier("try"))
{
@@ -1355,4 +1376,4 @@ namespace Tesses::CrossLang
}
return expr;
}
}
}