/*----------------------------------------------------------

This Source Code Form is subject to the terms of the

Mozilla Public License, v.2.0. If a copy of the MPL

was not distributed with this file, You can obtain one

at http://mozilla.org/MPL/2.0/.

----------------------------------------------------------*/

using System;

using OneScript.Contexts;

using OneScript.Execution;

using OneScript.Values;

using ScriptEngine.Machine.Debugger;

namespace ScriptEngine.Machine

{

public class StackMachineExecutor : IExecutorProvider

{

private MachineInstance _machine;

public Type SupportedModuleType => typeof(StackRuntimeModule);

public Invoker GetInvokeDelegate()

{

return Executor;

}

public void BeforeProcessStart(IBslProcess process)

{

_machine = new MachineInstance();

_machine.Setup(process);

var debugger = process.Services.TryResolve<IDebugger>();

if (debugger?.IsEnabled == true)

{

var session = debugger.GetSession();

if (session.IsActive)

{

_machine.SetDebugMode(session.ThreadManager, session.BreakpointManager);

session.ThreadManager.ThreadStarted(process.VirtualThreadId, _machine);

}

}

process.Services.Resolve<StackMachineProvider>().Machine = _machine;

}

public void AfterProcessExit(IBslProcess process)

{

var debugger = process.Services.TryResolve<IDebugger>();

if (debugger?.IsEnabled != true)

return;

var session = debugger.GetSession();

if (session.IsActive)

{

session.ThreadManager.ThreadExited(process.VirtualThreadId);

}

}

private BslValue Executor(IBslProcess process, BslObjectValue target, IExecutableModule module, BslScriptMethodInfo method, IValue[] arguments)

{

if (!(method is MachineMethodInfo scriptMethodInfo))

{

throw new InvalidOperationException($"Method has type {method?.GetType()} but expected {typeof(MachineMethodInfo)}");

}

if (!(target is IRunnable runnable))

{

throw new InvalidOperationException($"Target must implement {typeof(IRunnable)}");

}

if (_machine?.Process == default)

{

throw new InvalidOperationException("Machine is not initialized by process");

}

return (BslValue)_machine.ExecuteMethod(runnable, scriptMethodInfo, arguments);

}

}

}