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

38
src/types/rootenvironment.cpp
View File

@@ -208,6 +208,7 @@ namespace Tesses::CrossLang {
this->marked = true;
this->dict->Mark();
for(auto defer : this->defers) defer->Mark();
if(this->error != nullptr) this->error->Mark();
}
TRootEnvironment* TRootEnvironment::Create(GCList* gc,TDictionary* dict)
{
@@ -225,4 +226,39 @@ namespace Tesses::CrossLang {
_gc->Watch(env);
return env;
}
};
bool TRootEnvironment::HandleException(GC* gc,TEnvironment* env, TObject err)
{
if(error != nullptr)
{
GCList ls(gc);
return ToBool(error->Call(ls, {
TDictionary::Create(ls,{
TDItem("IsBreakpoint",false),
TDItem("Exception",err),
TDItem("Environment", env)
})
}));
}
return false;
}
bool TRootEnvironment::HandleBreakpoint(GC* gc,TEnvironment* env, TObject err)
{
if(error != nullptr)
{
GCList ls(gc);
return ToBool(error->Call(ls, {
TDictionary::Create(ls,{
TDItem("IsBreakpoint",true),
TDItem("Breakpoint",err),
TDItem("Environment", env)
})
}));
}
return true;
}
void TRootEnvironment::RegisterOnError(TCallable* call)
{
this->error = call;
}
};